Branch Coverage

lib/Perl/PrereqScanner/NotQuiteLite/Parser/MooseXDeclare.pm
Criterion Covered Total %
branch 24 42 57.1


line true false branch
55 0 18 unless my $class_name = +(shift @$tokens || [])->[0]
56 4 14 if ($class_name eq "::")
63 9 2 if ($token->[0] eq "extends" or $token->[0] eq "with")
66 2 8 if ($name eq "::")
69 10 0 if is_module_name($name)
70 6 4 unless @$tokens
72 3 1 if $next_token->[0] ne ","
88 5 3 if ($class_name eq "::")
95 0 1 if ($token->[0] eq "with")
98 0 0 if ($name eq "::")
101 0 0 if is_module_name($name)
102 0 0 unless @$tokens
104 0 0 if $next_token->[0] ne ","
118 2 0 if (is_module_name($first_token))
136 7 19 unless (ref $token)
137 5 2 if ($token =~ /^::/)
145 3 16 if ($desc eq "{}")
146 0 3 unless $token->[0]
148 0 17 if ($hash_tokens[$i][0] eq "-version" and $i < $len - 2)
151 0 0 if (ref $maybe_version)
154 0 0 if ($prev and is_version($maybe_version))