package BookPub::RDAS::Request::ProductSearch::Borders;

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

use lib '/app/tools/rdas/lib';
use RDAS::Fetcher::Mechanize::RedirectURL;

sub fetch {
    my $self  = shift;
    my $fetch = $self->_getFetchObject()
      || die "No fetch object created, can not continue";

    $self->{_redirectURL} = $fetch->content();

    if ( $fetch->success ) {
        return 1;
    } else {
        $self->fail( code => $fetch->errorCode );
        return;
    }
}

sub _getResponseObject { }
sub parse              { }
sub respond            { }

sub _getFetchObject {
    my $self = shift;
    my $ua   = $self->userAgent;

    return RDAS::Fetcher::Mechanize::RedirectURL->new(
        url       => $self->url,
        userAgent => $ua,
    );
}

sub URL {
    my $self = shift || return;
    my $url = $self->{_redirectURL};

    return $url;
}

1;