Branch Coverage

lib/Perl/PrereqScanner/NotQuiteLite/Parser/ObjectPad.pm
Criterion Covered Total %
branch 18 20 90.0


line true false branch
50 172 118 if (ref $token and $token->[1] and $token->[1] eq "WORD")
51 17 155 if ($token->[0] eq "isa" or $token->[0] eq "extends")
56 21 134 if ($token->[0] eq "does" or $token->[0] eq "implements")
61 134 0 if (is_module_name($token->[0]))
63 76 58 if (@$tokens and is_version($tokens->[0]))
66 56 78 if ($isa or $does) { }
73 42 210 if (ref $token and $token->[1] and $token->[1] eq "ATTRIBUTE")
77 56 0 if (is_module_name($name) and is_version($version))
93 18 18 if (is_module_name($token->[0]))
95 6 12 if (@$tokens and is_version($tokens->[0]))