| line |
true |
false |
branch |
|
42
|
59 |
0 |
if @_ and eval {
do {
$_[0]->isa('App::count')
}
} |
|
45
|
15 |
14 |
if $max_col < $_ |
|
52
|
16 |
4 |
if $max_col < $idx |
|
57
|
0 |
59 |
unless GetOptionsFromArray \@_, \%opts, 'Getopt::Config::FromPod'->array |
|
58
|
0 |
59 |
if exists $opts{'h'} |
|
59
|
0 |
59 |
if exists $opts{'help'} |
|
60
|
16 |
43 |
if grep {$$_[1] < 0;} @spec |
|
63
|
11 |
32 |
if exists $opts{'M'} |
|
64
|
2 |
39 |
if not defined $map and grep {$$_[0] eq 'map';} @spec |
|
65
|
2 |
37 |
if defined $map and grep {not exists $$map{$_};} map({$$_[2];} grep({$$_[0] eq 'map';} @spec)) |
|
67
|
22 |
15 |
if (exists $opts{'g'}) |
|
68
|
1 |
21 |
if (@{$opts{'g'};} == 1 and $opts{'g'}[0] eq '*') { } |
|
71
|
11 |
19 |
if $max_col < $_ |
|
74
|
4 |
33 |
if defined $group and grep {$_ < 0;} @$group |
|
75
|
16 |
17 |
unless @spec |
|
76
|
10 |
23 |
if (exists $opts{'r'}) |
|
79
|
2 |
16 |
if $max_col < $idx |
|
82
|
15 |
3 |
if length $_ != 0 |
|
|
4 |
29 |
if exists $opts{'r'} and grep {$_ == 0 if length $_ != 0;} @{$opts{'r'};} |
|
83
|
1 |
28 |
defined $opts{'t'} ? : |
|
84
|
1 |
28 |
defined $opts{'t'} ? : |
|
95
|
28 |
1 |
unless @_ |
|
98
|
1 |
28 |
if ($file ne '-') { } |
|
99
|
1 |
0 |
unless open $fh, '<', $file |
|
106
|
7 |
1 |
if not defined $data{$key}[$idx] or $data{$key}[$idx] < $$F[$spec[$idx][1]] |
|
107
|
8 |
0 |
if not defined $data{$key}[$idx] or $data{$key}[$idx] > $$F[$spec[$idx][1]] |
|
116
|
11 |
131 |
if (@F < $max_col) |
|
120
|
7 |
95 |
@$group == 0 ? : |
|
|
102 |
40 |
defined $group ? : |
|
128
|
0 |
28 |
if ($file ne '-') |
|
134
|
63 |
10 |
if exists $opts{'g'} |
|
135
|
4 |
141 |
ref $_ ? : |