package BookPub::RDAS::Parser::ProductPrice::Apple::Price;

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

use Data::Dumper;

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

    return unless ($token);

    my @rows = $token->find('tr');

    return unless (@rows);

    foreach my $row (@rows) {
        my @cols = $row->find('td');
        my $name = $cols[0]->as_text();

        if ( $name && $name =~ /United States/ ) {
            my $price = $cols[5]->as_text();

            if ( $price && $price =~ /\(\$?(.*)\)/ ) {
                return $price =~ /Free/ ? 0 : $1;
            }
        }
    }

    return;
}

1;