Fixed a bug in the mock introduced in release 1.27. Had added it to t…

…he cpanfile, but not the proper prerequisites and the mocking was not correct syntax Made adjustments to the tar-ball generation, way to much non-distribution related material included
jonasbn · Nov 9, 2020 · 93d6499 · 93d6499
1 parent db2b0b4
commit 93d6499
Show file tree

Hide file tree

Showing 34 changed files with 44 additions and 31 deletions.
diff --git a/Changes b/Changes
@@ -1,5 +1,11 @@
 Changes file for Date-Holidays
 
+1.27 2020-11-09 Bug fix release, update recommended
+
+- Fixed a bug in the mock introduced in release 1.27. Had added it to the cpanfile, but not the proper prerequisites and the mocking was not correct syntax
+
+- Made adjustments to the tar-ball generation, way to much non-distribution related material included
+
 1.26 2020-11-09 Bug fix release, update not required
 
 - I am implementing an example application and I came across a minor bug in the adapter for Date::Holidays::SK

diff --git a/MANIFEST.SKIP b/MANIFEST.SKIP
@@ -90,6 +90,9 @@
 # Perl::Tidy error files
 \bperltidy\.ERR
 
+# VSCode files
+perl-date-holidays.code-workspace
+
 # Jekyll github pages files
 _config\.yml
 ^assets
@@ -98,6 +101,9 @@ README\.md
 CONTRIBUTING\.md
 CODE_OF_CONDUCT\.md
 ^\.github/
+^_site
+Gemfile
+Gemfile.lock
 
 # Avoid directory and files generated by carton
 ^local/

diff --git a/dist.ini b/dist.ini
@@ -81,3 +81,4 @@ Test::Kwalitee          = 1.21 ; from Dist::Zilla
 Pod::Coverage::TrustPod = 0    ; from Dist::Zilla
 Test::Pod               = 1.41 ; from Dist::Zilla
 Test::Pod::Coverage     = 1.08 ; from Dist::Zilla
+Test::MockModule        = 0
diff --git a/lib/Date/Holidays.pm b/lib/Date/Holidays.pm
@@ -11,7 +11,7 @@ use Scalar::Util qw(blessed);
 
 use base 'Date::Holidays::Adapter';
 
-$VERSION = '1.26';
+$VERSION = '1.27';
 
 sub new {
     my ( $class, %params ) = @_;

diff --git a/lib/Date/Holidays/Adapter.pm b/lib/Date/Holidays/Adapter.pm
@@ -10,7 +10,7 @@ use Scalar::Util qw(blessed);
 
 use vars qw($VERSION);
 
-$VERSION = '1.26';
+$VERSION = '1.27';
 
 sub new {
     my ($class, %params) = @_;

diff --git a/lib/Date/Holidays/Adapter/AT.pm b/lib/Date/Holidays/Adapter/AT.pm
@@ -10,7 +10,7 @@ use vars qw($VERSION);
 
 my $format = '%#:%m%d';
 
-$VERSION = '1.26';
+$VERSION = '1.27';
 
 # Lifted from Date::Holidays::AT source code
 # Ref: https://metacpan.org/source/MDIETRICH/Date-Holidays-AT-v0.1.4/lib/Date/Holidays/AT.pm

diff --git a/lib/Date/Holidays/Adapter/AU.pm b/lib/Date/Holidays/Adapter/AU.pm
@@ -6,7 +6,7 @@ use vars qw($VERSION);
 
 use base 'Date::Holidays::Adapter';
 
-$VERSION = '1.26';
+$VERSION = '1.27';
 
 use constant DEFAULT_STATE => 'VIC';
 

diff --git a/lib/Date/Holidays/Adapter/AW.pm b/lib/Date/Holidays/Adapter/AW.pm
@@ -6,7 +6,7 @@ use vars qw($VERSION);
 
 use base 'Date::Holidays::Adapter';
 
-$VERSION = '1.26';
+$VERSION = '1.27';
 
 sub holidays {
     my ($self, %params) = @_;

diff --git a/lib/Date/Holidays/Adapter/BR.pm b/lib/Date/Holidays/Adapter/BR.pm
@@ -7,7 +7,7 @@ use base 'Date::Holidays::Adapter';
 
 use vars qw($VERSION);
 
-$VERSION = '1.26';
+$VERSION = '1.27';
 
 sub holidays {
     my ( $self, %params ) = @_;

diff --git a/lib/Date/Holidays/Adapter/BY.pm b/lib/Date/Holidays/Adapter/BY.pm
@@ -6,7 +6,7 @@ use vars qw($VERSION);
 
 use base 'Date::Holidays::Adapter';
 
-$VERSION = '1.26';
+$VERSION = '1.27';
 
 sub holidays {
     my ($self, %params) = @_;

diff --git a/lib/Date/Holidays/Adapter/CA_ES.pm b/lib/Date/Holidays/Adapter/CA_ES.pm
@@ -7,7 +7,7 @@ use base qw(Date::Holidays::Adapter::ES);
 
 use vars qw($VERSION);
 
-$VERSION = '1.26';
+$VERSION = '1.27';
 
 1;
 

diff --git a/lib/Date/Holidays/Adapter/CN.pm b/lib/Date/Holidays/Adapter/CN.pm
@@ -7,7 +7,7 @@ use base 'Date::Holidays::Adapter';
 
 use vars qw($VERSION);
 
-$VERSION = '1.26';
+$VERSION = '1.27';
 
 sub holidays {
     my ($self, %params) = @_;

diff --git a/lib/Date/Holidays/Adapter/CZ.pm b/lib/Date/Holidays/Adapter/CZ.pm
@@ -7,7 +7,7 @@ use base 'Date::Holidays::Adapter';
 
 use vars qw($VERSION);
 
-$VERSION = '1.26';
+$VERSION = '1.27';
 
 my $format = '%#:%m%d';
 

diff --git a/lib/Date/Holidays/Adapter/DE.pm b/lib/Date/Holidays/Adapter/DE.pm
@@ -10,7 +10,7 @@ use vars qw($VERSION);
 
 my $format = '%#:%m%d';
 
-$VERSION = '1.26';
+$VERSION = '1.27';
 
 # Lifted from Date::Holidays::DE example: feiertage.pl
 # Ref: https://metacpan.org/source/MSCHMITT/Date-Holidays-DE-1.9/example/feiertage.pl

diff --git a/lib/Date/Holidays/Adapter/DK.pm b/lib/Date/Holidays/Adapter/DK.pm
@@ -6,7 +6,7 @@ use vars qw($VERSION);
 
 use base 'Date::Holidays::Adapter';
 
-$VERSION = '1.26';
+$VERSION = '1.27';
 
 sub holidays {
     my ($self, %params) = @_;

diff --git a/lib/Date/Holidays/Adapter/ES.pm b/lib/Date/Holidays/Adapter/ES.pm
@@ -8,7 +8,7 @@ use Module::Load; # load
 
 use vars qw($VERSION);
 
-$VERSION = '1.26';
+$VERSION = '1.27';
 
 sub holidays {
     my ($self, %params) = @_;

diff --git a/lib/Date/Holidays/Adapter/FR.pm b/lib/Date/Holidays/Adapter/FR.pm
@@ -7,7 +7,7 @@ use Carp;
 
 use base 'Date::Holidays::Adapter';
 
-$VERSION = '1.26';
+$VERSION = '1.27';
 
 sub holidays {
     croak "holidays is unimplemented for ".__PACKAGE__;

diff --git a/lib/Date/Holidays/Adapter/GB.pm b/lib/Date/Holidays/Adapter/GB.pm
@@ -6,7 +6,7 @@ use vars qw($VERSION);
 
 use base 'Date::Holidays::Adapter';
 
-$VERSION = '1.26';
+$VERSION = '1.27';
 
 sub holidays {
     my ($self, %params) = @_;

diff --git a/lib/Date/Holidays/Adapter/JP.pm b/lib/Date/Holidays/Adapter/JP.pm
@@ -8,7 +8,7 @@ use Carp;
 
 use base 'Date::Holidays::Adapter';
 
-$VERSION = '1.26';
+$VERSION = '1.27';
 
 sub holidays {
     croak "holidays is unimplemented for ".__PACKAGE__;

diff --git a/lib/Date/Holidays/Adapter/KR.pm b/lib/Date/Holidays/Adapter/KR.pm
@@ -7,7 +7,7 @@ use Carp;
 
 use base 'Date::Holidays::Adapter';
 
-$VERSION = '1.26';
+$VERSION = '1.27';
 
 sub holidays {
     croak "holidays is unimplemented for ".__PACKAGE__;

diff --git a/lib/Date/Holidays/Adapter/KZ.pm b/lib/Date/Holidays/Adapter/KZ.pm
@@ -6,7 +6,7 @@ use vars qw($VERSION);
 
 use base 'Date::Holidays::Adapter';
 
-$VERSION = '1.26';
+$VERSION = '1.27';
 
 sub holidays {
     my ($self, %params) = @_;

diff --git a/lib/Date/Holidays/Adapter/Local.pm b/lib/Date/Holidays/Adapter/Local.pm
@@ -7,7 +7,7 @@ use JSON; #from_json
 use Env qw($HOLIDAYS_FILE);
 use vars qw($VERSION);
 
-$VERSION = '1.26';
+$VERSION = '1.27';
 
 sub new {
     my $class = shift;

diff --git a/lib/Date/Holidays/Adapter/NL.pm b/lib/Date/Holidays/Adapter/NL.pm
@@ -6,7 +6,7 @@ use vars qw($VERSION);
 
 use base 'Date::Holidays::Adapter';
 
-$VERSION = '1.26';
+$VERSION = '1.27';
 
 sub holidays {
     my ($self, %params) = @_;

diff --git a/lib/Date/Holidays/Adapter/NO.pm b/lib/Date/Holidays/Adapter/NO.pm
@@ -6,7 +6,7 @@ use base 'Date::Holidays::Adapter';
 
 use vars qw($VERSION);
 
-$VERSION = '1.26';
+$VERSION = '1.27';
 
 sub holidays {
     my ($self, %params) = @_;

diff --git a/lib/Date/Holidays/Adapter/NZ.pm b/lib/Date/Holidays/Adapter/NZ.pm
@@ -6,7 +6,7 @@ use vars qw($VERSION);
 
 use base 'Date::Holidays::Adapter';
 
-$VERSION = '1.26';
+$VERSION = '1.27';
 
 sub holidays {
     my ($self, %params) = @_;

diff --git a/lib/Date/Holidays/Adapter/PL.pm b/lib/Date/Holidays/Adapter/PL.pm
@@ -7,7 +7,7 @@ use Carp;
 
 use base 'Date::Holidays::Adapter';
 
-$VERSION = '1.26';
+$VERSION = '1.27';
 
 sub holidays {
     croak "holidays is unimplemented for ".__PACKAGE__;

diff --git a/lib/Date/Holidays/Adapter/PT.pm b/lib/Date/Holidays/Adapter/PT.pm
@@ -7,7 +7,7 @@ use base 'Date::Holidays::Adapter';
 
 use vars qw($VERSION);
 
-$VERSION = '1.26';
+$VERSION = '1.27';
 
 sub holidays {
     my ($self, %params) = @_;

diff --git a/lib/Date/Holidays/Adapter/RU.pm b/lib/Date/Holidays/Adapter/RU.pm
@@ -6,7 +6,7 @@ use vars qw($VERSION);
 
 use base 'Date::Holidays::Adapter';
 
-$VERSION = '1.26';
+$VERSION = '1.27';
 
 sub holidays {
     my ($self, %params) = @_;

diff --git a/lib/Date/Holidays/Adapter/SK.pm b/lib/Date/Holidays/Adapter/SK.pm
@@ -6,7 +6,7 @@ use vars qw($VERSION);
 
 use base 'Date::Holidays::Adapter';
 
-$VERSION = '1.26';
+$VERSION = '1.27';
 
 sub holidays {
     my ($self, %params) = @_;

diff --git a/lib/Date/Holidays/Adapter/UA.pm b/lib/Date/Holidays/Adapter/UA.pm
@@ -7,7 +7,7 @@ use Carp;
 
 use base 'Date::Holidays::Adapter';
 
-$VERSION = '1.26';
+$VERSION = '1.27';
 
 sub holidays {
     my ($self, %params) = @_;

diff --git a/lib/Date/Holidays/Adapter/UK.pm b/lib/Date/Holidays/Adapter/UK.pm
@@ -7,7 +7,7 @@ use base qw(Date::Holidays::Adapter::GB);
 
 use vars qw($VERSION);
 
-$VERSION = '1.26';
+$VERSION = '1.27';
 
 1;
 

diff --git a/lib/Date/Holidays/Adapter/US.pm b/lib/Date/Holidays/Adapter/US.pm
@@ -8,7 +8,7 @@ use Data::Dumper;
 
 use base 'Date::Holidays::Adapter';
 
-$VERSION = '1.26';
+$VERSION = '1.27';
 
 sub holidays {
     croak "holidays is unimplemented for ".__PACKAGE__;

diff --git a/lib/Date/Holidays/Adapter/USFederal.pm b/lib/Date/Holidays/Adapter/USFederal.pm
@@ -8,7 +8,7 @@ use Data::Dumper;
 
 use base 'Date::Holidays::Adapter';
 
-$VERSION = '1.26';
+$VERSION = '1.27';
 
 # sub new {
 #     my $class = shift;

diff --git a/t/Test/Class/Date/Holidays.pm b/t/Test/Class/Date/Holidays.pm
@@ -111,7 +111,7 @@ sub test_issue45 : Test(1) {
     # Book: "Perl Testing: A Developer's Notebook"
     # REF: https://learning.oreilly.com/library/view/perl-testing-a/0596100922/
     my $mock = Test::MockModule->new('Date::Holidays::Adapter');
-    $mock->mock->redefine('_fetch', sub {
+    $mock->redefine('_fetch', sub {
         my ($self, $params) = @_;
 
         if ($params->{countrycode} eq 'SK') {