line |
true |
false |
branch |
323
|
12 |
0 |
unless ($t->prime) |
325
|
12 |
724 |
if ($$t{'buffer'} =~ /^\Q$_\E/) |
334
|
0 |
12 |
if $$t{'error'} |
335
|
0 |
12 |
if ($$t{'hyper'}) |
345
|
0 |
12 |
if $$t{'next'}{'state'} |
346
|
0 |
12 |
if ($$t{'next'}{'type'} and $$t{'next'}{'token'}) |
361
|
0 |
3 |
if $_[0] =~ s/^(\d+)// |
362
|
0 |
3 |
if $_[0] =~ s/^((\w+|::)+)// |
363
|
3 |
0 |
if $_[0] =~ s/^([\$\@%](\w+|::)+)// |
364
|
0 |
0 |
if $_[0] =~ s/^(\$)$// |
365
|
0 |
0 |
if $_[0] =~ s/^(\$[?!\$])// |
375
|
0 |
3 |
if ($$t{'state'} eq 'OPERATOR') |
379
|
0 |
3 |
if ($first eq '#') |
390
|
0 |
3 |
if (length $ident == 1) |
391
|
0 |
0 |
unless $$t{'buffer'} |
406
|
0 |
0 |
if ($$t{'state'} eq 'OPERATOR') |
428
|
0 |
4 |
if $$t{'buffer'} =~ s/^\n// |
438
|
0 |
0 |
$$t{'state'} eq 'OPERATOR' ? : |
446
|
0 |
0 |
$$t{'state'} eq 'OPERATOR' ? : |
452
|
0 |
4 |
if ($$t{'state'} eq 'TERM' and not $options{'check'} eq 'no') |
456
|
2 |
2 |
unless defined $options{'length'} |
467
|
0 |
0 |
if ($$t{'state'} eq 'OPERATOR' and not $options{'check'} eq 'no') |
471
|
0 |
0 |
unless defined $options{'length'} |
481
|
0 |
0 |
unless $$t{'buffer'} =~ s/^
(
0x[0-9A-Fa-f](_?[0-9A-Fa-f])*
| 0[0-7](_?[0-7])*
| 0b[01](_?[01])*
| \.\d(_?\d)*[Ee][\+\-]?(\d(_?\d)*)
| \d(_?\d)*(\.(\d(_?\d)*)?)?[Ee][\+\-]?(\d(_?\d)*)
| [\d_]+(\.[\d_]+)?
)//x |
501
|
0 |
1 |
if ($$t{'token'} =~ /^(s|tr|y|m|qr)$/) |
508
|
0 |
1 |
if ($$t{'token'} =~ /^(q|qq|qw|qx)$/) |
517
|
0 |
1 |
if ($$t{'buffer'} =~ s/^((::\w+)+)//) { } |
|
0 |
1 |
elsif ($$t{'buffer'} =~ s/^://) { } |
|
0 |
1 |
elsif ($$t{'buffer'} =~ /^\s*=>/) { } |
|
0 |
1 |
elsif (exists $keywords{$what}) { } |
|
0 |
1 |
elsif ($$t{'buffer'} =~ /^\s*\(/) { } |
526
|
0 |
0 |
if exists $keyword_tokens{$$t{'token'}} |
543
|
0 |
0 |
if ($$t{'state'} ne 'OPERATOR') |
547
|
0 |
0 |
if ($$t{'hyper'}) |
561
|
0 |
0 |
if $_ eq "\n" |
574
|
0 |
0 |
if ($$t{'state'} eq 'OPERATOR') |
584
|
0 |
0 |
if ($$t{'state'} eq 'OPERATOR') { } |
593
|
1 |
0 |
if ($$t{'state'} eq 'OPERATOR') { } |
605
|
0 |
1 |
if ($$t{'buffer'} =~ /-\w\w+/) |
616
|
0 |
0 |
if ($$t{'state'} eq 'STATE') { } |
626
|
0 |
0 |
if ($$t{'buffer'} =~ /^s*\(/) { } |
636
|
0 |
0 |
if ($$t{'next'}{'type'}) { } |
|
0 |
0 |
elsif ($$t{'buffer'} =~ /^s*\(/) { } |