| blib/lib/TableDataRole/Munge/Concat.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 14 | 18 | 77.7 |
| line | true | false | branch |
|---|---|---|---|
| 20 | 0 | 1 | unless my $tabledatalist = delete $args{'tabledatalist'} |
| 21 | 0 | 1 | unless @$tabledatalist |
| 23 | 0 | 1 | if keys %args |
| 39 | 2 | 33 | unless (ref $td) |
| 62 | 10 | 2 | if $td->has_next_item |
| 63 | 1 | 1 | if $self->{'td_pos'} >= $#{$$self{"tabledatalist"};} |
| 72 | 17 | 1 | if ($td->has_next_item) |
| 73 | 0 | 1 | if $self->{'td_pos'} >= $#{$$self{"tabledatalist"};} |
| 92 | 5 | 1 | if ref $_ |