|  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) { }  |