From: Chris W. <la...@us...> - 2005-03-10 01:25:57
|
Update of /cvsroot/openinteract/OpenInteract2/pkg/news/OpenInteract2/App In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15802/pkg/news/OpenInteract2/App Modified Files: News.pm Log Message: update core packages to include App improvements Index: News.pm =================================================================== RCS file: /cvsroot/openinteract/OpenInteract2/pkg/news/OpenInteract2/App/News.pm,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** News.pm 2 Mar 2005 15:21:44 -0000 1.2 --- News.pm 10 Mar 2005 01:24:59 -0000 1.3 *************** *** 1,4 **** --- 1,6 ---- package OpenInteract2::App::News; + # $Id$ + use strict; use base qw( Exporter OpenInteract2::App ); *************** *** 8,14 **** @OpenInteract2::App::News::EXPORT = qw( install ); ! sub get_brick_name { ! return 'news'; ! } # Not a method, just an exported sub --- 10,14 ---- @OpenInteract2::App::News::EXPORT = qw( install ); ! my $NAME = 'news'; # Not a method, just an exported sub *************** *** 21,24 **** --- 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__ |