| blib/lib/SQL/Translator/Filter/Names.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 7 | 12 | 58.3 |
| line | true | false | branch |
|---|---|---|---|
| 44 | 1 | 3 | if (my $func = $args{$type}) |
| 51 | 1 | 0 | if (my $func = $args{'fields'}) |
| 64 | 0 | 2 | unless my $name = $obj->name |
| 67 | 0 | 2 | if $@ |
| 68 | 0 | 2 | if $name eq $newname |
| 77 | 0 | 2 | unless exists &$func |