Branch Coverage

blib/lib/File/RsyBak.pm
Criterion Covered Total %
branch 46 76 60.5


line true false branch
24 0 25 if ($path =~ m[^(\S+)::([^/]+)/?(.*)$]) { }
5 20 elsif ($path =~ /([^\@]+)?\@?(^\S+):(.*)$/) { }
49 3 12 if ($_->{'remote'})
54 10 4 unless ($_->{'remote'})
57 1 11 unless $all_remote or $all_local
60 2 9 if ($all_remote)
65 1 3 if $host ne $_->{'host'}
189 0 8 unless my $source = $args{'source'}
190 1 7 ref $source eq 'ARRAY' ? :
193 0 8 unless $res->[0] == 200
194 0 8 unless my $target = $args{'target'}
197 0 8 if $target->{'remote'}
199 0 8 unless ref $histories eq 'ARRAY'
205 0 8 unless my $rsync_path = File::Which::which('rsync')
208 4 4 unless (-d $target->{'abs_path'})
211 0 4 unless File::Path::make_path($target->{'abs_path'})
217 8 0 if ($backup)
226 8 0 if ($rotate)
251 1 7 $opts->{'extra_rsync_opts'} ? :
0 8 log_is_debug() ? :
4 4 -e "$target->{'abs_path'}/current" ? :
3 6 $opts->{'extra_dir'} ? :
258 0 8 if $?
263 4 4 if (-e "$target->{'abs_path'}/current")
271 1 3 unless (rename "$target->{'abs_path'}/current", "$target->{'abs_path'}/hist.$tstamp")
281 1 7 unless (rename "$target->{'abs_path'}/.tmp", "$target->{'abs_path'}/current")
302 8 8 $level == 1 ? :
307 16 0 if ($n > 0) { }
311 0 16 grep({/t$/;} @f) ? :
315 1 0 if (not $is_highest_level || $moved and $tagged || !$any_tagged) { }
320 1 0 if ($f ne $f[0])
332 0 0 grep({/t$/;} @f) ? :
338 0 0 if $1
339 0 0 unless ($st and $t)
343 0 0 if ($t > $now)
348 0 0 if ($delta > $n)
349 0 0 if (not $is_highest_level || $moved and $tagged || !$any_tagged) { }
354 0 0 if ($f ne $f[0])