| line |
true |
false |
branch |
|
16
|
0 |
1 |
if $LOCK |
|
25
|
0 |
0 |
unless $$self{'exclude'} |
|
26
|
0 |
0 |
if $$self{'verbose'} |
|
30
|
0 |
0 |
unless 'IO::File'->new->open($lock, 192) |
|
39
|
0 |
1 |
unless open my $CONFIG, '>', $tmp |
|
44
|
1 |
0 |
if $self->_read('email') |
|
45
|
1 |
0 |
if $self->_read('exclude') |
|
46
|
1 |
0 |
if $self->_read('source') |
|
47
|
1 |
0 |
if $self->_read('destination') |
|
50
|
0 |
1 |
unless close $CONFIG |
|
51
|
0 |
1 |
unless rename $tmp, $$self{'config'} |
|
59
|
1 |
1 |
if (-r $file) |
|
60
|
0 |
1 |
unless open my $CONFIG, '<', $file |
|
62
|
1 |
1 |
unless /Host\s+$moniker/ |
|
69
|
0 |
1 |
unless open my $CONFIG, '>>', $file |
|
81
|
0 |
1 |
if (-r $file) { } |
|
90
|
0 |
1 |
unless open my $IDENTITY, '<', "$file.pub" |
|
98
|
1 |
1 |
if (-r $file) |
|
100
|
0 |
1 |
unless open my $AUTHORIZED_KEYS, '<', $file |
|
102
|
0 |
1 |
unless /$match/ |
|
108
|
0 |
1 |
unless open my $AUTHORIZED_KEYS, '>>', $file |
|
110
|
0 |
1 |
unless $key =~ /\n$/ |
|
128
|
0 |
1 |
unless open my $CONFIG, '<', $$self{'config'} |
|
137
|
0 |
1 |
unless $config |
|
145
|
4 |
0 |
if $$config{'destination'}->$m |
|
149
|
0 |
1 |
unless $$config{'destination'}->scheme eq 'rsync' |
|
154
|
1 |
0 |
ref $args[0] eq 'CODE' ? : |
|
157
|
1 |
0 |
if $$self{'silent'} |
|
158
|
0 |
1 |
if $$self{'verbose'} |
|
161
|
0 |
1 |
unless open my $SSH, '|-', @remote |
|
162
|
0 |
1 |
unless open my $SELF, '<', 'bin/sibs' |
|
172
|
2 |
5 |
unless ($$self{'ssh_dir'}) |
|
173
|
2 |
0 |
unless -d "$ENV{'HOME'}/.ssh" |
|
178
|
0 |
7 |
unless $file |
|
191
|
8 |
0 |
if $$self{'silent'} |
|
198
|
0 |
0 |
if ref $v eq 'ARRAY' |
|
201
|
0 |
0 |
if $v |
|
212
|
3 |
0 |
unless -x "$path/$program" |
|
217
|
6 |
1 |
length $_ ? : |
|
227
|
1 |
5 |
if -f $args[$i] |
|
228
|
2 |
3 |
if $args[$i] =~ /^--?v/ |
|
229
|
2 |
1 |
if $args[$i] =~ /^--?s/ |
|
233
|
1 |
3 |
if @args |
|
236
|
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'}) { } |
|
255
|
0 |
0 |
unless chdir $dir |
|
256
|
0 |
0 |
if -d $name |