[Catalyst] Soundboard: Catalyst::Model::GoogleCalendar

[Steve Sabljak]

Using the existing Google Calendar perl api from CPAN
(http://search.cpan.org/~simonw/Net-Google-Calendar-0.8/), would this
do the trick?

package Catalyst::Model::GoogleCalendar;

use strict;
use base 'Catalyst::Model';

use Class::C3;
use Net::Google::Calendar;

our $VERSION = '0.1';

sub new {
    my ( $self, $c, $arguments ) = @_;
    $self = $self->next::method(@_);

    return Net::Google::Calendar->new( { %$self } );
}

1;
__END__

Kind Regards,
Steve Sabljak

On Dec 8, 2007 6:10 PM, Ashley Pond V <apv at sedition.com> wrote:
> Yep. You have it right. Now the tuits…
>
>
> On Dec 7, 2007, at 10:29 PM, Jonathan Rockway wrote:
> > On Fri, 2007-12-07 at 21:29 -0800, Ashley Pond V wrote:
> >> Catalyst::Model::GoogleCalendar
> >>
> >> Strikes me as good idea. Anyone already doing it? Also strikes me as
> >> a *lot* of code to write. It's a big API and date stuff is always
> >> "fun."
> >>
> >> http://code.google.com/apis/calendar/developers_guide_protocol.html
> >
> > Making this a Catalyst::Model is a terrible idea.  Just make it a
> > regular Perl module, and glue it to Catalyst with 3 lines of code or
> > Catalyst::Model::Adaptor.
> >
> > Regards,
> > Jonathan Rockway
>
> > _______________________________________________
> > List: Catalyst at lists.scsys.co.uk
> > Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst
> > Searchable archive: http://www.mail-archive.com/
> > catalyst at lists.rawmode.org/
> > Dev site: http://dev.catalyst.perl.org/
>
>
> _______________________________________________
> List: Catalyst at lists.scsys.co.uk
> Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst
> Searchable archive: http://www.mail-archive.com/catalyst@lists.rawmode.org/
> Dev site: http://dev.catalyst.perl.org/
>