view release on metacpan or  search on metacpan

t/Business-PayPal-NVP.t  view on Meta::CPAN

      diag '###################################################################';
      diag ' ';
      diag "No auth.txt found. See README or module documentation";
      diag "Some tests will be skipped.";
      diag ' ';
      diag '###################################################################';
  }
}

if ( ! %auth ) {
    # put in fake credentials for at least bare minimum tests
    $auth{'user'} = 'your.TEST.api.username.for.paypal.tld';
    $auth{'pwd'}  = 'your.TEST.api.password';
    $auth{'sig'}  = 'your.TEST.api.signature';
}

use_ok('Business::PayPal::NVP');

$Business::PayPal::NVP::Debug = 0;
my $ua = LWP::UserAgent->new;
my $pp = new Business::PayPal::NVP( test => \%auth, branch => 'test', ua => $ua );