| blib/lib/App/csvtool/Smudge.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 5 | 8 | 62.5 |
| line | true | false | branch |
|---|---|---|---|
| 142 | 6 | 6 | unless $name =~ qr/^$re$/u |
| 171 | 0 | 5 | unless my($fields, $filter) = $spec =~ /^(\d+(?:,\d+)*):(.*)$/u |
| 183 | 42 | 0 | unless (@data and $data[0] =~ /^#/u) |
| 185 | 44 | 0 | if length $data[$idx] and defined $filters[$idx] |