| line |
true |
false |
branch |
|
58
|
0 |
0 |
if ('Log::Report::Minimal'->can('error')) { } |
|
66
|
2 |
15 |
unless my $reasons = shift() |
|
67
|
13 |
2 |
if ref $reasons ne 'ARRAY' |
|
71
|
8 |
10 |
if ($r =~ /^([a-z]*)\-([a-z]*)/i) { } |
|
|
4 |
6 |
elsif ($reason_code{$r}) { } |
|
|
6 |
0 |
elsif (my $s = $reason_set{$r}) { } |
|
74
|
0 |
0 |
$begin ? : |
|
|
0 |
8 |
unless $begin and $end |
|
78
|
0 |
8 |
if $begin >= $end |
|
112
|
0 |
0 |
unless $reason eq 'ASSERT' or $reason eq 'PANIC' or $mode == 2 and $reason_code{$reason} >= $reason_code{'WARNING'} |
|
120
|
0 |
0 |
unless $reason eq 'PANIC' or $mode == 2 and $reason_code{$reason} >= $reason_code{'ALERT'} |
|
134
|
0 |
0 |
unless $escape{$1} |
|
140
|
0 |
0 |
unless $unescape{$1} |
|
156
|
1 |
10 |
unless defined $locale and length $locale |
|
159
|
0 |
10 |
unless ($locale =~ /^ ([a-z_]+)
(?: \. ([\w-]+) )? # codeset
(?: \@ (\S+) )? # modifier
$/xi) |
|
166
|
0 |
0 |
wantarray ? : |
|
174
|
0 |
0 |
$primary eq 'x' && @subtags ? : |
|
|
0 |
0 |
$primary eq 'i' && @subtags ? : |
|
|
8 |
0 |
$primary =~ /^[a-z]{2,3}$/ ? : |
|
|
1 |
8 |
$primary eq 'posix' ? : |
|
|
1 |
9 |
$primary eq 'c' ? : |
|
184
|
0 |
10 |
if @subtags > 1 and length $subtags[0] > 3 |
|
187
|
4 |
6 |
@subtags ? : |
|
189
|
10 |
0 |
if wantarray |
|
206
|
3 |
0 |
$d ? : |
|
|
3 |
5 |
unless @_ |
|
209
|
1 |
4 |
if ($d) |
|
211
|
1 |
0 |
if $d->[0] eq $domain |