Revision history for HTML-CalendarMonth
+1.26 Fri Aug 26 15:08:49 EDT 2011
+ - fixed css/header interactions
+ - updated tests
+
1.25 Fri Sep 24 03:09:38 EDT 2010
- Switched to File::Which for finding cal/ncal
- Added some sanity checks for the cal/ncal output
-This software is copyright (c) 2010 by Matthew Sisk.
+This software is copyright (c) 2011 by Matthew Sisk.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
--- The GNU General Public License, Version 1, February 1989 ---
-This software is Copyright (c) 2010 by Matthew Sisk.
+This software is Copyright (c) 2011 by Matthew Sisk.
This is free software, licensed under:
The GNU General Public License, Version 1, February 1989
- GNU GENERAL PUBLIC LICENSE
- Version 1, February 1989
+ GNU GENERAL PUBLIC LICENSE
+ Version 1, February 1989
Copyright (C) 1989 Free Software Foundation, Inc.
- 59 Temple Place, Suite 330, Boston, MA 02111-1307, USA
+ 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
+
Everyone is permitted to copy and distribute verbatim copies
of this license document, but changing it is not allowed.
- Preamble
+ Preamble
The license agreements of most software companies try to keep users
at the mercy of those companies. By contrast, our General Public
The precise terms and conditions for copying, distribution and
modification follow.
- GNU GENERAL PUBLIC LICENSE
+ GNU GENERAL PUBLIC LICENSE
TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
0. This License Agreement applies to any program or other work which
of preserving the free status of all derivatives of our free software and
of promoting the sharing and reuse of software generally.
- NO WARRANTY
+ NO WARRANTY
9. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY
FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN
PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE
POSSIBILITY OF SUCH DAMAGES.
- END OF TERMS AND CONDITIONS
+ END OF TERMS AND CONDITIONS
- Appendix: How to Apply These Terms to Your New Programs
+ Appendix: How to Apply These Terms to Your New Programs
If you develop a new program, and you want it to be of the greatest
possible use to humanity, the best way to achieve this is to make it
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
- along with this program; if not, write to the Free Software Foundation,
- Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307, USA.
+ along with this program; if not, write to the Free Software
+ Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston MA 02110-1301 USA
+
Also add information on how to contact you by electronic and paper mail.
--- The Artistic License 1.0 ---
-This software is Copyright (c) 2010 by Matthew Sisk.
+This software is Copyright (c) 2011 by Matthew Sisk.
This is free software, licensed under:
META.json
Makefile.PL
README
+bs.pm
dist.ini
lib/HTML/CalendarMonth.pm
lib/HTML/CalendarMonth/DateTool.pm
t/21_narrow.t
t/author-critic.t
t/dat/bulk.dat
+t/dat/head.dat
t/dat/i8n.dat
t/dat/narrow.dat
t/dat/odd.dat
"Matthew P. Sisk <msisk@cpan.org>"
],
"dynamic_config" : 0,
- "generated_by" : "Dist::Zilla version 4.101612, CPAN::Meta::Converter version 2.101610",
+ "generated_by" : "Dist::Zilla version 4.300000, CPAN::Meta::Converter version 2.112150",
"license" : [
"perl_5"
],
"prereqs" : {
"configure" : {
"requires" : {
- "ExtUtils::MakeMaker" : "6.31"
+ "ExtUtils::MakeMaker" : "6.30"
}
},
"runtime" : {
"File::Which" : 0,
"HTML::ElementTable" : "1.18",
"Time::Local" : 0,
- "constant" : 0
+ "base" : 0,
+ "constant" : 0,
+ "strict" : 0,
+ "warnings" : 0
}
},
"test" : {
}
},
"release_status" : "stable",
- "version" : "1.25"
+ "version" : "1.26"
}
-use ExtUtils::MakeMaker 6.31;
+use ExtUtils::MakeMaker 6.30;
my %WriteMakefileArgs = (
- 'ABSTRACT' => 'Generate and manipulate HTML calendar months',
- 'AUTHOR' => 'Matthew P. Sisk <msisk@cpan.org>',
- 'BUILD_REQUIRES' => {
- 'Cwd' => '0',
- 'English' => '0',
- 'Exporter' => '0',
- 'File::Spec' => '0',
- 'FindBin' => '0',
- 'Test::More' => '0',
- 'vars' => '0'
+ "ABSTRACT" => "Generate and manipulate HTML calendar months",
+ "AUTHOR" => "Matthew P. Sisk <msisk\@cpan.org>",
+ "BUILD_REQUIRES" => {
+ "Cwd" => 0,
+ "English" => 0,
+ "Exporter" => 0,
+ "File::Spec" => 0,
+ "FindBin" => 0,
+ "Test::More" => 0,
+ "vars" => 0
},
- 'CONFIGURE_REQUIRES' => {
- 'ExtUtils::MakeMaker' => '6.31'
+ "CONFIGURE_REQUIRES" => {
+ "ExtUtils::MakeMaker" => "6.30"
},
- 'DISTNAME' => 'HTML-CalendarMonth',
- 'EXE_FILES' => [],
- 'LICENSE' => 'perl',
- 'NAME' => 'HTML::CalendarMonth',
- 'PREREQ_PM' => {
- 'Carp' => '0',
- 'Class::Accessor' => '0',
- 'DateTime::Locale' => '0.45',
- 'File::Which' => '0',
- 'HTML::ElementTable' => '1.18',
- 'Time::Local' => '0',
- 'constant' => '0'
+ "DISTNAME" => "HTML-CalendarMonth",
+ "EXE_FILES" => [],
+ "LICENSE" => "perl",
+ "NAME" => "HTML::CalendarMonth",
+ "PREREQ_PM" => {
+ "Carp" => 0,
+ "Class::Accessor" => 0,
+ "DateTime::Locale" => "0.45",
+ "File::Which" => 0,
+ "HTML::ElementTable" => "1.18",
+ "Time::Local" => 0,
+ "base" => 0,
+ "constant" => 0,
+ "strict" => 0,
+ "warnings" => 0
},
- 'VERSION' => '1.25',
- 'test' => {
- 'TESTS' => 't/*.t'
+ "VERSION" => "1.26",
+ "test" => {
+ "TESTS" => "t/*.t"
}
);
--- /dev/null
+package bs;
+
+use Moose;
+with 'Dist::Zilla::Role::VersionProvider';
+with 'Dist::Zilla::Role::ModuleInfo';
+
+sub provide_version {
+ my ($self) = @_;
+
+ my $main_module = $self->zilla->main_module;
+ my $module = $main_module->name;
+
+ my $pm_info = $self->get_module_info($main_module);
+ my $ver = $pm_info->version;
+
+ die "Unable to get version from $module" unless defined $ver;
+
+ $self->log("dist version $ver (from $module)");
+
+ "$ver";
+}
+
+1;
name = HTML-CalendarMonth
+version = 1.26
author = Matthew P. Sisk <msisk@cpan.org>
license = Perl_5
copyright_holder = Matthew Sisk
-[VersionFromModule]
-
[NextRelease]
format = %-5v %{eee LLL dd HH:MM:ss zzz yyyy}d
[PkgVersion]
-[AutoPrereq]
+[AutoPrereqs]
skip = ^testload|Date::Calc|Date::Manip|DateTime$
[Manifest]
package HTML::CalendarMonth;
-BEGIN {
- $HTML::CalendarMonth::VERSION = '1.25';
+{
+ $HTML::CalendarMonth::VERSION = '1.26';
}
use strict;
use warnings;
use Carp;
-BEGIN { $HTML::CalendarMonth::VERSION = 1.25 }
-
use HTML::ElementTable 1.18;
use HTML::CalendarMonth::Locale;
use HTML::CalendarMonth::DateTool;
$self->item($self->year)->replace_content($self->item_alias($self->year));
if ($self->_head_my) {
- if ($self->head_m) {
- $self->item($self->month)->attr('colspan',$width - $self->year_span);
+ if ($self->head_m && $self->head_y) {
+ $self->item($self->year) ->attr('colspan', $self->year_span);
+ $self->item($self->month)->attr('colspan', $width - $self->year_span);
}
- else {
+ elsif ($self->head_y) {
$self->item($self->month)->mask(1);
$self->item($self->year)->attr('colspan', $width);
}
- if ($self->head_y) {
- $self->item($self->year)->attr('colspan',$self->year_span);
- }
- else {
+ elsif ($self->head_m) {
$self->item($self->year)->mask(1);
$self->item($self->month)->attr('colspan', $width);
}
# css classes
if ($self->enable_css) {
- $self ->push_attr(class => 'hcm-table' );
- $self->item_row($self->dayheaders)->push_attr(class => 'hcm-day-head' );
- $self->item ($self->year) ->push_attr(class => 'hcm-year-head' );
- $self->item ($self->month) ->push_attr(class => 'hcm-month-head');
- $self->item ($self->week_nums) ->push_attr(class => 'hcm-week-head' )
+ $self->push_attr(class => 'hcm-table');
+ $self->item_row($self->dayheaders)->push_attr(class => 'hcm-day-head')
+ if $self->head_dow;
+ $self->item($self->year)->push_attr(class => 'hcm-year-head')
+ if $self->head_y;
+ $self->item($self->month)->push_attr(class => 'hcm-month-head')
+ if $self->head_m;
+ $self->item($self->week_nums) ->push_attr(class => 'hcm-week-head')
if $self->head_week;
}
Specifies whether to display days of the week header. Default 1.
+=item head_week
+
+Specifies whether to display the week-of-year numbering. Default 0.
+
=item locale
Specifies the id of the locale in which to render the calendar. Default
the locale string, but when the calendar is rendered the aliased value
will appear.
-=item head_week
-
-Specifies whether to display the week-of-year numbering. Default 0.
-
=item week_begin
Specify first day of the week, which can be 1..7, starting with Sunday.
package HTML::CalendarMonth::DateTool;
-BEGIN {
- $HTML::CalendarMonth::DateTool::VERSION = '1.25';
+{
+ $HTML::CalendarMonth::DateTool::VERSION = '1.26';
}
# Base class for determining what date calculation package to use.
my $self = shift;
my @tools;
if (my $c = $self->datetool) {
+ eval "use $c";
+ die "invalid date tool $c : $@" if $@;
@tools = $c->_name;
}
else {
}
return $dc if $dc;
if (@tools == 1) {
- croak "invalid date tool " . join(': ', @{$fails[0]}) if @tools == 1;
+ croak "invalid date tool " . join(': ', @{$fails[0]});
}
else {
croak join("\n",
return "not installed" unless $self->_datemanip_present;
return "historic mode prior to 1752/09 not supported"
if $self->historic && $self->_is_julian;
+ eval { require Date::Manip && Date::Manip::Date_Init() };
+ return "init failure: $@" if $@;
return;
}
sub _ncal_present { shift->_ncal_cmd }
sub _cal_present { shift->_cal_cmd };
+
1;
__END__
package HTML::CalendarMonth::DateTool::Cal;
-BEGIN {
- $HTML::CalendarMonth::DateTool::Cal::VERSION = '1.25';
+{
+ $HTML::CalendarMonth::DateTool::Cal::VERSION = '1.26';
}
# Interface to unix 'cal' command
package HTML::CalendarMonth::DateTool::DateCalc;
-BEGIN {
- $HTML::CalendarMonth::DateTool::DateCalc::VERSION = '1.25';
+{
+ $HTML::CalendarMonth::DateTool::DateCalc::VERSION = '1.26';
}
# Interface to Date::Calc
package HTML::CalendarMonth::DateTool::DateManip;
-BEGIN {
- $HTML::CalendarMonth::DateTool::DateManip::VERSION = '1.25';
+{
+ $HTML::CalendarMonth::DateTool::DateManip::VERSION = '1.26';
}
# Interface to Date::Manip
package HTML::CalendarMonth::DateTool::DateTime;
-BEGIN {
- $HTML::CalendarMonth::DateTool::DateTime::VERSION = '1.25';
+{
+ $HTML::CalendarMonth::DateTool::DateTime::VERSION = '1.26';
}
# Interface to DateTime
package HTML::CalendarMonth::DateTool::Ncal;
-BEGIN {
- $HTML::CalendarMonth::DateTool::Ncal::VERSION = '1.25';
+{
+ $HTML::CalendarMonth::DateTool::Ncal::VERSION = '1.26';
}
# Interface to linux 'ncal' command
package HTML::CalendarMonth::DateTool::TimeLocal;
-BEGIN {
- $HTML::CalendarMonth::DateTool::TimeLocal::VERSION = '1.25';
+{
+ $HTML::CalendarMonth::DateTool::TimeLocal::VERSION = '1.26';
}
# Interface to Time::Local
package HTML::CalendarMonth::Locale;
-BEGIN {
- $HTML::CalendarMonth::Locale::VERSION = '1.25';
+{
+ $HTML::CalendarMonth::Locale::VERSION = '1.26';
}
# Front end class around DateTime::Locale. In addition to providing
eval "use Test::Perl::Critic";
plan skip_all => 'Test::Perl::Critic required to criticise code' if $@;
+Test::Perl::Critic->import( -profile => "perlcritic.rc" ) if -e "perlcritic.rc";
all_critic_ok();
--- /dev/null
+2010/01 0 0 0 0 1
+<table class="hcm-table"><tr><td></td><td></td><td></td><td></td><td></td><td>1</td><td>2</td></tr><tr><td>3</td><td>4</td><td>5</td><td>6</td><td>7</td><td>8</td><td>9</td></tr><tr><td>10</td><td>11</td><td>12</td><td>13</td><td>14</td><td>15</td><td>16</td></tr><tr><td>17</td><td>18</td><td>19</td><td>20</td><td>21</td><td>22</td><td>23</td></tr><tr><td>24</td><td>25</td><td>26</td><td>27</td><td>28</td><td>29</td><td>30</td></tr><tr><td>31</td><td></td><td></td><td></td><td></td><td></td><td></td></tr></table>
+2010/01 0 0 0 0 2
+<table class="hcm-table"><tr><td></td><td></td><td></td><td></td><td>1</td><td>2</td><td>3</td></tr><tr><td>4</td><td>5</td><td>6</td><td>7</td><td>8</td><td>9</td><td>10</td></tr><tr><td>11</td><td>12</td><td>13</td><td>14</td><td>15</td><td>16</td><td>17</td></tr><tr><td>18</td><td>19</td><td>20</td><td>21</td><td>22</td><td>23</td><td>24</td></tr><tr><td>25</td><td>26</td><td>27</td><td>28</td><td>29</td><td>30</td><td>31</td></tr></table>
+2010/01 0 0 0 1 1
+<table class="hcm-table"><tr><td></td><td></td><td></td><td></td><td></td><td>1</td><td>2</td><td class="hcm-week-head">53</td></tr><tr><td>3</td><td>4</td><td>5</td><td>6</td><td>7</td><td>8</td><td>9</td><td class="hcm-week-head">1</td></tr><tr><td>10</td><td>11</td><td>12</td><td>13</td><td>14</td><td>15</td><td>16</td><td class="hcm-week-head">2</td></tr><tr><td>17</td><td>18</td><td>19</td><td>20</td><td>21</td><td>22</td><td>23</td><td class="hcm-week-head">3</td></tr><tr><td>24</td><td>25</td><td>26</td><td>27</td><td>28</td><td>29</td><td>30</td><td class="hcm-week-head">4</td></tr><tr><td>31</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="hcm-week-head">5</td></tr></table>
+2010/01 0 0 0 1 2
+<table class="hcm-table"><tr><td></td><td></td><td></td><td></td><td>1</td><td>2</td><td>3</td><td class="hcm-week-head">53</td></tr><tr><td>4</td><td>5</td><td>6</td><td>7</td><td>8</td><td>9</td><td>10</td><td class="hcm-week-head">1</td></tr><tr><td>11</td><td>12</td><td>13</td><td>14</td><td>15</td><td>16</td><td>17</td><td class="hcm-week-head">2</td></tr><tr><td>18</td><td>19</td><td>20</td><td>21</td><td>22</td><td>23</td><td>24</td><td class="hcm-week-head">3</td></tr><tr><td>25</td><td>26</td><td>27</td><td>28</td><td>29</td><td>30</td><td>31</td><td class="hcm-week-head">4</td></tr></table>
+2010/01 0 0 1 0 1
+<table class="hcm-table"><tr><td class="hcm-day-head">Sun</td><td class="hcm-day-head">Mon</td><td class="hcm-day-head">Tue</td><td class="hcm-day-head">Wed</td><td class="hcm-day-head">Thu</td><td class="hcm-day-head">Fri</td><td class="hcm-day-head">Sat</td></tr><tr><td></td><td></td><td></td><td></td><td></td><td>1</td><td>2</td></tr><tr><td>3</td><td>4</td><td>5</td><td>6</td><td>7</td><td>8</td><td>9</td></tr><tr><td>10</td><td>11</td><td>12</td><td>13</td><td>14</td><td>15</td><td>16</td></tr><tr><td>17</td><td>18</td><td>19</td><td>20</td><td>21</td><td>22</td><td>23</td></tr><tr><td>24</td><td>25</td><td>26</td><td>27</td><td>28</td><td>29</td><td>30</td></tr><tr><td>31</td><td></td><td></td><td></td><td></td><td></td><td></td></tr></table>
+2010/01 0 0 1 0 2
+<table class="hcm-table"><tr><td class="hcm-day-head">Mon</td><td class="hcm-day-head">Tue</td><td class="hcm-day-head">Wed</td><td class="hcm-day-head">Thu</td><td class="hcm-day-head">Fri</td><td class="hcm-day-head">Sat</td><td class="hcm-day-head">Sun</td></tr><tr><td></td><td></td><td></td><td></td><td>1</td><td>2</td><td>3</td></tr><tr><td>4</td><td>5</td><td>6</td><td>7</td><td>8</td><td>9</td><td>10</td></tr><tr><td>11</td><td>12</td><td>13</td><td>14</td><td>15</td><td>16</td><td>17</td></tr><tr><td>18</td><td>19</td><td>20</td><td>21</td><td>22</td><td>23</td><td>24</td></tr><tr><td>25</td><td>26</td><td>27</td><td>28</td><td>29</td><td>30</td><td>31</td></tr></table>
+2010/01 0 0 1 1 1
+<table class="hcm-table"><tr><td class="hcm-day-head">Sun</td><td class="hcm-day-head">Mon</td><td class="hcm-day-head">Tue</td><td class="hcm-day-head">Wed</td><td class="hcm-day-head">Thu</td><td class="hcm-day-head">Fri</td><td class="hcm-day-head">Sat</td><td class="hcm-day-head"></td></tr><tr><td></td><td></td><td></td><td></td><td></td><td>1</td><td>2</td><td class="hcm-week-head">53</td></tr><tr><td>3</td><td>4</td><td>5</td><td>6</td><td>7</td><td>8</td><td>9</td><td class="hcm-week-head">1</td></tr><tr><td>10</td><td>11</td><td>12</td><td>13</td><td>14</td><td>15</td><td>16</td><td class="hcm-week-head">2</td></tr><tr><td>17</td><td>18</td><td>19</td><td>20</td><td>21</td><td>22</td><td>23</td><td class="hcm-week-head">3</td></tr><tr><td>24</td><td>25</td><td>26</td><td>27</td><td>28</td><td>29</td><td>30</td><td class="hcm-week-head">4</td></tr><tr><td>31</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="hcm-week-head">5</td></tr></table>
+2010/01 0 0 1 1 2
+<table class="hcm-table"><tr><td class="hcm-day-head">Mon</td><td class="hcm-day-head">Tue</td><td class="hcm-day-head">Wed</td><td class="hcm-day-head">Thu</td><td class="hcm-day-head">Fri</td><td class="hcm-day-head">Sat</td><td class="hcm-day-head">Sun</td><td class="hcm-day-head"></td></tr><tr><td></td><td></td><td></td><td></td><td>1</td><td>2</td><td>3</td><td class="hcm-week-head">53</td></tr><tr><td>4</td><td>5</td><td>6</td><td>7</td><td>8</td><td>9</td><td>10</td><td class="hcm-week-head">1</td></tr><tr><td>11</td><td>12</td><td>13</td><td>14</td><td>15</td><td>16</td><td>17</td><td class="hcm-week-head">2</td></tr><tr><td>18</td><td>19</td><td>20</td><td>21</td><td>22</td><td>23</td><td>24</td><td class="hcm-week-head">3</td></tr><tr><td>25</td><td>26</td><td>27</td><td>28</td><td>29</td><td>30</td><td>31</td><td class="hcm-week-head">4</td></tr></table>
use vars qw(
$Dat_Dir
$Bulk_File
+ $Head_File
$Odd_File
$Woy_File
$I8N_File
@EXPORT = qw(
$Dat_Dir
- $Bulk_File $Odd_File $Woy_File $I8N_File $Narrow_File
+ $Bulk_File $Head_File $Odd_File $Woy_File $I8N_File $Narrow_File
check_datetool
check_bulk_with_datetool
check_odd_with_datetool
}
$Bulk_File = File::Spec->catdir($Dat_Dir, 'bulk.dat');
+$Head_File = File::Spec->catdir($Dat_Dir, 'head.dat');
$Odd_File = File::Spec->catdir($Dat_Dir, 'odd.dat');
$Woy_File = File::Spec->catdir($Dat_Dir, 'woy.dat');
$I8N_File = File::Spec->catdir($Dat_Dir, 'i8n.dat');
$Narrow_File = File::Spec->catdir($Dat_Dir, 'narrow.dat');
-my(@Bulk, @Odd, @Woy, @I8N, @Nar);
+my(@Bulk, @Head, @Odd, @Woy, @I8N, @Nar);
sub _load_file {
my $f = shift;
return unless open(F, '<', $f);
while (my $h = <F>) {
chomp $h;
- my($d, $wb) = split(/\s+/, $h);
+ my($d, $wb, @other) = split(/\s+/, $h);
my($y, $m) = split(/\//, $d);
my $c = <F>;
chomp $c;
- push(@$cal, [$d, $y, $m, $wb, clean($c)]);
+ push(@$cal, [$d, $y, $m, $wb, \@other, clean($c)]);
}
$cal;
}
-_load_file($Bulk_File, \@Bulk );
-_load_file($Odd_File, \@Odd );
-_load_file($Woy_File, \@Woy );
-_load_file($I8N_File, \@I8N );
-_load_file($Narrow_File, \@Nar);
+_load_file($Bulk_File, \@Bulk );
+_load_file($Head_File, \@Head );
+_load_file($Odd_File, \@Odd );
+_load_file($Woy_File, \@Woy );
+_load_file($I8N_File, \@I8N );
+_load_file($Narrow_File, \@Nar);
sub bulk_count { scalar @Bulk }
+sub head_count { scalar @Head }
sub odd_count { scalar @Odd }
sub woy_count { scalar @Woy }
sub i8n_count { scalar @I8N }
my $datetool = shift;
my @days;
foreach (@Bulk) {
- my($d, $y, $m, $wb, $tc) = @$_;
+ my($d, $y, $m, $wb, $other, $tc) = @$_;
my $c = HTML::CalendarMonth->new(
year => $y,
month => $m,
}
}
+sub check_head_with_datetool {
+ my $datetool = shift;
+ my @days;
+ foreach (@Head) {
+ my($d, $y, $m, $wb, $other, $tc) = @$_;
+ my($hm, $hy, $hd, $hw) = @$other;
+ my $c = HTML::CalendarMonth->new(
+ year => $y,
+ month => $m,
+ week_begin => $wb,
+ head_m => $hm,
+ head_y => $hy,
+ head_dow => $hd,
+ head_week => $hw,
+ datetool => $datetool,
+ );
+ my $method = $c->_caltool->_name;
+ $method = "auto-select ($method)" unless $datetool;
+ my $msg = sprintf(
+ "(%d/%02d hm:%d hy:%d hd:%d hw:%d) using %s",
+ $y, $m, $hm, $hy, $hd, $hw, $method
+ );
+ cmp_ok(clean($c->as_HTML), 'eq', $tc, $msg);
+ }
+}
+
sub check_odd_with_datetool {
my $datetool = shift;
my @days;
foreach (@Odd) {
- my($d, $y, $m, $wb, $tc) = @$_;
+ my($d, $y, $m, $wb, $other, $tc) = @$_;
SKIP: {
my $c;
eval {
};
if ($@ || !$c) {
croak $@ unless $@ =~ /(no|in)\s*valid date tool/i;
- skip("$datetool skip odd $y/$m", 1);
+ skip("$datetool odd $y/$m", 1);
}
@days = $c->dayheaders unless @days;
my $day1 = $days[$wb - 1];
sub check_woy_with_datetool {
my $datetool = shift;
foreach (@Woy) {
- my($d, $y, $m, $wb, $tc) = @$_;
+ my($d, $y, $m, $wb, $other, $tc) = @$_;
my $c = HTML::CalendarMonth->new(
year => $y,
month => $m,
sub check_i8n {
foreach (@I8N) {
- my($d, $y, $m, $id, $tc) = @$_;
+ my($d, $y, $m, $id, $other, $tc) = @$_;
my $c = HTML::CalendarMonth->new(
year => $y,
month => $m,
sub check_narrow {
my @days;
foreach (@Nar) {
- my($d, $y, $m, $wb, $tc) = @$_;
+ my($d, $y, $m, $wb, $other, $tc) = @$_;
my $c = HTML::CalendarMonth->new(
year => $y,
month => $m,