File Coverage

blib/lib/DateTime/Event/Jewish/Yomtov.pm
Criterion Covered Total %
statement 12 12 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 16 16 100.0


line stmt bran cond sub pod time code
1             package DateTime::Event::Jewish::Yomtov;
2 6     6   31 use strict;
  6         8  
  6         202  
3 6     6   23 use warnings;
  6         8  
  6         156  
4 6     6   24 use base qw(Exporter);
  6         6  
  6         512  
5 6     6   26 use vars qw(@EXPORT_OK @festival);
  6         8  
  6         965  
6             @EXPORT_OK = qw(@festival);
7             our $VERSION = '0.01';
8             # Yom Tov or Chol HaMoed
9             # Only dates that affect leyning are listed.
10             # Format is [Name, Day, Month, diasporaFlag]
11             our @festival = (
12             ["Rosh Hashanah 1", 1, 7],
13             ["Rosh Hashanah 2", 2, 7],
14             ["Yom Kippur", 10, 7],
15             ["Succot 1", 15, 7],
16             ["Succot 2", 16, 7 ],
17             ["Succot 3", 17, 7],
18             ["Succot 4", 18, 7],
19             ["Succot 5", 19, 7],
20             ["Succot 6", 20, 7],
21             ["Succot 7", 21, 7],
22             ["Shemini Atzeret", 22, 7],
23             ["Simchat Torah", 23, 7, 1],
24             # ["Chanukkah", 25, 9],
25             # ["10 Tevet", 10, 10],
26             # ["Tu Bishvat", 15, 11],
27             # ["Purim", 14, -1],
28             ["Pesach 1", 15, 1],
29             ["Pesach 2", 16, 1],
30             ["Pesach 3", 17, 1],
31             ["Pesach 4", 18, 1],
32             ["Pesach 5", 19, 1],
33             ["Pesach 6", 20, 1],
34             ["Pesach 7", 21, 1],
35             ["Pesach 8", 22, 1, 1],
36             ["Shavuot 1", 6, 3],
37             ["Shavuot 2", 7, 3, 1],
38             # ["17 Tammuz", 17,4],
39             # ["9 Av", 9, 5],
40             );
41              
42             1;
43              
44             =head1 NAME
45              
46             DateTime::Event::Jewish::Yomtov - list of festivals
47              
48             =head1 SYNOPSIS
49              
50             use DateTime::Event::Jewish::Yomtov qw(@festival);
51              
52             =head1 DESCRIPTION
53              
54             This module exports a list of festival dates as an array of
55             arrayrefs. Each array element is of the form
56             [ name, dayOfMonth, monthNumber, diasporaFlag ]
57             Bear in mind that Nissan is month 1 and Tishrei is month 7.
58              
59             Only festivals that affect Shabbat leyning are listed, so Purim,
60             Chanukkah, 10 Tevet etc. are not in the list.
61              
62             The diasporaFlag is non-zero for those festivals that apply
63             only outside Israel.
64              
65             =head1 AUTHOR
66              
67             Raphael Mankin, C<< >>
68              
69             =head1 BUGS
70              
71             Please report any bugs or feature requests to C, or through
72             the web interface at L. I will be notified, and then you'll
73             automatically be notified of progress on your bug as I make changes.
74              
75              
76              
77              
78             =head1 SUPPORT
79              
80             You can find documentation for this module with the perldoc command.
81              
82             perldoc DateTime::Event::Jewish
83              
84              
85             You can also look for information at:
86              
87             =over 4
88              
89             =item * RT: CPAN's request tracker
90              
91             L
92              
93             =item * AnnoCPAN: Annotated CPAN documentation
94              
95             L
96              
97             =item * CPAN Ratings
98              
99             L
100              
101             =item * Search CPAN
102              
103             L
104              
105             =back
106              
107              
108             =head1 ACKNOWLEDGEMENTS
109              
110              
111             =head1 LICENSE AND COPYRIGHT
112              
113             Copyright 2010 Raphael Mankin.
114              
115             This program is free software; you can redistribute it and/or modify it
116             under the terms of either: the GNU General Public License as published
117             by the Free Software Foundation; or the Artistic License.
118              
119             See http://dev.perl.org/licenses/ for more information.
120              
121              
122             =cut
123              
124             1; # End of DateTime::Event::YomTov