use Perl

I had an email recently regarding Calendar::List. It suggested adding some support for holidays. I hadn't thought about that before, but it seems a good idea. I was thinking about the best way to add this support. The nice way would be to enable support for the Holiday::* modules, which would help to improve those authors Kwalitee rating. However, as Richard Clamp points out, not all APIs are consistent. Also what if there isn't a holiday module for a particular country, or a user wants to be able past a standard list to the module. So to keep things simple I've added the 'holidays => \@holidays' option to the configuration hash.

  my @holidays = are_holidays(2005);
  my %hash = { exclude => { 'holidays' = \@holidays } };
  my @list = calendar_list('DD-MM-YYYY', \%hash);

The only awkward bit is the are_holidays() function, which would the rely on being able to generate the holiday dates in the format required for calendar_list(). But then with an example patch to Date::Holidays::UK, you could do the following:

  use Date::Holidays::UK;

  sub are_holidays {
    my $year = shift;
    my @dates;
    for my $date (are_uk_holidays($year)) {
      my @elms = split(/-/,$date);
      push @dates sprintf "%02d-%02d-%04d", $elms[2], $elms[1], $elms[0];
    }

    return @dates;
  }

In the meantime Calendar-List-0.17.tar.gz is now on its way to CPAN :)