| line |
true |
false |
branch |
|
65
|
0 |
0 |
unless open my $F, '<', $spec_file |
|
69
|
0 |
0 |
if /^\s*#/io |
|
71
|
0 |
0 |
if @l != 2 |
|
73
|
0 |
0 |
unless $k =~ /^($lhs_type_regex)(\w+)$/io |
|
80
|
0 |
0 |
if ($i =~ /^($rhs_type_regex)(?:\(((?:\w+|\*))\))?(\w+)$/io) { } |
|
84
|
0 |
0 |
if $k and $type ne 'HASH' |
|
85
|
0 |
0 |
if $type eq 'HASH' and not $k |
|
87
|
0 |
0 |
$type eq 'HASH' ? : |
|
94
|
0 |
0 |
if exists $rule_map{$key} |
|
97
|
0 |
0 |
unless defined $start |
|
105
|
0 |
0 |
unless (exists $rule{$k}) |
|
106
|
0 |
0 |
if ($rule_required{$k} eq 'ARRAY' or $rule_required{$k} eq 'HASH') { } |
|
|
0 |
0 |
elsif ($rule_required{$k} eq 'SCALAR') { } |
|
115
|
0 |
0 |
unless exists $rule{$start} |
|
135
|
0 |
0 |
if (exists $rule{$key}) { } |
|
136
|
0 |
0 |
if ($type eq 'ARRAY' or $type eq 'HASH') { } |
|
|
0 |
0 |
elsif ($type eq 'SCALAR') { } |
|
|
0 |
0 |
elsif ($type eq 'SYMBOL') { } |
|
166
|
0 |
0 |
if ($type eq 'HASH') { } |
|
|
0 |
0 |
elsif ($type eq 'ARRAY') { } |
|
|
0 |
0 |
elsif ($type eq 'SCALAR') { } |
|
|
0 |
0 |
elsif ($type eq 'SYMBOL') { } |
|
168
|
0 |
0 |
if grep {$$_[1] eq 'SYMBOL';} @$children |
|
169
|
0 |
0 |
if (@$children == 0) { } |
|
185
|
0 |
0 |
if (grep {$$_[1] eq 'SYMBOL';} @$children) { } |
|
188
|
0 |
0 |
if grep {$$_[1] ne 'SYMBOL';} @$children |
|
196
|
0 |
0 |
if (@$children == 0) { } |
|
210
|
0 |
0 |
if (@$children == 0) { } |
|
214
|
0 |
0 |
if grep {$$_[1] ne 'SYMBOL';} @$children |
|
228
|
0 |
0 |
if $has_list_enum |
|
232
|
0 |
0 |
if $has_simple_hash |
|
236
|
0 |
0 |
if $has_scalar_enum |
|
241
|
0 |
0 |
if $main::opt{'v'} |