| line |
true |
false |
branch |
|
23
|
0 |
22 |
unless ref $vars eq 'HASH' |
|
24
|
0 |
22 |
unless ref $rules eq 'ARRAY' |
|
33
|
6 |
16 |
if ($$opts{'longVars'}) |
|
45
|
0 |
22 |
unless defined $words |
|
47
|
0 |
22 |
unless ref $words eq 'ARRAY' |
|
55
|
61 |
107 |
if defined $ruleout |
|
70
|
0 |
22 |
unless ref $rules eq 'ARRAY' |
|
71
|
0 |
22 |
unless ref $vars eq 'HASH' |
|
72
|
0 |
22 |
unless ref $varstring eq 'HASH' |
|
73
|
0 |
22 |
unless ref $opt eq 'HASH' |
|
99
|
40 |
0 |
if ($rule =~ m[
^
( [^/]+ ) # "change from" to $1
/ # slash
( [^/]* ) # "change to" to $2 (may be blank)
/ # slash
( .+ ) # "environment" to $3 (may not be blank)
$
]x) |
|
147
|
40 |
0 |
if ($env =~ /^(#?)([^_#]*)(_)([^_#]*)(#?)$/) |
|
149
|
1 |
39 |
if defined $1 and length $1 |
|
154
|
1 |
39 |
if (defined $1 and length $1) { } |
|
170
|
7 |
33 |
if defined $5 and length $5 |
|
174
|
9 |
31 |
if ($$opt{'longVars'}) { } |
|
175
|
0 |
11 |
unless $$vars{$1} |
|
177
|
382 |
14 |
unless $$vars{$2} |
|
184
|
10 |
30 |
$$vars{quotemeta $from} ? : |
|
205
|
0 |
40 |
unless $compiledrules[-1] |
|
216
|
0 |
22 |
unless ref $vars eq 'HASH' |
|
217
|
0 |
22 |
unless ref $opt eq 'HASH' |
|
226
|
12 |
14 |
if ($$opt{'longVars'}) { } |
|
259
|
0 |
0 |
if $code |