Changeset 4691 for lang/perl/Geo-Coordinates-Converter
- Timestamp:
- 01/16/08 15:46:48 (5 years ago)
- Location:
- lang/perl/Geo-Coordinates-Converter/trunk
- Files:
-
- 2 modified
-
lib/Geo/Coordinates/Converter/Format/Dms.pm (modified) (1 diff)
-
t/02_format.t (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
lang/perl/Geo-Coordinates-Converter/trunk/lib/Geo/Coordinates/Converter/Format/Dms.pm
r2440 r4691 14 14 my($self, $point) = @_; 15 15 16 return unless $point->lat =~ /^[\-\+NS]?\d{1,2}\.\d\d\.\d\d(?:\.\d+)$/i; 17 return unless $point->lng =~ /^[\-\+EW]?\d{1,3}\.\d\d\.\d\d(?:\.\d+)$/i; 16 return unless $point->lat =~ /^[\-\+NS]?\d{1,2}\.\d\d?\.\d\d?(?:\.\d+)$/i; 17 return unless $point->lng =~ /^[\-\+EW]?\d{1,3}\.\d\d?\.\d\d?(?:\.\d+)$/i; 18 18 19 return $self->name; 19 20 } -
lang/perl/Geo-Coordinates-Converter/trunk/t/02_format.t
r2440 r4691 137 137 --- lng: 139.619272 138 138 --- format: degree 139 140 === 141 --- point 142 lat: s35.4.4.218 143 lng: e139.7.9.379 144 --- lat: -35.04.04.218 145 --- lng: 139.07.09.379
![(please configure the [header_logo] section in trac.ini)](/share/chrome/site/your_project_logo.png)