| blib/lib/Acme/Debug.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 1 | 16 | 6.2 |
| line | true | false | branch |
|---|---|---|---|
| 75 | 0 | 0 | ref $proto ? : |
| 79 | 0 | 0 | unless -f $f |
| 81 | 0 | 0 | if (open FH, "< $f") { } |
| 101 | 0 | 0 | if ($f =~ /Acme.Debug.pm/) |
| 108 | 0 | 0 | if ($line =~ /$bug/im) |
| 110 | 0 | 0 | unless ($f =~ /perl5db.pl/) |
| 111 | 0 | 0 | $debug ? : |
| 120 | 0 | 1 | if $verbose |