view release on metacpan or  search on metacpan

examples/calendar2.pl  view on Meta::CPAN

#!perl

use strict;

use Template;
use DateTime;
use Calendar::Model;

my $cal = Calendar::Model->new(selected_date=>DateTime->new(day=>5, month=>12, year=>2012));

my $events = {
    '2012-12-16' => 'Mousehole Lights',
    '2012-12-19' => 'Anniversary of Penlee Lifeboat Disaster',
};

# process sidebar template
my $template->process('sidebar_calendar.tt', {cal => $cal, events => $events })
|| die $template->error();