| line |
true |
false |
branch |
|
12
|
5 |
13 |
if substr($$self{'input'}, -1) ne "\n" |
|
37
|
105 |
32 |
unless my $matched = $self->find_match('matched_block', $type) |
|
42
|
1 |
32 |
unless length $$self{'input'} < $length |
|
55
|
78 |
36 |
unless my $matched = $self->find_match('matched_phrase', $type) |
|
56
|
30 |
6 |
if (not defined $match or $$matched{'begin'} < $$match{'begin'}) |
|
59
|
12 |
18 |
if $$match{'begin'} == 0 |
|
62
|
48 |
24 |
unless ($match) |
|
67
|
12 |
12 |
unless $begin == 0 |
|
79
|
251 |
0 |
if (my $regexp = $$self{'grammar'}{$type}{'match'}) { } |
|
80
|
0 |
251 |
if (ref $regexp eq 'ARRAY') { } |
|
82
|
0 |
0 |
if ($$self{'input'} =~ /$re/) |
|
87
|
0 |
0 |
unless $matched |
|
90
|
183 |
68 |
unless $$self{'input'} =~ /$regexp/ |
|
96
|
0 |
0 |
unless $matched = $self->$func |
|
104
|
0 |
56 |
if ($self->can($func)) { } |
|
109
|
0 |
56 |
$$grammar{'blocks'} ? : |
|
112
|
21 |
35 |
$$grammar{'filter'} ? : |
|
121
|
0 |
56 |
exists $$self{'grammar'}{$type}{'type'} ? : |
|
130
|
21 |
35 |
$filter ? : |
|
133
|
56 |
0 |
if $$match{'type'} |
|
137
|
56 |
0 |
if $$match{'type'} |
|
150
|
0 |
32 |
defined $_[2] ? : |
|
151
|
0 |
32 |
if "$begin" ne '0' |
|
165
|
0 |
36 |
defined $_[2] ? : |