| line |
true |
false |
branch |
|
23
|
0 |
37 |
unless open FILE, "<$dir_file" |
|
26
|
6 |
31 |
if ($$arg{'lines'} and $$arg{'lines'} =~ /(\d+)/) { } |
|
46
|
7 |
8 |
if ref $dir ne 'ARRAY' |
|
55
|
0 |
18 |
unless (-d $d) |
|
62
|
2 |
16 |
if ($$arg{'glob'}) { } |
|
63
|
1 |
1 |
if (ref $$arg{'glob'} eq 'ARRAY') { } |
|
73
|
0 |
16 |
unless opendir DIR, $d |
|
79
|
7 |
80 |
$$arg{'glob'} ? : |
|
80
|
7 |
80 |
if $$arg{'glob'} |
|
83
|
33 |
54 |
if -d $dir_file |
|
86
|
3 |
51 |
if defined $ignore and $f =~ /$ignore/ |
|
89
|
1 |
50 |
if -s $dir_file > $maxsize |
|
92
|
0 |
50 |
unless -r $dir_file |
|
95
|
4 |
46 |
defined $$arg{'prefix'} ? : |
|
97
|
17 |
33 |
if ($env) |
|
98
|
10 |
7 |
$env eq '1' ? : |
|
102
|
4 |
46 |
if exists $$self{$prefix_file} |
|
105
|
0 |
46 |
unless (-r $dir_file) |
|
111
|
9 |
37 |
if (-z $dir_file) |
|
113
|
0 |
9 |
if $env_file and exists $ENV{$env_file} |
|
121
|
35 |
2 |
unless exists $$arg{'chomp'} and $$arg{'chomp'} == 0 |
|
125
|
35 |
2 |
unless exists $$arg{'trim'} and $$arg{'trim'} == 0 |
|
129
|
11 |
26 |
if ($env) |
|
131
|
8 |
3 |
unless ($rest) |
|
137
|
16 |
2 |
unless $$arg{'glob'} |
|
142
|
9 |
37 |
unless defined $$self{$_} |
|
169
|
0 |
2 |
unless -d $dir and -w $dir |
|
173
|
0 |
2 |
unless open OUT, ">$file" |
|
177
|
2 |
0 |
unless substr($value, -1) eq "\n" or length $value == 0 or exists $$ARG{'chomp'} and $$ARG{'chomp'} == 0 |
|
181
|
0 |
2 |
unless close OUT |