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
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
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
lib/CPAN/Maker/Bootstrapper.pm view on Meta::CPAN
=head2 Dry Run Mode
Before your prompt and code are submitted for review, the script will
output a table of showing you the estimated cosst based on token
counts. The input token count is derived by calling the "COUNT TOKEN"
endpoint API with the message to be submitted for review. The input
token count is therefore accurate, while the output token count is an
estimate.
To stop the script for actually submitting the message for review, use
the C<--dry-run> option. This will abort the process immediately prior
view release on metacpan or search on metacpan
is_deeply(
$req->as_string_hash,
{
Foo => '> 1, <= 2',
},
"we can exclude an endpoint",
);
}
{
my $req = CPAN::Meta::Requirements->new;
view release on metacpan or search on metacpan
data/tiddlers.json view on Meta::CPAN
"title": "PipeLines",
"modified": "20260612233741535",
"created": "20241001230949845"
},
{
"text": "\"\"\"\no See also:\n- [[HTTPHandling]]\n- [[HTTPServers]] - For PAGI (the successor to Plack), Twiggy\n- https://en.wikipedia.org/wiki/HTTP_header_injection\n- http://savage.net.au/misc/Mojo.Wiki.html\n\no Gazelle:\n- A Preforked Pl...
"title": "PlackServer",
"modified": "20260527062537121",
"created": "20251204221955143"
},
{
data/tiddlers.json view on Meta::CPAN
"title": "UsernamePassword",
"modified": "20260618010531317"
},
{
"created": "20190806211249203",
"text": "\"\"\"\no See also:\n- DataTraversal - For notes on UTF-8\n- FileHandling - For Path::Class, Path::Tiny\n- TextProcessing\n- TheCharacterGuide\n- https://github.com/JuliaStrings/utf8proc - For utf8proc\n- https://github.com/tsibley/t...
"title": "UTF8",
"modified": "20260622055711794"
},
{
"created": "20260416234838860",
data/tiddlers.json view on Meta::CPAN
"text": "\"\"\"\no See also:\n- DatabaseAndSQL\n- JsonStuff - For JSON::YY\n- https://www.cloudbees.com/blog/yaml-tutorial-everything-you-need-get-started\n- https://yaml.org/\n\no Alien::YAMLScript:\n- Find or install libys\n- https://metacp...
"title": "YamlStuff",
"modified": "20260621001327932"
},
{
"text": "\"\"\"\no See also:\n- FileHandling - for FFI::*\n\n<pre>\nA comment on ZMQ from Paul Evans:\nI found ZeroMQ to be a lot of effort to use from Perl, and most critically it does not appear to support both request/response and publish/...
"title": "ZMQ",
"modified": "20260529234656688",
"created": "20230808235031053"
},
{
view release on metacpan or search on metacpan
[Fixed]
- Upgraded Mojolicious::Plugin::OpenAPI to 1.13 to fix deprecations
due to Mojo::File
- Fixed API website links to point to /v3 API endpointes
- Fixed test report post to use new schema with auto-serialization.
This makes our database more consistent.
0.007 2017-05-12 10:35:47+02:00 Europe/Paris
- /uploads API for querying the CPAN uploads information table. See
http://api.cpantesters.org/docs/?url=/v1#!/default/uploads for
details.
- Upload feeds to get push notifications of new CPAN uploads via
WebSockets. Subscribe to any /uploads endpoint to get a feed of
new information from that endpoint.
0.003 2016-11-26 21:10:39-06:00 America/Chicago
[Added]
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.
view release on metacpan or search on metacpan
lib/CPAN/Audit/DB.pm view on Meta::CPAN
use warnings;
our $VERSION = '20260705.001';
sub db {
{"dists" => {"ActivePerl" => {"advisories" => [{"affected_versions" => ["==5.16.1.1601"],"cves" => ["CVE-2012-5377"],"description" => "Untrusted search path vulnerability in the installation functionality in ActivePerl 5.16.1.1601, when installed in...
}
__PACKAGE__;
view release on metacpan or search on metacpan
t/data/zx48.asm view on Meta::CPAN
; continue if a match of all eight bytes was found
POP BC ; discard the
POP BC ; saved
POP BC ; pointers
LD A,$80 ; the endpoint of character set
SUB B ; subtract the counter
; to give the code 32-127
LD BC,$0001 ; make one space in workspace.
RST 30H ; BC-SPACES creates the space sliding