| line |
true |
false |
branch |
|
26
|
35 |
192 |
if (ref $_[0] eq 'Path::Extended::Tiny') { } |
|
28
|
35 |
0 |
if (@_) |
|
30
|
1 |
34 |
if ($new->is_absolute) { } |
|
54
|
18 |
17 |
-d $_[0]->_path ? : |
|
55
|
51 |
127 |
$_[0][1] || $_[0][2] ? : |
|
61
|
31 |
10 |
@_ == 1 ? : |
|
66
|
3 |
28 |
if $self->is_open |
|
67
|
26 |
5 |
if $self->exists |
|
69
|
113 |
46 |
-e $_[0]->_path ? : |
|
70
|
0 |
0 |
-w $_[0]->_path ? : |
|
71
|
0 |
0 |
-r $_[0]->_path ? : |
|
74
|
1 |
3 |
unless ($dest) |
|
76
|
0 |
3 |
unless File::Copy::Recursive::rcopy($self->_path, $dest) |
|
81
|
1 |
3 |
unless ($dest) |
|
82
|
1 |
2 |
if $self->is_open |
|
84
|
0 |
3 |
unless File::Copy::Recursive::rmove($self->_path, $dest) |
|
90
|
1 |
3 |
unless ($dest) |
|
91
|
1 |
2 |
if $self->is_open |
|
92
|
0 |
3 |
unless rename $self->_path, $dest |
|
103
|
0 |
2 |
$_[0] ? : |
|
|
2 |
0 |
if (@_) |
|
105
|
0 |
4 |
unless $$self[3] |
|
110
|
2 |
70 |
if $self->is_open |
|
111
|
22 |
50 |
if (-d $self->_path) { } |
|
112
|
0 |
22 |
unless opendir my $dh, $self->_path |
|
115
|
49 |
1 |
unless ($mode and $mode =~ /:/) |
|
118
|
1 |
49 |
unless CORE::open my $fh, $mode, $self->_path |
|
126
|
51 |
29 |
if ($$self[1]) |
|
130
|
22 |
58 |
if ($$self[2]) |
|
138
|
1 |
97 |
if ($$self[1]) |
|
139
|
95 |
2 |
if ($$self[2]) |
|
143
|
1 |
3 |
if ($$self[1]) |
|
144
|
1 |
2 |
if ($$self[2]) |
|
148
|
1 |
7 |
if ($$self[1]) |
|
149
|
5 |
2 |
if ($$self[2]) |
|
153
|
0 |
4 |
if $self->is_open |
|
154
|
0 |
4 |
unless $self->exists |
|
155
|
4 |
0 |
if (-d $self->_path) { } |
|
|
0 |
0 |
elsif (-f $self->_path) { } |
|
157
|
0 |
4 |
unless eval {
do {
File::Path::rmtree($self->_path, @args);
1
}
} |
|
174
|
1 |
1 |
if $self->is_open |
|
175
|
0 |
2 |
unless CORE::sysopen my $fh, $self->_path, @_ |
|
181
|
1 |
3 |
unless $$self[1] |
|
182
|
0 |
3 |
@_ ? : |
|
195
|
64 |
9 |
if $$self[1] |
|
203
|
1 |
1 |
if $$self[1] |
|
209
|
1 |
1 |
if $$self[1] |
|
214
|
1 |
1 |
if $$self[1] |
|
222
|
0 |
12 |
unless ($self->is_open) |
|
225
|
1 |
11 |
if $$opts{'binmode'} |
|
233
|
1 |
11 |
if ($$opts{'chomp'}) |
|
236
|
2 |
10 |
if ($$opts{'decode'}) |
|
242
|
2 |
10 |
if ($$opts{'callback'}) |
|
246
|
2 |
10 |
if (my $rule = $$opts{'filter'}) |
|
249
|
0 |
12 |
unless defined wantarray |
|
252
|
5 |
1 |
unless (@callbacks or $filter or wantarray) |
|
261
|
3 |
12 |
if $filter and not $line =~ /$filter/ |
|
262
|
12 |
0 |
unless $$opts{'ignore_return_value'} |
|
265
|
5 |
2 |
wantarray ? : |
|
279
|
4 |
23 |
if ($$opts{'mkdir'}) |
|
282
|
0 |
27 |
$$opts{'mode'} || $$opts{'append'} ? : |
|
284
|
0 |
27 |
unless ($self->is_open) |
|
287
|
0 |
27 |
if ($$opts{'lock'} and not $self->lock_ex) |
|
290
|
1 |
26 |
if $$opts{'binmode'} |
|
298
|
2 |
25 |
if ($$opts{'encode'}) |
|
304
|
2 |
25 |
if ($$opts{'callback'}) |
|
310
|
0 |
27 |
ref $content eq 'ARRAY' ? : |
|
314
|
1 |
26 |
if ($$opts{'mtime'}) |
|
322
|
1 |
23 |
unless $self->exists |
|
328
|
1 |
4 |
unless $self->exists |
|
329
|
2 |
2 |
if (@_) { } |
|
340
|
23 |
1 |
unless ($self->exists) |
|
342
|
0 |
23 |
unless eval {
do {
File::Path::mkpath($self->_path);
1
}
} |
|
349
|
1 |
1 |
if $_[0][2] |
|
359
|
4 |
8 |
$is_dir ? : |
|
|
2 |
10 |
unless $is_dir ? -d $path : -f $path |
|
361
|
2 |
8 |
unless $relpath =~ /$rule/ |
|
362
|
0 |
8 |
if $relpath =~ m[/\.] |
|
365
|
2 |
5 |
if ($opts{'callback'}) |
|
372
|
0 |
16 |
if $self->is_open |
|
373
|
15 |
1 |
if ($self->exists and -d $self->_path) |
|
375
|
0 |
15 |
unless eval {
do {
File::Path::rmtree($self->_path, @args);
1
}
} |
|
384
|
1 |
4 |
unless $self->is_open |
|
386
|
1 |
4 |
unless (defined $next) |
|
394
|
0 |
18 |
unless $self->open |
|
397
|
36 |
33 |
if not $opts{'all'} and $path eq '.' || $path eq '..' |
|
399
|
25 |
8 |
if ($opts{'prune'} or $opts{'no_hidden'}) |
|
400
|
0 |
25 |
if (ref $opts{'prune'} eq ref qr//) { } |
|
|
0 |
25 |
elsif (ref $opts{'prune'} eq ref sub {
}
) { } |
|
401
|
0 |
0 |
if $path =~ /$opts{'prune'}/ |
|
404
|
0 |
0 |
if $opts{'prune'}(_new($child)) |
|
407
|
3 |
22 |
if $path =~ /^\./ |
|
422
|
1 |
4 |
@_ == 1 && ref $_[0] eq ref sub {
}
? : |
|
424
|
0 |
5 |
unless my $callback = $opts{'callback'} |
|
446
|
3 |
1 |
$opts{'preorder'} ? : |
|
|
1 |
4 |
$opts{'depthfirst'} && $opts{'preorder'} ? : |
|
450
|
18 |
17 |
if ($entry->is_dir) { } |
|
469
|
4 |
37 |
@_ == 1 && ref $_[0] eq ref {} ? : |
|
472
|
0 |
0 |
if $AUTOLOAD =~ /::DESTROY$/ |
|
476
|
0 |
0 |
if (ref $self) { } |