| line |
true |
false |
branch |
|
62
|
0 |
0 |
ref $from ? :
|
|
71
|
0 |
0 |
unless ($type) = $type =~ /^(\w+)$/
|
|
74
|
0 |
0 |
unless eval "require $spec; 1"
|
|
84
|
4 |
0 |
unless ref $_[0] and $_[0]{'file_spec_class'}
|
|
105
|
0 |
0 |
unless -e $self
|
|
109
|
0 |
0 |
if $self->is_relative
|
|
117
|
0 |
0 |
if $self->is_absolute
|
|
183
|
0 |
0 |
if (length $dirs)
|
|
187
|
0 |
0 |
@dirs ? :
|
|
199
|
0 |
0 |
if defined $self->{'dir'}
|
|
206
|
0 |
0 |
unless defined $self->{'dir'}
|
|
212
|
0 |
0 |
if defined $self->{'dir'}
|
|
219
|
0 |
0 |
unless defined $self->{'dir'}
|
|
225
|
0 |
0 |
if @_
|
|
232
|
0 |
0 |
unless $_[0]->open('r')
|
|
233
|
0 |
0 |
unless $_[0]->open('w')
|
|
234
|
0 |
0 |
unless $_[0]->open('a')
|
|
238
|
0 |
0 |
if (-e $self) { }
|
|
248
|
0 |
0 |
unless my $fh = $self->open($iomode)
|
|
250
|
0 |
0 |
if (wantarray)
|
|
252
|
0 |
0 |
if $args{'chomped'} or $args{'chomp'}
|
|
254
|
0 |
0 |
if (my $splitter = $args{'split'})
|
|
263
|
0 |
0 |
if $args{'split'}
|
|
266
|
0 |
0 |
if ($args{'chomped'} or $args{'chomp'})
|
|
281
|
0 |
0 |
unless my $fh = $self->open($iomode)
|
|
283
|
0 |
0 |
if (ref $_[0] eq 'ARRAY') { }
|
|
286
|
0 |
0 |
unless print $fh $_[0][$i]
|
|
291
|
0 |
0 |
unless print $fh $_[0]
|
|
295
|
0 |
0 |
unless close $fh
|
|
312
|
0 |
0 |
ref $content eq 'ARRAY' ? :
|
|
320
|
0 |
0 |
unless -e $file
|
|
327
|
0 |
0 |
if (eval {
do {
$dest->isa('App::GitFind::PathClassMicro::File')
}
}) { }
|
|
|
0 |
0 |
elsif (eval {
do {
$dest->isa('App::GitFind::PathClassMicro::Dir')
}
}) { }
|
|
|
0 |
0 |
elsif (ref $dest) { }
|
|
329
|
0 |
0 |
if -d $dest
|
|
332
|
0 |
0 |
if -f $dest
|
|
333
|
0 |
0 |
unless -d $dest
|
|
339
|
0 |
0 |
if (not Perl::OSType::is_os_type('Unix')) { }
|
|
342
|
0 |
0 |
unless File::Copy::cp($self->stringify, "$dest")
|
|
346
|
0 |
0 |
unless system('cp', $self->stringify, "$dest") == 0
|
|
356
|
0 |
0 |
if (File::Copy::move($self->stringify, "$dest")) { }
|
|
747
|
0 |
0 |
if @_ == 1 and not defined $_[0]
|
|
751
|
0 |
0 |
!ref($_[0]) && $_[0] eq '' ? :
|
|
|
0 |
0 |
@_ == 0 ? :
|
|
757
|
0 |
0 |
if (&Scalar::Util::blessed($first) and $first->isa('App::GitFind::PathClassMicro::Dir')) { }
|
|
763
|
0 |
0 |
$dirs eq $s->rootdir ? :
|
|
768
|
0 |
0 |
&Scalar::Util::blessed($_) && $_->isa('App::GitFind::PathClassMicro::Dir') ? :
|
|
791
|
0 |
0 |
$_ eq $u ? :
|
|
806
|
0 |
0 |
if $_[0]{'file_spec_class'}
|
|
815
|
0 |
0 |
unless @_
|
|
818
|
0 |
0 |
if ($offset < 0)
|
|
820
|
0 |
0 |
wantarray ? :
|
|
|
0 |
0 |
unless @_
|
|
823
|
0 |
0 |
if ($length < 0)
|
|
842
|
0 |
0 |
if ($self->is_absolute) { }
|
|
|
0 |
0 |
elsif ($self eq $curdir) { }
|
|
|
0 |
0 |
elsif (not grep({$_ ne $updir;} @$dirs)) { }
|
|
|
0 |
0 |
elsif (@$dirs == 1) { }
|
|
844
|
0 |
0 |
if @$dirs > 1
|
|
868
|
0 |
0 |
length $rel ? :
|
|
910
|
0 |
0 |
unless my $callback = $opts{'callback'}
|
|
920
|
0 |
0 |
unless (($ret || '') eq $self->PRUNE)
|
|
928
|
0 |
0 |
unless (($ret || '') eq $self->PRUNE)
|
|
936
|
0 |
0 |
$opts{'preorder'} ? :
|
|
|
0 |
0 |
$opts{'depthfirst'} && $opts{'preorder'} ? :
|
|
940
|
0 |
0 |
if ($entry->is_dir) { }
|
|
952
|
0 |
0 |
unless my $dh = $self->open
|
|
956
|
0 |
0 |
if not $opts{'all'} and $self->_is_local_dot_dir($entry)
|
|
957
|
0 |
0 |
if $opts{'no_hidden'} and $entry =~ /^\./
|
|
959
|
0 |
0 |
if -d $out[-1]
|
|
973
|
0 |
0 |
unless ($self->{'dh'})
|
|
974
|
0 |
0 |
unless $self->{'dh'} = $self->open
|
|
978
|
0 |
0 |
unless (defined $next)
|
|
986
|
0 |
0 |
if -d $file
|
|
991
|
0 |
0 |
if $#_ > 2
|
|
993
|
0 |
0 |
unless defined $other
|
|
995
|
0 |
0 |
unless eval {
do {
$other->isa('App::GitFind::PathClassMicro::Entity')
}
}
|
|
996
|
0 |
0 |
unless $other->is_dir
|
|
998
|
0 |
0 |
if ($self->is_absolute) { }
|
|
|
0 |
0 |
elsif ($other->is_absolute) { }
|
|
1007
|
0 |
0 |
if ($self->volume or $other->volume)
|
|
1008
|
0 |
0 |
unless $other->volume eq $self->volume
|
|
1013
|
0 |
0 |
if join($", @{$self->{'dirs'};}) eq join($", @{$self->new('')->{'dirs'};})
|
|
1016
|
0 |
0 |
if ($self eq $self->_spec->curdir)
|
|
1022
|
0 |
0 |
if $i > $#{$$other{'dirs'};}
|
|
1023
|
0 |
0 |
if $self->{'dirs'}[$i] ne $other->{'dirs'}[$i]
|
|
1030
|
0 |
0 |
if $#_ > 2
|
|
1032
|
0 |
0 |
unless defined $other
|
|
1033
|
0 |
0 |
unless -d $self and -e $other || -l $other
|