| blib/lib/Test/NaiveStubs.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 12 | 14 | 85.7 |
| line | true | false | branch |
|---|---|---|---|
| 56 | 18 | 2 | if $packagename eq $self->module |
| 71 | 2 | 9 | if ($subroutine eq 'new') { } |
| 7 | 2 | elsif ($self->is_oo) { } | |
| 92 | 0 | 1 | unless open my $fh, '>', $self->name |
| 105 | 1 | 0 | if (exists $self->subs->{'new'}) |
| 114 | 1 | 8 | if $sub =~ /^_/ |
| 115 | 1 | 7 | if $sub eq 'new' |