Perl DateTime Project Perl DateTime Project 21

Math

my $today = DateTime->today( time_zone => 'floating' );
my $yapc  = DateTime->new( year => 2006, month => 6, day => 26 );

my $delta = $yapc->delta_days($today);

print " Days until YAPC::NA: ", $delta->delta_days, "\n";
Copyright © 2005-2006 David Rolsky