| blib/lib/Test/Mock/Guard.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 35 | 41 | 85.3 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 24 | 1 | 1 | 42 | @args and @args % 2 == 0 |
| 29 | 1 | 1 | 44 | defined $class_name and ref $method_defs eq 'HASH' |
| 86 | 1 | 1 | 9 | @args and @args % 2 == 0 |
| 89 | 1 | 1 | 9 | defined $class_name and ref $methods eq 'ARRAY' |
| 192 | 0 | 0 | 1 | exists $$mocked{$klass}{$refaddr} and exists $$mocked{$klass}{$refaddr}{$method} |
| 209 | 2 | 0 | 51 | $klass and $refaddr |
| 2 | 7 | 44 | $klass and $refaddr and exists $$mocked{$klass}{$refaddr} | |
| 7 | 1 | 43 | $klass and $refaddr and exists $$mocked{$klass}{$refaddr} and exists $$mocked{$klass}{$refaddr}{$method} |
| line | l | !l | condition |
|---|---|---|---|
| 42 | 24 | 11 | $$stash{$class_name} ||= {} |
| 72 | 18 | 9 | $$self{'object'}{"$class_name#$refaddr"} || (return undef) |
| 94 | 1 | 0 | $$self{'object'}{"$klass#$refaddr"} || (next) |
| 105 | 8 | 44 | $$stash{$class_name}{$method_name} ||= {'counter', 0, 'restore', {}, 'delete_flags', {}, 'called_count', 0} |
| 119 | 52 | 1 | delete $$self{'restore'}{$class_name}{$method_name} || (return) |
| 121 | 52 | 0 | max(keys %{$$stuff{'restore'};}) || 0 |
| 167 | 3 | 5 | $$mocked{$klass}{'_mocked'} ||= {} |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 141 | 45 | 1 | 0 | $orig_method || *{"${class_name}::$method_name is unregistered";} |