| line |
true |
false |
branch |
|
32
|
0 |
0 |
if ($$self{'tokennames'}[$p] eq $tokenname) |
|
37
|
0 |
0 |
if $pos == -1 |
|
55
|
0 |
0 |
unless length $name |
|
62
|
0 |
0 |
if (length $regex and ref $t eq 'Parse::Highlife::Token::Regex' and $$t{'regex'} eq $regex or length $start and length $end and ref $t eq 'Parse::Highlife::Token::Delimited' and $$t{'start'} eq $start and $$t{'end'} eq $end or length $characters and ref $t eq 'Parse::Highlife::Token::Characters' and $$t{'characters'} eq $characters) |
|
83
|
0 |
0 |
unless ($already_defined) |
|
85
|
0 |
0 |
if (length $regex) { } |
|
|
0 |
0 |
elsif (length $start and length $end) { } |
|
|
0 |
0 |
elsif (length $characters) { } |
|
121
|
0 |
0 |
if ($match) |
|
129
|
0 |
0 |
if ($found) { } |
|
131
|
0 |
0 |
if (length $unknown_characters) |