| line |
true |
false |
branch |
|
66
|
0 |
0 |
if ('Log::Report::Minimal'->can('error')) { } |
|
76
|
2 |
15 |
unless my $reasons = shift() |
|
77
|
13 |
2 |
if ref $reasons ne "ARRAY" |
|
81
|
8 |
10 |
if ($r =~ /^([a-z]*)\-([a-z]*)/i) { } |
|
|
4 |
6 |
elsif ($reason_code{$r}) { } |
|
|
6 |
0 |
elsif (my $s = $reason_set{$r}) { } |
|
84
|
0 |
0 |
$begin ? : |
|
|
0 |
8 |
unless $begin and $end |
|
87
|
0 |
8 |
if $begin >= $end |
|
119
|
0 |
0 |
unless $reason eq "ASSERT" or $reason eq "PANIC" or $mode == 2 and $reason_code{$reason} >= $reason_code{'WARNING'} |
|
127
|
0 |
0 |
unless $reason eq "PANIC" or $mode == 2 and $reason_code{$reason} >= $reason_code{'ALERT'} |
|
141
|
0 |
0 |
unless $escape{$1} |
|
147
|
0 |
0 |
unless $unescape{$1} |
|
163
|
1 |
10 |
unless defined $locale and length $locale |
|
166
|
0 |
10 |
unless ($locale =~ /^ ([a-z_]+)
(?: \. ([\w-]+) )? # codeset
(?: \@ (\S+) )? # modifier
$/xi) |
|
173
|
0 |
0 |
wantarray ? : |
|
181
|
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' ? : |
|
190
|
0 |
10 |
if @subtags > 1 and length $subtags[0] > 3 |
|
193
|
4 |
6 |
@subtags ? : |
|
195
|
10 |
0 |
if wantarray |
|
213
|
3 |
0 |
$d ? : |
|
|
3 |
5 |
unless @_ |
|
216
|
1 |
4 |
if ($d) |
|
218
|
1 |
0 |
if $d->[0] eq $domain |