view release on metacpan or  search on metacpan

lib/Business/CyberSource/Exception/SOAPFault.pm  view on Meta::CPAN

version 0.010008

=head1 DESCRIPTION

This usually means a credentials problem or something is wrong on
CyberSource's end

=head1 ATTRIBUTES

=head2 faultstring

 view release on metacpan or  search on metacpan

lib/Business/EDI/CodeList/KeyManagementFunctionQualifier.pm  view on Meta::CPAN

'101' => [ 'Registration submission',
    'Submission of information for registration.' ],
'102' => [ 'Asymmetric key pair request',
    'Request a trusted party to generate an asymmetric key pair.' ],
'110' => [ 'Certification request',
    'Request certification of credentials and public key.' ],
'111' => [ 'Certificate renewal request',
    'Request to extend the validity period of the current valid key, whose certificate is about to expire.' ],
'112' => [ 'Certificate replacement request',
    'Request to replace the current certificate by a new one with a different public key (and possibly other information).' ],
'121' => [ 'Certificate (path) retrieval request',

 view release on metacpan or  search on metacpan

lib/Business/Fixflo.pm  view on Meta::CPAN

=head1 EXAMPLES

See the t/002_end_to_end.t test included with this distribution. you can run
this test against the fixflo test server (requires ENV variables to set the
Fixflo credentials)

=head1 SEE ALSO

L<Business::Fixflo::Address>

 view release on metacpan or  search on metacpan

lib/Business/GoCardless/Client.pm  view on Meta::CPAN

    my $data = {
        resource_id   => $params->{resource_id},
        resource_type => $params->{resource_type},
    };

    my $credentials = encode_base64( $self->app_id . ':' . $self->app_secret );
    $credentials    =~ s/\s//g;

    my $ua = LWP::UserAgent->new;
    $ua->agent( $self->user_agent );

    my $req = HTTP::Request->new(
        POST => join( '/',$self->base_url . $self->api_path,'confirm' )
    );

    $req->header( 'Authorization' => "Basic $credentials" );
    $req->header( 'Accept' => 'application/json' );

    $req->content_type( 'application/x-www-form-urlencoded' );
    $req->content( $self->normalize_params( $data ) );

 view release on metacpan or  search on metacpan

t/business/mondo.t  view on Meta::CPAN

);

isa_ok( $Mondo->client,'Business::Mondo::Client' );

# monkey patching Mojo::UserAgent here to make this test work without
# having to actually hit the endpoints or use credentials
no warnings 'redefine';
no warnings 'once';
my $mock = Test::MockObject->new;
$mock->mock( 'success',sub { 1 } );
$mock->mock( 'headers',sub { $mock } );

 view release on metacpan or  search on metacpan

t/business/monzo.t  view on Meta::CPAN

);

isa_ok( $Monzo->client,'Business::Monzo::Client' );

# monkey patching Mojo::UserAgent here to make this test work without
# having to actually hit the endpoints or use credentials
no warnings 'redefine';
no warnings 'once';
my $mock = Test::MockObject->new;
$mock->mock( 'success',sub { 1 } );
$mock->mock( 'headers',sub { $mock } );

 view release on metacpan or  search on metacpan

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

my $username = $ENV{PERL_CARDCONNECT_USERNAME};
my $password = $ENV{PERL_CARDCONNECT_PASSWORD};
my $mid      = $ENV{PERL_CARDCONNECT_MID};

plan skip_all => 'No credentials set in the environment.'
  . ' Set PERL_CARDCONNECT_MID, PERL_CARDCONNECT_USERNAME and '
  . 'PERL_CARDCONNECT_PASSWORD to run this test.'
  unless ( $username && $password && $mid );

my $client = new_ok( use_module('Business::OnlinePayment'), ['CardConnect'] );

 view release on metacpan or  search on metacpan

t/authorization-only.t  view on Meta::CPAN

use Module::Runtime qw( use_module );

my $username = $ENV{PERL_BUSINESS_CYBERSOURCE_USERNAME};
my $password = $ENV{PERL_BUSINESS_CYBERSOURCE_PASSWORD};

plan skip_all => 'No credentials set in the environment.'
  . ' Set PERL_BUSINESS_CYBERSOURCE_USERNAME and '
  . 'PERL_BUSINESS_CYBERSOURCE_PASSWORD to run this test.'
  unless ( $username && $password );

my $client = new_ok( use_module('Business::OnlinePayment'), ['CyberSource'] );

 view release on metacpan or  search on metacpan

lib/Business/OnlinePayment/DLocal.pm  view on Meta::CPAN

        url => 'https://'.$self->server.'/api_curl/query/paystatus',
        control => [], # not used
        post_data => ['x_login','x_trans_key','x_version','x_invoice','x_document','type'],
    };

    # query api uses different credentials
    local $content->{'login'} = $content->{'reports_login'};
    local $content->{'password'} = $content->{'reports_key'};

    my $res = $self->_send_request($config,$content);
    $self->error_message( $res->{'desc'} );

 view release on metacpan or  search on metacpan

ElavonVirtualMerchant.pm  view on Meta::CPAN

=head1 DESCRIPTION

This module lets you use the Elavon (formerly Nova Information Systems) Virtual Merchant real-time payment gateway, a successor to viaKlix, from an application that uses the Business::OnlinePayment interface.

You need an account with Elavon.  Elavon uses a three-part set of credentials to allow you to configure multiple 'virtual terminals'.  Since Business::OnlinePayment only passes a login and password with each transaction, you must pass the third item,...

Elavon offers a number of transaction types, including electronic gift card operations and 'PINless debit'.  Of these, only credit card transactions fit the Business::OnlinePayment model.

Since the Virtual Merchant API is just a newer version of the viaKlix API, this module subclasses Business::OnlinePayment::viaKlix.

 view release on metacpan or  search on metacpan

t/transaction.t  view on Meta::CPAN

use Business::OnlinePayment;

my $login = $ENV{BOP_TEST_LOGIN};
my $password = $ENV{BOP_TEST_PASSWORD};
if (!$login) {
  plan skip_all => "no test credentials provided; set BOP_TEST_LOGIN and BOP_TEST_PASSWORD to test communication with the gateway.",
  1;
  exit(0);
}

plan tests => 2;

 view release on metacpan or  search on metacpan

lib/Business/OnlinePayment/IPayment/Response.pm  view on Meta::CPAN

=head1 SYNOPSIS

  # where %params are the GET parameters
  $ipayres = Business::OnlinePayment::IPayment::Response->new(%params);

  $ipayres->set_credentials(
                          my_amount   => "5000",
                          my_currency => "EUR",
                          my_userid   => "99999",
                          my_security_key => "testtest",
                         );

 view release on metacpan or  search on metacpan

lib/Business/OnlinePayment/Ogone.pm  view on Meta::CPAN

    $self->{_content}->{currency} ||= 'EUR';

    # Table to translate from Business::OnlinePayment::Ogone args to Ogone API args
    # The values of this hash are also used as a list of allowed args for the HTTP POST request, thus preventing information leakage
    my %ogone_api_args = (
        # credentials
        login   => 'USERID',
        password => 'PSWD',
        PSPID   => 'PSPID',
        
        # primary identifier

 view release on metacpan or  search on metacpan

lib/Business/OnlinePayment/Vindicia/Select.pm  view on Meta::CPAN

     "Vindicia::Select",
     default_Origin => 'NEW', # or RECURRING
  );
  push @{$client->{'mocked'}}, {
     action => 'billTransactions', # must match the action you call, or the script will die
     login => 'mocked', # must match the login credentials used, or the script will die
     resp => 'ok_duplicate', # or you can return a HASH of the actual data you want to mock
  };

=head1 FUNCTIONS

 view release on metacpan or  search on metacpan

eg/lib/Example/Role/Auth.pm  view on Meta::CPAN

use MooX::Options;

use Business::PayPal::API qw( GetTransactionDetails TransactionSearch );
use Types::Standard qw( InstanceOf );

# credentials
option password => (
    is       => 'ro',
    format   => 's',
    required => 1,
    doc      => 'password',

 view release on metacpan or  search on metacpan

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

      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';
}

 view release on metacpan or  search on metacpan

lib/Business/PayPal/Permissions.pm  view on Meta::CPAN

=item * password

=item * signature

credentials from paypal.com

=item * app_id

app id from x.com, use 'APP-80W284485P519543T' for sandbox

 view release on metacpan or  search on metacpan

examples/test.pl  view on Meta::CPAN

use lib "$Bin/../lib";
use Business::PayPoint;
use Data::Dumper;

my $bp = Business::PayPoint->new();
$bp->set_credentials( 'secpay', 'secpay', 'secpay' );

my %result = $bp->validateCardFull(
    'trans_id'    => 'tran0001',
    'ip'          => '127.0.0.1',
    'name'        => 'Mr Cardholder',

 view release on metacpan or  search on metacpan

t/210-USPS_Online-basic.t  view on Meta::CPAN

use Scalar::Util qw(blessed);

plan skip_all => 'Required modules not installed'
    unless Business::Shipping::Config::calc_req_mod('USPS_Online');

plan skip_all => 'No credentials'
    unless $ENV{USPS_USER_ID} and $ENV{USPS_PASSWORD};

plan skip_all => 'Slow tests. Set TEST_SLOW to run.'
    unless $ENV{TEST_SLOW};

 view release on metacpan or  search on metacpan

share/tnt-expressconnect/xsd/pricing/v3/PriceResponseOUT.xsd  view on Meta::CPAN

  </xs:complexType>

  <xs:complexType name="brokenRule">
    <xs:annotation>
      <xs:documentation>The brokenRule section is for application errors which the customer can resolve such as invalid
        postcode, login credentials.
      </xs:documentation>
    </xs:annotation>
    <xs:sequence>
      <xs:element name="rateId" type="xs:string">
        <xs:annotation>

 view release on metacpan or  search on metacpan

lib/Business/TrueLayer/Authenticator.pm  view on Meta::CPAN

    }

    my $url = "https://" . $self->host . "/connect/token";
    my $json = JSON->new->utf8->canonical->encode(
        {
            grant_type    => 'client_credentials',
            client_id     => $self->client_id,
            client_secret => $self->client_secret,
            scope         => join( " ",$self->scope->@* ),
        }
    );

 view release on metacpan or  search on metacpan

lib/Business/UPS/Tracking.pm  view on Meta::CPAN

UPS account password

=head2 config

Optionally you can retrieve all or some UPS webservice credentials from a
configuration file. This accessor holds the path to this file.
Defaults to C<~/.ups_tracking>

Example configuration file:

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

        * Removed two tests that started failing due to changes in the API
          response.

        * Skip tracking tests (which are disabled anyway) rather than failing if
          test credentials aren't set.

        * Access to the testing/staging environment is no longer granted by
          default and testing against the production environment is allowed
          (load/stress testing isn't), so tests are now run against the
          production API by default.  To run against the testing/staging
          environment, set USPS_WEBTOOLS_ENVIRONMENT to TESTING while setting up
          your credentials.

1.124 2020-09-18
        * New maintainer

1.122 2016-10-13T00:13:29Z

 view release on metacpan or  search on metacpan

lib/Business/cXML.pm  view on Meta::CPAN

}


=item C<B<sender_callback>( I<$sub> )>

By default, a request's From/Sender credentials are only used to guess
response credentials.  If you specify a callback here, it will be invoked
immediately after XML parsing, before passing to transaction handlers, giving
you an opportunity to authenticate the caller.

Your subroutine will be passed 3 arguments:

 view release on metacpan or  search on metacpan

lib/Business/eWAY/RapidAPI.pm  view on Meta::CPAN

    else {
        $content_type = "application/json";
    }

    my $ua = $self->ua;
    $ua->credentials( $self->username, $self->password );
    my $resp;
    if ($is_post) {
        $resp = $ua->post(
            $url,
            Content        => $request,

 view release on metacpan or  search on metacpan

t/samples/slashdot.rss  view on Meta::CPAN

      <slash:section>hardware</slash:section>
      <slash:hit_parade>6,6,4,2,0,0,0</slash:hit_parade>
      <feedburner:origLink>http://slashdot.feedsportal.com/c/35028/f/647410/s/3c35f940/sc/38/l/0Lhardware0Bslashdot0Borg0Cstory0C140C0A70C0A60C0A0A392340Cby0E20A450Ethe0Etop0Especies0Ewill0Eno0Elonger0Ebe0Ehumans0Eand0Ethat0Ecould0Ebe0Ea0Eproblem0Dut...
    </item>
    
    <item><title>Two Earth-Like Exoplanets Don't Actually Exist</title><link>http://rss.slashdot.org/~r/Slashdot/slashdot/~3/NcsdVQtQOQQ/story01.htm</link><description>Two suspected exoplanets, Gliese 581g and 581d, have been shown to not exist, and ...

 view release on metacpan or  search on metacpan

docs/database.html  view on Meta::CPAN

   my @events = $schema->resultset('Event')->search( { hostname => 'foo' } );
</pre>

    <p>More typically you will not want to specify the user
    credentials in the script itself so the better approach is to use
    a configuration file. That can be done like this:</p>

<pre>
   use BuzzSaw::DB;

 view release on metacpan or  search on metacpan

lib/Buzznet/API.pm  view on Meta::CPAN

sub getXMLRPC
{
  my $self = shift;
  my $cli = RPC::XML::Client->new($self->url);
  $cli->credentials("Buzznet",$self->{"username"},$self->{"password"});
  my $request = $cli->request;
  return $cli;
}

sub sendRequest