| blib/lib/Mock/MonkeyPatch.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 20 | 22 | 90.9 |
| line | true | false | branch |
|---|---|---|---|
| 6 | 2 | 16 | if (defined $p) |
| 26 | 5 | 6 | unless defined $occurance |
| 35 | 0 | 3 | unless my $args = $self->arguments($occurance) |
| 38 | 2 | 1 | if ($type) |
| 40 | 1 | 1 | unless $inst->isa($type) |
| 51 | 1 | 9 | unless _defined($symbol) |
| 57 | 1 | 8 | exists $opts->{'store_arguments'} ? : |
| 66 | 8 | 2 | $weak->{'store'} ? : |
| 77 | 9 | 3 | if (my $orig = delete $self->{'original'}) |
| 83 | 2 | 2 | @_ == 1 ? : |
| 87 | 0 | 9 | if defined ${^GLOBAL_PHASE} and ${^GLOBAL_PHASE} eq 'DESTRUCT' |