| line |
true |
false |
branch |
|
26
|
1 |
22 |
unless @ARGV |
|
31
|
1 |
21 |
if ($cmd =~ m[^gemini://]) { } |
|
|
1 |
20 |
elsif (not exists $commands{$cmd}) { } |
|
44
|
0 |
3 |
unless &GetOptionsFromArray($args, "f=s", \my $target) |
|
46
|
0 |
3 |
unless open my $fh, ">>", $target |
|
49
|
1 |
3 |
if (-f $n) { } |
|
|
2 |
1 |
elsif (-d $n) { } |
|
69
|
1 |
12 |
unless &GetOptionsFromArray($args, 4, sub {
$Address_Family = 2;
}
, 6, sub {
$Address_Family = 10;
}
, "A", \$Allow_Verified, "C=s", \my $client_cert, "E=s", \my $output_encoding, "H=s", \my $sni_host, "K=s", \my $client_key, "S", \$Show_Status, "V=s", \my $verify, "f", \$Force_Update, "links|l", \my $Only_Links, "q", \$Be_Quiet, "t=i", \my $timeout) |
|
83
|
3 |
9 |
unless defined $resource and length $resource |
|
93
|
8 |
1 |
unless defined $output_encoding |
|
97
|
1 |
8 |
if (defined $client_cert) |
|
101
|
1 |
8 |
if (defined $client_key) |
|
105
|
1 |
8 |
if (defined $sni_host) |
|
108
|
0 |
9 |
if defined $Address_Family |
|
111
|
2 |
7 |
if (defined $verify) { } |
|
112
|
1 |
1 |
if ($verify eq 'peer') { } |
|
|
1 |
0 |
elsif ($verify eq 'none') { } |
|
116
|
0 |
1 |
if $Show_Status |
|
124
|
7 |
0 |
if (length $ENV{'GMITOOL_HOSTS'}) { } |
|
128
|
0 |
0 |
unless defined $ENV{'HOME'} |
|
135
|
5 |
2 |
if defined $buf and length $buf |
|
146
|
0 |
9 |
if ($pledge) |
|
148
|
0 |
0 |
if exists $ENV{'SSL_CERT_DIR'} |
|
149
|
0 |
0 |
if exists $ENV{'SSL_CERT_FILE'} |
|
161
|
0 |
10 |
if ($pledge and $code != 3) |
|
164
|
8 |
2 |
if ($code == 2) { } |
|
|
0 |
2 |
elsif ($code == 0) { } |
|
|
2 |
0 |
elsif ($code == 3) { } |
|
|
0 |
0 |
elsif ($code == 4) { } |
|
|
0 |
0 |
elsif ($code == 5) { } |
|
|
0 |
0 |
elsif ($code == 6) { } |
|
165
|
1 |
7 |
if $Show_Status |
|
168
|
0 |
8 |
if defined $output_encoding and $output_encoding eq "" |
|
169
|
1 |
7 |
if ($Only_Links) |
|
170
|
1 |
0 |
if ($type eq "text" and $sub eq "gemini") |
|
175
|
2 |
5 |
if ($encoded) { } |
|
178
|
2 |
0 |
if defined $output_encoding |
|
189
|
0 |
2 |
if ++$redirects >= 5 |
|
193
|
1 |
1 |
if $Show_Status |
|
211
|
2 |
6 |
if ($Hosts_Dirty) |
|
222
|
7 |
1 |
if (exists $pr->{'charset'}) { } |
|
227
|
1 |
6 |
unless $pr->{'charset'} =~ /(?i)utf-8/ or $pr->{'charset'} =~ /(?i)ascii/ |
|
233
|
1 |
0 |
if ($key =~ /^(?i)charset$/) |
|
236
|
1 |
0 |
unless $pr->{$key} =~ /(?i)utf-8/ or $pr->{$key} =~ /(?i)ascii/ |
|
246
|
1 |
4 |
unless &GetOptionsFromArray($args, "base|b=s", \my $base, "relative|r", \my $relative) |
|
252
|
6 |
0 |
if ($line =~ /^=>\s*(\S+)/) |
|
253
|
2 |
4 |
defined $base ? : |
|
254
|
1 |
5 |
if $relative and defined $u->scheme |
|
282
|
1 |
0 |
if $eom |
|
293
|
1 |
0 |
if $Allow_Verified and $param->{'okay'} |
|
300
|
1 |
10 |
if (not exists $Known_Hosts->{$key}) { } |
|
|
2 |
8 |
elsif ($Force_Update) { } |
|
303
|
0 |
2 |
unless ($Be_Quiet or $Known_Hosts->{$key}{'digest'} eq $param->{'digest'}) |
|
312
|
1 |
7 |
if ($Known_Hosts->{$key}{'digest'} ne $param->{'digest'}) |
|
324
|
0 |
4 |
if (exists $old->{$dtl} and $old->{$dtl} ne $new->{$dtl}) |