| blib/lib/Sub/Operable.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 11 | 20 | 55.0 |
| line | true | false | branch |
|---|---|---|---|
| 29 | 0 | 3 | unless my $next = $_[0]->can('do_prefix_op') |
| 36 | 0 | 9 | unless my $next = $_[0]->can('do_infix_op') |
| 56 | 8 | 58 | if ($has_subops) { } |
| 62 | 14 | 0 | isa_Sub_Operable($arg) ? : |
| 79 | 0 | 9 | if $swap |
| 83 | 9 | 0 | if (isa_Sub_Operable($x)) { } |
| 84 | 6 | 3 | if (isa_Sub_Operable($y)) { } |
| 92 | 0 | 0 | if (isa_Sub_Operable($y)) { } |
| 107 | 3 | 0 | if ($op eq 'neg') |
| 113 | 3 | 0 | if (isa_Sub_Operable($x)) { } |