| line |
true |
false |
branch |
|
26
|
0 |
0 |
if not caller() or caller(0) =~ /^(PerlPowerTools::Packed|PAR)$/ or caller 1 eq "PAR" |
|
39
|
1 |
0 |
if defined $TZ |
|
41
|
0 |
0 |
if $from_posix =~ /\A[A-Z]{3,4}\z/ |
|
43
|
0 |
0 |
(core_time())[-1] ? : |
|
45
|
0 |
0 |
if exists $from_windows->{$from_posix} |
|
59
|
0 |
1 |
if (grep {$_ eq '-h';} @$args) { } |
|
|
0 |
1 |
elsif (grep {$_ eq '-v';} @$args) { } |
|
64
|
0 |
1 |
if (length $at) |
|
73
|
0 |
1 |
if (/^-/ and not exists $allowed{$_}) |
|
78
|
1 |
0 |
if (/^\-u/) |
|
84
|
6 |
0 |
exists $specifiers->{$1} ? : |
|
90
|
0 |
1 |
if @format_args > 1 |
|
93
|
0 |
1 |
if $format_args[0] =~ /\A\+(.+)/ |
|
98
|
0 |
1 |
unless $formats->{$_} |
|
143
|
0 |
2 |
$minutes < 0 ? : |
|
150
|
0 |
0 |
defined $_[0] ? : |
|
160
|
0 |
0 |
unless s/\A=item \s+ \* \s+(?=%)//x |
|
173
|
0 |
0 |
unless /\A__(?:END|DATA)__/ |
|
180
|
0 |
0 |
unless /\S/ |