Branch Coverage

lib/Perl/PrereqScanner/NotQuiteLite/Util.pm
Criterion Covered Total %
branch 36 42 85.7


line true false branch
47 2 2619 unless my $name = shift()
48 2523 96 if $name =~ /^[A-Za-z_][A-Za-z0-9_]*(?:(?:::|')[A-Za-z0-9_]+)*$/
54 1 436 unless defined $version
55 184 252 if $version =~ /\A ( [0-9]+(?:\.[0-9]+)? | v[0-9]+(?:\.[0-9]+)* | [0-9]+(?:\.[0-9]+){2,} ) (?:_[0-9]+)? \z/x
74 61 1719 if ($desc and $desc eq "()" and $prev ne "WORD")
79 7 1719 if (not $desc) { }
94 1625 elsif ($desc eq 'VERSION_STRING' or $desc eq 'NUMBER') { }
282 1343 elsif ($desc eq 'STRING') { }
25 1318 elsif ($desc eq 'QUOTED_WORD_LIST') { }
86 53 0 if defined $_
103 0 40 if ($desc and $desc eq "()" and $prev ne "WORD")
108 0 40 if (not $desc) { }
1 39 elsif ($desc eq 'VERSION_STRING' or $desc eq 'NUMBER') { }
9 30 elsif ($desc eq 'STRING') { }
1 29 elsif ($desc eq 'QUOTED_WORD_LIST') { }
13 16 elsif ($token eq ',' or $token eq '=>') { }
6 10 elsif ($desc eq ';') { }
115 7 0 if defined $_
117 13 0 @tokens == 1 ? :
127 7 4 if (@tokens)
128 7 0 @tokens == 1 ? :