use strict;
use warnings FATAL => 'all';
package HTML::Tested::Test::DateTime;
use DateTime::Duration;
use DateTime;
use Data::Dumper;
use POSIX ();
sub now {
my $class = shift;
my $res = DateTime->now;
$res->set_time_zone(POSIX::strftime('%z', localtime));
my $self = bless { _dt => $res, _interval => (shift || 1) }, $class;
return $self;
}
sub strftime {
my $self = shift;
my @res;
for (my $i = 0; $i < $self->{_interval}; $i++) {
my $d = $self->{_dt} + DateTime::Duration->new(seconds => $i);
push @res, $d->strftime(@_);
}
return Dumper(\@res);
}
sub clone { return shift(); }
sub set_locale {
my $self = shift;
$self->{_dt}->set_locale(@_);
return $self;
}
1;