| line | % | coverage | branch |
|---|
| 86 | 50 | T | F | exists $$opt{'fh_log'} ? : |
| 88 | 50 | T | F | if ($$opt{'dbi'}) { } |
| 50 | T | F | elsif ($$opt{'dbi_file'}) { } |
| 0 | T | F | elsif ($$opt{'tokyocabinet'}) { } |
| 97 | 50 | T | F | unless open FN, "<$fn" |
| 109 | 0 | T | F | unless $tdb->open($$opt{'tokyocabinet'}, $tdb->WRITER, $tdb->OCREAT) |
| 114 | 50 | T | F | if ($$opt{'filesets'}) |
| 123 | 50 | T | F | if ($ENV{'HOME'} =~ m[([/\w]*)]) |
| 124 | 50 | T | F | if (-f "$1/.ssh/id_rsa") |
| 125 | 0 | T | F | if (my $st = stat("$1/.ssh/id_rsa")) |
| 126 | 0 | T | F | if ($st->uid == $>) |
| 169 | 0 | T | F | $$self{'ssh_id_file'} ? : |
| 184 | 0 | T | F | if ($count % 1000 == 0) |
| 189 | 0 | T | F | if ($$f{'t'} eq 'f') { } |
| 0 | T | F | elsif ($$f{'t'} eq 'd') { } |
| 0 | T | F | elsif ($$f{'t'} eq 'l') { } |
| 194 | 0 | T | F | unless mkdir_p($d) |
| 198 | 0 | T | F | unless (symlink $$f{'lt'}, $l) |
| 208 | 0 | T | F | if $success |
| 222 | 0 | T | F | if $rows == 1 |
| 225 | 0 | T | F | if (not kill 0, $pid and $!{'ESRCH'}) |
| 248 | 0 | T | F | if $$f{'name'} =~ /(.*)/ |
| 257 | 0 | T | F | if $$f{'m'} =~ /^(\d+)$/ |
| 258 | 0 | T | F | if defined $$f{'lt'} and $$f{'lt'} =~ /(.*)/ |
| 265 | 0 | T | F | unless $$self{'last_backup'} |
| 267 | 0 | T | F | unless $st |
| 268 | 0 | T | F | if ($st->mtime == $$f{'m'} and $st->size == $$f{'s'} and $st->uid == $self->name2uid($$f{'o'}) and $st->gid == $self->name2gid($$f{'g'}) and ($st->mode & 4095) == $self->acl2mode($f)) { } |
| 282 | 0 | T | F | unless defined $perm |
| 284 | 0 | T | F | if (-d $dir) { } |
| 0 | T | F | elsif (mkdir $dir, $perm) { } |
| 0 | T | F | elsif ($!{'ENOENT'}) { } |
| 292 | 0 | T | F | if (-d $dir) { } |
| 304 | 0 | T | F | if defined $dir |
| 310 | 0 | T | F | if defined $targets |
| 334 | 0 | T | F | if tainted $fn |
| 336 | 0 | T | F | if tainted $mode |
| 350 | 0 | T | F | if ($$f{'acl'}) |
| 352 | 0 | T | F | if ($ace =~ /^u::(...)$/) { } |
| 0 | T | F | elsif ($ace =~ /^g::(...)$/) { } |
| 0 | T | F | elsif ($ace =~ /^o:(...)$/) { } |
| 363 | 0 | T | F | if ($$f{'setuid'}) |
| 364 | 0 | T | F | if ($$f{'setgid'}) |
| 365 | 0 | T | F | if ($$f{'sticky'}) |
| 373 | 50 | T | F | if $uname =~ /(.*)/ |
| 374 | 50 | T | F | if defined $ucache{$uname} |
| 375 | 100 | T | F | if ($uname =~ /^\d+$/) { } |
| 379 | 100 | T | F | if (defined $uid) { } |
| 390 | 50 | T | F | if $gname =~ /(.*)/ |
| 391 | 50 | T | F | if defined $gcache{$gname} |
| 392 | 50 | T | F | if ($gname =~ /^\d+$/) { } |
| 396 | 50 | T | F | if (defined $gid) { } |
| 411 | 0 | T | F | if ($level <= $$self{'log_level'}) |
| 412 | 0 | T | F | unless $$self{'fh_log'}->print(strftime('%Y-%m-%dT%H:%M:%S%z', localtime), " $$ [$level]: $msg\n") |
| 419 | 0 | T | F | if defined $log_level |
| 433 | 0 | T | F | unless (@$db_f) |
| 444 | 0 | T | F | if ($$f{'t'} eq 'f' and not defined $$f{'checksum'}) |
| 458 | 0 | T | F | $$f{$_} ? : |
| 463 | 0 | T | F | if ($$f{'t'} eq 'f') { } |
| 0 | T | F | elsif ($$f{'t'} eq 'l') { } |
| 0 | T | F | elsif ($$f{'t'} eq 'b' or $$f{'t'} eq 'c') { } |
| 477 | 0 | T | F | unless ($version_id) |
| 479 | 0 | T | F | $$f{$_} ? : |
| 512 | 0 | T | F | if (@{$$self{'caches'}{'insert_instances'};} > 10) |
| 523 | 0 | T | F | if ($$self{'caches'}{'file_checksums'}{$$self{'last_backup_id'}}) { } |
| 543 | 0 | T | F | if (@{$$self{'caches'}{'insert_instances'};}) |
| 575 | 0 | T | F | if ($$self{'file_pid'}) |
| 624 | 0 | T | F | unless ($$self{'sessions_on_same_device'}) |
| 626 | 0 | T | F | defined $st ? : |
| 631 | 0 | T | F | defined $st ? : |
| 632 | 0 | T | F | unless $dev eq $my_dev |
| 633 | 0 | T | F | if $$self{'sessions_on_same_device'} and @{$$self{'sessions_on_same_device'};} > 30 |
| 649 | 0 | T | F | $$f{$_} ? : |
| 657 | 0 | T | F | defined $st ? : |
| 662 | 0 | T | F | unless ($$self{'prefix_device'}{$$r{'prefix'}}) |
| 664 | 0 | T | F | defined $st ? : |
| 667 | 0 | T | F | unless $$self{'prefix_device'}{$$r{'prefix'}} eq $my_dev |
| 670 | 0 | T | F | if (my $st = lstat $oldfile) |
| 671 | 0 | T | F | if ($st->mtime == $$f{'m'} and $st->size == $$f{'s'} and $st->uid == $self->name2uid($$f{'o'}) and $st->gid == $self->name2gid($$f{'g'}) and ($st->mode & 4095) == $self->acl2mode($f)) |
| 679 | 0 | T | F | if (length $tmpname > 255) |
| 683 | 0 | T | F | unless rename $backup_filename, "$tmpname" |
| 684 | 0 | T | F | if (link $oldfile, $backup_filename) { } |
| 686 | 0 | T | F | unless unlink "$tmpname" |
| 694 | 0 | T | F | unless rename "$tmpname", $backup_filename |
| 719 | 0 | T | F | if ($self->present($f)) |
| 720 | 0 | T | F | if (link "$$self{'last_backup'}/$$f{'name'}", "$$self{'this_backup'}/$$f{'name'}") { } |
| 730 | 0 | T | F | unless ($$self{'file_pid'}) |
| 731 | 0 | T | F | $$self{'ssh_id_file'} ? : |
| 739 | 0 | T | F | if ($header =~ /^data (.*)/) { } |
| 743 | 0 | T | F | unless (open $file_bfd, '>:raw', $backup_filename) |
| 760 | 0 | T | F | if (not defined $rc) { } |
| 0 | T | F | elsif ($rc == 0) { } |
| 769 | 0 | T | F | unless $file_bfd->print($buffer) |
| 773 | 0 | T | F | unless close $file_bfd |
| 776 | 0 | T | F | if ($trailer =~ /^fail /) { } |
| 0 | T | F | elsif ($trailer =~ /^chk sha1 (\w+)/) { } |
| 781 | 0 | T | F | if ($checksum ne $1) |
| 790 | 0 | T | F | unless ($self->linkdup($f, $backup_filename)) |