File Coverage

lib/WWW/Mechanize/FormFiller/Value/Random/Date.pm

Criterion	Covered	Total	%
statement	49	60	81.6
branch	3	10	30.0
condition	13	16	81.2
subroutine	10	10	100.0
pod	2	2	100.0
total	77	98	78.5

package WWW::Mechanize::FormFiller::Value::Random::Date;
use base 'WWW::Mechanize::FormFiller::Value';
use Carp qw(croak);

use vars qw( $VERSION );
use POSIX;
$VERSION = '0.13';

sub new {
  my ($class,$name,%args) = @_;
  my $self = $class->SUPER::new($name);
  %args = (string => '%Y%m%d') unless scalar (keys %args);
  $args{min} ||= undef;
  $args{max} ||= undef;

  $self->{args} = \%args;

  $self;
};

sub value {
  my ($self,$input) = @_;
  my $min = $self->{args}->{min};
  my $max = $self->{args}->{max};

  for ($min, $max) {
    $_ = strftime $self->{args}->{string}, gmtime()
      if $_ eq "now";
  };
  croak "Minimum timestamp is greater or equal maximum timestamp"
    if defined $max and defined $min and $max le $min;

  my $result;
  RANDOM: {
    my $timestamp = rand(0x7FFFFFFF);
    #warn $self->{args}->{string};
    #warn gmtime($timestamp);
    $result = strftime $self->{args}->{string}, gmtime($timestamp);
    redo RANDOM if defined $min and $result lt $min;
    redo RANDOM if defined $max and $result ge $max;
  };
  $result;
};

1;

__END__