package BookPub::RDAS::Request::BestSellerList;

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

sub GetRequestObject {
    my $class = shift;
    my %args  = @_;

    my $type = 'BookPub::RDAS::Request::BestSellerList::NewYorkTimes';

    eval "use $type";
    die "$@" if ($@);

    return $type->new(%args);
}

sub _init {
    my $self = shift;

    my $fetcher = $self->_getFetchObject( $self->{_url} );

    return $self;
}

1;