File Coverage

blib/lib/POE/Component/ICal.pm

Criterion	Covered	Total	%
statement	42	44	95.4
branch	5	10	50.0
condition			n/a
subroutine	13	13	100.0
pod	5	5	100.0
total	65	72	90.2

#
# This file is part of POE-Component-ICal
#
# This software is copyright (c) 2011 by Loïc TROCHET.
#
# This is free software; you can redistribute it and/or modify it under
# the same terms as the Perl 5 programming language system itself.
#
package POE::Component::ICal;
{
  $POE::Component::ICal::VERSION = '0.130020';
}
# ABSTRACT: Schedule POE events using rfc2445 recurrences

use strict;
use warnings;

use Carp qw(croak);
use DateTime;
use DateTime::Event::ICal;
use POE::Kernel;

use POE::Component::Schedule;
use base qw(POE::Component::Schedule);

my $_schedules = {};


sub verify
{
    my ($class, $ical) = @_;

    if (defined wantarray)
    {
        my $set;
        eval { $set = DateTime::Event::ICal->recur(%$ical); };
        my $is_valid = not $@;
        return wantarray ? ($is_valid, $is_valid ? $set : $@) : $is_valid;
    }

    DateTime::Event::ICal->recur(%$ical);
    return 1;
}


sub add_schedule
{
    my ($class, $shedule, $event, $ical, @args) = @_;

    $ical->{dtstart} = DateTime->now unless exists $ical->{dtstart};

    my ($is_valid, $value) = $class->verify($ical);
    croak $value unless $is_valid;

    my $session = POE::Kernel->get_active_session;
    return $_schedules->{$session->ID}->{$shedule} = $class->SUPER::add($session, $event => $value, @args);
}


sub add
{
    my ($class, $event, $ical, @args) = @_;
    return $class->add_schedule($event, $event, $ical, @args);
}


sub remove
{
    my ($class, $schedule) = @_;
    delete $_schedules->{POE::Kernel->get_active_session->ID}->{$schedule};
}


sub remove_all
{
    delete $_schedules->{POE::Kernel->get_active_session->ID};
}

1;

__END__