Branch Coverage

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


line true false branch
48 1 172 if ($node->version)
54 33 139 if (grep {$_ eq $node->module;} "base", "parent")
57 30 9 unless $_->isa("PPI::Token::QuoteLike::Words")
66 58 114 $node->module_version ? :
69 3 169 unless $node->module
72 108 61 if not $version and $node->type =~ /\A(?:require|use)\z/
85 74 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')) { }