2 |
## $Id$ |
## $Id$ |
3 |
## ------------------------------------------------------------------------- |
## ------------------------------------------------------------------------- |
4 |
## $Log$ |
## $Log$ |
5 |
|
## Revision 1.2 2003/04/04 17:25:51 joko |
6 |
|
## minor update regarding debugging output |
7 |
|
## |
8 |
## Revision 1.1 2003/03/27 15:39:10 joko |
## Revision 1.1 2003/03/27 15:39:10 joko |
9 |
## initial commit, api metadata registration helper |
## initial commit, api metadata registration helper |
10 |
## |
## |
27 |
my $self = shift; |
my $self = shift; |
28 |
my $payload = shift; |
my $payload = shift; |
29 |
#print ref($self), " [$self] registers its API", "\n"; |
#print ref($self), " [$self] registers its API", "\n"; |
30 |
print ref($self), " registers its API", "\n"; |
print __PACKAGE__, ": ", ref($self), " registers its API", "\n"; |
31 |
#$logger->info( ref($self), " [$self]", " registers its API" ); |
#$logger->info( ref($self), " [$self]", " registers its API" ); |
32 |
#print Dumper($payload); |
#print Dumper($payload); |
33 |
$self->_push_api($payload); |
$self->_push_api($payload); |