Branch Coverage

lib/Perl/PrereqScanner/NotQuiteLite/Parser/ObjectPad.pm
Criterion Covered Total %
branch 20 22 90.9


line true false branch
51 170 101 if (ref $token and $token->[1] and $token->[1] eq 'WORD' || $token->[1] eq 'KEYWORD')
52 17 153 if ($token->[0] eq "isa" or $token->[0] eq "extends")
57 21 132 if ($token->[0] eq "does" or $token->[0] eq "implements")
62 132 0 if (is_module_name($token->[0]))
64 77 55 if (@$tokens and is_version($tokens->[0]))
67 56 76 if ($isa or $does) { }
74 2 231 if (ref $token and $token->[0] eq ":")
78 32 199 if (ref $token and $token->[1] and $token->[1] eq "ATTRIBUTE")
82 56 0 if (is_module_name($name) and is_version($version))
98 16 16 if (is_module_name($token->[0]))
100 9 7 if (@$tokens and is_version($tokens->[0]))