File Coverage

blib/lib/HTML/Menu/DateTime.pm

Criterion	Covered	Total	%
statement	232	235	98.7
branch	114	120	95.0
condition	21	21	100.0
subroutine	13	14	92.8
pod	7	7	100.0
total	387	397	97.4

package HTML::Menu::DateTime;
use strict;
use Carp 'croak';

our $VERSION = '1.00';
our $AUTOLOAD;

our $DEFAULT_MONTH_FORMAT = 'long';
our $DEFAULT_SECOND_INCREMENT = 1;
our $DEFAULT_MINUTE_INCREMENT = 1;


sub new {
  my $pkg = shift;
  my $date;

  if (@_ == 1 ) {
    $date = shift;
  }

  my ($SEC, $MIN, $HOUR, $DAY, $MONTH, $YEAR) = (localtime(time))[0..5];
  $MONTH += 1;
  $YEAR  += 1900;

  # setup defaults, then override with input (if any)
  my $self = bless ({second           => $SEC,
                     minute           => $MIN,
                     hour             => $HOUR,
                     day              => $DAY,
                     month            => $MONTH,
                     year             => $YEAR,
                     date             => $date,
                     less_years       => 5,
                     plus_years       => 5,
                     month_format     => $DEFAULT_MONTH_FORMAT,
                     locale           => undef,
                     second_increment => $DEFAULT_SECOND_INCREMENT,
                     minute_increment => $DEFAULT_MINUTE_INCREMENT,
                     html             => '',
                     @_,
                    }, $pkg);


  if ($self->{date}) {
    if ($self->{date} =~ /^([0-9]{4})-([0-9]{2})-([0-9]{2})$/) {
      # YYYY-MM-DD
      $self->{year}   = $1;
      $self->{month}  = $2;
      $self->{day}    = $3;
      $self->{hour}   = 0;
      $self->{minute} = 0;
      $self->{second} = 0;
    }
    elsif ($self->{date} =~
      /^([0-9]{4})-([0-9]{2})-([0-9]{2}) ([0-9]{2}):([0-9]{2}):([0-9]{2})$/)
    {
      # YYYY-MM-DD hh:mm:ss
      $self->{year}   = $1;
      $self->{month}  = $2;
      $self->{day}    = $3;
      $self->{hour}   = $4;
      $self->{minute} = $5;
      $self->{second} = $6;
    }
    elsif ($self->{date} =~ /^([0-9]{4})$/) {
      # YYYY
      $self->{year}   = $1;
      $self->{month}  = 0;
      $self->{day}    = 0;
      $self->{hour}   = 0;
      $self->{minute} = 0;
      $self->{second} = 0;
    }
    elsif ($self->{date} =~ /^([0-9]{4})([0-9]{2})$/) {
      # YYYYMM
      $self->{year}   = $1;
      $self->{month}  = $2;
      $self->{day}    = 0;
      $self->{hour}   = 0;
      $self->{minute} = 0;
      $self->{second} = 0;
    }
    elsif ($self->{date} =~ /^([0-9]{4})([0-9]{2})([0-9]{2})$/) {
      # YYYYMMDD
      $self->{year}   = $1;
      $self->{month}  = $2;
      $self->{day}    = $3;
      $self->{hour}   = 0;
      $self->{minute} = 0;
      $self->{second} = 0;
    }
    elsif ($self->{date} =~ /^([0-9]{4})([0-9]{2})([0-9]{2})([0-9]{2})$/) {
      # YYYYMMDDhh
      $self->{year}   = $1;
      $self->{month}  = $2;
      $self->{day}    = $3;
      $self->{hour}   = $4;
      $self->{minute} = 0;
      $self->{second} = 0;
    }
    elsif ($self->{date} =~
      /^([0-9]{4})([0-9]{2})([0-9]{2})([0-9]{2})([0-9]{2})$/)
    {
      # YYYYMMDDhhmm
      $self->{year}   = $1;
      $self->{month}  = $2;
      $self->{day}    = $3;
      $self->{hour}   = $4;
      $self->{minute} = $5;
      $self->{second} = 0;
    }
    elsif ($self->{date} =~
      /^([0-9]{4})([0-9]{2})([0-9]{2})([0-9]{2})([0-9]{2})([0-9]{2})$/)
    {
      # YYYYMMDDhhmmss
      $self->{year}   = $1;
      $self->{month}  = $2;
      $self->{day}    = $3;
      $self->{hour}   = $4;
      $self->{minute} = $5;
      $self->{second} = $6;
    }
    elsif ($self->{date} =~ /^([0-9]{2}):([0-9]{2}):([0-9]{2})$/) {
      # hh:mm:ss
      $self->{year}   = 0;
      $self->{month}  = 0;
      $self->{day}    = 0;
      $self->{hour}   = $1;
      $self->{minute} = $2;
      $self->{second} = $3;
    }
    else {croak("invalid 'date' format");}
  }


  return $self;
}


sub second_menu {
  my $self = shift;

  my ($select, $html) = _parse_input ($self->{second}, @_);

  my @loop;

  if (defined $self->{empty_first}) {
    push @loop, {value => '', label => $self->{empty_first}};
  }

  for my $item ($self->_increment('second')) {
    my %data = (
      value => $item,
      label => $item,
    );
    if (! $self->{no_select} && (grep {$_ == $item} @$select)) {
      $data{selected} = ' selected ';
    }
    push @loop, \%data;
  }

  if ($self->{html}) {
    return $self->_html( $select, $html, \@loop );
  }

  return \@loop;
}


sub minute_menu {
  my $self = shift;

  my ($select, $html) = _parse_input ($self->{minute}, @_);

  my @loop;

  if (defined $self->{empty_first}) {
    push @loop, {value => '', label => $self->{empty_first}};
  }

  for my $item ($self->_increment('minute')) {
    my %data = (
      value => $item,
      label => $item,
    );
    if (! $self->{no_select} && (grep {$_ == $item} @$select)) {
      $data{selected} = ' selected ';
    }
    push @loop, \%data;
  }

  if ($self->{html}) {
    return $self->_html( $select, $html, \@loop );
  }

  return \@loop;
}


sub hour_menu {
  my $self = shift;

  my ($select, $html) = _parse_input ($self->{hour}, @_);

  my @loop;

  if (defined $self->{empty_first}) {
    push @loop, {value => '', label => $self->{empty_first}};
  }

  for my $item ('00'..'09',10..23) {
    my %data = (
      value => $item,
      label => $item,
    );
    if (! $self->{no_select} && (grep {$_ == $item} @$select)) {
      $data{selected} = ' selected ';
    }
    push @loop, \%data;
  }

  if ($self->{html}) {
    return $self->_html( $select, $html, \@loop );
  }

  return \@loop;
}


sub day_menu {
  my $self = shift;

  my ($select, $html) = _parse_input ($self->{day}, @_);

  my @loop;

  if (defined $self->{empty_first}) {
    push @loop, {value => '', label => $self->{empty_first}};
  }

  for my $item ('01'..'09', 10..31) {
    my %data = (
      value => $item,
      label => $item,
    );
    if (! $self->{no_select} && (grep {$_ == $item} @$select)) {
      $data{selected} = ' selected ';
    }
    push @loop, \%data;
  }

  if ($self->{html}) {
    return $self->_html( $select, $html, \@loop );
  }

  return \@loop;
}


sub month_menu {
  my $self = shift;

  my ($select, $html) = _parse_input ($self->{month}, @_);

  my @decimal = ('01'..'09', 10..12);
  my $locale;

  if ($self->{locale}) {
    require DateTime::Locale;
    $locale = DateTime::Locale->load($self->{locale});
  }

  my %mon;
  if ($self->{month_format} eq 'decimal') {
    @mon{@decimal} = @decimal;
  }
  elsif ($self->{month_format} eq 'short') {
    if ($self->{locale}) {
      @mon{@decimal} = @{$locale->month_abbreviations};
    }
    else {
      @mon{@decimal} = qw/Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec/;
    }
  }
  else {
    if ($self->{locale}) {
      @mon{@decimal} = @{$locale->month_names};
    }
    else {
      @mon{@decimal} = qw/January February March April May June July August
                          September October November December/;
    }
  }

  my @loop;
  if (defined $self->{empty_first}) {
    push @loop, {value => '', label => $self->{empty_first}};
  }

  for my $item (sort {$a <=> $b} keys %mon) {
    my %data = (
      value => $item,
      label => $mon{$item},
    );
    if (! $self->{no_select} && (grep {$_ == $item} @$select)) {
      $data{selected} = ' selected ';
    }
    push @loop, \%data;
  }

  if ($self->{html}) {
    return $self->_html( $select, $html, \@loop );
  }

  return \@loop;
}


sub year_menu {
  my $self = shift;

  my ($select, $html) = _parse_input ($self->{year}, @_);

  my $single = @$select == 1 ? $select->[0] : undef;

  croak('selected year must be above 0') unless $select > 0;

  my ($start, $end);

  if (defined $self->{start_year} ) {
    $start = $self->{start_year};
  }
  else {
    croak('cannot use less_years with multiple selections')
      if ! $single;

    $start = $single - $self->{less_years};
  }

  croak('start_year cannot be after selected year')
    if grep {$_ < $start} @$select;

  croak('start year must be above 0') unless $start > 0;

  if (defined $self->{end_year} ) {
    $end = $self->{end_year};
    croak('end_year cannot be before selected year')
      if grep {$_ > $end} @$select;
  }
  else {
    croak('cannot use plus_years with multiple selections')
      if ! $single;

    $end = $single + $self->{plus_years};
  }

  croak('end year must be after start year') if $start > $end;

  my @years = ( $start .. $end );
  my @loop;

  if (defined $self->{empty_first}) {
    push @loop, {value => '', label => $self->{empty_first}};
  }

  for my $item (@years) {
    my %data = (
      value => $item,
      label => $item,
    );
    if (! $self->{no_select} && (grep {$_ == $item} @$select)) {
      $data{selected} = ' selected ';
    }
    push @loop, \%data;
  }

  if ($self->{html}) {
    return $self->_html( $select, $html, \@loop );
  }

  return \@loop;
}

### PUBLIC METHODS ###

my @public_accessors = qw/
  start_year
  end_year
  less_years
  plus_years
  month_format
  locale
  second_increment
  minute_increment
  html
/;


sub AUTOLOAD {
  my $self = shift;

  my $method = $AUTOLOAD;
  $method =~ s/.*://;

  croak "method '$method' is not defined"
    unless grep {$method eq $_} @public_accessors;

  $self->{$method} = shift if @_;

  return $self->{$method} if defined $self->{$method};
}


### so AUTOLOAD doesn't get it
sub DESTROY {}


### PRIVATE METHODS ###

sub _parse_input {
  my $time = shift;
  my ($i, $html, @val);

  if (scalar @_ == 2) {
    ($i, $html) = @_;
  }
  elsif (scalar @_ == 1) {
    if (ref($_[0]) eq 'HASH') {
      $html = shift;
    }
    else {
      $i = shift;
    }
  }

  return ([$time], $html) unless defined $i;

  if (ref($i) eq 'ARRAY') {
    @val = grep {/^\d+$/} @$i;
  }
  elsif ($i =~ /^\d+$/) {
    @val = $i;
  }
  elsif ($i =~ /^\+(\d+)$/) {
    @val = $time + $1;
  }
  elsif ($i =~ /^\-(\d+)$/) {
    @val = $time - $1;
  }
  else {
    croak('invalid input at _parse_input()');
  }

  return \@val, $html;
}


sub _increment {
  my ($self, $type) = @_;

  my $inc = $self->{"${type}_increment"};

  croak("${type}_increment must be between 1 and 59")
    unless (($inc >= 1) && ($inc <= 59));

  my @num;

  for (my $i=0; $i<=59; $i+=$inc) {
    push @num, sprintf("%02d", $i);
  }

  return @num;
}


sub _html {
  my ($self, $select, $html, $loop) = @_;

  require HTML::Menu::Select;

  my %args = (
    values => [ map { $_->{value} } @$loop ],
    labels => { map { $_->{value} => $_->{label} } @$loop },
  );

  if (! $self->{no_select}) {
    $args{default} = $select;
  }

  if (defined $html) {
    $args{$_} = $html->{$_} for keys %$html;
  }


  if ($self->{html} eq 'menu') {
    return HTML::Menu::Select::menu( %args );
  }
  elsif ($self->{html} eq 'options') {
    return HTML::Menu::Select::options( %args );
  }
  else {
    croak "unknown html option";
  }
}

1;

__END__