Branch Coverage

lib/Perl/PrereqScanner/NotQuiteLite/Parser/PackageVariant.pm
Criterion Covered Total %
branch 23 32 71.8


line true false branch
19 5 16 if (ref $token and $token->[0] eq 'importing') { }
4 14 elsif (ref $token and not ref $token->[0] and $token->[1] eq 'WORD') { }
20 5 0 if @$tokens and $tokens->[0][1] eq "COMMA"
21 0 5 unless my $next_token = shift @$tokens
22 1 4 if (not ref $next_token) { }
3 1 elsif ($next_token->[1] eq '[]') { }
1 0 elsif ($next_token->[1] eq '{}') { }
24 1 0 if (is_module_name($module))
26 0 1 if ($c->has_callback_for("use", $module))
34 1 4 unless is_module_name($module)
36 2 2 if ($c->has_callback_for("use", $module))
44 0 1 $arg->[1] eq '[]' ? :
46 1 0 if ($c->has_callback_for("use", $module))
53 4 0 if @$tokens and $tokens->[0][1] eq "COMMA"
54 4 0 if @$tokens
56 8 6 if @$tokens and ref $tokens->[0] and $tokens->[0][1] eq "COMMA"