Branch Coverage

blib/lib/File/Remote.pm

Criterion	Covered	Total	%
branch	0	230	0.0

line	true	false	branch
115	0	0	if $DEBUG
150	0	0	if defined $_[0] and not ref $_[0] and $_[0] eq 'File::Remote'
151	0	0	unless (defined $_[0] and ref $_[0] eq 'File::Remote' || UNIVERSAL::isa($_[0], 'File::Remote'))
153	0	0	unless defined $DefaultClassObject
197	0	0	if ($return)
221	0	0	unless $rfile
222	0	0	if ($hostname =~ /^$rhost(\.|$)/ and $rfile =~ m[^/])
239	0	0	unless $thingy
244	0	0	unless (ref $thingy)
246	0	0	if $thingy =~ /^\*/
252	0	0	if UNIVERSAL::isa($thingy, 'GLOB') or UNIVERSAL::isa($thingy, 'FileHandle')
279	0	0	if $value
282	0	0	if ($CHECK_RSH_IS_VALID)
283	0	0	unless -x $$self{'rsh'}
293	0	0	if $value
296	0	0	if ($CHECK_RCP_IS_VALID)
297	0	0	unless -x $$self{'rcp'}
308	0	0	if $value
309	0	0	unless -d $$self{'tmp'}
331	0	0	unless $handle and $file
341	0	0	unless $method =~ /^\+?[\<\>\|]{1,2}$/
345	0	0	if ($method =~ /\|/ and $rhost)
350	0	0	unless $fh = _to_filehandle($handle)
353	0	0	if ($File::Remote::RW_HANDLES{$fh} or $File::Remote::RW_HANDLES{$fh})
354	0	0	unless $self->close($handle)
358	0	0	if ($rhost) { }
367	0	0	if ($method =~ /\>/) { }
374	0	0	if ($CHECK_REMOTE_FILES)
377	0	0	unless $self->_system($self->setrsh, $rhost, "'if test -f $lfile; then\n\t\t\ttest -w $lfile || echo 13 >&2;\n\t\t else\n\t\t\ttest -d $dir || echo 2 >&2;\n\t\t fi'")
403	0	0	unless CORE::open *fh, "$method $f"
417	0	0	unless $handle
420	0	0	unless my $fh = _to_filehandle($handle)
422	0	0	unless CORE::close $fh
425	0	0	if (my $file = delete $File::Remote::RW_HANDLES{$fh}) { }
433	0	0	if ($rhost)
435	0	0	unless $self->copy($tmpfile, $file)
440	0	0	if $tmpfile
448	0	0	if $^W
471	0	0	unless $file
473	0	0	if ($rhost) { }
474	0	0	unless $self->_system($self->setrsh, $rhost, "touch $lfile")
477	0	0	unless CORE::open F, ">>$lfile"
494	0	0	unless $file
501	0	0	if ($rhost) { }
503	0	0	unless $self->copy($file, $tmpfile)
511	0	0	unless CORE::open F, "<$f"
513	0	0	unless CORE::close F
517	0	0	if $tmpfile
519	0	0	if wantarray
535	0	0	unless $file
542	0	0	if ($rhost) { }
551	0	0	unless CORE::open F, ">$f"
552	0	0	unless print F @data
553	0	0	unless CORE::close F
556	0	0	if ($rhost)
557	0	0	if (-f $tmpfile) { }
558	0	0	unless $self->copy($tmpfile, $file)
580	0	0	unless $dir
584	0	0	if ($rhost) { }
585	0	0	unless $self->_system($self->setrsh, $rhost, "'mkdir -p ${ldir}'")
587	0	0	unless mkpath(["$ldir"], 0, $mode)
602	0	0	unless $dir
604	0	0	unless defined $recurse
606	0	0	if ($rhost) { }
607	0	0	if ($recurse) { }
608	0	0	unless $self->_system($self->setrsh, $rhost, "rm -rf $ldir")
610	0	0	unless $self->_system($self->setrsh, $rhost, "rmdir $ldir")
613	0	0	if ($recurse) { }
614	0	0	unless rmtree(["$ldir"], 0, 0)
616	0	0	unless CORE::rmdir $ldir
637	0	0	unless $srcfile and $destfile
641	0	0	if ($srhost or $drhost) { }
643	0	0	unless $self->_system($self->setrcp, $srcfile, $destfile)
646	0	0	unless File::Copy::copy($slfile, $dlfile)
668	0	0	unless ©(@_) and &unlink(@_)
685	0	0	unless $uid and $gid and $file
688	0	0	if ($rhost) { }
689	0	0	unless $self->_system($self->setrsh, $rhost, "'chown $uid $lfile ; chgrp $gid ${lfile}'")
692	0	0	if $uid =~ /[a-zA-Z]/
693	0	0	if $gid =~ /[a-zA-Z]/
694	0	0	unless CORE::chown $uid, $gid, $lfile
710	0	0	unless $mode and $file
713	0	0	if ($rhost) { }
714	0	0	unless $self->_system($self->setrsh, $rhost, "'chmod $mode ${lfile}'")
716	0	0	unless CORE::chmod $mode, $lfile
734	0	0	unless $file
737	0	0	if ($rhost) { }
738	0	0	unless $self->_system($self->setrsh, $rhost, "'rm -f ${lfile}'")
740	0	0	unless CORE::unlink $lfile
760	0	0	unless $srcfile and $destfile
764	0	0	if ($srhost and $drhost) { }
	0	0	elsif ($srhost or $drhost) { }
765	0	0	if ($srhost eq $drhost) { }
766	0	0	unless $self->_system($self->setrsh, $srhost, 'ln', $slfile, $dlfile)
773	0	0	unless CORE::link $slfile, $dlfile
791	0	0	unless $srcfile and $destfile
795	0	0	if ($srhost and $drhost) { }
	0	0	elsif ($srhost or $drhost) { }
796	0	0	if ($srhost eq $drhost) { }
797	0	0	unless $self->_system($self->setrsh, $srhost, 'ln -s', $slfile, $dlfile)
804	0	0	unless CORE::symlink $slfile, $dlfile
819	0	0	unless $file
822	0	0	if ($rhost) { }
828	0	0	if ($path eq 'NOPE') { }
859	0	0	unless $file
866	0	0	unless $bfile =~ m[/]
870	0	0	unless $self->copy($file, $bfile)
884	0	0	unless $file
885	0	0	unless my(@prefile) = $self->readfile($file)
886	0	0	unless my(@newfile) = (@prefile, @file)
887	0	0	unless $self->writefile($file, @newfile)
901	0	0	unless $file
902	0	0	unless my(@postfile) = $self->readfile($file)
903	0	0	unless my(@newfile) = (@file, @postfile)
904	0	0	unless $self->writefile($file, @newfile)