view release on metacpan or  search on metacpan

lib/Date/Holidays/PL.pm  view on Meta::CPAN

85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
    '1225' => 'pierwszy dzieÅ„ Bożego Narodzenia',
    # Boxing Day
    '1226' => 'drugi dzieÅ„ Bożego Narodzenia',
);
 
# Params::Validate config
my $ValidateOpts = {
    year => {
        type => SCALAR,
        regex => qr/^\d{4}$/,
        callbacks => {
            'between 1951 and 9999' => sub {
                shift >= 1951
            },
        },
    },
    month => {
        type => SCALAR,
    },
    day => {
        type => SCALAR,