| line |
true |
false |
branch |
|
51
|
0 |
0 |
if ($_ eq ':strict') |
|
109
|
0 |
1 |
if (scalar keys %$args < 1) { } |
|
110
|
0 |
0 |
if (looks_like_number $b) { } |
|
117
|
1 |
0 |
if $_ eq 'type' |
|
119
|
0 |
1 |
if $_ eq 'skip' |
|
123
|
1 |
0 |
if ($type eq 'Int') { } |
|
|
0 |
0 |
elsif ($type eq 'Str') { } |
|
124
|
0 |
1 |
if (not looks_like_number $b) { } |
|
126
|
0 |
0 |
if ($skip) { } |
|
134
|
0 |
0 |
if (looks_like_number $b) { } |
|
136
|
0 |
0 |
if ($skip) { } |
|
158
|
0 |
0 |
if (substr($key, -2, -1) eq ':') |
|
166
|
0 |
0 |
if (substr($key, -2, -1) eq ':') |
|
169
|
0 |
0 |
if (scalar keys %{$key;} > 0) |
|
175
|
0 |
0 |
if (scalar @extends > 0) { } |
|
177
|
0 |
0 |
unless (grep {$_ eq $extend;} @extends) |
|
196
|
0 |
0 |
if (ref $use eq 'ARRAY') { } |
|
209
|
0 |
0 |
if (ref $imports eq 'ARRAY') { } |
|
222
|
0 |
0 |
if ($@) { } |
|
231
|
0 |
0 |
if (ref $like ne 'Regexp') |
|
233
|
0 |
0 |
if ($CLASS->dieonsyntax) { } |
|
245
|
0 |
0 |
if (ref $unlike ne 'Regexp') |
|
247
|
0 |
0 |
if ($CLASS->dieonsyntax) { } |
|
259
|
0 |
0 |
unless (ref $a and ref $b) |
|
261
|
0 |
0 |
if ($CLASS->dieonsyntax) { } |
|
288
|
0 |
0 |
if ($num == 1) { } |
|
|
0 |
0 |
elsif ($num == 2) { } |
|
|
0 |
0 |
elsif ($num == 3) { } |
|
290
|
0 |
0 |
unless (ref $var) |
|
299
|
0 |
0 |
unless (ref $var) |
|
308
|
0 |
0 |
unless (ref $var) |
|
312
|
0 |
0 |
if (ref $var ne uc $type) |
|
356
|
0 |
0 |
if (scalar keys %{"${class}::";} < 1) |
|
362
|
0 |
0 |
if (substr($_, -2, -1) eq ':') { } |
|
377
|
0 |
0 |
defined $args ? : |
|
379
|
0 |
0 |
if (ref $v eq 'HASH') { } |
|
391
|
0 |
0 |
unless (ref $refvar) |
|
396
|
0 |
0 |
if (ref $refvar eq 'HASH') { } |
|
|
0 |
0 |
elsif (ref $refvar eq 'ARRAY') { } |
|
400
|
0 |
0 |
if grep {$_ eq $key;} @_ |
|
403
|
0 |
0 |
if ($match) { } |
|
407
|
0 |
0 |
if (grep {$_ eq $key;} @$refvar) { } |
|
444
|
0 |
0 |
if (not ref $v) { } |
|
449
|
0 |
0 |
unless (looks_like_number $c) |
|
454
|
0 |
0 |
if (ref $v eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (ref $v eq 'HASH') { } |
|
456
|
0 |
0 |
if ($num != $c) { } |
|
461
|
0 |
0 |
if ($num != $c) { } |
|
476
|
0 |
0 |
if ($self->dieonsyntax) { } |