2 |
## $Id$ |
## $Id$ |
3 |
## --------------------------------------------------------------------------- |
## --------------------------------------------------------------------------- |
4 |
## $Log$ |
## $Log$ |
5 |
|
## Revision 1.10 2003/05/13 08:46:08 joko |
6 |
|
## pod and comments |
7 |
|
## |
8 |
## Revision 1.9 2003/03/27 15:44:32 joko |
## Revision 1.9 2003/03/27 15:44:32 joko |
9 |
## fixes/enhancements to 'sub log_basic' |
## fixes/enhancements to 'sub log_basic' |
10 |
## |
## |
35 |
## |
## |
36 |
## --------------------------------------------------------------------------- |
## --------------------------------------------------------------------------- |
37 |
|
|
38 |
|
=pod |
39 |
|
|
40 |
|
=head1 NAME |
41 |
|
|
42 |
|
DesignPattern::Object |
43 |
|
|
44 |
|
|
45 |
|
=head1 TODO |
46 |
|
|
47 |
|
o use Class::Loader |
48 |
|
|
49 |
|
|
50 |
|
=cut |
51 |
|
|
52 |
package DesignPattern::Object; |
package DesignPattern::Object; |
53 |
|
|
184 |
eval($evstring); |
eval($evstring); |
185 |
|
|
186 |
# report errors |
# report errors |
187 |
|
# Could this be united with DesignPattern::Loader::checkExceptions? |
188 |
if ($@) { |
if ($@) { |
189 |
# build error-messages |
# build error-messages |
190 |
my $issuer = __PACKAGE__ . ':' . __LINE__; |
my $issuer = __PACKAGE__ . ':' . __LINE__; |