Changeset 512 for cybozu2ical/trunk/lib/WWW/CybozuOffice6/CalendarDriver/SyncCalendar.pm

Timestamp:

08/29/08 18:53:48 (4 months ago)

Author:

ogawa

Message:

make use of Factory pattern for CalendarDriver?.

Files:

• cybozu2ical/trunk/lib/WWW/CybozuOffice6/CalendarDriver/SyncCalendar.pm (modified) (2 diffs)

cybozu2ical/trunk/lib/WWW/CybozuOffice6/CalendarDriver/SyncCalendar.pm

@@ -5 +5 @@
 use warnings;
 
+use base qw( WWW::CybozuOffice6::CalendarDriver );
 use Carp;
 use Encode qw( from_to );
 use LWP::UserAgent;
-use DateTime;
 use WWW::CybozuOffice6::Calendar::Event;
 use WWW::CybozuOffice6::Calendar::RecurrentEvent;
 
 sub request {
-    my $class      = shift;
+    my $driver     = shift;
     my ($cal)      = @_;
     my $date_range = $cal->{date_range} || 30;
@@ -39 +39 @@
 
 sub get_items {
-    my $class = shift;
+    my $driver = shift;
     my ($cal) = @_;
 
-    my $csv;
-    if ( eval('require Text::CSV_XS') ) {
-        $csv = Text::CSV_XS->new( { binary => 1 } );
-    }
-    elsif ( eval('require Text::CSV') ) {
-        $csv = Text::CSV->new;
-    }
-    confess 'Text::CSV_XS or Text::CSV package is required' unless $csv;
-
     my @items;
+    my $csv = $driver->{csv};
     for my $line ( $cal->response ) {
         $csv->parse($line)