Refactoring into cpan module

Changes

@@ -0,0 +1,12 @@
+Revision history for App-GCalToICal
+
+0.01    2014-11-??
+        [ NEAR RE-WRITE ]
+        - Turned old ical-to-gcal script into a CPAN distribution
+        - Switched from Parser::iCal to Data::ICal
+        - Added recurring events support
+        - Support multi-day events properly
+        - Refactored to provide testability
+        - Added tests
+
+

MANIFEST

@@ -0,0 +1,10 @@
+Changes
+lib/App/ICalToGCal.pm
+Makefile.PL
+MANIFEST
+README
+bin/ical-to-gcal
+t/00-mock.t
+t/ical-data/allday.ical
+t/ical-data/recurring2.ical
+t/ical-data/test1.ical

Makefile.PL

@@ -0,0 +1,35 @@
+use 5.006;
+use strict;
+use warnings FATAL => 'all';
+use ExtUtils::MakeMaker;
+
+WriteMakefile(
+    NAME             => 'App::ICalToGCal',
+    AUTHOR           => q{David Precious <davidp@preshweb.co.uk>},
+    VERSION_FROM     => 'lib/App/ICalToGCal.pm',
+    ABSTRACT_FROM    => 'lib/App/ICalToGCal.pm',
+    LICENSE          => 'Artistic_2_0',
+    PL_FILES         => {},
+    EXE_FILES        => [ 'bin/ical-to-gcal' ],
+    MIN_PERL_VERSION => 5.010,
+    CONFIGURE_REQUIRES => {
+        'ExtUtils::MakeMaker' => 0,
+    },
+    BUILD_REQUIRES => {
+        'Test::MockObject' => 0,
+        'Test::More' => 0,
+    },
+    PREREQ_PM => {
+        'Net::Google::Calendar' => 0,
+        'Net::Netrc' => 0,
+        'LWP::UserAgent' => 0,
+        'Data::ICal' => 0,
+        'Date::ICal::Duration' => 0,
+        'DateTime' => 0,
+        'DateTime::Format::DateParse' => 0,
+        'Digest::MD5' => 0,
+        'Scalar::Util' => 0,
+    },
+    dist  => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', },
+    clean => { FILES => 'App-ICalToGCal-*' },
+);

README.pod

@@ -1,5 +1,18 @@
 =head1 ical-to-google-calendar
 
+
+=head1 NOTICE
+
+At present, this script WILL NOT WORK, as it relies on the CPAN module
+L<Net::Google::Calendar|https://metacpan.org/pod/Net::Google::Calendar> which
+(at time of writing) uses an older API version which Google no longer support.
+
+To get this working, either Net::Google::Calendar needs updating to use their
+newer API, or this script needs to be switched to using
+L<Net::Google::CalendarV3|https://metacpan.org/pod/Net::Google::CalendarV3> but
+I don't think it's a straightforward drop-in replacement, and I haven't had time
+to do it (I no longer use this script myself.  However, pull requests welcome!)
+
 =head1 DESCRIPTION
 
 A simple Perl script to parse an iCal-format (.ics) file, and update a Google

bin/ical-to-gcal

@@ -0,0 +1,41 @@
+#!/usr/bin/env perl
+
+# ical-to-gcal
+# A quick script to fetch and parse an iCal/vcal feed, and update a named Google
+# Calendar.
+#
+# See the README in the repo for more details on why and how to use it:
+# https://github.com/bigpresh/ical-to-google-calendar
+#
+# David Precious <davidp@preshweb.co.uk>
+
+use strict;
+use App::ICalToGCal;
+use Getopt::Long;
+
+my ($calendar, $ical_url);
+Getopt::Long::GetOptions(
+    "calendar|c=s"      => \$calendar,
+    "ical_url|ical|i=s" => \$ical_url,
+) or die "Failed to parse options";
+
+
+if (!$ical_url) {
+    die "An iCal URL must be provided (--ical_url=....)";
+}
+if (!$calendar) {
+    die "You must specify the calendar name (--calendar=...)";
+}
+
+
+my $gcal = App::ICalToGCal->select_google_calendar($calendar);
+
+my $ical = App::ICalToGCal->fetch_ical($ical_url);
+
+App::ICalToGCal->update_google_calendar(
+    $gcal,
+    $ical,
+    App::ICalToGCal->hash_ical_url($ical_url),
+    );
+
+