| line |
true |
false |
branch |
|
50
|
0 |
254 |
if (not defined $_) { } |
|
57
|
0 |
254 |
if ($type =~ /^Bool/xi) { } |
|
|
126 |
128 |
elsif ($type =~ /^(Str|enum)/xi) { } |
|
|
128 |
0 |
elsif ($type =~ /^(Int|HiResDate)/xi) { } |
|
|
0 |
0 |
elsif ($type =~ /^Ref|Any/xi) { } |
|
62
|
0 |
0 |
$_ ? : |
|
70
|
0 |
126 |
if _tainted($_) |
|
75
|
126 |
0 |
if /^ \s* (.*?) \s* $/x |
|
77
|
6 |
120 |
if $type =~ /^enum/ |
|
86
|
0 |
0 |
unless defined $_ |
|
102
|
0 |
0 |
if $type =~ /Ref/i or ref $val |
|
105
|
0 |
0 |
unless defined $val |
|
109
|
0 |
0 |
if ($type =~ /^Bool/i) { } |
|
|
0 |
0 |
elsif ($type =~ /^(Str|enum)/i) { } |
|
|
0 |
0 |
elsif ($type =~ /^Int|HiResDate/i) { } |
|
|
0 |
0 |
elsif ($type eq 'Any') { } |
|
113
|
0 |
0 |
/^(true|1)$/i ? : |
|
119
|
0 |
0 |
if /^ \s* (.*?) \s* $/x |
|
121
|
0 |
0 |
if $type =~ /^enum/i |
|
153
|
128 |
0 |
if ($i =~ /^ [\s\+]* (-?\d+) \s* $/x) { } |
|
176
|
0 |
128 |
if $i eq '-0' |
|
181
|
0 |
128 |
unless $i =~ /^[+-]?\d+$/ |
|
200
|
0 |
0 |
$opt{'password'} ? : |
|
206
|
0 |
0 |
if ++$n > 100 |
|
207
|
0 |
0 |
if IO::Interactive::is_interactive() |
|
210
|
0 |
0 |
unless defined $input |
|
240
|
0 |
0 |
unless defined $data |
|
242
|
0 |
0 |
unless length($data) % 2 == 0 |
|
247
|
0 |
0 |
if defined $non_hex_char |
|
298
|
360 |
58 |
if ($data_type) |
|
302
|
106 |
254 |
if try sub {
$dt->can('stringify');
} |
|
307
|
312 |
0 |
unless $reftype |
|
310
|
0 |
0 |
if &Scalar::Util::blessed($_) and $_->can('stringify') |
|
313
|
0 |
0 |
if ($reftype eq 'ARRAY') |
|
351
|
0 |
0 |
unless $min % 15 or $sec |