| line |
true |
false |
branch |
|
55
|
35 |
0 |
if @_ == 3 |
|
66
|
7 |
6 |
unless open my $fh, "<", $conf_file |
|
68
|
6 |
48 |
if not /\S/ or /^#/ |
|
70
|
0 |
48 |
unless $key and $args |
|
71
|
14 |
34 |
unless $cfg->{'_state'}{'host_matched'} or $key eq "Host" |
|
73
|
0 |
34 |
unless my $code = $Net::SSH::Perl::Config::DIRECTIVES{$key}[0] |
|
76
|
0 |
6 |
unless close $fh |
|
82
|
0 |
6 |
unless $key and $args |
|
84
|
0 |
6 |
unless my $code = $Net::SSH::Perl::Config::DIRECTIVES{$key}[0] |
|
92
|
6 |
6 |
if ($host eq '*' or $cfg->{'_state'}{'host'} =~ /^$hostre$/) { } |
|
102
|
0 |
2 |
if exists $cfg->{'o'}{'interactive'} |
|
103
|
0 |
2 |
$batch eq 'yes' ? : |
|
109
|
5 |
5 |
unless ref $cfg->{'o'}{'identity_files'} eq "ARRAY" |
|
116
|
0 |
0 |
if exists $cfg->{'o'}{'protocol'} |
|
118
|
0 |
0 |
unless $p == 1 or $p == 2 |
|
121
|
0 |
0 |
if ($p == &PROTOCOL_SSH1() and not $cfg->{'o'}{'protocol'} & &PROTOCOL_SSH2()) |
|
129
|
3 |
10 |
if exists $cfg->{'o'}{$Net::SSH::Perl::Config::DIRECTIVES{$key}[1]} |
|
130
|
0 |
10 |
if ($value =~ s/^-//) { } |
|
|
0 |
10 |
elsif ($value =~ s/^\+//) { } |
|
133
|
0 |
0 |
unless my $defaults = $Net::SSH::Perl::Config::DIRECTIVES{$key}[2] |
|
135
|
0 |
0 |
if /^$value$/ |
|
143
|
0 |
0 |
unless my $all = $Net::SSH::Perl::Config::DIRECTIVES{$key}[3] |
|
145
|
0 |
0 |
if /^$value$/ |
|
164
|
0 |
1 |
if exists $cfg->{'o'}{'cipher'} |
|
171
|
0 |
2 |
if exists $cfg->{'o'}{$Net::SSH::Perl::Config::DIRECTIVES{$key}[1]} |
|
172
|
0 |
2 |
if ($yesno eq 'yes') { } |
|
|
2 |
0 |
elsif ($yesno eq 'no') { } |
|
186
|
8 |
0 |
if $variable eq "DESTROY" |
|
189
|
0 |
0 |
unless exists $cfg->{'o'}{$variable} |
|
191
|
0 |
0 |
@_ ? : |