| line |
true |
false |
branch |
|
16
|
0 |
1 |
if $LOCK |
|
25
|
0 |
0 |
unless $$self{'exclude'} |
|
26
|
0 |
0 |
if $$self{'verbose'} |
|
29
|
0 |
0 |
if (my $remote_host = $self->remote_host) { } |
|
36
|
0 |
0 |
unless 'IO::File'->new->open($lock, 192) |
|
45
|
0 |
1 |
unless open my $CONFIG, '>', $tmp |
|
50
|
1 |
0 |
if $self->_read('email') |
|
51
|
1 |
0 |
if $self->_read('exclude') |
|
52
|
1 |
0 |
if $self->_read('source') |
|
53
|
1 |
0 |
if $self->_read('destination') |
|
56
|
0 |
1 |
unless close $CONFIG |
|
57
|
0 |
1 |
unless rename $tmp, $$self{'config'} |
|
65
|
1 |
1 |
if (-r $file) |
|
66
|
0 |
1 |
unless open my $CONFIG, '<', $file |
|
68
|
1 |
1 |
unless /Host\s+$moniker/ |
|
75
|
0 |
1 |
unless open my $CONFIG, '>>', $file |
|
87
|
0 |
1 |
if (-r $file) { } |
|
96
|
0 |
1 |
unless open my $IDENTITY, '<', "$file.pub" |
|
104
|
1 |
1 |
if (-r $file) |
|
106
|
0 |
1 |
unless open my $AUTHORIZED_KEYS, '<', $file |
|
108
|
0 |
1 |
unless /$match/ |
|
114
|
0 |
1 |
unless open my $AUTHORIZED_KEYS, '>>', $file |
|
116
|
0 |
1 |
unless $key =~ /\n$/ |
|
124
|
0 |
4 |
unless my $host = $$self{'destination'}->host |
|
135
|
0 |
1 |
unless open my $CONFIG, '<', $$self{'config'} |
|
144
|
0 |
1 |
unless $config |
|
152
|
2 |
0 |
if $$config{'destination'}->$m |
|
156
|
0 |
1 |
unless $$config{'destination'}->scheme eq 'rsync' |
|
162
|
1 |
0 |
ref $args[0] eq 'CODE' ? : |
|
165
|
1 |
0 |
if (my $remote_host = $self->remote_host) |
|
169
|
1 |
0 |
if $$self{'silent'} |
|
170
|
0 |
1 |
if $$self{'verbose'} |
|
173
|
0 |
1 |
unless open my $SSH, '|-', @cmd |
|
174
|
0 |
1 |
unless open my $SELF, '<', 'bin/sibs' |
|
184
|
2 |
5 |
unless ($$self{'ssh_dir'}) |
|
185
|
2 |
0 |
unless -d "$ENV{'HOME'}/.ssh" |
|
190
|
0 |
7 |
unless $file |
|
203
|
8 |
0 |
if $$self{'silent'} |
|
210
|
0 |
0 |
if ref $v eq 'ARRAY' |
|
213
|
0 |
0 |
if $v |
|
224
|
3 |
0 |
unless -x "$path/$program" |
|
229
|
9 |
1 |
length $_ ? : |
|
239
|
1 |
5 |
if -f $args[$i] |
|
240
|
2 |
3 |
if $args[$i] =~ /^--?v/ |
|
241
|
2 |
1 |
if $args[$i] =~ /^--?s/ |
|
245
|
1 |
3 |
if @args |
|
248
|
0 |
4 |
if ($action eq 'setup') { } |
|
|
0 |
4 |
elsif ($action eq 'backup') { } |
|
|
0 |
4 |
elsif ($action eq 'man') { } |
|
|
0 |
4 |
elsif ($action eq 'remote-init') { } |
|
|
0 |
4 |
elsif ($action eq 'remote-archive') { } |
|
|
0 |
4 |
elsif ($action eq 'version') { } |
|
|
0 |
4 |
elsif (not $ENV{'HARNESS_IS_VERBOSE'}) { } |
|
267
|
0 |
0 |
unless chdir $dir |
|
268
|
0 |
0 |
if -d $name |