| blib/lib/App/count.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 27 | 32 | 84.3 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 42 | 0 | 0 | 59 | @_ and eval { do { $_[0]->isa('App::count') } } |
| 64 | 9 | 30 | 2 | not defined $map and grep {$$_[0] eq 'map';} @spec |
| 65 | 30 | 7 | 2 | defined $map and grep {not exists $$map{$_};} map({$$_[2];} grep({$$_[0] eq 'map';} @spec)) |
| 68 | 3 | 18 | 1 | @{$opts{'g'};} == 1 and $opts{'g'}[0] eq '*' |
| 74 | 15 | 18 | 4 | defined $group and grep {$_ < 0;} @$group |
| 82 | 23 | 6 | 4 | exists $opts{'r'} and grep {$_ == 0 if length $_ != 0;} @{$opts{'r'};} |
| line | l | !l | condition |
|---|---|---|---|
| 63 | 9 | 0 | $map = YAML::Any::LoadFile($opts{'M'}) or die q[Can't load map file] |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 106 | 7 | 0 | 1 | not defined $data{$key}[$idx] or $data{$key}[$idx] < $$F[$spec[$idx][1]] |
| 107 | 7 | 1 | 0 | not defined $data{$key}[$idx] or $data{$key}[$idx] > $$F[$spec[$idx][1]] |
| 111 | 24 | 46 | 8 | $data{$key}[$idx] ||= &$encoder($$map{$spec[$idx][2]}{$$F[$spec[$idx][1]]}) |
| 123 | 86 | 4 | 159 | $data{$key}[$idx] ||= $init{$spec[$idx][0]}() |