[Openinteract-commits] CVS: OpenInteract2/pkg/base_error/OpenInteract2/App BaseError.pm,1.1,1.2

[Chris W. <la...@us...>]

Update of /cvsroot/openinteract/OpenInteract2/pkg/base_error/OpenInteract2/App
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15802/pkg/base_error/OpenInteract2/App

Modified Files:
	BaseError.pm 
Log Message:
update core packages to include App improvements

Index: BaseError.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/pkg/base_error/OpenInteract2/App/BaseError.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** BaseError.pm	1 Mar 2005 03:28:34 -0000	1.1
--- BaseError.pm	10 Mar 2005 01:24:56 -0000	1.2
***************
*** 1,4 ****
--- 1,6 ----
  package OpenInteract2::App::BaseError;
  
+ # $Id$
+ 
  use strict;
  use base qw( Exporter OpenInteract2::App );
***************
*** 8,14 ****
  @OpenInteract2::App::BaseError::EXPORT  = qw( install );
  
! sub get_brick_name {
!     return 'base_error';
! }
  
  # Not a method, just an exported sub
--- 10,14 ----
  @OpenInteract2::App::BaseError::EXPORT  = qw( install );
  
! my $NAME = 'base_error';
  
  # 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__