/[cvs]/nfo/perl/libs/DesignPattern/Object.pm
ViewVC logotype

Diff of /nfo/perl/libs/DesignPattern/Object.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3 by joko, Mon Jan 20 16:54:22 2003 UTC revision 1.4 by root, Wed Jan 22 17:56:49 2003 UTC
# Line 2  Line 2 
2  ##  $Id$  ##  $Id$
3  ## ---------------------------------------------------------------------------  ## ---------------------------------------------------------------------------
4  ##  $Log$  ##  $Log$
5    ##  Revision 1.4  2003/01/22 17:56:49  root
6    ##  + fix: just use the logger if it's available
7    ##
8  ##  Revision 1.3  2003/01/20 16:54:22  joko  ##  Revision 1.3  2003/01/20 16:54:22  joko
9  ##  + sub fromPackage: refactored from libp's 'getNewPerlObjFromPkgName' or s.th.l.th.  ##  + sub fromPackage: refactored from libp's 'getNewPerlObjFromPkgName' or s.th.l.th.
10  ##  ##
# Line 26  use Data::Dumper; Line 29  use Data::Dumper;
29    
30    
31  # get logger instance  # get logger instance
32  my $logger = Log::Dispatch::Config->instance;  my $logger = eval { Log::Dispatch::Config->instance; };
33    
34  sub new {  sub new {
35        
# Line 36  sub new { Line 39  sub new {
39    # use already blessed reference, if passed in - else use the very classname    # use already blessed reference, if passed in - else use the very classname
40    my $class = ref ($classname) || $classname;    my $class = ref ($classname) || $classname;
41        
42    $logger->debug( "$classname->new( ... )" . "\t[via " . __PACKAGE__ . "]" );    $logger->debug( "$classname->new( ... )" . "\t[via " . __PACKAGE__ . "]" ) if $logger;
43        
44    # the base for our object - a plain perl hash, which ....    # the base for our object - a plain perl hash, which ....
45    my $self = {};    my $self = {};
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed