| 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'} |
| 22 | 0 | 1 | unless @$tabledatalist |
| 24 | 0 | 1 | if keys %args |
| 41 | 2 | 33 | unless (ref $td) |
| 64 | 10 | 2 | if $td->has_next_item |
| 65 | 1 | 1 | if $self->{'td_pos'} >= $#{$$self{"tabledatalist"};} |
| 74 | 17 | 1 | if ($td->has_next_item) |
| 75 | 0 | 1 | if $self->{'td_pos'} >= $#{$$self{"tabledatalist"};} |
| 94 | 5 | 1 | if ref $_ |