| line |
true |
false |
branch |
|
50
|
0 |
0 |
if ('Log::Report::Minimal'->can('error')) { } |
|
60
|
7 |
8 |
if ($r =~ /^([a-z]*)\-([a-z]*)/i) { } |
|
|
3 |
5 |
elsif ($reason_code{$r}) { } |
|
|
2 |
3 |
elsif ($r eq 'USER') { } |
|
|
1 |
2 |
elsif ($r eq 'PROGRAM') { } |
|
|
1 |
1 |
elsif ($r eq 'SYSTEM') { } |
|
|
1 |
0 |
elsif ($r eq 'ALL') { } |
|
63
|
0 |
0 |
$begin ? : |
|
|
0 |
7 |
unless $begin and $end |
|
67
|
0 |
7 |
if $begin >= $end |
|
104
|
0 |
0 |
unless $reason eq 'ASSERT' or $reason eq 'PANIC' or $mode == 2 and $reason_code{$reason} >= $reason_code{'WARNING'} |
|
112
|
0 |
0 |
unless $reason eq 'PANIC' or $mode == 2 and $reason_code{$reason} >= $reason_code{'ALERT'} |
|
126
|
0 |
0 |
unless $escape{$1} |
|
132
|
0 |
0 |
unless $unescape{$1} |
|
148
|
1 |
10 |
unless defined $locale and length $locale |
|
151
|
0 |
10 |
unless ($locale =~ /^ ([a-z_]+)
(?: \. ([\w-]+) )? # codeset
(?: \@ (\S+) )? # modifier
$/xi) |
|
158
|
0 |
0 |
wantarray ? : |
|
166
|
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' ? : |
|
176
|
0 |
10 |
if @subtags > 1 and length $subtags[0] > 3 |
|
179
|
4 |
6 |
@subtags ? : |
|
181
|
10 |
0 |
if wantarray |
|
198
|
3 |
0 |
$d ? : |
|
|
3 |
5 |
unless @_ |
|
201
|
1 |
4 |
if ($d) |
|
203
|
1 |
0 |
if $d->[0] eq $domain |