Branch Coverage

blib/lib/Perl/PrereqScanner/Scanner/Perl5.pm
Criterion Covered Total %
branch 20 22 90.9


line true false branch
48 1 170 if ($node->version)
54 33 137 if (grep {$_ eq $node->module;} "base", "parent")
57 30 9 unless $_->isa("PPI::Token::QuoteLike::Words")
66 57 113 $node->module_version ? :
69 3 167 unless $node->module
72 107 60 if not $version and $node->type =~ /\A(?:require|use)\z/
85 73 34 unless $next and $next->class eq "PPI::Statement"
89 0 21 unless defined $list and $op->class eq "PPI::Token::Operator" and $op->content eq "->" and $method->content eq "VERSION" and !defined($too_much) || $too_much->content eq ';' and $invocant->content eq $node->module and $list->class eq "PPI::Structure::List" and $list->braces eq "()" and $list->schildren == 1
102 3 18 unless $exp->class eq "PPI::Statement::Expression" and $exp->schildren == 1
107 12 6 if ($arg->isa('PPI::Token::Number')) { }
6 0 elsif ($arg->isa('PPI::Token::Quote') and $arg->can('literal')) { }