Branch Coverage

blib/lib/Geo/Coordinates/OSGB.pm
Criterion Covered Total %
branch 41 48 85.4


line true false branch
39 0 2 unless exists {ETRS89 => [6378137, 6356752.31414, 298.257222101, 0.0066943800229007869], GRS80 => [6378137, 6356752.31414, 298.257222101, 0.0066943800229007869], OSGB36 => [6377563.396, 6356256.909, 299.3249612665, 0.0066705400741492319], WGS84 => [6378137, 6356752.31424518, 298.257223563, 0.0066943799901413165]}->{$s}
116 15 30 if abs $oldphi - $phi < 1e-12
162 1 0 if (ref $lat and defined $lat->{'lat'} and defined $lat->{'lon'})
169 1 162 if ($lat < $lon)
173 1 162 exists $options->{'shape'} ? :
174 0 163 unless exists {ETRS89 => [6378137, 6356752.31414, 298.257222101, 0.0066943800229007869], GRS80 => [6378137, 6356752.31414, 298.257222101, 0.0066943800229007869], OSGB36 => [6377563.396, 6356256.909, 299.3249612665, 0.0066705400741492319], WGS84 => [6378137, 6356752.31424518, 298.257223563, 0.0066943799901413165]}->{$shape}
180 12 151 if ($shape eq 'OSGB36')
182 7 5 wantarray ? :
187 144 7 if ($dx)
189 126 18 wantarray ? :
200 1 10 wantarray ? :
256 5 568 if $easting < 0
257 1 567 if $easting > 700000
258 1 566 if $northing < 0
259 1 565 if $northing > 1250000
287 1 0 if (ref $e and defined $e->{'e'} and defined $e->{'n'})
293 0 147 exists $options->{'shape'} ? :
295 0 147 unless exists {ETRS89 => [6378137, 6356752.31414, 298.257222101, 0.0066943800229007869], GRS80 => [6378137, 6356752.31414, 298.257222101, 0.0066943800229007869], OSGB36 => [6377563.396, 6356256.909, 299.3249612665, 0.0066705400741492319], WGS84 => [6378137, 6356752.31424518, 298.257223563, 0.0066943799901413165]}->{$shape}
300 6 141 if ($shape eq 'OSGB36')
306 141 0 if ($dx)
314 1 280 unless ($dx)
321 140 140 if abs $dx - $last_dx < 0.0001 and abs $dy - $last_dy < 0.0001
325 140 1 if ($in_ostn02_polygon)
365 290 740 if abs $dn - $M < 1e-05