| line |
true |
false |
branch |
|
625
|
0 |
22 |
if @_ % 2 |
|
629
|
0 |
22 |
if exists $switches{'array'} and not ref $switches{'array'} && ref $switches{'array'} eq 'ARRAY' |
|
630
|
0 |
4 |
if exists $switches{'prefix'} and !defined($switches{'prefix'}) || ref $switches{'prefix'} |
|
631
|
0 |
22 |
if exists $switches{'prefix'} and $switches{'prefix'} =~ /^[-#=+]$/ |
|
632
|
0 |
4 |
if exists $switches{'startupFilename'} and ref $switches{'startupFilename'} and not ref($switches{'startupFilename'}) =~ /^(ARRAY|CODE)$/ |
|
633
|
0 |
5 |
if exists $switches{'fileOption'} and !defined($switches{'fileOption'}) || ref $switches{'fileOption'} |
|
638
|
1 |
1 |
if defined $callerSub and $callerSub eq join('::', 'Getopt::ArgvFile', 'import') and exists $switches{'justload'} |
|
643
|
6 |
15 |
exists $switches{'array'} ? : |
|
646
|
3 |
18 |
exists $switches{'prefix'} ? : |
|
649
|
5 |
16 |
exists $switches{'fileOption'} ? : |
|
653
|
2 |
1 |
ref $switches{'startupFilename'} eq 'CODE' ? : |
|
|
3 |
1 |
ref $switches{'startupFilename'} ? : |
|
|
4 |
17 |
exists $switches{'startupFilename'} ? : |
|
662
|
0 |
21 |
if ref $startupFilenames and ref $startupFilenames ne 'ARRAY' |
|
666
|
1 |
0 |
defined $startupFilenames ? : |
|
|
1 |
20 |
unless ref $startupFilenames |
|
670
|
5 |
16 |
if $fileOption |
|
674
|
20 |
1 |
exists $ENV{'HOME'} ? : |
|
685
|
1 |
20 |
unless exists $ENV{'HOME'} |
|
699
|
44 |
19 |
unless exists $switches{$type} |
|
707
|
0 |
19 |
if not defined $cfg or exists $seen{$cfg} |
|
729
|
19 |
44 |
if exists $switches{$type} |
|
740
|
54 |
224 |
if substr($$arrayRef[$i], 0, 1) eq $prefix |
|
745
|
54 |
224 |
if ($nr{$i}) { } |
|
756
|
16 |
38 |
if $$arrayRef[$i] =~ s/^$prefix/$maskString/ |
|
759
|
36 |
0 |
$casesensitiveFilenames ? : |
|
|
0 |
36 |
if not -e $$arrayRef[$i] or -d _ or $rfiles{$casesensitiveFilenames ? $$arrayRef[$i] : lc $$arrayRef[$i]} |
|
762
|
36 |
0 |
$casesensitiveFilenames ? : |
|
774
|
32 |
576 |
if /^=\w/ |
|
775
|
16 |
592 |
if /^=cut/ |
|
778
|
177 |
200 |
if /^\s*$/ or /^\s*\#/ or $pod |
|
789
|
11 |
189 |
if (exists $switches{'resolveEnvVars'}) |
|
798
|
29 |
2 |
unless ($quotedwords[$i] =~ /^'.+'$/) |
|
801
|
6 |
1 |
exists $ENV{$1} ? : |
|
804
|
5 |
0 |
exists $ENV{$1} ? : |
|
813
|
10 |
190 |
if (exists $switches{'resolveRelativePathes'}) |
|
821
|
1 |
4 |
defined $1 ? : |
|
|
5 |
6 |
if $string =~ m[^($prefix)?([./]+)/] |
|
839
|
10 |
28 |
if $fileOption |
|
856
|
6 |
2 |
if (@_ == 2 and $_[-1] eq 'argvFile') { } |
|
877
|
15 |
0 |
if ($fileOption) |