Dave Rolsky schreef:
> In practice, I think _most_ people working with multiple calendar systems
> will not even care about the time component, and will be doing stuff like:
>
> my $date = DateTime->new( year => 1900, month => 7, day => 6 );
>
> my $mayan = DateTime::Calendar::Mayan->from_object( object => $date );
(etc.)
And this works. But even more people will use DateTime->now. And then
a floating time would be wrong.
As an example, the first program I wrote using
DateTime::Calendar::Mayan.
use DateTime;
my $d = DateTime->now;
$d->set_time_zone( 'Europe/Amsterdam' );
$d->set_time_zone( 'floating' );
print $d->strftime("%A %d %B %Y\n");
use DateTime::Calendar::Julian;
$d = DateTime::Calendar::Julian->from_object( object => $d );
print $d->strftime("%A %d %B %Y Julian\n");
use DateTime::Calendar::Pataphysical;
$d = DateTime::Calendar::Pataphysical->from_object( object => $d );
print ucfirst $d->strftime("%A %d %B %Y [%*]\n");
use DateTime::Calendar::Mayan;
$d = DateTime::Calendar::Mayan->from_object( object => $d );
print $d->date, "\n";
Eugene
