| blib/lib/Mock/MonkeyPatch.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 20 | 22 | 90.9 |
| line | true | false | branch |
|---|---|---|---|
| 22 | 2 | 16 | if (defined $p) |
| 31 | 5 | 6 | unless defined $occurance |
| 40 | 0 | 3 | unless my $args = $self->arguments($occurance) |
| 43 | 2 | 1 | if ($type) |
| 45 | 1 | 1 | unless $inst->isa($type) |
| 56 | 1 | 9 | unless _defined($symbol) |
| 62 | 1 | 8 | exists $opts->{'store_arguments'} ? : |
| 71 | 8 | 2 | $weak->{'store'} ? : |
| 82 | 9 | 3 | if (my $orig = delete $self->{'original'}) |
| 88 | 2 | 2 | @_ == 1 ? : |
| 92 | 0 | 9 | if defined ${^GLOBAL_PHASE} and ${^GLOBAL_PHASE} eq 'DESTRUCT' |