#!/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::BarnesNoble;

use constant URL => 'http://search.barnesandnoble.com/Mini-Shopaholic/Sophie-Kinsella/e/9780679603962/?itm=1';

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

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

    $request->run();
}