| blib/lib/PPIx/Utilities/Node.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 20 | 25 | 80.0 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 55 | 1 | 9 | 0 | $package_statements and @{$package_statements;} |
| 65 | 0 | 5 | 1 | $first_child and $package_address == refaddr $first_child |
| 107 | 10 | 0 | 44 | not $block and my $component = shift @components |
| line | l | !l | condition |
|---|---|---|---|
| 84 | 10 | 8 | refaddr $initial_fragment || 0 |
| 170 | 24 | 17 | $$nodes_by_namespace{$namespace} ||= [] |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 65 | 0 | 0 | 6 | $package_address == refaddr $node or $first_child and $package_address == refaddr $first_child |
| 92 | 4 | 2 | 125 | $child->isa('PPI::Statement::Compound') or $child->isa('PPI::Statement::Given') |
| 6 | 4 | 121 | $child->isa('PPI::Statement::Compound') or $child->isa('PPI::Statement::Given') or $child->isa('PPI::Statement::When') | |
| 172 | 17 | 5 | 19 | not @{$nodes;} or refaddr($$nodes[-1]) != refaddr $fragment |