| line |
true |
false |
branch |
|
27
|
0 |
6 |
unless &Getopt::Long::GetOptions(_filter_options(\%opts, \@option_args)) |
|
28
|
0 |
6 |
if $opts{'version'} |
|
30
|
1 |
5 |
wantarray ? : |
|
35
|
0 |
0 |
if $args{'message'} |
|
36
|
0 |
0 |
if require Pod::Usage |
|
53
|
12 |
3 |
unless defined $$opts{$option} |
|
60
|
0 |
0 |
$main::VERSION ? : |
|
67
|
0 |
6 |
if (-e $config_file and open my $fh, '<', $config_file) |
|
73
|
0 |
0 |
unless $line |
|
84
|
6 |
0 |
if require File::HomeDir |
|
98
|
0 |
6 |
if ($$PRESET_OPTIONS{$option} and not $ALLOW_PRESET_OVERRIDE) { } |
|
|
0 |
6 |
elsif ($$PRESET_OPTIONS{$option}) { } |
|
111
|
0 |
6 |
if ($illegal_preset_count) |
|
117
|
6 |
0 |
unless $$found_presets{'help'} |
|
119
|
6 |
0 |
unless $$found_presets{'man'} |
|
120
|
6 |
0 |
unless $$found_presets{'verbose'} |
|
121
|
6 |
0 |
unless $$found_presets{'version'} |
|
132
|
0 |
3 |
if (length $option == 1) |