|
Lines 81-86
sub new {
Link Here
|
| 81 |
return $self; |
81 |
return $self; |
| 82 |
} |
82 |
} |
| 83 |
|
83 |
|
|
|
84 |
=head3 diag |
| 85 |
|
| 86 |
$logger->diag(); |
| 87 |
|
| 88 |
Method to output all recieved logs. |
| 89 |
|
| 90 |
=cut |
| 91 |
|
| 92 |
sub diag { |
| 93 |
my ($self) = @_; |
| 94 |
my $tb = $CLASS->builder; |
| 95 |
$tb->diag("debug: \n " . join("\n ", @{ $self->{debug} })); |
| 96 |
$tb->diag("error: \n " . join("\n ", @{ $self->{error} })); |
| 97 |
$tb->diag("into: \n " . join("\n ", @{ $self->{info} })); |
| 98 |
$tb->diag("fatal: \n " . join("\n ", @{ $self->{fatal} })); |
| 99 |
$tb->diag("trace: \n " . join("\n ", @{ $self->{trace} })); |
| 100 |
$tb->diag("warn: \n " . join("\n ", @{ $self->{warn} })); |
| 101 |
return; |
| 102 |
} |
| 103 |
|
| 84 |
=head3 debug_is |
104 |
=head3 debug_is |
| 85 |
|
105 |
|
| 86 |
$logger->debug_is($expected); |
106 |
$logger->debug_is($expected); |
| 87 |
- |
|
|