2 |
## $Id$ |
## $Id$ |
3 |
## ------------------------------------------------------------------------ |
## ------------------------------------------------------------------------ |
4 |
## $Log$ |
## $Log$ |
5 |
|
## Revision 1.3 2003/02/21 08:39:31 joko |
6 |
|
## raises exceptions via logger |
7 |
|
## |
8 |
## Revision 1.2 2003/02/20 20:53:55 joko |
## Revision 1.2 2003/02/20 20:53:55 joko |
9 |
## + fix: using Object's basic log method if not running together with the Logger |
## + fix: using Object's basic log method if not running together with the Logger |
10 |
## |
## |
22 |
|
|
23 |
use base qw( DesignPattern::Object ); |
use base qw( DesignPattern::Object ); |
24 |
|
|
25 |
|
|
26 |
sub checkExceptions { |
sub checkExceptions { |
27 |
my $self = shift; |
my $self = shift; |
28 |
|
|
38 |
#print "warning: ", $@, "\n"; |
#print "warning: ", $@, "\n"; |
39 |
$self->log_basic($@, 'warning'); |
$self->log_basic($@, 'warning'); |
40 |
} |
} |
41 |
|
return 1; |
42 |
} |
} |
43 |
|
|
44 |
} |
} |
45 |
|
|
46 |
|
sub raiseException { |
47 |
|
my $self = shift; |
48 |
|
my $message = shift; |
49 |
|
my $level = shift; |
50 |
|
$message ||= 'UNKNOWN ERROR'; |
51 |
|
$level ||= 'critical'; |
52 |
|
$self->_viaLogger($message, $level); |
53 |
|
} |
54 |
|
|
55 |
|
sub _viaLogger { |
56 |
|
my $self = shift; |
57 |
|
my $message = shift; |
58 |
|
my $level = shift; |
59 |
|
# get logger instance |
60 |
|
my $logger = eval { Log::Dispatch::Config->instance; }; |
61 |
|
if ($logger) { |
62 |
|
$logger->log( message => $message, level => $level ); |
63 |
|
} else { |
64 |
|
print "ERROR[$level] $message", "\n"; |
65 |
|
} |
66 |
|
} |
67 |
|
|
68 |
1; |
1; |
69 |
__END__ |
__END__ |