Changeset 501

Show
Ignore:
Timestamp:
08/27/08 15:56:31 (3 months ago)
Author:
ogawa
Message:

Rewrite to use Class::Accessor::Fast.
Append 'url' field for each calendar event.

Location:
cybozu2ical/trunk
Files:
2 modified

Legend:

Unmodified
Added
Removed

  • cybozu2ical/trunk/cybozu2ical

    r451 r501  
    135135        created     => to_icaldate($item->created), 
    136136        dtstamp     => to_icaldate($item->modified), 
     137        url         => $cal->url . '?page=ScheduleView&EID=' . $item->id, 
    137138    ); 
    138139 

  • cybozu2ical/trunk/lib/WWW/CybozuOffice6/Calendar.pm

    r449 r501  
    55use warnings; 
    66 
     7use base qw( Class::Accessor::Fast ); 
     8 
    79use Carp; 
    8 use Encode qw/from_to/; 
     10use Encode qw( from_to ); 
    911use LWP::UserAgent; 
    1012use URI; 
    … …  
    2123} 
    2224 
    23 sub url                 { shift->_accessor('url',               @_) } 
    24 sub host                { shift->_accessor('host',              @_) } 
    25 sub username            { shift->_accessor('username',          @_) } 
    26 sub userid              { shift->_accessor('userid',            @_) } 
    27 sub password            { shift->_accessor('password',          @_) } 
    28 sub ua                  { shift->_accessor('ua',                @_) } 
    29 sub input_encoding      { shift->_accessor('input_encoding',    @_) } 
    30 sub _accessor { 
    31     my $this = shift; 
    32     my $key = shift; 
    33     $this->{$key} = shift if @_; 
    34     $this->{$key}; 
    35 } 
     25__PACKAGE__->mk_accessors(qw( url host username userid password ua input_encoding )); 
    3626 
    3727sub request { 
    … …  
    148138package WWW::CybozuOffice6::Calendar::Event; 
    149139 
     140use base qw( Class::Accessor::Fast ); 
     141 
    150142sub new { 
    151143    my $class = shift; 
    … …  
    159151} 
    160152 
    161 sub id          { shift->_accessor('id',                @_) } 
    162 sub start       { shift->_accessor('start',             @_) } 
    163 sub end         { shift->_accessor('end',               @_) } 
    164 sub summary     { shift->_accessor('summary',           @_) } 
    165 sub description { shift->_accessor('description',       @_) } 
    166 sub created     { shift->_accessor('created',           @_) } 
    167 sub modified    { shift->_accessor('modified',          @_) } 
    168 sub is_full_day { shift->_accessor('is_full_day',       @_) } 
    169 sub comment     { shift->_accessor('comment',           @_) } 
    170 sub _accessor { 
    171     my $this = shift; 
    172     my $key = shift; 
    173     $this->{$key} = shift if @_; 
    174     $this->{$key}; 
    175 } 
     153__PACKAGE__->mk_accessors(qw( id start end summary description created modified is_full_day comment )); 
    176154 
    177155sub parse { 
    … …  
    229207package WWW::CybozuOffice6::Calendar::RecurrentEvent; 
    230208 
    231 @WWW::CybozuOffice6::Calendar::RecurrentEvent::ISA = qw( WWW::CybozuOffice6::Calendar::Event ); 
    232  
    233 sub rrule               { shift->_accessor('rrule',             @_) } 
    234 # for compatibility 
    235 sub frequency           { shift->_accessor('frequency',         @_) } 
    236 sub frequency_value     { shift->_accessor('frequency_value',   @_) } 
    237 sub until               { shift->_accessor('until',             @_) } 
     209use base qw( Class::Accessor::Fast WWW::CybozuOffice6::Calendar::Event ); 
     210 
     211__PACKAGE__->mk_accessors(qw( rrule frequency frequency_value until )); 
    238212 
    239213sub exdates {