package BookPub::RDAS::Request::ProductPrice::Google;

use lib '/app/tools/bookpub/lib';
use base 'BookPub::RDAS::Request::ProductPrice';

use BookPub::RDAS::Parser::ProductPrice::Google;
use BookPub::RDAS::URL::ProductPrice::Google;
use BookPub::RDAS::Response::ProductPrice::Google;

# Disable warnings coming from WWW::Mechanize when fecthing.
sub fetch {
    $^W = 0;
    shift->SUPER::fetch(@_);
}

sub _getParserObject {
    my $self = shift;
    return new BookPub::RDAS::Parser::ProductPrice::Google(@_);
}

sub _getURLObject {
    my $self = shift;
    return new BookPub::RDAS::URL::ProductPrice::Google( bookID => $self->bookID, @_ );
}

sub _getResponseObject {
    my $self = shift;
    return new BookPub::RDAS::Response::ProductPrice::Google( parser => $self->parser, productID => $self->productID, @_ );
}

1;