view release on metacpan or search on metacpan
lib/Business/Payr.pm view on Meta::CPAN
=head1 DESCRIPTION
L<Business::Payr> is a client library for interacting with the Payr
third-party integration API (L<https://docs.payr.com/>). It handles the
necessary authentication and transport logic, allowing you to focus on just
the endpoints you want to call.
Payr enables your users to pay their rent by card through an embedded payment
interface. With this library you can:
=over
lib/Business/Payr.pm view on Meta::CPAN
=head1 METHODS
=head2 onboard_user
Onboard one or more users to the Payr platform with their tenancy details and
KYC documents. Calls the C</thirdparty/onboarding/> endpoint.
# Single user
$Payr->onboard_user( \%user_args );
# Batch onboarding
lib/Business/Payr.pm view on Meta::CPAN
}
=head2 create_payment_session
Creates a temporary payment session token for an already-onboarded user.
Calls the C</thirdparty/user-login/> endpoint.
my $Session = $Payr->create_payment_session( '[email protected]' );
The user identified by C<$email> must have been previously onboarded via
L</onboard_user>, otherwise a C<400> error is thrown.
lib/Business/Payr.pm view on Meta::CPAN
}
=head2 rotate_token
Generates a new server API token, replacing the current one. Calls the
C</thirdparty/rotate-token/> endpoint. The old token remains valid for a
grace period of 7-15 days, allowing you to update your systems without
downtime.
my $rotation = $Payr->rotate_token;
view release on metacpan or search on metacpan
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 release on metacpan or search on metacpan
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 release on metacpan or search on metacpan
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 release on metacpan or search on metacpan
lib/Business/Stripe/WebCheckout.pm view on Meta::CPAN
// Create an instance of the Stripe object with your publishable API key
var stripe = Stripe('pk_test_00000000000000000000000000');
var checkoutButton = document.getElementById('checkout-button');
checkoutButton.addEventListener('click', function() {
// Create a new Checkout Session using the server-side endpoint you
// created in step 3.
fetch('https://example.com/cgi-bin/trolley.pl', {
method: 'POST',
})
.then(function(response) {
view release on metacpan or search on metacpan
t/08-get-subscription.t view on Meta::CPAN
my $response = $webhook->get_subscription('sub_123');
ok( $response->{success}, 'Successful response' );
is( $called{method}, 'GET', 'Uses GET method' );
is( $called{url}, 'https://api.stripe.com/v1/subscriptions/sub_123', 'Uses subscription endpoint' );
is( $called{headers}->{Authorization}, 'Bearer sk_test_123', 'Uses API secret header' );
my $data = decode_json($response->{content});
is( $data->{id}, 'sub_123', 'Parsed JSON subscription id' );
is( $data->{status}, 'active', 'Parsed JSON subscription status' );
view release on metacpan or search on metacpan
my $stripe = Business::Stripe->new(
-api_key => 'xxxxxxxx',
-ua => $ua,
);
=item C<-url> Overrides the default API endpoint (C<https://api.stripe.com/v1/>)
=item C<-stripe_account> If you use the
L<< OAauth authentication flow for managed accounts|https://stripe.com/docs/connect/authentication >>
You can use this argument to make operations on behalf of a managed account.
view release on metacpan or search on metacpan
1.22 17/08/2022
- Updates required because of changes to EU VIES API - GH#15, thanks
to Timothy Su and Thomas Glase for the heads up
1.21 01/11/2021
- remove `soapaction` header, EU soap endpoint does not like it anymore,
GH#12 (tswfi)
1.20 01/04/2021 (Promoting 1.13 trial release to stable)
- Changes as per 1.13 below - supporting UK/XI numbers via HMRC API
courtesy of Dave Lambley (davel), GoDaddy
view release on metacpan or search on metacpan
lib/Business/TrueLayer.pm view on Meta::CPAN
=head1 DESCRIPTION
L<Business::TrueLayer> is a client library for interacting with the
TrueLayer v3 API. It implementes the necesary signing and transport logic
to allow you to just focus on just the endpoints you want to call.
The initial version of this distribution supports just those steps that
described at L<https://docs.truelayer.com/docs/quickstart-make-a-payment>
and others will be added as necessary (pull requests also welcome).
view release on metacpan or search on metacpan
lib/Business/UPS.pm view on Meta::CPAN
our $VERSION = '2.04';
sub getUPS {
warnings::warnif( 'deprecated',
'getUPS() is deprecated: the UPS rate quoting endpoint (qcostcgi.cgi) '
. 'has been retired by UPS. This function will be removed in a future '
. 'release. See Business::UPS documentation for alternatives.' );
my (
$product, $origin, $dest, $weight, $country, $rate_chart, $length,
lib/Business/UPS.pm view on Meta::CPAN
A way of sending four arguments to a module to get shipping charges
that can be used in, say, a CGI.
B<NOTE:> The C<getUPS()> function is B<deprecated>. The UPS rate quoting
endpoint (C<qcostcgi.cgi>) it relied on has been permanently retired by UPS.
Calls to C<getUPS()> will emit a deprecation warning and will always fail
with an HTTP error. This function will be removed in a future release.
For rate quoting, consider using L<Business::Shipping> or the
L<UPS Rating API|https://developer.ups.com/api/reference?loc=en_US#tag/Rating_other>
lib/Business/UPS.pm view on Meta::CPAN
=back
=head1 ARGUMENTS for getUPS() (DEPRECATED)
B<This function is deprecated.> The UPS endpoint it uses no longer exists.
See L</DESCRIPTION> for alternatives.
Call the subroutine with the following values:
1. Product code (see product-codes.txt)
view release on metacpan or search on metacpan
Revision history for Perl module Business::US::USPS::WebTools
1.125 2021-05-19
* Updated API endpoints. Always use HTTPS.
* Removed two tests that started failing due to changes in the API
response.
* Skip tracking tests (which are disabled anyway) rather than failing if
view release on metacpan or search on metacpan
bin/busybird_input_feed view on Meta::CPAN
=over
=item -p, --post POST_URL
If set, the L<BusyBird> statuses are sent to the specified URL by HTTP POST method.
Usually, this is the post endpoint of L<BusyBird>. See L<BusyBird::Manual::WebAPI> for detail.
=item -l, --level LEVEL
If set, it sets the statuses' levels to the specified C<LEVEL>.
C<LEVEL> must be an integer.
view release on metacpan or search on metacpan
lib/BusyBird.pm view on Meta::CPAN
=item *
L<BusyBird> has well-documented B<Web API>.
You can easily write scripts that GET/POST statuses from/to a L<BusyBird> instance.
Some endpoints support real-time notification via HTTP long-polling.
=item *
L<BusyBird> maintains B<read/unread> states of individual statuses.
You can mark statuses as "read" via Web API.
view release on metacpan or search on metacpan
src/sparse-0.4.4/perl/t/include/hw/pci/pcie.h view on Meta::CPAN
PCIEAERLog aer_log;
};
/* PCI express capability helper functions */
int pcie_cap_init(PCIDevice *dev, uint8_t offset, uint8_t type, uint8_t port);
int pcie_endpoint_cap_init(PCIDevice *dev, uint8_t offset);
void pcie_cap_exit(PCIDevice *dev);
uint8_t pcie_cap_get_type(const PCIDevice *dev);
void pcie_cap_flags_set_vector(PCIDevice *dev, uint8_t vector);
uint8_t pcie_cap_flags_get_vector(PCIDevice *dev);
view release on metacpan or search on metacpan
lib/CAD/Calc.pm view on Meta::CPAN
your line points up, $rec[0] will be below and to the left of
$line[0].)
Available options
ends => 1|0, # extend endpoints by $offset (default = 1)
=cut
sub line_to_rectangle {
my ($ln, $offset, $opts) = @_;
my %options = (ends => 1);
lib/CAD/Calc.pm view on Meta::CPAN
return($x_avg, $y_avg);
} # end subroutine point_avg definition
=head2 arc_2pt
Given a pair of endpoints and an angle (in radians), returns an arc with
center, radius, and start/end angles.
my %arc = arc_2pt(\@pts, $angle);
=cut
view release on metacpan or search on metacpan
lib/CAD/Drawing/IO/DWGI.pm view on Meta::CPAN
=head2 getLine
Reads a line from the current entity.
$line = $d->getLine();
print "endpoints: ",
join("\n",
map({join(",", @{$_})}
@{$line->{pts}}
)
), "\n";
view release on metacpan or search on metacpan
lib/CAM/SOAPClient.pm view on Meta::CPAN
foreach my $class (values %{$services})
{
foreach my $method (keys %{$class})
{
my $endpoint = $class->{$method}->{endpoint};
# 'uri' was used thru SOAP::Lite v0.60, 'namespace' is used in v0.65+
my $namespace = $class->{$method}->{uri} ? $class->{$method}->{uri}->value() : $class->{$method}->{namespace};
$self->{proxies}->{$method} = $endpoint ? $endpoint->value() : undef;
$self->{uris}->{$method} = $namespace;
}
}
return $self;
view release on metacpan or search on metacpan
lib/CGI/ACL.pm view on Meta::CPAN
=head2 Localhost is not automatically allowed
Once any restriction is set, C<127.0.0.1> is subject to the same rules
as any other address. If you need to allow local access (for example,
a health-check endpoint), add it explicitly.
my $acl = CGI::ACL->new()
->allow_ip('127.0.0.1') # must be explicit
->deny_all_countries()
->allow_country('US');
view release on metacpan or search on metacpan
t/12_options_bootstrap.t view on Meta::CPAN
"default_service_name",
"MyTest::Bootstrap",
"default_service_type",
"that_bootstrap",
"default_resource_name",
"that_fixed_endpoint.cgi",
"bar",
"2",
],
);
t/12_options_bootstrap.t view on Meta::CPAN
sub some_method_start { return }
sub opentracing_bootstrap_options {
default_service_name => 'MyTest::Bootstrap',
default_service_type => 'that_bootstrap',
default_resource_name => 'that_fixed_endpoint.cgi',
bar => 2,
}
view release on metacpan or search on metacpan
lib/CGI/Imagemap.pm view on Meta::CPAN
# Line doesn't intersect the X axis at all
next if( (($y1<=>0)==($y2<=>0)) && (($y1!=0)&&($y2!=0)) );
# Special case.. if the Y on the bottom=0, we ignore this intersection
# (otherwise a line endpoint counts as 2 hits instead of 1)
if( $y2>$y1 ){
next if $y2==0;
}
elsif( $y1>$y2 ){
next if $y1==0;
view release on metacpan or search on metacpan
azure-pipelines.yml view on Meta::CPAN
resources:
repositories:
- repository: ci-perl-helpers
type: github
name: houseabsolute/ci-perl-helpers
endpoint: houseabsolute
stages:
- template: templates/helpers/build.yml@ci-perl-helpers
parameters:
debug: true
view release on metacpan or search on metacpan
lib/CGI/Wiki/Plugin/Locator/Grid.pm view on Meta::CPAN
unit => "kilometres" );
Defaults to metres if C<unit> is not supplied or is not recognised.
Recognised units at the moment: C<metres>, C<kilometres>.
Returns C<undef> if one of the endpoints does not exist, or does not
have both co-ordinates defined. The C<node> specification of an
endpoint overrides the x/y co-ords if both specified (but don't do
that).
B<Note:> Works to the nearest metre. Well, actually, calls C<int> and
rounds down, but if anyone cares about that they can send a patch.
view release on metacpan or search on metacpan
lib/CGI/Wiki/Plugin/Locator/UK.pm view on Meta::CPAN
unit => "metres" );
Defaults to kilometres if C<unit> is not supplied or is not recognised.
Recognised units at the moment: C<metres>, C<kilometres>.
Returns C<undef> if one of the endpoints does not exist, or does not
have both co-ordinates defined. The C<node> specification of an
endpoint overrides the x/y co-ords if both specified (but don't do
that).
B<Note:> Works to the nearest metre. Well, actually, calls C<int> and
rounds down, but if anyone cares about that they can send a patch.
view release on metacpan or search on metacpan
lib/CGI/Wiki/Plugin/Locator/UTM.pm view on Meta::CPAN
unit => "metres" );
Defaults to kilometres if C<unit> is not supplied or is not recognised.
Recognised units at the moment: C<metres>, C<kilometres>.
Returns C<undef> if one of the endpoints does not exist, or does not
have both co-ordinates defined.
B<Note:> Works to the nearest metre. Well, actually, calls C<int> and
rounds down, but if anyone cares about that they can send a patch.
view release on metacpan or search on metacpan
lib/CPAN/Common/Index/MetaDB.pm view on Meta::CPAN
use CPAN::Meta::YAML;
use HTTP::Tiny;
#pod =attr uri
#pod
#pod A URI for the endpoint of a CPAN MetaDB server. The
#pod default is L<http://cpanmetadb.plackperl.org/v1.0/>.
#pod
#pod =cut
sub BUILD {
lib/CPAN/Common/Index/MetaDB.pm view on Meta::CPAN
=head1 ATTRIBUTES
=head2 uri
A URI for the endpoint of a CPAN MetaDB server. The
default is L<http://cpanmetadb.plackperl.org/v1.0/>.
=for Pod::Coverage attributes validate_attributes search_packages search_authors BUILD
=head1 AUTHOR
view release on metacpan or search on metacpan
lib/CPAN/Faker/HTTPD.pm view on Meta::CPAN
);
has 'httpd' => (
is => 'ro',
isa => 'Test::Fake::HTTPD',
handles => [qw(port host_post endpoint)],
default => sub { Test::Fake::HTTPD->new },
);
has 'server' => (
is => 'ro',
lib/CPAN/Faker/HTTPD.pm view on Meta::CPAN
use LWP::Simple;
my $cpan = CPAN::Faker::HTTPD->new({ source => './eg' });
$cpan->make_cpan;
my $uri = $cpan->endpoint;
$uri->path( '/authors/id/P/PS/PSHANGOV/Miril-0.008.tar.gz' );
my $content = LWP::Simple::get( $uri );
$cpan->make_cpan;
lib/CPAN/Faker/HTTPD.pm view on Meta::CPAN
Host and port of the running server.
See L<Test::Fake::HTTPD> for details.
=head2 endpoint
L<URI> object for the full address of the running server (e.g.
C<http://127.0.0.1:{port}>).
See L<Test::Fake::HTTPD> for details.
view release on metacpan or search on metacpan
t/unpacked/GraphViz/lib/GraphViz.pm view on Meta::CPAN
sets the arrow direction. Can be one of: 'forward', 'back', 'both', 'none'
=item tailclip, headclip
when set to false disables endpoint shape clipping
=item arrowhead, arrowtail
sets the type for the arrow head or tail. Can be one of: 'none',
'normal', 'inv', 'dot', 'odot', 'invdot', 'invodot.'
view release on metacpan or search on metacpan
t/distrolist.t view on Meta::CPAN
for ( '0.01', '0.02') {
my $path = sprintf $distro_path_tmpl, $_;
# uris
my $uri = $fakepan->endpoint;
$uri->path($path);
push @fake_distro_uris, $uri->as_string;
# paths
my $source = file($fakepan->dest, $path)->stringify;
view release on metacpan or search on metacpan
t/distribution.t view on Meta::CPAN
$fakepan->$_ for qw(_update_author_checksums write_package_index
write_author_index write_modlist_index write_perms_index);
my $distro_path = 'authors/id/L/LO/LOCAL/Foo-Bar-0.01.tar.gz';
my $distro_uri = $fakepan->endpoint;
$distro_uri->path($distro_path);
$distro_uri = $distro_uri->as_string;
$distro{uri} = $distribution_class->new( uri => $distro_uri );
view release on metacpan or search on metacpan
* SAVA/Encode-IMAPUTF7-1.00.tar.gz candidate for binary search? 23023
fails also. 20002 doesn't fail. After many hours we reach the interval
between 22774 and 22872 and we need to build new perls again.
Before we reach the endpoint I already see that the test output has
already changed somewhere, so maybe we need more binary searches. The
failure @22842 looks so simple:
t/0-test....Modification of a read-only value attempted at /home/sand/.cpan/build/Encode-IMAPUTF7-1.00/blib/lib/Encode/IMAPUTF7.pm line 39.
# Looks like your test died before it could output anything.