| line | % | coverage | branch |
|---|
| 54 | 100 | T | F | if (not defined $a or not defined($r = reftype $a)) |
| 55 | 100 | T | F | defined $a ? : |
| 58 | 100 | T | F | unless exists $sigils{$r} and $p =~ /\Q$sigils{$r}\E/ |
| 79 | 100 | T | F | unless defined $proto |
| 83 | 100 | T | F | if ($1) { } |
| 100 | T | F | elsif ($p =~ /[\@\%]/) { } |
| 86 | 100 | T | F | $r eq 'GLOB' ? : |
| 100 | T | F | $r eq 'HASH' ? : |
| 100 | T | F | $r eq 'ARRAY' ? : |
| 100 | T | F | $r eq 'SCALAR' ? : |
| 102 | 100 | T | F | unless @_ |
| 164 | 100 | T | F | if $p =~ /^\[([^\]]+)\]/ |
| 166 | 100 | T | F | if ($ref) { } |
| 100 | T | F | elsif ($p =~ /[\@\%]/) { } |
| 100 | T | F | elsif ($p =~ /\&/) { } |
| 100 | T | F | elsif ($p eq '_') { } |
| 167 | 100 | T | F | if (length $p > 1) { } |
| 186 | 100 | T | F | if (not exists $h{$i}) { } |
| 206 | 100 | T | F | unless $name |
| 209 | 100 | T | F | if (not $r) { } |
| 100 | T | F | elsif ($r eq 'HASH') { } |
| 212 | 100 | T | F | unless keys %$name == 1 |
| 224 | 100 | T | F | if @_ % 2 |
| 227 | 100 | T | F | if not defined $opts{'sub'} |
| 228 | 100 | T | F | if not defined $opts{'compile'} and $opts{'sub'} |
| 229 | 100 | T | F | if not defined $opts{'wrong_ref'} |
| 232 | 100 | T | F | if (defined $proto) { } |
| 237 | 100 | T | F | if (@cr) |
| 243 | 100 | T | F | if $opts{'sub'} |
| 244 | 100 | T | F | if ($opts{'compile'}) |
| 246 | 100 | T | F | if $@ |
| 267 | 100 | T | F | if $@ |