Result:
found more than 419 distributions - search limited to the first 2001 files matching your query
( run in 0.853 )
Broadworks-OCIP
view release on metacpan or search on metacpan
lib/Broadworks/OCIP/Methods.pod view on Meta::CPAN
=back
=head3 GroupEndpointGetListRequest
Request to search endpoints in the group.
The response is either C<GroupEndpointGetListResponse> or C<ErrorResponse>.
Fixed parameters are:-
lib/Broadworks/OCIP/Methods.pod view on Meta::CPAN
=back
=head3 ServiceProviderEndpointGetListRequest
Request to search endpoints in the service provider/enterprise.
The response is either C<ServiceProviderEndpointGetListResponse> or
C<ErrorResponse>.
Fixed parameters are:-
lib/Broadworks/OCIP/Methods.pod view on Meta::CPAN
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:-
lib/Broadworks/OCIP/Methods.pod view on Meta::CPAN
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:-
lib/Broadworks/OCIP/Methods.pod view on Meta::CPAN
=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:-
lib/Broadworks/OCIP/Methods.pod view on Meta::CPAN
=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:-
lib/Broadworks/OCIP/Methods.pod view on Meta::CPAN
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:-
lib/Broadworks/OCIP/Methods.pod view on Meta::CPAN
=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:-
lib/Broadworks/OCIP/Methods.pod view on Meta::CPAN
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:-
Brownie
view release on metacpan or search on metacpan
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';
};
Browsermob-Proxy
view release on metacpan or search on metacpan
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(
Bundle-WATERKIP
view release on metacpan or search on metacpan
bin/opnpost view on Meta::CPAN
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');
bin/opnpost view on Meta::CPAN
: ()
}
);
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'}) ) : (),
),
bin/opnpost view on Meta::CPAN
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
bin/opnpost view on Meta::CPAN
=head1 OPTIONS
=over
=item endpoint
The end point you want to talk to. Required
=item content_type
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[/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
Business-Fixflo
view release on metacpan or search on metacpan
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
Business-GoCardless
view release on metacpan or search on metacpan
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
Business-LiveDrive
view release on metacpan or search on metacpan
lib/Business/LiveDriveAPI.pm view on Meta::CPAN
# 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 => {}),
lib/Business/LiveDriveAPI.pm view on Meta::CPAN
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 => {}),
lib/Business/LiveDriveAPI.pm view on Meta::CPAN
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 => {}),
lib/Business/LiveDriveAPI.pm view on Meta::CPAN
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 => {}),
lib/Business/LiveDriveAPI.pm view on Meta::CPAN
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) {
lib/Business/LiveDriveAPI.pm view on Meta::CPAN
else {
push(@parameters, $param);
}
}
$self->endpoint($method{endpoint})
->ns($method{namespace})
->on_action(sub{qq!"$method{soapaction}"!});
$self->default_ns('http://www.livedrive.com/');
Business-MollieAPI
view release on metacpan or search on metacpan
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 => (
Business-Mondo
view release on metacpan or search on metacpan
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" );
Business-Monzo
view release on metacpan or search on metacpan
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
Business-OnlinePayment-BitPay-Client
view release on metacpan or search on metacpan
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);
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:
Business-PAYONE
view release on metacpan or search on metacpan
lib/Business/PAYONE.pm view on Meta::CPAN
has ua => (
is => 'ro',
default => sub { Mojo::UserAgent->new() },
);
has endpoint_host => (
is => 'ro',
);
has PSPID => (
is => 'ro',
lib/Business/PAYONE.pm view on Meta::CPAN
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};
lib/Business/PAYONE.pm view on Meta::CPAN
};
# 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},
lib/Business/PAYONE.pm view on Meta::CPAN
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},
}
lib/Business/PAYONE.pm view on Meta::CPAN
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;
lib/Business/PAYONE.pm view on Meta::CPAN
=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',
});
Business-PayPal-API
view release on metacpan or search on metacpan
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
Business-PinPayment
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',
Business-Shipping
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
Business-SiteCatalyst
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 '' );
Business-Stripe-WebCheckout
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) {
Business-Stripe
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.
Business-Tax-VAT-Validation
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
Business-TrueLayer
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).
Business-US-USPS-WebTools
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
BusyBird-Input-Feed
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.
BusyBird
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.
C-sparse
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);
CAD-Calc
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
CAD-Drawing-IO-DWGI
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";
CAM-SOAPClient
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;
CGI-Application-Plugin-OpenTracing-DataDog
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,
}
CGI-Imagemap
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;
( run in 0.853 second using v1.01-cache-2.11-cpan-27979f6cc8f )