--- nfo/perl/libs/OEF/API/Abstract.pm 2003/03/27 15:39:10 1.1 +++ nfo/perl/libs/OEF/API/Abstract.pm 2003/04/04 17:25:51 1.2 @@ -1,7 +1,10 @@ ## ------------------------------------------------------------------------- -## $Id: Abstract.pm,v 1.1 2003/03/27 15:39:10 joko Exp $ +## $Id: Abstract.pm,v 1.2 2003/04/04 17:25:51 joko Exp $ ## ------------------------------------------------------------------------- ## $Log: Abstract.pm,v $ +## Revision 1.2 2003/04/04 17:25:51 joko +## minor update regarding debugging output +## ## Revision 1.1 2003/03/27 15:39:10 joko ## initial commit, api metadata registration helper ## @@ -24,7 +27,7 @@ my $self = shift; my $payload = shift; #print ref($self), " [$self] registers its API", "\n"; - print ref($self), " registers its API", "\n"; + print __PACKAGE__, ": ", ref($self), " registers its API", "\n"; #$logger->info( ref($self), " [$self]", " registers its API" ); #print Dumper($payload); $self->_push_api($payload);