| line |
true |
false |
branch |
|
26
|
12 |
3 |
if (defined $dir) { } |
|
28
|
2 |
10 |
unless CORE::mkdir $dir |
|
49
|
21 |
172 |
@path ? : |
|
56
|
151 |
5 |
defined $file ? : |
|
64
|
1 |
8 |
unless sysopen my $fh, $path, 193 |
|
74
|
2 |
3 |
unless sysopen my $fh, $path, 193 |
|
79
|
1 |
2 |
if (defined $opt{'content'}) |
|
82
|
1 |
2 |
if (defined $opt{'time'}) |
|
91
|
1 |
9 |
unless CORE::mkdir $path |
|
98
|
10 |
5 |
if (-f $self->path($file)) { } |
|
109
|
5 |
4 |
if (-d $self->path($dir)) { } |
|
128
|
3 |
12 |
unless $rv |
|
147
|
1 |
3 |
unless opendir my $dh, $self->{'dir'} |
|
151
|
3 |
14 |
if $file eq '.' |
|
152
|
3 |
11 |
if $file eq '..' |
|
153
|
7 |
4 |
if $path->{$file} |
|
164
|
1 |
7 |
if $has and not -f $self->path($file) |
|
167
|
1 |
2 |
if $has and not -d $self->path($file) |
|
190
|
2 |
1 |
if rmdir $path |
|
201
|
4 |
2 |
unless defined $text |
|
207
|
3 |
2 |
unless defined $text |
|
213
|
3 |
1 |
unless defined $text |
|
219
|
2 |
1 |
unless defined $text |
|
230
|
1 |
8 |
unless opendir my $dh, $dir |
|
233
|
8 |
22 |
if $file eq '.' |
|
234
|
8 |
14 |
if $file eq '..' |
|
235
|
11 |
3 |
if $path->{$file} |
|
242
|
0 |
4 |
unless opendir my $dh, $self->path($dir) |
|
245
|
4 |
8 |
if $file eq '.' |
|
246
|
4 |
4 |
if $file eq '..' |
|
248
|
3 |
1 |
if $path->{$name} |
|
257
|
2 |
7 |
unless defined $name |
|
261
|
1 |
13 |
if ($has and not -f $self->path($file)) |
|
267
|
2 |
6 |
if ($has and not -d $self->path($file)) |
|
279
|
4 |
4 |
if ($has and -d $dir) |
|
285
|
4 |
4 |
unless ($rv) |