line |
true |
false |
branch |
29
|
19 |
1 |
if ($self->{'rules'} and @{$self->{'rules'};}) { } |
50
|
45 |
20 |
unless $self->{'rules'} |
58
|
2 |
19 |
if $globals->{'path'} and @{$globals->{'path'};} |
62
|
16 |
5 |
if exists $_->{'merge'} and keys %{$_;} == 1 |
86
|
16 |
7 |
if @explicit == @{$spath;} |
95
|
3 |
4 |
if (@dsts) |
102
|
5 |
13 |
if (ref $step eq 'ARRAY' and implicit_step($step)) { } |
|
1 |
20 |
elsif (ref $step eq 'HASH' and implicit_step($step)) { } |
103
|
4 |
1 |
if (my(@tmp) = &path(${$data;}, \@e_path, 'deref', 1, 'paths', 1)) |
109
|
0 |
1 |
if (my(@tmp) = &path(${$data;}, [@e_path, $step], 'paths', 1)) |
116
|
0 |
4 |
unless @e_path |
119
|
1 |
1 |
if ref $_ eq 'ARRAY' |
131
|
8 |
15 |
unless $rule->{'path'} and @{$rule->{'path'};} |
133
|
16 |
10 |
unless ref $_ |
142
|
20 |
3 |
if (exists $opts->{'ignore'}) |
156
|
8 |
18 |
unless defined $path->{'merge'} |
159
|
0 |
26 |
if $@ |
163
|
3 |
23 |
unless (@srcs) |
165
|
1 |
2 |
exists $path->{'strict'} ? : |
|
2 |
1 |
if exists $path->{'strict'} ? $path->{'strict'} : $opts->{'strict'} |
185
|
10 |
0 |
if ($self->{'rules'} and @{$self->{'rules'};}) { } |
186
|
5 |
5 |
if (exists $self->{'rules'}[-1]{'path'} and @{$self->{'rules'}[-1]{'path'};}) { } |