RFC: DateTime::Complex use DateTime; use DateTime::Complex; use strict;
my $dtc1 = DateTime::Complex->new_undef; my $dtc2 = $dtc1->define_month( 12 ); my $christmas = $dtc2->define_day( 24 ); my $december = $christmas->undef_day; print $december->datetime; # xxxx-12-xxTxx:xx:xx print $christmas->next( DateTime->now )->datetime; # 2003-12-24Txx:xx:xx my $xmas_noon = $christmas->define_hour( 12 ); print $christmas->contains( $xmas_noon ); # 1 [some too-weird examples removed] :) - Flavio S. Glock
