Changeset 512 for cybozu2ical/trunk/lib/WWW/CybozuOffice6/Calendar.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/Calendar.pm (modified) (2 diffs)

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

@@ -19 +19 @@
     my $cal     = bless \%param, $class;
     $cal->{url} ||= delete $cal->{cybozu_url};
-    $cal->driver_init;
-    $cal;
-}
-
-sub driver_init {
-    my $cal = shift;
-    my $driver = $cal->{calendar_driver} || 'ApiCalendar';
-    $driver = 'WWW::CybozuOffice6::CalendarDriver::' . $driver
-      if $driver !~ m/^WWW::CybozuOffice6::CalendarDriver::/;
-    eval "use $driver;";
-    $cal->{calendar_driver} = $driver;
+    $cal->{calendar_driver} =
+      WWW::CybozuOffice6::CalendarDriverFactory->get_driver(
+        $cal->{calendar_driver} )
+      unless ref $cal->{calendar_driver};
     $cal;
 }
@@ -66 +59 @@
 }
 
+package WWW::CybozuOffice6::CalendarDriverFactory;
+
+sub get_driver {
+    my $class = shift;
+    my ($driver_name) = @_;
+    $driver_name ||= 'ApiCalendar';
+    $driver_name = 'WWW::CybozuOffice6::CalendarDriver::' . $driver_name
+      if $driver_name !~ m/^WWW::CybozuOffice6::CalendarDriver::/;
+    eval "use $driver_name;";
+    $driver_name->new;
+}
+
 1;
 __END__