2 |
## $Id$ |
## $Id$ |
3 |
## -------------------------------------------------------------------------------- |
## -------------------------------------------------------------------------------- |
4 |
## $Log$ |
## $Log$ |
5 |
|
## Revision 1.13 2003/07/01 23:26:37 joko |
6 |
|
## croak to STDERR if module loading fails! |
7 |
|
## |
8 |
## Revision 1.12 2003/05/13 08:39:22 joko |
## Revision 1.12 2003/05/13 08:39:22 joko |
9 |
## autocalling constructor after instantiation |
## autocalling constructor after instantiation |
10 |
## added pod documentation |
## added pod documentation |
249 |
|
|
250 |
my $meta; |
my $meta; |
251 |
|
|
252 |
|
|
253 |
|
sub DEBUG { 1 } |
254 |
|
|
255 |
|
|
256 |
## ======== object constructor ======== |
## ======== object constructor ======== |
257 |
sub new { |
sub new { |
258 |
my $invocant = shift; |
my $invocant = shift; |
411 |
# FIXME: --- this is redundant --- |
# FIXME: --- this is redundant --- |
412 |
if ($@) { |
if ($@) { |
413 |
$meta->{loaded}->{$package} = 0; |
$meta->{loaded}->{$package} = 0; |
414 |
$logger->error( __PACKAGE__ . "->load: $@" ) if $logger; |
my $msg = __PACKAGE__ . "->load: $@"; |
415 |
|
print STDERR $msg, "\n" if DEBUG; |
416 |
|
$logger->error( $msg ) if $logger; |
417 |
} else { |
} else { |
418 |
$meta->{loaded}->{$package} = 1; |
$meta->{loaded}->{$package} = 1; |
419 |
} |
} |