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

use constant URL => 'http://ebookstore.sony.com/ebook/brad-thor/the-athena-project/_/R-400000000000000301505';

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

    #my $request = new BookPub::RDAS::Request::ProductPrice::Sony( cache_fetch => 1, url => URL );
    my $request = new BookPub::RDAS::Request::ProductPrice::Sony( bookID => 4842 );

    $request->run() if ($request);
}