| line |
true |
false |
branch |
|
58
|
2 |
0 |
if $^V ge v5.15.8 |
|
70
|
0 |
92 |
unless defined $string |
|
82
|
23 |
69 |
if (not defined $index or defined $recursed[$index]) |
|
85
|
23 |
0 |
if $function eq 'uc' |
|
86
|
0 |
0 |
if $function eq 'lc' |
|
87
|
0 |
0 |
if $function eq 'ucfirst' |
|
88
|
0 |
0 |
if $function eq 'lcfirst' |
|
89
|
0 |
0 |
if $function eq 'fc' |
|
113
|
0 |
12 |
if $function eq '-load' |
|
115
|
0 |
12 |
unless (defined($user_sub = shift())) |
|
118
|
0 |
12 |
if (ref $user_sub ne 'CODE') |
|
121
|
0 |
12 |
if ($function ne 'uc' and $function ne 'lc' and $function ne 'ucfirst' and $function ne 'lcfirst' and not $function eq 'fc' && $^V ge v5.15.8) { } |
|
|
0 |
12 |
elsif (exists $args{$function}) { } |
|
126
|
0 |
0 |
if $^V ge v5.15.8 |
|
139
|
2 |
10 |
if exists $^H{$setup_key} |
|
145
|
0 |
5 |
unless %args |
|
152
|
9 |
1 |
if defined $id |