Changeset 1843

Show
Ignore:
Timestamp:
11/24/06 09:41:11
Author:
miyagawa
Message:

add Namespace::GeoRSS via http://www.georss.org/

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • branches/feature-geo/plagger/lib/Plagger/Entry.pm

    r1841 r1843  
    33 
    44use base qw( Plagger::Thing ); 
    5 __PACKAGE__->mk_accessors(qw( tags link feed_link rate icon meta source language location )); 
     5__PACKAGE__->mk_accessors(qw( tags link feed_link rate icon meta source language )); 
    66__PACKAGE__->mk_text_accessors(qw( title author summary body )); 
    77__PACKAGE__->mk_date_accessors(qw( date )); 
    …… 
    106106} 
    107107 
     108sub location { 
     109    my $self = shift; 
     110 
     111    if (@_ == 2) { 
     112        my $location = Plagger::Location->new; 
     113        $location->latitude($_[0]); 
     114        $location->longitude($_[1]); 
     115        $self->{location} = $location; 
     116    } elsif (@_) { 
     117        $self->{location} = shift; 
     118    } 
     119 
     120    $self->{location}; 
     121} 
     122 
    1081231; 
    109124