#!/usr/bin/perl -w

use strict;

Test->start();

package Test;

use lib '/app/tools/common/lib';
use base 'Common::Script';

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

use constant URL => 'http://www.borders.com/online/store/TitleDetail?sku=0307272117';

sub run_process {
    my $self = shift;
    my $singleton = new Common::RSApp( clientID => 0 );

    my $request = new BookPub::RDAS::Request::ProductPrice::Borders( cache_fetch => 1, url => URL );

    $request->run();
}