| line |
true |
false |
branch |
|
30
|
0 |
64 |
if $ENV{'SETS_SORTED'} |
|
31
|
0 |
64 |
if $ENV{'SETS_TRIM'} |
|
32
|
0 |
64 |
if exists $ENV{'SETS_CACHE'} |
|
34
|
0 |
64 |
if exists $ENV{'SETS_LOGLEVEL'} |
|
36
|
0 |
64 |
if exists $ENV{'SETS_PARSEDEBUG'} |
|
38
|
32 |
32 |
if exists $ENV{'SETS_INTERNAL_SORT'} |
|
39
|
0 |
64 |
if $ENV{'SETS_BINMODE'} |
|
40
|
0 |
64 |
unless &GetOptionsFromArray(\@args, \%config, ('man', 'help', 'usage', 'version', 'binmode|b=s', 'cache|cache-sorted|S=s', 'internal_sort|internal-sort|I!', 'loglevel|l=s', 'sorted|s!', 'trim|t!')) |
|
54
|
0 |
64 |
unless defined $App::Sets::VERSION |
|
58
|
0 |
64 |
if $config{'version'} |
|
62
|
0 |
64 |
if $config{'usage'} |
|
66
|
0 |
64 |
if $config{'help'} |
|
67
|
0 |
64 |
if $config{'man'} |
|
73
|
0 |
64 |
if exists $config{'cache'} and not defined $config{'cache'} && length $config{'cache'} |
|
74
|
0 |
64 |
if exists $config{'cache'} |
|
76
|
0 |
64 |
if (exists $config{'cache'}) { } |
|
|
0 |
64 |
elsif ($config{'sorted'}) { } |
|
83
|
0 |
64 |
if $config{'trim'} |
|
85
|
0 |
64 |
unless @args |
|
98
|
64 |
0 |
if (@args > 1) { } |
|
99
|
0 |
64 |
if $args[0] eq '--' |
|
100
|
0 |
64 |
unless @args % 2 |
|
106
|
64 |
64 |
if @args |
|
114
|
0 |
64 |
if $config{'parsedebug'} |
|
124
|
0 |
548 |
if $config{'trim'} |
|
137
|
64 |
128 |
if (ref $expression) { } |
|
149
|
0 |
128 |
unless -r $filename and not -d $filename |
|
152
|
0 |
128 |
if ($config{'cache'}) |
|
154
|
0 |
0 |
unless (-e $cache_filename) |
|
158
|
0 |
0 |
unless open my $ofh, '>', $cache_filename |
|
163
|
0 |
0 |
unless close $ofh |
|
171
|
0 |
128 |
if ($config{'sorted'}) { } |
|
173
|
0 |
0 |
unless $config{'cache'} |
|
174
|
0 |
0 |
unless open $fh, '<', $filename |
|
184
|
304 |
1216 |
unless defined $retval |
|
186
|
0 |
1216 |
if $config{'trim'} |