line |
true |
false |
branch |
44
|
0 |
0 |
if ref $data eq ref '' |
53
|
0 |
0 |
if is_lower($c) |
54
|
0 |
0 |
if is_upper($c) |
55
|
0 |
0 |
if $c eq '_' |
97
|
0 |
0 |
if is_digit($c) |
98
|
0 |
0 |
if is_alpha($c) |
104
|
0 |
0 |
if is_digit($c) |
106
|
0 |
0 |
if $i >= 65 and $i <= 70 |
107
|
0 |
0 |
if $i >= 97 and $i <= 102 |
116
|
0 |
0 |
if index($str, $start) == 0 |
190
|
0 |
0 |
if ($to > 0) |
195
|
0 |
0 |
if (defined $to) |
275
|
0 |
0 |
unless -e $file |
277
|
0 |
0 |
unless open my $fh, '<', $file |
283
|
0 |
0 |
unless open my $fh, '>', $file |
290
|
0 |
0 |
if (not -e $file) { } |
300
|
0 |
0 |
if (-e $file and -e $to_file) |