| blib/lib/Module/Spy.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 15 | 18 | 83.3 |
| line | true | false | branch |
|---|---|---|---|
| 16 | 6 | 13 | if (&Scalar::Util::blessed($stuff)) { } |
| 70 | 0 | 6 | unless my $orig = $self->stuff->can($self->method) |
| 101 | 0 | 18 | unless $pack = $$pack{$part . '::'} |
| 110 | 6 | 0 | if (ref $self->stuff eq $self->{'anon_class'}) |
| 153 | 7 | 6 | if (defined $orig) { } |
| 186 | 2 | 17 | if (my $fake = $CALL_FAKE{$code_addr}) |
| 190 | 2 | 15 | if (exists $RETURNS{$code_addr}) |
| 191 | 1 | 1 | if (@{$RETURNS{$code_addr};} == 1) |
| 197 | 2 | 13 | if ($CALL_THROUGH{$code_addr}) |