view release on metacpan or  search on metacpan

t/auth-refund.t  view on Meta::CPAN

use 5.010001;
use strict;
use warnings;
use Test::More;
use Data::Dumper;
use File::Spec;
use LWP::UserAgent;
# to prevent the following error on older Perls
# Can't locate object method "new" via package "LWP::Protocol::https::Socket"
use IO::Socket::SSL;

use URI;
use POSIX qw/strftime/;

use Business::OnlinePayment::IPayment;
use Business::OnlinePayment::IPayment::Return;
use Business::OnlinePayment::IPayment::Response;

my $ua = LWP::UserAgent->new;
$ua->max_redirect(0);