| 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 ? : |