sub setup : Test(setup) {
  my ($self) = @_;
  my $mockClass = Test::MockClass->new('Mock::DateTime');
  $mockClass->addMethod('now', sub {'XXXX'});
  require DateTime;
  @Mock::DateTime::ISA = qw( DateTime );
}

sub test : Test {
  my ($self) = @_;
  ok(Mock::DateTime->now);
  diag(Mock::DateTime->now);
}