| line |
true |
false |
branch |
|
14
|
0 |
0 |
unless GetOptions \my(%opts), 'help|h|?', 'man|m', 'version|v', 'sites|s', 'abbrevs|a', 'config-file|c=s', 'web-browser|w=s' |
|
18
|
0 |
0 |
if ($opts{'help'}) { } |
|
|
0 |
0 |
elsif ($opts{'man'}) { } |
|
|
0 |
0 |
elsif ($opts{'version'}) { } |
|
29
|
0 |
0 |
if print_version() |
|
32
|
0 |
0 |
if $opts{'config-file'} and not -f $opts{'config-file'} |
|
59
|
0 |
4 |
unless 'Config::Tiny'->read($config_file) |
|
72
|
0 |
4 |
unless -f $config_file |
|
83
|
4 |
0 |
if (exists $sites{$original}) { } |
|
115
|
15 |
0 |
if $$sites{$sitename} |
|
144
|
0 |
0 |
if ($browser) { } |
|
150
|
0 |
0 |
if (defined(my $status = Browser::Open::open_browser($url))) { } |
|
151
|
0 |
0 |
if ($status != 0) |
|
168
|
0 |
0 |
if ($$opts{'sites'}) { } |
|
|
0 |
0 |
elsif ($$opts{'abbrevs'}) { } |
|
|
0 |
0 |
elsif (not $sitename && $$opts{'query'}) { } |
|
169
|
0 |
0 |
if print_sites($sites) |
|
172
|
0 |
0 |
if print_abbrevs($abbrevs, $sites) |
|
178
|
0 |
0 |
if (my $valid_site = $$abbrevs{$sitename}) { } |
|
186
|
0 |
0 |
if (my(@ambiguous) = grep({/^$sitename/;} sort(keys %$abbrevs))) { } |