| blib/lib/Geo/TigerLine/Record/Accessor.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 9 | 18 | 50.0 |
| line | true | false | branch |
|---|---|---|---|
| 51 | 0 | 44 | if ($field eq 'DESTROY') |
| 61 | 44 | 0 | unless defined &{$class . "::$field";} |
| 64 | 44 | 0 | unless defined &{$class . "::$alias";} |
| 78 | 1 | 0 | if ($self->input_check) |
| 79 | 0 | 0 | unless ($val =~ /\S/ or $$def{'bv'}) |
| 83 | 0 | 1 | if ($val =~ /[^\d+\-]/ and $$def{'type'} eq 'N') |
| 87 | 0 | 1 | if ($val =~ m([^A-Z'/()&\d+\-\]\[\# ])i) |
| 92 | 0 | 1 | if (length $val > $$def{'len'}) |
| 127 | 1 | 1 | if (@_) { } |