File Coverage

blib/lib/HTML/DateSelector.pm

Criterion	Covered	Total	%
statement	12	39	30.7
branch	0	2	0.0
condition	0	6	0.0
subroutine	4	13	30.7
pod	7	7	100.0
total	23	67	34.3

package HTML::DateSelector;
use strict;
use warnings;
use Carp;
use 5.008001;
our $VERSION = '0.05';

sub _this_year {
    my ($class, ) = @_;

    my @localtime = localtime;
    return $localtime[5] + 1900;
}

sub year {
    my ($class, $prefix, $options) = @_;

    my $start = $options->{start_year} || $class->_this_year - 5;
    my $end   = $options->{end_year}   || $class->_this_year + 5;

    return $class->_select_html($prefix, 'year', $start, $end, $options);
}

sub month {
    my ($class, $prefix, $options) = @_;

    return $class->_select_html($prefix, 'month', 1, 12, $options);
}

sub day {
    my ($class, $prefix, $options) = @_;

    return $class->_select_html($prefix, 'day', 1, 31, $options);
}

sub hour {
    my ($class, $prefix, $options) = @_;

    return $class->_select_html($prefix, 'hour', 0, 23, $options);
}

sub minute {
    my ($class, $prefix, $options) = @_;

    return $class->_select_html($prefix, 'minute', 0, 59, $options);
}

sub _select_html {
    my ($class, $prefix, $type, $start, $end, $options) = @_;

    my $result = '';
    $result .= qq{\n};
    $result .= qq{\n} if $options->{include_blank};
    for my $i ($start..$end) {
        $result .= qq{$i\n};
    }
    $result .= qq{};
    return $result;
}

sub ymd {
    my ( $class, $prefix, $options ) = @_;

    return join( "\n\n",
                 $class->ym($prefix, $options),
                 $class->day( $prefix, $options ) );
}

sub ym {
    my ( $class, $prefix, $options ) = @_;

    return join( "\n\n",
                 $class->year( $prefix, $options ),
                 $class->month( $prefix, $options ),
             );
}

1;
__END__