| blib/lib/Geo/JSON.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 5 | 8 | 62.5 |
| line | true | false | branch |
|---|---|---|---|
| 30 | 0 | 32 | unless ref $data eq 'HASH' |
| 40 | 0 | 42 | unless my $type = delete $$data{'type'} |
| 46 | 1 | 41 | unless first sub { $type eq $_; } , @{['Point', 'MultiPoint', 'LineString', 'MultiLineString', 'Polygon', 'MultiPolygon', 'GeometryCollection', 'Feature', 'FeatureCollection'];} |
| 58 | 0 | 22 | if @_ |