package BookPub::RDAS::Parser::SaleData::Apple::Item::MonthInput;

use lib '/app/tools/rdas/lib';
use base 'RDAS::Parser::Item';

use Data::Dumper;

sub value {
    my $token = shift->token();
    my @results;

    return unless ($token);

    my @divs = $token->look_down( _tag => 'div', class => 'label' );

    foreach my $div (@divs) {
        my $element = _getElement($div);
        return $element if ($element);
    }

    return;
}

sub _getElement {
    my $div = shift;

    my $txt = $div->as_text() || return;

    if ( $txt !~ /^month/i ) {
        Log->info("Not the month select: $txt");
        return;
    }

    my $select  = $div->find('select');
    my @options = $select->find('option');
    my $name    = $select->attr('name');
    my $opts    = {};

    foreach my $opt (@options) {
        $opts->{ $opt->as_text() } = $opt->attr('value');
    }

    return $name ? { name => $name, values => $opts } : undef;
}

1;