|
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 |
|