| blib/lib/PerlX/Perform.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 15 | 16 | 93.7 |
| line | true | false | branch |
|---|---|---|---|
| 26 | 10 | 20 | if (ref $thing and UNIVERSAL::can($thing, 'can')) |
| 36 | 12 | 18 | if (defined $thing) |
| 42 | 16 | 2 | if (@_ == 1) |
| 52 | 4 | 10 | if (@_ and not ref $_[0] and $_[0] eq 'perform') |
| 56 | 10 | 16 | if (@_ and blessed($_[0]) and $_[0]->isa('PerlX::Perform::Manifesto')) { } |
| 4 | 24 | elsif (@_ and ref $_[0] eq 'CODE') { } | |
| 82 | 0 | 16 | if (&PerlX::Perform::blessed($code) and $code->isa('PerlX::Perform::Manifesto')) |
| 89 | 6 | 8 | unless defined $thing |