| blib/lib/PerlX/Perform.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 16 | 23 | 69.5 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 26 | 0 | 20 | 10 | ref $thing and UNIVERSAL::can($thing, 'can') |
| 52 | 12 | 10 | 4 | @_ and not ref $_[0] |
| 22 | 0 | 4 | @_ and not ref $_[0] and $_[0] eq 'perform' | |
| 56 | 12 | 4 | 10 | @_ and blessed($_[0]) |
| 16 | 0 | 10 | @_ and blessed($_[0]) and $_[0]->isa('PerlX::Perform::Manifesto') | |
| 12 | 0 | 4 | @_ and ref $_[0] eq 'CODE' | |
| 82 | 16 | 0 | 0 | &PerlX::Perform::blessed($code) and $code->isa('PerlX::Perform::Manifesto') |
| line | l | !l | condition |
|---|---|---|---|
| 28 | 10 | 0 | ref $thing || $thing || 1 |