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

Reply via email to