| blib/lib/Acme/Bleach/Numerically.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 7 | 16 | 43.7 |
| line | true | false | branch |
|---|---|---|---|
| 14 | 4 | 22 | if $str eq '' |
| 29 | 4 | 22 | unless $num |
| 43 | 2 | 0 | if (@_) { } |
| 47 | 1 | 4 | unless defined &{"$arg";} |
| 51 | 0 | 0 | unless open my $in, '<:raw', $0 |
| 55 | 0 | 0 | if ($src =~ /^0\.[0-9]+;?\s*$/) { } |
| 62 | 0 | 0 | if ($@) |
| 67 | 0 | 0 | unless open my $out, '>:raw', $0 |