| line |
true |
false |
branch |
|
7
|
0 |
0 |
if (not ref $_ and /^[:\$&%\@]?(\w+)$/ and exists $EXPORT{$1} || exists $EXPORT_TAGS{$1}) |
|
|
0 |
0 |
unless @exports |
|
19
|
0 |
0 |
if not defined $_[0] or length $_[0] == 0 |
|
24
|
0 |
0 |
$_[0] ? : |
|
28
|
0 |
0 |
if ref $_[0] eq 'Regexp' |
|
29
|
0 |
0 |
$_[0] ? : |
|
35
|
0 |
0 |
unless $type eq 'CODE' |
|
47
|
0 |
0 |
unless ref $newval eq 'ARRAY' |
|
49
|
0 |
0 |
if length $_ != 1 |
|
58
|
0 |
0 |
unless $_[0] =~ /^(across|down|balanced|tabular)$/ |
|
65
|
0 |
0 |
unless int $_[0] eq $_[0] and $_[0] > 0 |
|
73
|
0 |
0 |
if (not defined $val) { } |
|
|
0 |
0 |
elsif (not $type) { } |
|
75
|
0 |
0 |
unless ref $val eq 'ARRAY' |
|
85
|
0 |
0 |
if (not defined $vals) { } |
|
|
0 |
0 |
elsif (not $type and $vals eq 'minimal') { } |
|
|
0 |
0 |
elsif (not $type) { } |
|
|
0 |
0 |
elsif ($type eq 'HASH') { } |
|
90
|
0 |
0 |
unless defined $vals->{'max'} |
|
94
|
0 |
0 |
unless ref $vals eq 'HASH' and not grep({int $vals->{$_} ne $vals->{$_};} 'min', 'max') |
|
118
|
0 |
0 |
unless defined $format |
|
123
|
0 |
0 |
unless $opt->{'page'}{'length'} == $unlimited |
|
130
|
0 |
0 |
unless (defined $val) |
|
133
|
0 |
0 |
unless (ref $val) |
|
136
|
0 |
0 |
if (ref $val eq 'CODE') |
|
139
|
0 |
0 |
if (ref $val eq 'HASH') |
|
144
|
0 |
0 |
if (not ref $val->{$_}) { } |
|
|
0 |
0 |
elsif (ref $val->{$_} ne 'CODE') { } |
|
185
|
0 |
0 |
unless $type =~ /^(ARRAY|HASH)$/ |
|
188
|
0 |
0 |
if ($type eq 'ARRAY') { } |
|
189
|
0 |
0 |
if @$spec % 2 |
|
201
|
0 |
0 |
ref $fld eq 'CODE' ? : |
|
234
|
0 |
0 |
exists $lconv->{'decimal_point'} ? : |
|
235
|
0 |
0 |
exists $lconv->{'thousands_sep'} ? : |
|
236
|
0 |
0 |
exists $lconv->{'grouping'} ? : |
|
251
|
0 |
0 |
unless $std |
|
254
|
0 |
0 |
if (@bad and $croak) { } |
|
|
0 |
0 |
elsif (@bad) { } |
|
264
|
0 |
0 |
if $len < 0 |
|
276
|
0 |
0 |
unless $val{'precropped'} |
|
279
|
0 |
0 |
unless $val{'stretch'} |
|
284
|
0 |
0 |
unless $val{'precropped'} |
|
286
|
0 |
0 |
unless $val{'stretch'} |
|
302
|
0 |
0 |
unless ($val{'last'}) |
|
305
|
0 |
0 |
$rem-- > 0 ? : |
|
313
|
0 |
0 |
length $_[0] ? : |