Lines 26-32
sub _write {
Link Here
|
26 |
my ( $self, $msg, $log_level, $dump, $cb ) = @_; |
26 |
my ( $self, $msg, $log_level, $dump, $cb ) = @_; |
27 |
|
27 |
|
28 |
my $LEVEL_STR = { |
28 |
my $LEVEL_STR = { |
29 |
1 => 'UNUS ', |
29 |
0 => 'UNUS ', |
|
|
30 |
1 => 'ALERT ', |
30 |
2 => 'CRIT ', |
31 |
2 => 'CRIT ', |
31 |
3 => 'ERROR ', |
32 |
3 => 'ERROR ', |
32 |
4 => 'WARN ', |
33 |
4 => 'WARN ', |
Lines 56-61
sub _write {
Link Here
|
56 |
sub unusable { |
57 |
sub unusable { |
57 |
my ( $self, $msg, $dump ) = @_; |
58 |
my ( $self, $msg, $dump ) = @_; |
58 |
my $cb = $self->_called_by(); |
59 |
my $cb = $self->_called_by(); |
|
|
60 |
$self->_write( $msg, 0, $dump, $cb ); |
61 |
} |
62 |
|
63 |
sub alert { |
64 |
my ( $self, $msg, $dump ) = @_; |
65 |
my $cb = $self->_called_by(); |
59 |
$self->_write( $msg, 1, $dump, $cb ); |
66 |
$self->_write( $msg, 1, $dump, $cb ); |
60 |
} |
67 |
} |
61 |
|
68 |
|