| line |
true |
false |
branch |
|
34
|
0 |
45 |
unless (defined $level_map{$_}) |
|
55
|
3 |
1 |
$val =~ /^([A-Za-z]+)([-+][0-9]+)$/ && defined $level_map{lc $1} ? : |
|
|
12 |
4 |
exists $level_map{$val} ? : |
|
|
2 |
16 |
$val eq 'all' ? : |
|
|
1 |
18 |
!defined($val) || $val eq 'none' ? : |
|
70
|
2 |
3 |
if ($ENV{'TAP_LOG_FILTER'}) |
|
72
|
2 |
2 |
if (index($_, '=') > -1) { } |
|
75
|
0 |
2 |
unless eval {
do {
_coerce_filter_level($level);
$category_filter_level{$pkg} = $level;
1
}
} |
|
80
|
1 |
1 |
unless eval {
do {
_coerce_filter_level($_);
$global_filter_level = $_;
1
}
} |
|
87
|
0 |
5 |
if ($ENV{'TAP_LOG_ORIGIN'}) |
|
95
|
5 |
0 |
unless defined $ENV{'TAP_LOG_SHOW_USAGE'} and not $ENV{'TAP_LOG_SHOW_USAGE'} |
|
117
|
2 |
5 |
defined $category_filter_level{$self->{'category'}} ? : |
|
|
7 |
8 |
unless exists $self->{'filter'} |
|
123
|
1 |
14 |
if $level > $level_map{'emergency'} |
|
125
|
14 |
1 |
if $pkg_id >= 0 |
|
131
|
5 |
10 |
if ($show_usage) |
|
136
|
1 |
0 |
if ($custom_dumper and $_show_dumper_warning) |
|
150
|
26 |
11 |
unless $level_name eq 'info' |
|
152
|
0 |
37 |
if ($show_category) |
|
156
|
0 |
37 |
if ($show_file_line) |
|
160
|
0 |
0 |
unless $show_file_fullname |
|
167
|
7 |
11 |
$self->_log_level_value($level_name) >= $self->_log_level_value('warning') ? : |
|
171
|
37 |
0 |
if ($m = 'main'->can($name)) { } |
|
|
0 |
0 |
elsif ('Test::Builder'->can('new')) { } |
|
179
|
0 |
0 |
if ($name eq 'diag') { } |
|
199
|
0 |
0 |
if length $x >= 50 |
|
213
|
40 |
10 |
if ($level_map{$method} >= $level_map{'info'}) { } |
|
216
|
0 |
33 |
!defined($_) ? : |
|
221
|
0 |
0 |
!ref($_) ? : |
|
|
0 |
0 |
!defined($_) ? : |
|
228
|
4 |
0 |
!ref($_) ? : |
|
|
0 |
4 |
!defined($_) ? : |
|
|
0 |
4 |
unless eval {
do {
$self->write_msg($method, join('', map({!defined($_) ? '' : (!ref($_) ? $_ : $self->dumper->($_));} @_)));
1
}
} |
|
234
|
0 |
0 |
!ref($_) ? : |
|
|
0 |
0 |
!defined($_) ? : |
|
|
0 |
0 |
unless eval {
do {
$self->write_msg($method, sprintf(shift(), map({!defined($_) ? '' : (!ref($_) ? $_ : $self->dumper->($_));} @_)));
1
}
} |
|
286
|
5 |
0 |
if ($Log::Any::VERSION >= 0.9) |
|
294
|
6 |
0 |
$_called_as_fatal ? : |