package BookPub::RDAS::URL;

use Carp;

use lib '/app/tools/common/lib';
use Common::Assert;

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

sub _validOptions {
    qw( productID bookID );
}

sub error { shift->{_error} }

sub GetURL {
    my $class = shift;
    my $self = ref($class) ? $class : new $class(@_);

    $self->{_url} = $self->_fetchURL(@_);

    return $self->url();
}

sub _fetchURL { croak "Must be overloaded" }

sub url { shift->{_url} }

1;