2 |
## $Id$ |
## $Id$ |
3 |
## -------------------------------------------------------------------------------- |
## -------------------------------------------------------------------------------- |
4 |
## $Log$ |
## $Log$ |
5 |
|
## Revision 1.10 2003/02/20 20:50:32 joko |
6 |
|
## + small exception handling: now inheriting from little Exception object |
7 |
|
## |
8 |
## Revision 1.9 2003/02/18 18:35:30 joko |
## Revision 1.9 2003/02/18 18:35:30 joko |
9 |
## + encapsulated/abstracted some more functionality: sub load_single |
## + encapsulated/abstracted some more functionality: sub load_single |
10 |
## |
## |
43 |
use strict; |
use strict; |
44 |
use warnings; |
use warnings; |
45 |
|
|
46 |
use base qw( DesignPattern::Object ); |
use base qw( |
47 |
|
DesignPattern::Object |
48 |
|
DesignPattern::Exception |
49 |
|
); |
50 |
|
|
51 |
use Data::Dumper; |
use Data::Dumper; |
52 |
|
|
171 |
|
|
172 |
# this is the module testing phase - use mixin doesn't seem to propagate errors by default |
# this is the module testing phase - use mixin doesn't seem to propagate errors by default |
173 |
eval("use $package;"); |
eval("use $package;"); |
174 |
|
$self->checkExceptions(); |
175 |
|
|
176 |
|
=pod |
177 |
if ($@) { |
if ($@) { |
178 |
$meta->{loaded}->{$package} = 0; |
$meta->{loaded}->{$package} = 0; |
179 |
# include caller information |
# include caller information |
186 |
print $msg, "\n"; |
print $msg, "\n"; |
187 |
} |
} |
188 |
} |
} |
189 |
|
=cut |
190 |
|
|
191 |
#print "ref-1: ", ref $self, "\n"; |
#print "ref-1: ", ref $self, "\n"; |
192 |
#print "ref-2: ", ref $self::SUPER, "\n"; |
#print "ref-2: ", ref $self::SUPER, "\n"; |