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
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": "20251120214608401",
"created": "20241001230949845"
},
{
"text": "\"\"\"\no See also:\n- [[HTTPHandling]]\n- [[HTTPServers]] - For PAGI, the successor to Plack\n- http://savage.net.au/misc/Mojolicious.Wiki.html\n\no Gazelle:\n- A Preforked Plack Handler for performance freaks\n- https://metacpan.or...
"title": "PlackServer",
"modified": "20260319000122660",
"created": "20251204221955143"
},
{
data/tiddlers.json view on Meta::CPAN
"modified": "20260325062917773",
"created": "20240208003631502"
},
{
"created": "20190806211249203",
"text": "\"\"\"\no See also:\n- DataTraversal - For notes on UTF-8\n- FileHandling - For Path::Class, Path::Tiny\n- TextAnalysisAndFormatting\n- https://github.com/JuliaStrings/utf8proc - For utf8proc\n- https://github.com/tsibley/tchrist-OSC...
"title": "UTF8",
"modified": "20260330234342082"
},
{
"text": "\"\"\"\no See also:\n- CryptoStuff - UUID uses ChaCha20 which is in CryptX\n- https://en.wikipedia.org/wiki/Apophis\n- https://en.wikipedia.org/wiki/Horus\n- https://en.wikipedia.org/wiki/Sekhmet\n- https://en.wikipedia.org/wiki/Univ...
data/tiddlers.json view on Meta::CPAN
"title": "YamlStuff",
"modified": "20260225222903237",
"created": "20231028000609786"
},
{
"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": "20260129225406297",
"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
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
view release on metacpan or search on metacpan
t/embedded_style_block.t view on Meta::CPAN
eval {
$inliner->fetch_file({ url => $test_url });
};
## conditional test plan based on whether or not the endpoint can be reached - frequently can't by cpan testers
plan $@ ? (skip_all => 'Connectivity for endpoint required for test cannot be established') : (tests => 2);
my $inlined = $inliner->inlinify();
ok($inlined eq $correct_result, 'result was correct');
view release on metacpan or search on metacpan
t/33_cqp_errors.t view on Meta::CPAN
for my $R (-1, -2, -42) { # T6–T8
syntax_error("A = 'the' []{$R} 'elephant'", "negative repetition count {$R}", qr/non-negative/i);
}
for my $R (-1, -2) { # T9–T10
syntax_error("A = 'the' []{0,$R} 'elephant'", "invalid endpoint of repetition range {0,$R}", qr/non-negative/i);
}
for my $R (1, 2, 3) { # T11–T13
my $R1 = $R - 1;
syntax_error("A = 'the' []{$R,$R1} 'elephant'", "invalid repetition range {$R,$R1}", qr/invalid.*range/i);
t/33_cqp_errors.t view on Meta::CPAN
for my $R (-1, -2, -42) { # T14–T16
syntax_error("A = TAB 'the' []{$R} 'elephant'", "negative distance {$R} in TAB query", qr/non-negative/i);
}
for my $R (-1, -2) { # T17–T18
syntax_error("A = TAB 'the' []{0,$R} 'elephant'", "invalid endpoint of distance range {0,$R} in TAB query", qr/non-negative/i);
}
for my $R (-1, -2) { # T19–T20
syntax_error("A = TAB 'the' []{,$R} 'elephant'", "invalid endpoint of distance range {,$R} in TAB query", qr/non-negative|invalid.*range/i);
}
for my $R (1, 2, 3) { # T21–T23
my $R1 = $R - 1;
syntax_error("A = TAB 'the' []{$R,$R1} 'elephant'", "invalid distance range ($R,$R1) in TAB query", qr/invalid.*range/i);
view release on metacpan or search on metacpan
t/OptArgs.t view on Meta::CPAN
type => Str,
default => sub { 'https://cda.cfa.harvard.edu/csc2tap' },
);
option(
comment => 'CSC TAP endpoint',
isa_name => 'URL',
show_default => 1,
);
form_field 'output.file' => ( type => Path, coerce => 1 );
view release on metacpan or search on metacpan
examples/EVStest.pl view on Meta::CPAN
#
# ApplicationService is a utility classs that encapsulates webservice invocation to caCORE server.
# ApplicationService object follows the Singleton pattern, in that each program will ONLY contain one instance
# of such class.
# The URL being passed to the intance method is the service endpoint of the caCORE webservice.
# If no such URL is provided in the program, it will default to the caCORE production server, "http://cabio.nci.nih.gov/cacore30/ws/caCOREService"
#
my $appsvc = CaCORE::ApplicationService->instance("http://cabio.nci.nih.gov/cacore32/ws/caCOREService");
my $num2 = 0;
view release on metacpan or search on metacpan
lib/Cache/Elasticache/Memcache.pm view on Meta::CPAN
=head1 SYNOPSIS
use Cache::Elasticache::Memcache;
my $memd = new Cache::Elasticache::Memcache->new({
config_endpoint => 'foo.bar',
update_period => 180,
# All other options are passed on to Cache::Memcached::Fast
...
});
# Will update the server list from the configuration endpoint
$memd->updateServers();
# Will update the serverlist from the configuration endpoint if the time since
# the last time the server list was checked is greater than the update period
# specified when the $memd object was created.
$memd->checkServers();
# Class method to retrieve a server list from a configuration endpoint.
Cache::Elasticache::Memcache->getServersFromEndpoint('foo.bar');
# All other supported methods are handled by Cache::Memcached::Fast
# N.B. This library is currently under development
=head1 DESCRIPTION
A wrapper for L<Cache::Memacached::Fast> with support for AWS's auto reconfiguration mechanism. It makes use of an AWS elasticache memcached cluster's configuration endpoint to discover the memcache servers in the cluster and periodically check the c...
=head1 UNDER DEVELOPMENT DISCALIMER
N.B. This module is still under development. It should work, but things may change under the hood. I plan to imporove the resiliance with better timeout handling of communication when updating the server list. I'm toying with the idea of making the s...
lib/Cache/Elasticache/Memcache.pm view on Meta::CPAN
=pod
=head1 CONSTRUCTOR
Cache::Elasticache::Memcache->new({
config_endpoint => 'foo.bar',
update_period => 180,
...
})
=head2 Constructor parameters
=over
=item config_endpoint
AWS elasticache memcached cluster config endpoint location
=item update_period
The minimum period (in seconds) to wait between updating the server list. Defaults to 180 seconds
lib/Cache/Elasticache/Memcache.pm view on Meta::CPAN
my ($conf) = @_;
my $self = bless {}, $class;
my $args = (@_ == 1) ? shift : { @_ }; # hashref-ify args
croak "config_endpoint must be speccified" if (!defined $args->{'config_endpoint'});
croak "servers is not a valid constructors parameter" if (defined $args->{'servers'});
$self->{'config_endpoint'} = delete @{$args}{'config_endpoint'};
$args->{servers} = $self->getServersFromEndpoint($self->{'config_endpoint'}) if(defined $self->{'config_endpoint'});
$self->{_last_update} = time;
$self->{update_period} = exists $args->{update_period} ? $args->{update_period} : 180;
$self->{'_args'} = $args;
lib/Cache/Elasticache/Memcache.pm view on Meta::CPAN
=pod
=item checkServers
my $memd = Cache::Elasticache::Memcache->new({
config_endpoint => 'foo.bar'
})
...
$memd->checkServers();
lib/Cache/Elasticache/Memcache.pm view on Meta::CPAN
=cut
sub checkServers {
my $self = shift;
$self->{_current_update_period} = (defined $self->{_current_update_period}) ? $self->{_current_update_period}: $self->{update_period} - rand(10);
if ( defined $self->{'config_endpoint'} && (time - $self->{_last_update}) > $self->{_current_update_period} ) {
$self->updateServers();
$self->{_current_update_period} = undef;
}
}
=pod
=item updateServers
my $memd = Cache::Elasticache::Memcache->new({
config_endpoint => 'foo.bar'
})
...
$memd->updateServers();
lib/Cache/Elasticache/Memcache.pm view on Meta::CPAN
=cut
sub updateServers {
my $self = shift;
my $servers = $self->getServersFromEndpoint($self->{'config_endpoint'});
## Cache::Memcached::Fast does not support updating the server list after creation
## Therefore we must create a new object.
if ( $self->_hasServerListChanged($servers) ) {
lib/Cache/Elasticache/Memcache.pm view on Meta::CPAN
=item getServersFromEndpoint
Cache::Elasticache::Memcache->getServersFromEndpoint('foo.bar');
This class method will retrieve the server list for a given configuration endpoint.
=cut
sub getServersFromEndpoint {
my $invoker = shift;
my $config_endpoint = shift;
my $data = "";
# TODO: make use of "connect_timeout" (default 0.5s) and "io_timeout" (default 0.2s) constructor parameters
# my $args = shift;
# $connect_timeout = exists $args->{connect_timeout} ? $args->{connect_timeout} : $class::default_connect_timeout;
# $io_timeout = exists $args->{io_timeout} ? $args->{io_timeout} : $class::default_io_timeout;
my $socket = (blessed($invoker)) ? $invoker->{_sockets}->{$config_endpoint} : undef;
for my $i (0..2) {
unless (defined $socket && $socket->connected()) {
$socket = IO::Socket::IP->new(PeerAddr => $config_endpoint, Timeout => 10, Proto => 'tcp');
croak "Unable to connect to server: ".$config_endpoint." - $!" unless $socket;
$socket->sockopt(SO_KEEPALIVE,1);
$socket->autoflush(1);
IO::Socket::Timeout->enable_timeouts_on($socket);
$socket->read_timeout(0.5);
# This is currently commented out as it was breaking under perl 5.24 for me. Need to investigate!
lib/Cache/Elasticache/Memcache.pm view on Meta::CPAN
} else {
$socket = undef;
}
}
if (blessed $invoker) {
$invoker->{_sockets}->{$config_endpoint} = $socket;
} else {
$socket->close() if (blessed $socket);
}
return $invoker->_parseConfigResponse($data);
}
lib/Cache/Elasticache/Memcache.pm view on Meta::CPAN
return \@servers;
}
sub DESTROY {
my $self = shift;
foreach my $config_endpoint (keys %{$self->{_sockets}}) {
my $socket = $self->{_sockets}->{$config_endpoint};
if (defined $self->{_socket} && $socket->connected()) {
$self->{_socket}->close();
}
}
};
view release on metacpan or search on metacpan
lib/Cache/RamDisk.pm view on Meta::CPAN
1. Message queues are extremely fast, but extremely limited too.
2. Shared memory is perhaps even faster, but it came out for me to be an at least hairy problem
trying to store several references all in one segment.
3. Sockets are reliable, but require a second communication endpoint and yet another server process.
But a file is a file is a file.
The package collects as much ramdisks to a bundle as possible and necessary to hold the required user space,
depending on the respective parameters under which the system's individual kernel had been compiled.
view release on metacpan or search on metacpan
lib/Calendar/Japanese/Acme/Syukujitsu.pm view on Meta::CPAN
sub new {
args
my $class,
my $cachefile => {optional => 1},
my $endpoint => {optional => 1};
my $data;
if ($cachefile) {
$data = read_file($cachefile);
} else {
$endpoint = $endpoint || $DEFAULT_ENDPOINT;
$data = Furl->new()->get($endpoint)->content;
}
Encode::from_to($data, 'sjis', 'utf-8');
my $syukujitsus = {};
for my $line (split /\n/, $data) {
lib/Calendar/Japanese/Acme/Syukujitsu.pm view on Meta::CPAN
F<syukujitsu.csv> that published by Japanese government.
With interface that referenced to C<Calendar::Japanese::Holiday>.
=head1 METHODS
=head2 new([cachefile => $cachefile][endpoint => $endpoint])
Constructor.
=head2 get_syukujitsus(year => $year [, month => $month [, day => $day]])
=head2 is_syukujitsu(year => $year, month => $month, day => $day)