| line |
true |
false |
branch |
|
56
|
22 |
0 |
if @_ == 3 |
|
67
|
5 |
6 |
unless open my $fh, '<', $conf_file |
|
69
|
6 |
48 |
if not /\S/ or /^#/ |
|
71
|
0 |
48 |
unless $key and $args |
|
72
|
14 |
34 |
unless $cfg->{'_state'}{'host_matched'} or $key eq 'Host' |
|
74
|
0 |
34 |
unless my $code = $Net::SSH::Perl::Config::DIRECTIVES{$key}[0] |
|
77
|
0 |
6 |
unless close $fh |
|
83
|
0 |
6 |
unless $key and $args |
|
85
|
0 |
6 |
unless my $code = $Net::SSH::Perl::Config::DIRECTIVES{$key}[0] |
|
93
|
6 |
6 |
if ($host eq '*' or $cfg->{'_state'}{'host'} =~ /^$hostre$/) { } |
|
103
|
0 |
2 |
if exists $cfg->{'o'}{'interactive'} |
|
104
|
0 |
2 |
$batch eq 'yes' ? : |
|
110
|
5 |
5 |
unless ref $cfg->{'o'}{'identity_files'} eq 'ARRAY' |
|
117
|
0 |
0 |
if exists $cfg->{'o'}{'protocol'} |
|
119
|
0 |
0 |
unless $p == 1 or $p == 2 |
|
122
|
0 |
0 |
if ($p == &PROTOCOL_SSH1() and not $cfg->{'o'}{'protocol'} & &PROTOCOL_SSH2()) |
|
130
|
3 |
10 |
if exists $cfg->{'o'}{$Net::SSH::Perl::Config::DIRECTIVES{$key}[1]} |
|
131
|
0 |
10 |
if ($value =~ s/^-//) { } |
|
|
0 |
10 |
elsif ($value =~ s/^\+//) { } |
|
134
|
0 |
0 |
unless my $defaults = $Net::SSH::Perl::Config::DIRECTIVES{$key}[2] |
|
136
|
0 |
0 |
if /^$value$/ |
|
144
|
0 |
0 |
unless my $all = $Net::SSH::Perl::Config::DIRECTIVES{$key}[3] |
|
146
|
0 |
0 |
if /^$value$/ |
|
165
|
0 |
1 |
if exists $cfg->{'o'}{'cipher'} |
|
172
|
0 |
2 |
if exists $cfg->{'o'}{$Net::SSH::Perl::Config::DIRECTIVES{$key}[1]} |
|
173
|
0 |
2 |
if ($yesno eq 'yes') { } |
|
|
2 |
0 |
elsif ($yesno eq 'no') { } |
|
187
|
7 |
0 |
if $variable eq 'DESTROY' |
|
190
|
0 |
0 |
unless exists $cfg->{'o'}{$variable} |
|
192
|
0 |
0 |
@_ ? : |