| line |
true |
false |
branch |
|
40
|
6 |
3 |
unless defined $args and defined $args->{'opts'} |
|
44
|
1 |
2 |
if (my(@bad) = grep((!exists $Opt{$_}), keys %opt)) |
|
49
|
1 |
1 |
if exists $opt{'fallback'} and ref $opt{'fallback'} ne "CODE" |
|
62
|
14 |
40 |
unless defined $var |
|
66
|
31 |
23 |
if (defined $opts) |
|
68
|
1 |
30 |
if (my(@bad) = grep((!exists $Opt{$_}), keys %opt)) |
|
72
|
1 |
29 |
if exists $opt{'fallback'} and ref $opt{'fallback'} ne "CODE" |
|
75
|
2 |
50 |
$opt{'format'} ? : |
|
118
|
102 |
9 |
defined $4 ? : |
|
122
|
2 |
24 |
$fallback ? : |
|
|
73 |
26 |
exists $var->{$t} ? : |
|
|
12 |
99 |
$is_code ? : |
|
132
|
3 |
12 |
$raiseundef ? : |
|
|
13 |
15 |
$useenv && exists $ENV{$t} ? : |
|
|
83 |
28 |
defined $user_value ? : |
|
141
|
55 |
53 |
if ($recurse and defined $v) |
|
146
|
4 |
51 |
if $track->{$t}++ |
|
150
|
3 |
48 |
if $recurse_limit and $loop > $recurse_limit |
|
152
|
3 |
45 |
if $recurse_fail_limit and $loop > $recurse_fail_limit |
|
165
|
5 |
7 |
$emptyundef ? : |
|
|
72 |
1 |
!defined($3) || $3 eq '' ? : |
|
|
12 |
73 |
if (not defined $v) { } |