File Coverage

blib/lib/Acme/PM/Barcelona/Meeting.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod	1	1	100.0
total	25	25	100.0

use warnings;
use strict;

package Acme::PM::Barcelona::Meeting;
# ABSTRACT: When is the next meeting?
$Acme::PM::Barcelona::Meeting::VERSION = '0.05';
use base 'DateTime::Set';
use DateTime;
use DateTime::Event::ICal;


sub new {
    my $class = shift;

    # every last Thu of the month at 20:00
    my $self = DateTime::Event::ICal->recur(
        dtstart  => DateTime->now,
        freq     => 'monthly',
        byday    => [ "-1th" ],
        byhour   => [ 20 ],
        byminute => [ 0 ],
        bysecond => [ 0 ],
    );

    bless $self, $class;
}


1; # End of Acme::PM::Barcelona::Meeting

__END__