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