| blib/lib/Test/NaiveStubs.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 11 | 14 | 78.5 |
| line | true | false | branch |
|---|---|---|---|
| 55 | 18 | 0 | if $packagename eq $self->module |
| 70 | 2 | 9 | if ($subroutine eq 'new') { } |
| 7 | 2 | elsif ($self->is_oo) { } | |
| 91 | 0 | 1 | unless open my $fh, ">", $self->name |
| 104 | 1 | 0 | if (exists $self->subs->{'new'}) |
| 113 | 1 | 8 | if $sub =~ /^_/ |
| 114 | 1 | 7 | if $sub eq "new" |