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


line stmt bran cond sub pod time code
1             package Acme::PM::Barcelona::Meeting;
2              
3 1     1   379482 use warnings;
  1         3  
  1         43  
4 1     1   6 use strict;
  1         2  
  1         66  
5              
6             =head1 NAME
7              
8             Acme::PM::Barcelona::Meeting - When is the next meeting?
9              
10             =head1 VERSION
11              
12             Version 0.01
13              
14             =cut
15              
16             our $VERSION = '0.01';
17              
18 1     1   6 use base 'DateTime::Set';
  1         3  
  1         109  
19 1     1   6 use DateTime;
  1         3  
  1         23  
20 1     1   6 use DateTime::Event::ICal;
  1         2  
  1         149  
21              
22             =head1 SYNOPSIS
23              
24             use Acme::PM::Barcelona::Meeting;
25              
26             my $barcelona_pm = Acme::PM::Barcelona::Meeting->new();
27             print $barcelona_pm->next->datetime(), "\n";
28              
29             =head1 DESCRIPTION
30              
31             This module helps finding when the next Barcelona Perl Mongers meeting
32             will take place.
33              
34             =head1 USAGE
35              
36             =over 4
37              
38             =item new
39              
40             Creates a parent DateTime::Set object. All other methods are inherited.
41              
42             =cut
43              
44             sub new {
45 1     1 1 15 my $class = shift;
46              
47             # every last Thu of the month at 20:00
48 1         12 my $self = DateTime::Event::ICal->recur(
49             dtstart => DateTime->now,
50             freq => 'monthly',
51             byday => [ "-1th" ],
52             byhour => [ 20 ],
53             byminute => [ 0 ],
54             bysecond => [ 0 ],
55             );
56              
57 1         5771 bless $self, $class;
58             }
59              
60             =back
61              
62             =head1 AUTHOR
63              
64             Alex Muntada, C<< >>
65              
66             =head1 BUGS
67              
68             Please report any bugs or feature requests to C, or through
69             the web interface at L. I will be notified, and then you'll
70             automatically be notified of progress on your bug as I make changes.
71              
72              
73              
74              
75             =head1 SUPPORT
76              
77             You can find documentation for this module with the perldoc command.
78              
79             perldoc Acme::PM::Barcelona::Meeting
80              
81              
82             You can also look for information at:
83              
84             =over 4
85              
86             =item * RT: CPAN's request tracker
87              
88             L
89              
90             =item * AnnoCPAN: Annotated CPAN documentation
91              
92             L
93              
94             =item * CPAN Ratings
95              
96             L
97              
98             =item * Search CPAN
99              
100             L
101              
102             =back
103              
104              
105             =head1 ACKNOWLEDGEMENTS
106              
107             Barcelona Perl Mongers
108              
109             =head1 COPYRIGHT & LICENSE
110              
111             Copyright 2009 Alex Muntada, all rights reserved.
112              
113             This program is free software; you can redistribute it and/or modify it
114             under the same terms as Perl itself.
115              
116              
117             =cut
118              
119             1; # End of Acme::PM::Barcelona::Meeting