endpoint results from the CPAN

Bio/DB/GFF/Feature.pm view on Meta::CPAN

	    $self->{stop}  = $low
	      if (!defined($self->{stop}))  || $low  < $self->{stop};
	  }
	}

	# fix up endpoints of targets too (for homologies only)
	my $h = $feat->group;
	next unless $h && $h->isa('Bio::DB::GFF::Homol');
	next unless $g && $g->isa('Bio::DB::GFF::Homol');

	($start,$stop) = ($h->{start},$h->{stop});

Bio/DB/GFF/Feature.pm view on Meta::CPAN

  return $self->gff3_string(@_) if $version == 3;

  my ($start,$stop) = ($self->start,$self->stop);

  # the defined() tests prevent uninitialized variable warnings, when dealing with clone objects
  # whose endpoints may be undefined
  ($start,$stop) = ($stop,$start) if defined($start) && defined($stop) && $start > $stop;

  my ($class,$name) = ('','');
  my $strand = ('-','.','+')[$self->strand+1];

Bio/DB/GFF/Feature.pm view on Meta::CPAN

  my $self = shift;
  my ($recurse,$parent) = @_;
  my ($start,$stop) = ($self->start,$self->stop);

  # the defined() tests prevent uninitialized variable warnings, when dealing with clone objects
  # whose endpoints may be undefined
  ($start,$stop) = ($stop,$start) if defined($start) && defined($stop) && $start > $stop;

  my $strand = ('-','.','+')[$self->strand+1];
  my $ref = $self->refseq;
  my $n   = ref($ref) ? $ref->name : $ref;

view all matches for this distribution

BmltClient-ApiClient

34 results

lib/BmltClient/ApiClient.pm view on Meta::CPAN

    }
    $self->{http_timeout} = $seconds;
}

# make the HTTP request
# @param string $resourcePath path to method endpoint
# @param string $method method to call
# @param array $queryParams parameters to be place in query URL
# @param array $postData parameters to be placed in POST body
# @param array $headerParams parameters to be place in request header
# @return mixed

lib/BmltClient/ApiClient.pm view on Meta::CPAN

    my ($self, $header_params, $query_params, $auth_settings) = @_;

    return $self->_global_auth_setup($header_params, $query_params)
        unless $auth_settings && @$auth_settings;

    # one endpoint can have more than 1 auth settings
    foreach my $auth (@$auth_settings) {
        # determine which one to use
        if (!defined($auth)) {
            # TODO show warning about auth setting not defined
        }

lib/BmltClient/ApiClient.pm view on Meta::CPAN

           # TODO show warning about security definition not found
        }
    }
}

# The endpoint API class has not found any settings for auth. This may be deliberate,
# in which case update_params_for_auth() will be a no-op. But it may also be that the
# OpenAPI Spec does not describe the intended authorization. So we check in the config for any
# auth tokens and if we find any, we use them for all endpoints;
sub _global_auth_setup {
    my ($self, $header_params, $query_params) = @_;

    my $tokens = $self->{config}->get_tokens;
    return unless keys %$tokens;

view all matches for this distribution

BoardStreams

1 match

lib/Mojolicious/Plugin/BoardStreams.pm view on Meta::CPAN

            },
        });
    });

    $app->hook(around_action => async sub ($next, $c, $action, $last) {
        if ($last and $c->stash->{'boardstreams.endpoint'}) {
            $c->render_later;
            try {
                my $ret = $next->();
                await $ret if $ret->$_can('then');
                return await $c->bs->init_client_p;

view all matches for this distribution

Boost-Geometry-Utils

8 results

src/boost/geometry/strategies/agnostic/point_in_poly_oriented_winding.hpp view on Meta::CPAN

        calculation_type const p = get<D>(point);
        calculation_type const s1 = get<D>(seg1);
        calculation_type const s2 = get<D>(seg2);


        // Check if one of segment endpoints is at same level of point
        bool eq1 = math::equals(s1, p);
        bool eq2 = math::equals(s2, p);

        if (eq1 && eq2)
        {

view all matches for this distribution

Boost-Graph

1 match

include/boost/regex/v4/basic_regex_creator.hpp view on Meta::CPAN

   //
   first = char_set.ranges_begin();
   last = char_set.ranges_end();
   while(first != last)
   {
      // first grab the endpoints of the range:
      digraph<charT> c1 = *first;
      c1.first = this->m_traits.translate(c1.first, this->m_icase);
      c1.second = this->m_traits.translate(c1.second, this->m_icase);
      ++first;
      digraph<charT> c2 = *first;

include/boost/regex/v4/basic_regex_creator.hpp view on Meta::CPAN

   //
   first = char_set.ranges_begin();
   last = char_set.ranges_end();
   while(first != last)
   {
      // first grab the endpoints of the range:
      charT c1 = this->m_traits.translate(first->first, this->m_icase);
      ++first;
      charT c2 = this->m_traits.translate(first->first, this->m_icase);
      ++first;
      // different actions now depending upon whether collation is turned on:

view all matches for this distribution

Bootylicious

1 match

lib/Bootylicious/Plugin/Pingback.pm view on Meta::CPAN


            return unless $c->req->method =~ m/GET|HEAD/;

            return unless $c->res->code && $c->res->code == 200;

            return unless $c->match->endpoint->name eq 'article';

            $c->res->headers->header(
                'X-Pingback' => $c->url_for('pingback', format => undef)->to_abs);
        }
    );

view all matches for this distribution

Bot-ChatBots-Messenger

1 match

lib/Bot/ChatBots/Messenger/Sender.pod view on Meta::CPAN


=head2 B<< url >>

   my $fb_messenger_url = $obj->url;

The Facebook Messenger API endpoint. Defaults to
L<https://graph.facebook.com/v2.6/me/messages>.

=head1 METHODS

This class consumes the following roles (inheriting all its methods):

view all matches for this distribution

Bot-ChatBots-Telegram

3 results

eg/README.md view on Meta::CPAN

the command line with the first program:

    $ ./longpoll $TOKEN

The second program needs a place to be installed and run, as well as
exposing an HTTPS type of endpoint, so you need to do an extra mile
to see it at work.

view all matches for this distribution

Box2D

1 match

examples/pendulum.pl view on Meta::CPAN

        for (1..$precision){
            $world->Step( $timestep, $vIters, $pIters );
            $world->ClearForces();
        }
        
        my $endpoint = $bobs[$#bobs]{body}->GetPosition();
        my $current_path_pos
            = [ w2s( $endpoint->x ), w2s( s2w($height) - $endpoint->y ) ];

        # trace path on bg
        $bg->draw_line( $prev_path_pos, $current_path_pos, $pathColor )
            if $prev_path_pos;
        $prev_path_pos = $current_path_pos;

view all matches for this distribution

Brackup

1 match

lib/Brackup/Target/Riak.pm view on Meta::CPAN


I<(Mandatory.)> Must be "B<Riak>".

=item B<riak_host_url>

URL specifying your riak cluster endpoint. Default: http://127.0.0.1:8098/.

=item B<riak_r> 

riak read quorum - how many replicas need to agree when retrieving an object. 
Default: 2.

view all matches for this distribution

Broadworks-OCIP

10 results


=back

=head3 GroupEndpointGetListRequest

Request to search endpoints in the group.

The response is either C<GroupEndpointGetListResponse> or C<ErrorResponse>.

Fixed parameters are:-


=back

=head3 ServiceProviderEndpointGetListRequest

Request to search endpoints in the service provider/enterprise.

The response is either C<ServiceProviderEndpointGetListResponse> or
C<ErrorResponse>.

Fixed parameters are:-

Additionally there are generic tagged parameters.

=head3 SystemAuthenticationLockoutExportDataGetRequest

Request to export system wide authentication lockout data to a file. All locked
out device profiles, sip endpoints, and sip trunk groups are returned.

The response is either a C<SuccessResponse> or an C<ErrorResponse>.

Fixed parameters are:-


Additionally there are generic tagged parameters.

=head3 SystemEndpointGetListRequest

Request to search endpoints in the system.

The response is either C<SystemEndpointGetListResponse> or C<ErrorResponse>.

Fixed parameters are:-


=back

=head3 SystemSIPAuthenticationLockoutClearAllRequest

Request to clear all sip authentication lockouts (both endpoint and trunk
group) in the system.

The response is either a C<SuccessResponse> or an C<ErrorResponse>.

Fixed parameters are:-


=back

=head3 SystemSIPAuthenticationEndpointLockoutClearRequest

Request to clear sip authentication endpoint lockouts in the system.

The response is either a C<SuccessResponse> or an C<ErrorResponse>.

Fixed parameters are:-


Additionally there are generic tagged parameters.

=head3 SystemSIPAuthenticationEndpointLockoutGetRequest

Request to get sip authentication endpoint lockout data in the system.

The response is either a C<SystemSIPAuthenticationEndpointLockoutGetResponse>
or an C<ErrorResponse>.

Fixed parameters are:-


=back

=head3 UserSharedCallAppearanceDeleteEndpointListRequest14

Disassociate one or more of a user's Shared Call Appearance endpoints.

The response is either a C<SuccessResponse> or an C<ErrorResponse>.

Fixed parameters are:-


Additionally there are generic tagged parameters.

=head3 UserSharedCallAppearanceGetEndpointRequest

Get the user's Shared Call Appearance endpoint setting.

The response is either a C<UserSharedCallAppearanceGetEndpointResponse> or an
C<ErrorResponse>.

Fixed parameters are:-

view all matches for this distribution

Brownie

15 results

t/driver/mechanize/headers.t view on Meta::CPAN


my $httpd = Test::Fake::HTTPD->new(timeout => 30);
$httpd->run(sub { [ 200, [ 'Content-Type' => 'text/html; charset=utf-8' ], [ $body ] ] });

subtest 'Headers' => sub {
    $driver->visit($httpd->endpoint);

    subtest 'status_code' => sub {
        is $driver->status_code => '200';
    };

view all matches for this distribution

Browsermob-Proxy

3 results

lib/Browsermob/Proxy.pm view on Meta::CPAN

also pass a string to choose your own initial page ref.

    $proxy->new_har;
    $proxy->new_har('Google');

This convenience method is just a helper around the actual endpoint
method C</create_new_har>; it uses the defaults of not capturing
headers, request/response bodies, or binary content. If you'd like to
capture those items, you can use C<create_new_har> as follows:

    $proxy->create_new_har(

view all matches for this distribution

Bundle-WATERKIP

1 match

    timeout      => 60,
    X            => 'POST',
    'ca-path'    => '/etc/ssl/certs',
);

my @required = qw(content endpoint);
my @options = qw(help endpoint=s content=s content-type=s timeout=i k d v cc=s ca=s ca-path=s X=s man redir=s@ agent=s r);

if ($script_name eq 'opnpost') {
    push(@required, 'content-type');
    push(@options, 'wrap-soap');
    push(@options, 'soap-version=s');

        : ()
    }
);

my $req = HTTP::Request->new(
    $options{X} => $options{endpoint},
    HTTP::Headers->new(
        Content_Type => $options{'content-type'},
        exists $options{'soap-action'} ?
        ( SOAPAction   => sprintf('"%s"', $options{'soap-action'}) ) : (),
    ),


opnpost opnjson opnsoap OPTIONS

=head1 DESCRIPTION

opnpost is a generic useragent that posts data to a particual endpoint.
It is basicly wget or curl, but only for POSTING data.
opnsoap is a client for posting SOAP and opnjson is a client for posting JSON

=head1 NAME


=head1 OPTIONS

=over

=item endpoint

The end point you want to talk to. Required

=item content_type

view all matches for this distribution

Burpsuite-Parser

1 match

t/test1.xml view on Meta::CPAN

    <host>http://192.168.163.128</host>
    <path><![CDATA[/beef/]]></path>
    <location><![CDATA[/beef/]]></location>
    <severity>Low</severity>
    <confidence>Certain</confidence>
    <issueBackground><![CDATA[The application uses the GET method to submit passwords, which are transmitted within the query string of the requested URL. Sensitive information within URLs may be logged in various locations, including the user's brow...
    <remediationBackground><![CDATA[All forms submitting passwords should use the POST method. To achieve this, you should specify the method attribute of the FORM tag as <b>method="POST"</b>. It may also be necessary to modify the corresponding serv...
    <issueDetail><![CDATA[The page contains a form with the following action URL, which is submitted using the GET method:<ul><li>http://192.168.163.128<wbr>/beef/</li></ul>The form contains the following password field:<ul><li>passwd</li></ul>]]></i...
    <requestresponse>
      <request><![CDATA[GET /beef/ HTTP/1.1
Host: 192.168.163.128

view all matches for this distribution

Business-Fixflo

6 results

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

        # some other failure?
        ...
    }

You can view some useful debugging information by setting the FIXFLO_DEBUG
env varible, this will show the calls to the Fixflo endpoints as well as a
stack trace in the event of exceptions:

    $ENV{FIXFLO_DEBUG} = 1;

=cut

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


    my $paginator = $ff->issues( %query_params );

    my $issue     = $ff->issue( $id );

Will return a L<Business::Fixflo::Paginator> object (when calling endpoints
that return lists of items) or a Business::Fixflo:: object for the Issue,
Agency, etc.

%query_params refers to the possible query params as shown in the currency
Fixflo API documentation. For example: page=[n]. You can pass DateTime objects

view all matches for this distribution

Business-GoCardless

21 results

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


sub update {
    my ( $self,%params ) = @_;

    return $self->client->api_put(
        sprintf( $self->endpoint,$self->id ),
        { mandates => { %params } },
    );
}

=head1 Status checks on a mandate

view all matches for this distribution

Business-LiveDrive

1 match

# Copyright (C) 2000-2006 Paul Kulchenko, Byrne Reese
# -- generated at [Tue Nov 16 19:22:52 2010]
# -- generated from http://www.livedrive.com/ResellersService/ResellerAPI.asmx?WSDL
my %methods = (
GetUsers => {
    endpoint => 'http://www.livedrive.com/ResellersService/ResellerAPI.asmx',
    soapaction => 'http://www.livedrive.com/GetUsers',
    namespace => 'http://www.livedrive.com/',
    parameters => [
      SOAP::Data->new(name => 'apiKey', type => 's:string', attr => {}),
      SOAP::Data->new(name => 'page', type => 's:int', attr => {}),
    ], # end parameters
  }, # end GetUsers
UpgradeUser => {
    endpoint => 'http://www.livedrive.com/ResellersService/ResellerAPI.asmx',
    soapaction => 'http://www.livedrive.com/UpgradeUser',
    namespace => 'http://www.livedrive.com/',
    parameters => [
      SOAP::Data->new(name => 'apiKey', type => 's:string', attr => {}),
      SOAP::Data->new(name => 'userID', type => 's:int', attr => {}),
      SOAP::Data->new(name => 'capacity', type => 's:string', attr => {}),
      SOAP::Data->new(name => 'cardVerificationValue', type => 's:string', attr => {}),
    ], # end parameters
  }, # end UpgradeUser
AddBackup => {
    endpoint => 'http://www.livedrive.com/ResellersService/ResellerAPI.asmx',
    soapaction => 'http://www.livedrive.com/AddBackup',
    namespace => 'http://www.livedrive.com/',
    parameters => [
      SOAP::Data->new(name => 'apiKey', type => 's:string', attr => {}),
      SOAP::Data->new(name => 'userID', type => 's:int', attr => {}),
    ], # end parameters
  }, # end AddBackup
UpdateUser => {
    endpoint => 'http://www.livedrive.com/ResellersService/ResellerAPI.asmx',
    soapaction => 'http://www.livedrive.com/UpdateUser',
    namespace => 'http://www.livedrive.com/',
    parameters => [
      SOAP::Data->new(name => 'apiKey', type => 's:string', attr => {}),
      SOAP::Data->new(name => 'userID', type => 's:int', attr => {}),

      SOAP::Data->new(name => 'isSharing', type => 's:boolean', attr => {}),
      SOAP::Data->new(name => 'hasWebApps', type => 's:boolean', attr => {}),
    ], # end parameters
  }, # end UpdateUser
AddUserWithLimit => {
    endpoint => 'http://www.livedrive.com/ResellersService/ResellerAPI.asmx',
    soapaction => 'http://www.livedrive.com/AddUserWithLimit',
    namespace => 'http://www.livedrive.com/',
    parameters => [
      SOAP::Data->new(name => 'apiKey', type => 's:string', attr => {}),
      SOAP::Data->new(name => 'email', type => 's:string', attr => {}),

      SOAP::Data->new(name => 'cardVerificationValue', type => 's:string', attr => {}),
      SOAP::Data->new(name => 'productType', type => 's:string', attr => {}),
    ], # end parameters
  }, # end AddUserWithLimit
AddUser => {
    endpoint => 'http://www.livedrive.com/ResellersService/ResellerAPI.asmx',
    soapaction => 'http://www.livedrive.com/AddUser',
    namespace => 'http://www.livedrive.com/',
    parameters => [
      SOAP::Data->new(name => 'apiKey', type => 's:string', attr => {}),
      SOAP::Data->new(name => 'email', type => 's:string', attr => {}),

      SOAP::Data->new(name => 'cardVerificationValue', type => 's:string', attr => {}),
      SOAP::Data->new(name => 'productType', type => 's:string', attr => {}),
    ], # end parameters
  }, # end AddUser
AddBackupWithLimit => {
    endpoint => 'http://www.livedrive.com/ResellersService/ResellerAPI.asmx',
    soapaction => 'http://www.livedrive.com/AddBackupWithLimit',
    namespace => 'http://www.livedrive.com/',
    parameters => [
      SOAP::Data->new(name => 'apiKey', type => 's:string', attr => {}),
      SOAP::Data->new(name => 'userID', type => 's:int', attr => {}),
      SOAP::Data->new(name => 'capacity', type => 's:string', attr => {}),
    ], # end parameters
  }, # end AddBackupWithLimit
GetUser => {
    endpoint => 'http://www.livedrive.com/ResellersService/ResellerAPI.asmx',
    soapaction => 'http://www.livedrive.com/GetUser',
    namespace => 'http://www.livedrive.com/',
    parameters => [
      SOAP::Data->new(name => 'apiKey', type => 's:string', attr => {}),
      SOAP::Data->new(name => 'userID', type => 's:int', attr => {}),


sub _call {
    my ($self, $method) = (shift, shift);
    my $name = UNIVERSAL::isa($method => 'SOAP::Data') ? $method->name : $method;
    my %method = %{$methods{$name}};
    $self->proxy($method{endpoint} || Carp::croak "No server address (proxy) specified")
        unless $self->proxy;
    my @templates = @{$method{parameters}};
    my @parameters = ();
    foreach my $param (@_) {
        if (@templates) {

        else {
            push(@parameters, $param);
        }
    }

    $self->endpoint($method{endpoint})
       ->ns($method{namespace})
       ->on_action(sub{qq!"$method{soapaction}"!});

  $self->default_ns('http://www.livedrive.com/');

view all matches for this distribution

Business-MollieAPI

2 results

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


use Business::MollieAPI::Payments;
use Business::MollieAPI::Methods;
use Business::MollieAPI::Issuers;

has endpoint => (
    is      => 'rw',
    builder => 1,
);

sub _build_endpoint {
    my $self = shift;
    return URI->new('https://api.mollie.nl');
}

has version => (

view all matches for this distribution

Business-Mondo

3 results

mondo_emulator.pl view on Meta::CPAN


        $c->render( json => {} );
    }
};

# convenience methods for file upload emulation, these endpoints
# do not exist in the Mondo API, they are here to fake uploads
get '/file/:entity_id/:file_name' => sub {
    my ( $c ) = @_;

    $c->render( text => "OK" );

view all matches for this distribution

Business-Monzo

6 results

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

        # some other failure?
        ...
    }

You can view some useful debugging information by setting the MONZO_DEBUG
env varible, this will show the calls to the Monzo endpoints as well as a
stack trace in the event of exceptions:

    $ENV{MONZO_DEBUG} = 1;

=cut

lib/Business/Monzo.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 Monzo emulator by running end_to_end_emulated.sh (this
is advised, don't run it against a live endpoint).

You can also see the scripts in the bin/ directory included in this dist for
more examples.

=head1 SEE ALSO

view all matches for this distribution

Business-OnlinePayment-BitPay-Client

2 results

GUIDE.md view on Meta::CPAN


There are two ways to authenticate, from the client side or the server side. The Perl Client supports both.

To pair from the server side, you log in to the BitPay server, navigate to dashboard/merchant/api-tokens, and create a new token. This creates a new token, which is associated with your account. It is not associated with a key, so we provide a pairin...

To pair from the client side, you use the client to call the /tokens endpoint on the server with no parameters, or use the `client->pair_client(facade => < 'pos' | 'merchant' > )` subroutine. This creates a token on the server and associates that tok...

```perl
    my $pem = BitPay::KeyUtils::bpGeneratePem(); # remember, this must be saved in order to use it again!
    my $uri = "https://test.bitpay.com" # or https://bitpay.com for live use
    my %options = ("pem" => $pem, "apiUri" => $uri);

GUIDE.md view on Meta::CPAN


The "public" argument allows non-authenticated clients to retrieve invoices. This cannot presently be omitted but this will change with the introduction of refunds in v2.4.

### Make a HTTP request directly against the REST API

For API tasks which lack a dedicated library method, either the `client-get()` or `client->post()` subroutines will automatically apply the proper cryptographic parameters to a request. The post method is looking for an endpoint and a hash of params ...

## Testnet Usage

During development and testing, take advantage of the [Bitcoin TestNet](https://en.bitcoin.it/wiki/Testnet) by passing the testnet URI when creating a client:

view all matches for this distribution

Business-PAYONE

1 match

    has ua => (
        is => 'ro',
        default => sub { Mojo::UserAgent->new() },
    );

    has endpoint_host => (
        is => 'ro',
    );

    has PSPID => (
        is => 'ro',

    sub CreateHostedCheckout {
        my ($self, $args) = @_;

        my $auth = $self->_create_autorization({
            method   => 'POST',
            endpoint => 'hostedcheckouts',
        });

        my $amount = sprintf("%.0f", int ($args->{amount} * 100));
        confess 'Invalid-amount' if $amount !~ m/^\d+$/;
        confess 'Invalid-currencyCode' if !$args->{currencyCode};

        };

        # use Data::Dump qw/dump/; die dump($reqargs);

        my $res = $self->ua->post(
            $auth->{endpoint_uri},
            # 'http://redbaron.italpro.net:3000',
            {
                'Content-type' => $auth->{h_content_type},
                'Date' => $auth->{h_date},
                'Authorization' => $auth->{authorization},


        confess 'Invalid-checkoutId' if !$args->{checkoutId};

        my $auth = $self->_create_autorization({
            method    => 'GET',
            endpoint  => 'hostedcheckouts',
            url_extra => '/'.$args->{checkoutId},
        });

        # die $auth->{endpoint_uri};

        my $res = $self->ua->get(
            $auth->{endpoint_uri},
            {
                'Content-type' => $auth->{h_content_type},
                'Date' => $auth->{h_date},
                'Authorization' => $auth->{authorization},
            }

        my $now = DateTime->now(time_zone => 'UTC');

        my $request_method = $args->{method};
        confess 'Invalid-method' if $args->{method} !~ m/^(POST|GET)$/xs;

        my $endpoint_path = '/v2/'.$self->PSPID.'/hostedcheckouts'.$args->{url_extra};
        my $h_content_type = $request_method eq 'POST' ? 'application/json; charset=utf-8' : '';
        my $h_date = DateTime::Format::HTTP->format_datetime($now);
        my $string_to_hash = $request_method . "\n" . $h_content_type . "\n" . $h_date . "\n" . $endpoint_path . "\n";
        my $signature = hmac_b64('SHA256', $self->api_secret, $string_to_hash);
        my $authorization = "GCS v1HMAC:" . $self->api_key . ":" . $signature;

        return {
            h_date         => $h_date,
            h_content_type => $h_content_type,
            authorization  => $authorization,
            endpoint_uri   => $self->endpoint_host . $endpoint_path,
        };
    }
}

1;


=head1 SYNOPSIS

    user Business::PAYONE;
    my $po = Business::PAYONE->new({
        endpoint_host   => 'https://payment.preprod.payone.com',
        PSPID           => 'MyPSPID',
        api_key         => 'xxxxxxxxxxxxxxxxxx',
        api_secret      => 'yyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy',
    });

view all matches for this distribution

Business-PayPal-API

4 results

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

(Note - 6 Oct 2006: SOAP::Lite's WSDL support is moving ahead, but
slowly. The methods used by this API are considered "best practice"
and are safe to use).

As with all web services, if PayPal stop supporting their API
endpoint, this module *may stop working*. You can help me keep this
module up-to-date if you notice such an event occurring.

Also, I didn't implement a big fat class hierarchy to make this module
"academically" correct. You'll notice that I fudged colliding
parameter names in B<DoExpressCheckoutPayment> and similar fudging may

view all matches for this distribution

Business-PinPayment

1 match

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

  my ($class, %args) = (@_);
  my $self = bless {}, $class;
  $args{config} ||= {};
  
  $self->{config} = {
    api_version => '1', # the '1' in the API endpoint host names, e.g. https://test-api.pin.net.au/1/charges
    api_key => undef, # Secret API Key
    api => 'charges', # 'customers', 'refunds'
    amount => '100', # 100 cents. Must be greater or equal to $1.00
    currency => 'AUD', # 'USD', 'NZD', or 'SGD'
    description => 'charges',

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


=item C<config>

A hashref of parameters accepted by the PinPayment API . See L<https://pin.net.au/docs/api>. Default values:

  api_version => '1', # the '1' in the API endpoint host names, e.g. https://test-api.pin.net.au/1/charges
  api_key => undef, # Secret API Key
  api => 'charges', # 'customers', 'refunds'
  amount => '100', # 100 cents. Must be greater or equal to $1.00
  currency => 'AUD', # 'USD', 'NZD', or 'SGD'
  description => 'charges',

view all matches for this distribution

Business-Shipping

2 results

CHANGELOG view on Meta::CPAN

      compatible one-letter arguments. Reported by Todd Anderson 
      <ahqmed@hotmail.com>.
      
    * Removed some unused code.
    
    * Fix fuel surcharge updater. Contributed by Ron Phipps <ron@endpoint.com>.



2.03  Dec 31 2005

view all matches for this distribution

Business-SiteCatalyst

3 results

lib/Business/SiteCatalyst/Company.pm view on Meta::CPAN

	
	my $report_suites = $company->get_report_suites();
	
	my $tracking_server = $company->get_tracking_server();
	
	my $endpoint = $company->get_endpoint( company => $company );
	
	my $queue_list = $company->get_queue();
	
	my $success = $company->cancel_queue_item( queue_id => $queue_item_id );

lib/Business/SiteCatalyst/Company.pm view on Meta::CPAN

	
	return $response->{'tracking_server'};
}


=head2 get_endpoint()

Retrieves the endpoint (API URL) for the specified company.
NOTE: You can specify any company, not just your own.

	my $endpoint = $company->get_endpoint( company => $company );

Parameters:

=over 4

=item * company

The company whose endpoint you want to retrieve.

=back

=cut

sub get_endpoint
{
	my ( $self, %args ) = @_;
	
	croak "Argument 'company' is required"
		if !defined( $args{'company'} ) || ( $args{'company'} eq '' );

view all matches for this distribution

Business-Stripe

1 match