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