| line |
!l |
l&&!r |
l&&r |
condition |
|
129
|
1 |
27 |
0 |
@_ == 1 && &is_object('Badger::Filesystem::Path', $_[0]) |
|
136
|
1 |
9 |
0 |
@_ == 1 && &is_object('Badger::Filesystem::File', $_[0]) |
|
143
|
4 |
8 |
0 |
@_ == 1 && &is_object('Badger::Filesystem::Directory', $_[0]) |
|
239
|
0 |
227 |
5 |
exists $args->{'path'} and not defined $args->{'path'} |
|
280
|
0 |
99 |
0 |
defined $p2[0] and length $p2[0] |
|
461
|
0 |
0 |
47 |
@_ && ref $_[-1] eq 'HASH' |
|
465
|
0 |
0 |
47 |
defined $path and length $path |
|
482
|
0 |
0 |
27 |
@_ && ref $_[-1] eq 'HASH' |
|
491
|
0 |
3 |
12 |
@_ && ref $_[-1] eq 'HASH' |
|
501
|
0 |
0 |
2 |
@_ && ref $_[-1] eq 'HASH' |
|
576
|
0 |
3 |
1 |
$file and defined $mode |
|
627
|
0 |
66 |
0 |
ref $self and $self->{'all_entries'} |
|
676
|
1 |
12 |
1 |
@_ && &is_object($vtype, $_[0]) |
|
702
|
5 |
460 |
76 |
@_ and ref $_[-1] eq "HASH" |
| line |
l |
!l&&r |
!l&&!r |
condition |
|
187
|
0 |
26 |
0 |
$config->{'spec'} || $config->{'filespec'} || $self->FILESPEC |
|
197
|
0 |
26 |
0 |
$config->{'rootdir'} || $spec->rootdir |
|
198
|
0 |
26 |
0 |
$config->{'updir'} || $spec->updir |
|
199
|
0 |
26 |
0 |
$config->{'curdir'} || $spec->curdir |
|
200
|
0 |
26 |
0 |
$config->{'separator'} || do {
my $sep = 'File::Spec'->catdir(('badger') x 2);
$sep =~ s/badger//g;
$sep
} |
|
257
|
51 |
490 |
0 |
$self->{'cwd'} || getcwd() |
|
281
|
0 |
0 |
0 |
$p1[0] ||= $p2[0] |
|
347
|
2 |
2 |
0 |
$self->{'slashed'} ||= do {
my $sep = quotemeta $self->{'separator'};
qr/$sep$/
} |
|
377
|
0 |
528 |
0 |
shift() || $self->cwd |
|
382
|
0 |
1 |
0 |
shift() || $self->cwd |
|
471
|
47 |
0 |
0 |
'IO::File'->new($path, @_) || $self->error_msg('open_failed', 'file', $path, $!) |
|
579
|
4 |
0 |
0 |
$file || $dest |
|
614
|
67 |
0 |
0 |
'IO::Dir'->new($path, @_) || $self->error_msg('open_failed', 'directory', $path, $!) |
|
627
|
1 |
0 |
66 |
$all or ref $self and $self->{'all_entries'} |