Result:
found more than 636 distributions - search limited to the first 2001 files matching your query ( run in 1.288 )


Buffalo-G54

 view release on metacpan or  search on metacpan

lib/Buffalo/G54.pm  view on Meta::CPAN


    $self->{agent} = WWW::Mechanize::Retry->new(
        map { $_ => $self->{$_} } qw(nof_retries sleep_between_retries)
    );

    DEBUG "Setting credentials for $self->{ip}:80 $self->{user} $self->{realm}";

    $self->{agent}->credentials(
        "$self->{ip}:80", 
        $self->{realm},
        $self->{user},
        $self->{password}
    );

 view all matches for this distribution


Burpsuite-Parser

 view release on metacpan or  search on metacpan

t/test1.xml  view on Meta::CPAN

    <host>http://192.168.163.128</host>
    <path><![CDATA[/]]></path>
    <location><![CDATA[/]]></location>
    <severity>Information</severity>
    <confidence>Certain</confidence>
    <issueBackground><![CDATA[The TRACE method is designed for diagnostic purposes. If enabled, the web server will respond to requests which use the TRACE method by echoing in its response the exact request which was recieved.<br><br>Although this b...
    <remediationBackground><![CDATA[The TRACE method should be disabled on the web server.]]></remediationBackground>
    <requestresponse>
      <request><![CDATA[TRACE / HTTP/1.0
Host: 192.168.163.128
Cookie: 5f14521172325ac3

 view all matches for this distribution


Business-AU-Ledger

 view release on metacpan or  search on metacpan

lib/Business/AU/Ledger.pm  view on Meta::CPAN

Installing the module will have installed the version of .htledger.conf as shipped within the distro.

If you edit your local copy of .htledger.conf, you must use your edited copy to overwrite the version installed
automatically.

Specifically, the database credentials in this file will need to be edited, since several programs use them
to connect to the database.

=item Install the CGI script ledger.cgi

Copy cgi-bin/ledger.cgi into your web server's cgi-bin directory, and mark it as executable.

 view all matches for this distribution


Business-CPI-Gateway-MercadoPago

 view release on metacpan or  search on metacpan

lib/Business/CPI/Gateway/MercadoPago.pm  view on Meta::CPAN

        'Content-Type' => 'application/x-www-form-urlencoded' );

    my $r = $ua->post(
        $auth_url,
        {
            grant_type    => 'client_credentials',
            client_id     => $self->receiver_email,
            client_secret => $self->token
        }
    );
    die "Couldn't connect to '$auth_url': " . $r->status_line

 view all matches for this distribution


Business-CyberSource

 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 all matches for this distribution


Business-EDI

 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 all matches for this distribution


Business-Fixflo

 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 all matches for this distribution


Business-GoCardless

 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 all matches for this distribution


Business-Mondo

 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 all matches for this distribution


Business-Monzo

 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 all matches for this distribution


Business-OnlinePayment-CardConnect

 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 all matches for this distribution


Business-OnlinePayment-CyberSource

 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 all matches for this distribution


Business-OnlinePayment-DLocal

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

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

        url => 'https://'.$self->server.'/api_curl/query/refundstatus',
        control => [], # not used
        post_data => ['x_login','x_trans_key','x_version','x_refund','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'} );

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

        url => 'https://'.$self->server.'/api_curl/query/currencyexchange',
        control => [], # not used
        post_data => ['x_login','x_trans_key','x_country','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);
    if ($res =~ /^\d+(:?\.\d+)$/ && $res > 0 ) {

 view all matches for this distribution


Business-OnlinePayment-ElavonVirtualMerchant

 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 all matches for this distribution


Business-OnlinePayment-FirstDataGlobalGateway

 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 all matches for this distribution


Business-OnlinePayment-IPayment

 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",
                         );

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




=head2 METHODS

=head3 set_credentials(%hash)

As a shortcut, you can set the above attribute using this method

=cut

sub set_credentials {
    my ($self, %args) = @_;
    if (defined $args{my_userid}) {
        $self->my_userid($args{my_userid});
    }
    if (defined $args{my_security_key}) {

 view all matches for this distribution


Business-OnlinePayment-Litle

 view release on metacpan or  search on metacpan

t/tokenize.t  view on Meta::CPAN

    $tx->content(%content);
    my $ret = $tx->submit;
    $token_result = $tx->result_code;
    skip "contact litle support to enable tokens",4 if defined $token_result && $token_result == 821;
    like( $tx->result_code,   qr/^(000|802)$/,   "result_code(): ".($tx->result_code||'').' - '.($tx->error_message||'') );
    skip "transaction did not process (check litle credentials)",3 if ! defined $tx->result_code && $tx->error_message =~ /System Error/;
    like( $tx->order_number, qr/^\w{5,19}/, "order_number(): ".($tx->order_number||'') );
    is( $tx->is_success,    1,    "is_success: 1" );
    like( $tx->card_token, qr/^\w{5,19}/, "card_token(): ".($tx->card_token||'') );
}

 view all matches for this distribution


Business-OnlinePayment-Ogone

 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

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

    # Call is_success() with either a true or false value, indicating if the transaction was successful or not.
    if ( $response_code =~ m/^200/ ) {
        $self->is_success(0); # defaults to fail


        # croak 'incorrect credentials. WARNING: continuing with bad credentials will block your account s: '.$xml->{STATUS}.'{}'.$xml->{NCERROR} if $xml->{NCERROR} eq '50001119';

        if ( $xml->{STATUS} == 46 ) { $self->is_success(1) } # identification required
        if ( $xml->{STATUS} == 5  ) { $self->is_success(1) } # authorization accepted
        if ( $xml->{STATUS} == 9  ) { $self->is_success(1) } # payment accepted
        if ( $xml->{STATUS} == 91 ) { $self->is_success(1) } # partial payment accepted

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

payment processor will act on them in different ways, you can consider it a sort of dispatch table. The main actors are
C<action>, C<alias>, C<win3ds>.

=head3 content() internal parameter mappings

        # credentials
        login   => 'USERID',
        password => 'PSWD',
        PSPID   => 'PSPID',
        
        # primary identifier

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


=back

=head1 TESTING

To test this module you will need to set your credentials in the environment. Put the following in a file in your hoe directory e.g. F<~/.ogone>
The password is not the same as the PSPID password, you will need to enter the API users' password.

    export OGONE_PSPID=bob
    export OGONE_USERID=bob_api
    export OGONE_PSWD=foobar

 view all matches for this distribution


Business-OnlinePayment-PayPal

 view release on metacpan or  search on metacpan

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


sub transactionid { shift()->authorization(@_); }

sub order_number { shift()->correlationid(@_); }

=head2 get_credentials()

Get the credential information for Business::PayPal::API that was
provided to Business::OnlinePayment::new().  The supported arguments
are:

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

if behavior like this is needed in this module so I will wait for user
feedback to determine if we need/want to implement this.

=cut

sub get_credentials {
    my $self = shift;

    my %credentials;
    my @cred_vars = (
        [qw(PKCS12File PKCS12Password)],
        [qw(CertFile KeyFile)], [qw(Signature)],
    );

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

        foreach my $var (@vars) {

            # HACK: Business::OnlinePayment makes method lower case
            my $method = lc($var);
            if ( $self->can($method) ) {
                $credentials{$var} = $self->$method;
            }
            else {
                $need++;
            }
        }

        if ($need) {
            undef %credentials;
        }
        else {
            last;
        }
    }
    return %credentials;
}

=head2 get_request_data()

Return a hash %data with all the data from content() that we will try

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


=over 4

=item *

Get credentials to be used for authentication with PayPal by calling
L</get_credentials()>.

=item *

Get request data to be passed to PayPal by calling
L</get_request_data()>.

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

=cut

sub submit {
    my $self = shift;

    my %credentials = $self->get_credentials;
    my %request     = $self->get_request_data;

    my $pp =
      Business::PayPal::API->new( %credentials,
        sandbox => $self->test_transaction, );

    my %resp = $pp->DoDirectPaymentRequest(%request);

    $self->server_response( \%resp );

 view all matches for this distribution


Business-OnlinePayment-Vindicia-Select

 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 all matches for this distribution


Business-PayPal-API

 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 all matches for this distribution


Business-PayPal-NVP

 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 all matches for this distribution


Business-PayPal-Permissions

 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 all matches for this distribution


Business-PayPoint

 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 all matches for this distribution


Business-Shipping

 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 all matches for this distribution


Business-TNT-ExpressConnect

 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 all matches for this distribution


Business-TrueLayer

 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 all matches for this distribution


Business-UPS-Tracking

 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 all matches for this distribution


Business-US-USPS-WebTools

 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 all matches for this distribution


Business-cXML

 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 all matches for this distribution


( run in 1.288 second using v1.01-cache-2.11-cpan-a5abf4f5562 )