Changeset 1868
- Timestamp:
- 11/27/06 12:47:40
- Files:
-
- branches/feature-geo/plagger/assets/plugins/Filter-FindMapLinks (added)
- branches/feature-geo/plagger/assets/plugins/Filter-FindMapLinks/googlemaps.yaml (added)
- branches/feature-geo/plagger/deps/Filter-FindMapLinks.yaml (added)
- branches/feature-geo/plagger/lib/Plagger/Location.pm (modified) (1 diff)
- branches/feature-geo/plagger/lib/Plagger/Plugin/Filter/FindMapLinks.pm (added)
- branches/feature-geo/plagger/t/plugins/Filter-FindMapLinks (added)
- branches/feature-geo/plagger/t/plugins/Filter-FindMapLinks/base.t (added)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
branches/feature-geo/plagger/lib/Plagger/Location.pm
r1841 r1868 4 4 5 5 use base qw( Class::Accessor::Fast ); 6 __PACKAGE__->mk_accessors( qw( latitude longitudeaddress ));6 __PACKAGE__->mk_accessors( qw( address )); 7 7 8 8 # XXX add datum here? 9 9 # For now latitude/longitude should be in WGS84 10 10 11 sub latitude { 12 my $self = shift; 13 if (@_) { 14 $self->{latitude} = shift() + 0; # numify 15 } 16 $self->{latitude}; 17 } 18 19 sub longitude { 20 my $self = shift; 21 if (@_) { 22 $self->{longitude} = shift() + 0; # numify 23 } 24 $self->{longitude}; 25 } 26 11 27 1; 12 28
