The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use Test::RequiresInternet ( 'api-3t.sandbox.paypal.com' => '443' );
use Test::More;

use WebService::PayPal::NVP;

my $nvp = WebService::PayPal::NVP->new(
    branch => 'sandbox',
    pwd    => 'bar',
    sig    => 'seekrit',
    ua     => LWP::UserAgent->new( timeout => 3 ),
    user   => 'foo',
);

is( $nvp->ua->timeout, 3, 'Custom UserAgent set' );

done_testing();