Perl Advent Calendar 2006-12-25

It's Beginning to Look a Lot Like Fish-Men

by Jerrad Pierce

What could bring more yuletide cheer than songs of the Great Old Ones and fuzzy squid-faced gods in festive hats on this Prickle-Prickle, The Aftermath 67, 3172 Year Of Lady Discord?

   1 #!/usr/bin/perl
   2 use DateTime;
   3 use DateTime::Calendar::Discordian;
   4 
   5 print DateTime::Calendar::Discordian->
   6   #Its parameters are even unnecessarily verbose!
   7   from_object( object=>DateTime->now() )->
   8   strftime('%{%A, %B %d%}, %Y Year Of Lady Discord');

Now, who's going to cargo cult from the reference implementation and produce a superset of the calendar and klock?