| line |
true |
false |
branch |
|
62
|
1 |
35 |
unless defined $suffix_regex |
|
76
|
1 |
35 |
unless my(@inc) = @$inc |
|
80
|
0 |
35 |
$^O eq 'MSWin32' ? : |
|
82
|
324 |
128 |
if $_ =~ /$abs_path_regex/ |
|
85
|
32 |
96 |
$_ eq '.' ? : |
|
94
|
1 |
990 |
unless defined $anchor |
|
95
|
991 |
0 |
unless defined $replacement |
|
118
|
1 |
994 |
unless ref $inc_ref eq "ARRAY" |
|
120
|
1 |
993 |
unless @{$inc_ref;} |
|
122
|
1 |
992 |
unless defined $paths |
|
123
|
1 |
991 |
unless ref $paths eq "ARRAY" |
|
126
|
0 |
991 |
unless my $editor = make_path_strip_editor($inc_ref, $anchor, $replacement) |
|
130
|
991 |
0 |
if (UNIVERSAL::isa($paths, 'ARRAY')) { } |
|
132
|
0 |
991 |
if (ref $path) { } |
|
|
991 |
0 |
elsif ($path) { } |
|
163
|
1 |
16 |
if ($val < 10 ** (-($precision - 1)) and $val > 0) { } |
|
|
14 |
2 |
elsif ($val != int $val) { } |
|
185
|
28 |
0 |
unless defined $width |
|
186
|
0 |
28 |
unless defined $sec |
|
187
|
0 |
28 |
if $sec < 0 |
|
188
|
0 |
28 |
if $fmt_time_opt |
|
189
|
1 |
27 |
unless $sec |
|
190
|
4 |
23 |
if $sec < "1e-06" |
|
191
|
7 |
16 |
if $sec < "0.001" |
|
192
|
6 |
10 |
if $sec < 1 |
|
193
|
8 |
2 |
if $sec < 100 |
|
201
|
1 |
4 |
unless $diff |
|
203
|
4 |
0 |
if ($incl =~ /(\D+)$/) |
|
208
|
8 |
0 |
if (/(\D+)$/) |
|
209
|
6 |
2 |
if $1 eq $unit |
|
223
|
1 |
19 |
unless ref $values_ref eq "ARRAY" |
|
225
|
1 |
18 |
$ignore_zeros ? : |
|
228
|
1 |
18 |
unless defined $median_value |
|
246
|
0 |
336 |
if ($^O eq "VMS") |