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

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 $select = $token->attr('name');

    my @options = $token->find('option');

    return unless (@options);

    foreach my $option (@options) {
        my $name = $option->as_text || next;
        my ($feed) = $name =~ /(\d+)$/;

        push(
            @results,
            {
                select => $select,
                name   => $name,
                feed   => $feed,
                value  => $option->attr('value'),
            }
        );
    }

    return @results ? \@results : undef;
}

1;