Branch Coverage

blib/lib/Perl/Metrics/Simple/Analysis/File.pm
Criterion Covered Total %
branch 44 62 70.9


line true false branch
106 9 32 if (ref $path) { }
107 9 0 if (ref $path eq 'SCALAR') { }
113 0 32 unless (-r $path)
119 2 39 @LOGIC_KEYWORDS ? :
123 1 40 @LOGIC_OPERATORS ? :
127 0 41 @METHOD_MODIFIERS ? :
133 0 41 unless (defined $document)
156 29 3 if (-s $path) { }
199 0 41 unless ($document->isa("PPI::Document"))
222 0 218 unless $eval_result
223 0 218 unless defined $node
225 2 216 unless length $string
235 202 14 if (length $string)
237 99 103 if ($last_char ne "$Perl::Metrics::Simple::Analysis::File::INPUT_RECORD_SEPARATOR")
272 0 0 wantarray ? :
277 0 0 wantarray ? :
282 0 0 wantarray ? :
290 10 81 if ($self->get_node_length($elem) == 0)
294 81 0 if ($elem)
305 42 39 if ($operators_ref)
319 24 17 unless Perl::Metrics::Simple::Analysis::is_ref($found_packages, "ARRAY")
337 20 21 unless Perl::Metrics::Simple::Analysis::is_ref($found_subs, "ARRAY")
372 14 613 if ($grandparent->isa("PPI::Structure::Subscript"))
376 6 605 if ($sib->isa("PPI::Token::Operator") and $sib eq "=>")
387 0 259 unless (defined $document)
399 0 41 unless (defined $document)
410 8 0 if $_->[$PPI_CHILD_INDEX_SUBROUTINE]->isa("PPI::Token::Word")
416 8 0 if $_->[$PPI_CHILD_INDEX_OPERATOR]->isa("PPI::Token::Operator")
421 2 6 unless $_->[$PPI_CHILD_INDEX_METHOD_NAME]->isa("PPI::Token::Quote")
426 60 10 if $_->[$PPI_CHILD_INDEX_AFTER]->isa("PPI::Token::Word")
440 6 2 if ($children[1]->can('literal')) { }