| line |
true |
false |
branch |
|
547
|
0 |
53 |
if ($@) |
|
719
|
0 |
74714 |
unless (exists $defaults->{$k}) |
|
728
|
74714 |
0 |
if (defined $val) { } |
|
729
|
7 |
74707 |
if ($k eq 'date_sep') { } |
|
737
|
0 |
0 |
if (defined $defaults->{$k}) { } |
|
746
|
74714 |
0 |
defined $defaults->{$k} ? : |
|
751
|
906 |
73808 |
if (ref $expect eq "CODE") |
|
753
|
904 |
2 |
if (ref $val eq 'CODE') { } |
|
|
2 |
0 |
elsif (ref $val eq '') { } |
|
756
|
2 |
0 |
if ($val =~ /^(.*)::([^:]+)$/) { } |
|
|
0 |
0 |
elsif ($val ne '') { } |
|
764
|
906 |
0 |
if ($call) { } |
|
776
|
3448 |
70360 |
if (ref $expect eq "Regexp") |
|
777
|
3448 |
0 |
if (ref $val eq 'Regexp') { } |
|
|
0 |
0 |
elsif (ref $val eq '' and $val) { } |
|
789
|
872 |
72936 |
if (ref $expect eq "HASH") |
|
790
|
872 |
0 |
if (ref $val eq 'HASH') { } |
|
799
|
0 |
740 |
if ($val eq "" and $expect ne "" and $no_spaces_allowed) |
|
805
|
0 |
72936 |
if ($expect =~ /^-?\d+$/ and not $val =~ /^-?\d+$/) |
|
811
|
0 |
72936 |
if (not $expect =~ /^-?\d+$/ and $val =~ /^-?\d+$/) |
|
846
|
205 |
278 |
if defined $current |
|
847
|
376 |
107 |
if defined $user_opts |
|
850
|
0 |
483 |
if ($ref->{'encrypt_lbl'} eq $ref->{'decrypt_lbl'}) |
|
885
|
3180 |
89 |
if defined $current |
|
886
|
3231 |
38 |
if defined $user_opts |
|
889
|
0 |
3269 |
unless (0 <= $ref->{'date_format'} and $ref->{'date_format'} <= 8) |
|
922
|
1 |
90 |
if defined $current |
|
923
|
38 |
53 |
if defined $user_opts |
|
958
|
32 |
67169 |
if ($get_opts->{'inherit'} and not defined $data) |
|
961
|
9028 |
58173 |
unless (defined $data) |
|
974
|
265 |
57908 |
if ($get_opts->{'split'}) { } |
|
983
|
125 |
58048 |
$get_opts->{'sort'} ? : |
|
991
|
0 |
59083 |
if ($get_opts->{'vcase'} > 0) { } |
|
|
0 |
59083 |
elsif ($get_opts->{'vcase'} < 0) { } |
|
999
|
89 |
58994 |
if ($get_opts->{'auto_true'}) |
|
1003
|
48 |
41 |
if ($old =~ /^[-+]?\d+([.]\d*)?$/ or $old =~ /^[-+]?[.]\d+$/) |
|
1010
|
24 |
40 |
do {
$numeric
} ? : |
|
|
64 |
25 |
$old ? : |
|
1026
|
459 |
58624 |
if ($get_opts->{'numeric'} or $is_all_numbers) |
|
1031
|
0 |
459 |
if ($v =~ /^[+-]?\d+([.]\d*)?[Ee][+-]?\d+$/ or $v =~ /^[+-]?[.]\d+[Ee][+-]?\d$/) { } |
|
|
244 |
215 |
elsif ($v =~ /^[+-]?\d+$/) { } |
|
|
168 |
47 |
elsif ($v =~ /^[+-]?\d+[.]\d*$/ or $v =~ /^[+-]?[.]\d+$/) { } |
|
1034
|
0 |
0 |
if ($run_flg) |
|
1042
|
120 |
48 |
if $run_flg |
|
1049
|
80 |
211 |
if ($run_flg and $fp and $get_opts->{'numeric'} != 3) |
|
1050
|
40 |
40 |
if ($get_opts->{'numeric'} == 1) { } |
|
1057
|
15 |
444 |
if ($err and $run_flg) |
|
1066
|
2633 |
56435 |
if ($get_opts->{'date_active'}) |
|
1074
|
2619 |
14 |
if ($date) { } |
|
1086
|
18 |
59036 |
if ($get_opts->{'filename'}) |
|
1088
|
10 |
8 |
unless -f $v |
|
1089
|
0 |
18 |
if $get_opts->{'filename'} & 2 and not -r _ |
|
1090
|
0 |
18 |
if $get_opts->{'filename'} & 4 and not -w _ |
|
1091
|
0 |
18 |
if $get_opts->{'filename'} & 8 and not -x _ |
|
1092
|
10 |
8 |
unless ($valid) |
|
1101
|
19 |
59025 |
if ($get_opts->{'directory'}) |
|
1103
|
10 |
9 |
unless -d $v |
|
1104
|
0 |
19 |
if $get_opts->{'directory'} & 2 and not -r _ |
|
1105
|
0 |
19 |
if $get_opts->{'directory'} & 4 and not -w _ |
|
1106
|
0 |
19 |
if $get_opts->{'directory'} & 8 and not -x _ |
|
1107
|
10 |
9 |
unless ($valid) |
|
1116
|
2609 |
56425 |
if (not $get_opts->{'split'} and $old ne $v) |
|
1123
|
125 |
137 |
if ($get_opts->{'split'} and $get_opts->{'sort'}) |
|
1124
|
93 |
32 |
if ($is_all_numbers) { } |
|
1129
|
60 |
65 |
if $get_opts->{'sort'} < 0 |
|
1168
|
75336 |
0 |
unless ($ropts->{'disable_quotes'}) |
|
1169
|
75035 |
301 |
if ($ropts->{'quote_left'} eq $ropts->{'quote_right'}) |
|
1170
|
67694 |
7341 |
if ($ropts->{'quote_left'} eq "['\"]" or $ropts->{'quote_left'} eq "[\"']") |
|
1198
|
52183 |
401352 |
unless $no_fish |
|
1208
|
52183 |
401352 |
unless $no_fish |
|
1266
|
253 |
165261 |
if ($tag =~ /$hide/i) |
|
1271
|
653 |
53737 |
unless ($skip_fish) |
|
1301
|
8 |
0 |
if ($tag) |
|
1304
|
8 |
0 |
if ($tag) |
|
1359
|
5 |
9079 |
if (exists $opts->{'croak'}) { } |
|
|
9079 |
0 |
elsif (exists $opts->{'required'}) { } |
|
1365
|
2 |
9082 |
if ($croak > 0) { } |
|
|
8986 |
96 |
elsif ($croak == -9876) { } |
|
|
0 |
96 |
elsif ($croak < 0) { } |
|
1379
|
9080 |
2 |
wantarray ? : |
|
1430
|
136 |
0 |
if defined $dates |
|
1431
|
96 |
40 |
unless defined $prev |
|
1434
|
136 |
0 |
exists $opts->{$t1} ? : |
|
1435
|
136 |
0 |
exists $opts->{$t2} ? : |
|
1440
|
136 |
0 |
exists $opts->{$t1} ? : |
|
1441
|
136 |
0 |
exists $opts->{$t2} ? : |
|
1442
|
136 |
0 |
exists $opts->{$t3} ? : |
|
1450
|
1 |
135 |
if ($opts->{'timestamp'}) { } |
|
1463
|
0 |
136 |
$gmt ? : |
|
1472
|
0 |
136 |
$gmt ? : |
|
1480
|
0 |
136 |
$gmt ? : |
|
1489
|
0 |
136 |
if ($prev->{'today'} and $prev->{'today'} ne $dates->{'today'}) |
|
1496
|
0 |
136 |
$mon == 0 ? : |
|
1497
|
0 |
136 |
$mon == 11 ? : |
|
1504
|
0 |
136 |
$mon == 0 ? : |
|
1505
|
0 |
136 |
$mon == 11 ? : |
|
1515
|
0 |
136 |
if ($prev->{'this_month'} and $prev->{'this_month'} ne $dates->{'this_month'}) |
|
1528
|
0 |
136 |
if ($prev->{'this_year'} and $prev->{'this_year'} ne $dates->{'this_year'}) |
|
1581
|
12 |
396 |
if ($order == 1) { } |
|
|
12 |
384 |
elsif ($order == 2) { } |
|
1606
|
24 |
384 |
if ($order == 1 or $order == 2) { } |