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

use constant URL => 'http://www.amazon.com/gp/product/B003WUYPPG';

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

    #my $request = new BookPub::RDAS::Request::ProductPrice::Amazon( cache_fetch => 1, url => URL );
    my $request = new BookPub::RDAS::Request::ProductPrice::Amazon( cache_fetch => 1, productID => 3 );

    $request->run();
}