line |
true |
false |
branch |
140
|
128 |
2 |
if (ref $_[0] eq 'HASH') { } |
156
|
153 |
254 |
if ($code) { } |
158
|
0 |
153 |
if ($pcmd eq "-") |
165
|
0 |
153 |
if ($var_name and not ref $vars->{$var_name} and not $BE_LOCAL) { } |
|
44 |
109 |
elsif ($var_name and not ref $vars->{$var_name} and $BE_LOCAL) { } |
175
|
95 |
58 |
if ($type and $type =~ /^[+=]$/u) { } |
186
|
0 |
254 |
if ($DO_CHOMP or $do_chomp) |
205
|
212 |
488 |
if (ref $vars->{$var}) { } |
213
|
130 |
0 |
if ($BE_LOCAL == 1) { } |
242
|
0 |
130 |
if (defined $args{'d'} and $args{'d'} > 1) |
248
|
0 |
130 |
if ($@) |
258
|
0 |
0 |
if (defined $args{'d'} and $args{'d'} > 1) |
264
|
0 |
0 |
if ($@) |
276
|
0 |
130 |
unless ($___r) |
316
|
0 |
0 |
if (defined $check_var) |