Branch Coverage

lib/Perl/PrereqScanner/NotQuiteLite/Parser/Core.pm
Criterion Covered Total %
branch 51 62 82.2


line true false branch
43 9 11 if $token->[1] eq "COMMA"
48 4 0 if (ref $module and $module->[1] eq 'WORD' || $module->[1] eq 'KEYWORD')
51 9 0 if (is_module_name($module)) { }
52 0 9 if (is_version($tokens->[0])) { }
67 0 21 if (is_version($tokens->[0]))
72 2 49 if (ref $module and ($module->[1] || '') eq "WORD")
75 1 1 if @$tokens and ref $tokens->[0] and ($tokens->[0][1] || '') eq "()"
78 3 47 if (ref $module and ref $module->[0])
81 25 25 if (is_module_name($module))
91 0 28 if (is_version($tokens->[0]))
95 2 52 if $token eq "-norequire"
97 31 21 if (ref $token)
98 5 26 if $token->[0] eq "-norequire"
100 2 45 if (ref $module and ($module->[1] || '') eq "WORD")
103 1 1 if @$tokens and ref $tokens->[0] and ($tokens->[0][1] || '') eq "()"
106 3 43 if (ref $module and ref $module->[0])
109 23 23 if is_module_name($module)
118 0 10 if (is_version($tokens->[0]))
122 10 9 if ref $token
123 5 4 if (exists $feature_since{$token})
127 4 0 if ($token =~ /^:5\.([0-9]+)(\.\[0-9]+)?/)
138 0 8 unless $c->{'stack'}
139 7 0 if $_->[0] eq "{"
4 4 if (grep {$_->[2] eq "BEGIN" if $_->[0] eq "{";} @stack)
140 1 3 if (grep {$c->token_is_conditional($_->[0]);} @$raw_tokens) { }
1 2 elsif (grep {$c->token_is_conditional($_->[2]) if $_->[0] eq '{';} @stack) { }
142 4 0 if $_->[0] eq "{"
157 31 1 if (ref $token and $token->[1] and $token->[1] eq "WORD")
160 32 0 if (@$tokens)
162 5 27 if (is_version($token))
166 6 26 if (ref $token and $token->[1] and $token->[1] =~ /^\{/)