DateTime and Test::MockTime

Hello All,

For some reason using DateTime->now doesn't get effected by using the
Test::MockTime module to change the time. The Test module overrides
the time builtin, which seems to be what DateTime::now is using.

 #!/usr/bin/perl
 use DateTime;
 use Test::MockTime qw/:all/;

 my $start_time = time;
 print "T: $start_time\n",
 "DT:".DateTime->now()."\n";
 print "----\n";
 set_relative_time(6000);
 my $rel_time = time;
 print "T: $rel_time diff:".($rel_time-$start_time)."\n",
 "DT:".DateTime->now()."\n";

 $ perl test-mocktime.pl
 T: 1219910364
 DT:2008-08-28T07:59:24
 ----
 T: 1219916364 diff:6000
 DT:2008-08-28T07:59:24

After hours fiddling around in the debugger I can't see what is going
on. Calling time in the DateTime package returns the mocked time but
DateTime::now only sees the real time. Calling as 'scalar time' like
the method makes no difference either.

475:    sub now { shift->from_epoch( epoch => (scalar time), @_ ) }

Ideas anyone? Debug output below in case it helps.

cheers,
mark
--
"In the beginning, there was nothing, which exploded."


---- DEBUG -----
main::(test-mocktime.pl:10):    set_relative_time(6000);


                    DB<6> p time
1219912180


                    DB<7> n
main::(test-mocktime.pl:11):    my $rel_time = time;


                    DB<7> p time
1219918183


                    DB<8> c
DateTime::now(/usr/local/lib/perl/5.8.8/DateTime.pm:475):
475:    sub now { shift->from_epoch( epoch => (scalar time), @_ ) }


                    DB<8> p time
1219918188


                    DB<9> s
DateTime::from_epoch(/usr/local/lib/perl/5.8.8/DateTime.pm:449):
449:            my $class = shift;


                    DB<9> x @_
0  'DateTime'
1  'epoch'
2  1219912189


                    DB<10> p time
1219918193