| line |
true |
false |
branch |
|
23
|
0 |
0 |
if ((my $next = lex_peek()) =~ /[\$\@\%]/u)
|
|
32
|
0 |
0 |
if ($next . lex_peek()) =~ /^\S\b/u
|
|
52
|
0 |
1794 |
unless length $char
|
|
53
|
1373 |
421 |
if ($char =~ /$char_rx/u) { }
|
|
|
11 |
410 |
elsif ($allow_package and $char eq ':') { }
|
|
61
|
0 |
0 |
unless (lex_peek(3) =~ /^::(?:[^:]|$)/u)
|
|
63
|
5 |
0 |
if $stop_at_single_colon
|
|
75
|
0 |
410 |
unless length $name
|
|
77
|
2 |
408 |
$name =~ /\A::/u ? :
|
|
85
|
193 |
0 |
$sigil eq '$' || $sigil eq '@' || $sigil eq '%' ? :
|
|
92
|
0 |
0 |
if (lex_peek(2) eq '{^')
|
|
97
|
0 |
0 |
lex_peek(1) eq '}' ? :
|
|
103
|
0 |
0 |
if (lex_peek() =~ /[\w:]/u)
|
|
109
|
8 |
0 |
if ($allow_bare_sigil)
|
|
123
|
0 |
0 |
if (lex_peek() eq '(')
|
|
133
|
7 |
26 |
if (defined $extracted)
|
|
145
|
0 |
0 |
if lex_peek() eq '{'
|
|
151
|
0 |
1 |
unless eval "\t\tsub {\n\t\t\tlocal \$_ = \@_ ? \$_[0] : \$_;\n\t\t\tmatch::simple::match(\$_, \$___term->());\n\t\t};\n"
|