| line |
true |
false |
branch |
|
47
|
2 |
2898 |
unless my $name = shift() |
|
48
|
2800 |
98 |
if $name =~ /^[A-Za-z_][A-Za-z0-9_]*(?:(?:::|')[A-Za-z0-9_]+)*$/ |
|
54
|
0 |
520 |
unless defined $version |
|
55
|
214 |
306 |
if $version =~ /\A
(
[0-9]+(?:\.[0-9]+)?
|
v[0-9]+(?:\.[0-9]+)*
|
[0-9]+(?:\.[0-9]+){2,}
) (?:_[0-9]+)?
\z/x |
|
74
|
65 |
1884 |
if ($desc and $desc eq "()" and $prev ne "WORD") |
|
79
|
11 |
1884 |
if (not $desc) { } |
|
|
108 |
1776 |
elsif ($desc eq 'VERSION_STRING' or $desc eq 'NUMBER') { } |
|
|
327 |
1449 |
elsif ($desc eq 'STRING') { } |
|
|
32 |
1417 |
elsif ($desc eq 'QUOTED_WORD_LIST') { } |
|
86
|
66 |
0 |
if defined $_ |
|
103
|
1 |
40 |
if ($desc and $desc eq "()" and $prev ne "WORD") |
|
108
|
1 |
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
|
8 |
3 |
if (@tokens) |
|
128
|
8 |
0 |
@tokens == 1 ? : |