From: Chris W. <la...@us...> - 2005-03-18 03:35:05
|
Update of /cvsroot/openinteract/OpenInteract2/extra_packages/delicious_tags/OpenInteract2/App In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8625/extra_packages/delicious_tags/OpenInteract2/App Modified Files: DeliciousTags.pm Log Message: apply ::App updates Index: DeliciousTags.pm =================================================================== RCS file: /cvsroot/openinteract/OpenInteract2/extra_packages/delicious_tags/OpenInteract2/App/DeliciousTags.pm,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** DeliciousTags.pm 6 Mar 2005 15:55:51 -0000 1.1 --- DeliciousTags.pm 18 Mar 2005 03:34:57 -0000 1.2 *************** *** 10,16 **** @OpenInteract2::App::DeliciousTags::EXPORT = qw( install ); ! sub get_brick_name { ! return 'delicious_tags'; ! } # Not a method, just an exported sub --- 10,14 ---- @OpenInteract2::App::DeliciousTags::EXPORT = qw( install ); ! my $NAME = 'delicious_tags'; # Not a method, just an exported sub *************** *** 23,26 **** --- 21,41 ---- } + sub new { + return OpenInteract2::App->new( $NAME ); + } + + sub get_brick { + require OpenInteract2::Brick; + return OpenInteract2::Brick->new( $NAME ); + } + + sub get_brick_name { + return $NAME; + } + + OpenInteract2::App->register_factory_type( $NAME => __PACKAGE__ ); + + 1; + __END__ |