Show
Ignore:
Timestamp:
08/29/08 18:53:48 (4 months ago)
Author:
ogawa
Message:

make use of Factory pattern for CalendarDriver?.

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • cybozu2ical/trunk/lib/WWW/CybozuOffice6/CalendarDriver/ApiCalendar.pm

    r507 r512  
    55use warnings; 
    66 
     7use base qw( WWW::CybozuOffice6::CalendarDriver ); 
    78use Carp; 
    89use Encode qw( from_to ); 
    … …  
    1314 
    1415sub request { 
    15     my $class      = shift; 
     16    my $driver     = shift; 
    1617    my ($cal)      = @_; 
    1718    my $date_range = $cal->{date_range} || 30; 
    … …  
    7677 
    7778sub get_items { 
    78     my $class = shift; 
     79    my $driver = shift; 
    7980    my ($cal) = @_; 
    8081 
    81     my $csv; 
    82     if ( eval('require Text::CSV_XS') ) { 
    83         $csv = Text::CSV_XS->new( { binary => 1 } ); 
    84     } 
    85     elsif ( eval('require Text::CSV') ) { 
    86         $csv = Text::CSV->new(); 
    87     } 
    88     confess 'Text::CSV_XS or Text::CSV package is required' unless $csv; 
    89  
    9082    my @items; 
     83    my $csv = $driver->{csv}; 
    9184    for my $line ( $cal->response ) { 
    9285        $csv->parse($line) 
    … …  
    10093        # [ 0] $Item.ID 
    10194        # [ 1] $TimeStamp 
    102         # [ 2] $s 
     95        # [ 2] $s (Shared) 
    10396        # [ 3] $Date 
    10497        # [ 4] $Item.TypeOmit