| line |
true |
false |
branch |
|
112
|
5 |
2 |
if ($args{-'components'}) |
|
118
|
6 |
0 |
unless $component =~ s/^\+// |
|
123
|
4 |
2 |
if @sub_grammar |
|
128
|
5 |
0 |
unless (@{$class . '::ISA';}) |
|
140
|
1 |
3 |
if ($type eq 'IGNORE') { } |
|
141
|
0 |
1 |
unless ref $args{-'fields'}{'IGNORE'} eq 'Regexp' |
|
147
|
0 |
3 |
unless does($fields_aref, 'ARRAY') |
|
168
|
40 |
4 |
if $context |
|
190
|
0 |
9 |
unless my $compiled_grammar = eval "use Regexp::Grammars; qr{$grammar}x" |
|
204
|
0 |
34 |
if &blessed($data) and $data->can('param') |
|
217
|
1 |
27 |
if $$self{'IGNORE'} and $field =~ /$$self{'IGNORE'}/ |
|
218
|
0 |
45 |
unless my $val = $$data{$field} |
|
225
|
36 |
9 |
if ($val =~ $grammar->with_actions($self)) { } |
|
234
|
5 |
29 |
if %errors |
|
260
|
3 |
2 |
if (ref $vals) { } |
|
261
|
0 |
3 |
unless ref $vals eq 'HASH' |
|
263
|
0 |
3 |
if @others |
|
264
|
1 |
2 |
if ($op eq '-in') { } |
|
|
2 |
0 |
elsif ($op eq '=') { } |
|
298
|
3 |
26 |
$n_values > 1 ? : |
|
305
|
4 |
0 |
if length $$h{'year'} < 3 |
|
324
|
3 |
48 |
$is_pattern ? : |