view release on metacpan or search on metacpan
lib/Graphics/Framebuffer.pm view on Meta::CPAN
double dx = x1d - x0;
double dy = y1d - y0;
double gradient = (dx == 0.0) ? 1.0 : dy / dx;
/* handle first endpoint */
double xend = roundd(x0);
double yend = y0 + gradient * (xend - x0);
double xgap = rfpart(x0 + 0.5);
long xpxl1 = (long)xend;
long ypxl1 = (long)floor(yend);
/* plot first endpoint */
double intery = yend + gradient; /* first y-intersection for the main loop */
/* First endpoint pixels */
plot_aa_pixel(framebuffer,
color,
bcolor,
alpha,
bytes_per_pixel,
lib/Graphics/Framebuffer.pm view on Meta::CPAN
steep,
xpxl1,
ypxl1 + 1,
fpart(yend) * xgap);
/* handle second endpoint */
xend = roundd(x1d);
yend = y1d + gradient * (xend - x1d);
xgap = fpart(x1d + 0.5);
long xpxl2 = (long)xend;
long ypxl2 = (long)floor(yend);
lib/Graphics/Framebuffer.pm view on Meta::CPAN
my $gradient = $dy / $dx;
my @xends;
my $intery;
# handle the endpoints
foreach my $xy ([$x0, $y0], [$x1, $y1]) {
my ($x, $y) = @{$xy};
my $xend = int($x + 0.5); # POSIX::lround($x);
my $yend = $y + $gradient * ($xend - $x);
my $xgap = _rfpart($x + 0.5);
view release on metacpan or search on metacpan
lib/Graphics/Penplotter/GcodeXY.pm view on Meta::CPAN
# We need DEVICE coordinates here for obvious reasons
#
sub _warn ($self, $x, $y) {
my ( $x0clip, $y0clip, $x1clip, $y1clip, $info );
if ( !$self->{warn} ) { return 0 }
# we check only the endpoint for now.
# just assume the line started at (0.1, 0.1)
if ( ( $x < 0 ) || ( $y < 0 ) ) {
print STDOUT "Out of bound: ($x,$y)" . $EOL;
return 0;
}
lib/Graphics/Penplotter/GcodeXY.pm view on Meta::CPAN
Replace the current segment path with its anamorphic distortion for a
cylindrical mirror of radius C<$R> centred at C<($cx, $cy)>, then flush the
path via C<stroke>.
The intended image is whatever is already in the segment path when this method
is called. The bounding box of the existing drawable segment endpoints is
used as the image extent. Each endpoint is independently projected onto the
paper via the cylindrical mirror model; segments whose endpoints cannot be
projected are dropped, and path continuity is maintained automatically.
The C<$cx>, C<$cy>, C<$R>, and observer parameters must be expressed in the
same coordinate space as the segment path (device coordinates as used
internally by GcodeXY). For typical plots with no active transform this is
view release on metacpan or search on metacpan
unsigned int i;
int tag;
potrace_dpoint_t *c = NULL;
HV *segment = NULL;
HV *first_segment = NULL;
SV *last_endpoint = NULL;
hv_store(retval, "area", 4, newSViv(node->area), FALSE);
hv_store(retval, "sign", 4, newSVpvn((node->sign == '-' ? "-" : "+"), 1), FALSE);
hv_store(retval, "curve", 5, newRV_noinc((SV *)curve), FALSE);
segment = newHV();
if (first_segment == NULL)
first_segment = segment;
if (last_endpoint) {
hv_store(segment, "begin", 5, last_endpoint, FALSE);
last_endpoint = NULL;
}
hv_store(segment, "end", 3, _make_point(c+2), FALSE);
last_endpoint = _make_point(c+2); /* "begin" of the next segment */
if (tag == POTRACE_CORNER) {
hv_store(segment, "type", 4, newSVpvn("corner", 6), FALSE);
hv_store(segment, "corner", 6, _make_point(c+1), FALSE);
}
hv_store(segment, "p1", 2, _make_point(c), FALSE);
hv_store(segment, "p2", 2, _make_point(c+1), FALSE);
}
av_push(curve, newRV_noinc((SV *)segment));
}
if (last_endpoint)
hv_store(first_segment, "begin", 5, last_endpoint, FALSE);
return newRV_noinc((SV *)retval);
}
SV *_make_listpath(potrace_path_t *plist) {
view release on metacpan or search on metacpan
lib/GrowthForecast/Aggregator/Callback.pm view on Meta::CPAN
sub run {
my $self = shift;
my %args = @_;
my $service = $args{service} // die "Missing mandatory parameter: service";
my $endpoint = $args{endpoint} // die "Missing mandatory parameter: endpoint";
my $ua = $args{ua} // die "Missing mandatory parameter: ua";
$endpoint =~ s!/$!!;
my $url = "$endpoint/$service/$self->{section}/$self->{name}";
my ($number) = $self->code->();
my $req = POST $url, [
number => $number,
description => encode_utf8($self->description),
lib/GrowthForecast/Aggregator/Callback.pm view on Meta::CPAN
Service name.
This module send request to "/api/$service/$section/$name"
=item endpoint
Endpoint URL, contains '/api'.
E.g. http://example.com/api/
view release on metacpan or search on metacpan
public/js/site.js view on Meta::CPAN
setTimeout(function(){ preview_complex_graph($('#complex-form')) },10);
});
var service_tree;
$.ajax({
url: $('#service_tree').data('endpoint'),
cache: false,
async: false,
dataType: 'json'
}).done(function(data){ service_tree = data })
.fail(function(){
view release on metacpan or search on metacpan
lib/Grpc/Client/AbstractCall.pm view on Meta::CPAN
sub getMetadata {
my $self = shift;
return $self->{_metadata};
}
## @return string The URI of the endpoint.
sub getPeer {
my $self = shift;
return $self->{_call}->getPeer();
}
view release on metacpan or search on metacpan
share/public/guaclite.js view on Meta::CPAN
/**
* Add the specified line to the current path.
*
* @param {Guacamole.Layer} layer The layer to draw upon.
* @param {Number} x The X coordinate of the endpoint of the line to draw.
* @param {Number} y The Y coordinate of the endpoint of the line to draw.
*/
this.lineTo = function(layer, x, y) {
scheduleTask(function __display_lineTo() {
layer.lineTo(x, y);
});
share/public/guaclite.js view on Meta::CPAN
* @param {Guacamole.Layer} layer The layer to draw upon.
* @param {Number} cp1x The X coordinate of the first control point.
* @param {Number} cp1y The Y coordinate of the first control point.
* @param {Number} cp2x The X coordinate of the second control point.
* @param {Number} cp2y The Y coordinate of the second control point.
* @param {Number} x The X coordinate of the endpoint of the curve.
* @param {Number} y The Y coordinate of the endpoint of the curve.
*/
this.curveTo = function(layer, cp1x, cp1y, cp2x, cp2y, x, y) {
scheduleTask(function __display_curveTo() {
layer.curveTo(cp1x, cp1y, cp2x, cp2y, x, y);
});
share/public/guaclite.js view on Meta::CPAN
};
/**
* Add the specified line to the current path.
*
* @param {Number} x The X coordinate of the endpoint of the line to draw.
* @param {Number} y The Y coordinate of the endpoint of the line to draw.
*/
this.lineTo = function(x, y) {
// Start a new path if current path is closed
if (pathClosed) {
share/public/guaclite.js view on Meta::CPAN
*
* @param {Number} cp1x The X coordinate of the first control point.
* @param {Number} cp1y The Y coordinate of the first control point.
* @param {Number} cp2x The X coordinate of the second control point.
* @param {Number} cp2y The Y coordinate of the second control point.
* @param {Number} x The X coordinate of the endpoint of the curve.
* @param {Number} y The Y coordinate of the endpoint of the curve.
*/
this.curveTo = function(cp1x, cp1y, cp2x, cp2y, x, y) {
// Start a new path if current path is closed
if (pathClosed) {
share/public/guaclite.js view on Meta::CPAN
tunnel.setUUID(connect_xmlhttprequest.responseText);
// Mark as open
tunnel.setState(Guacamole.Tunnel.State.OPEN);
// Ping tunnel endpoint regularly to test connection stability
pingInterval = setInterval(function sendPing() {
tunnel.sendMessage("nop");
}, PING_FREQUENCY);
// Start reading data
share/public/guaclite.js view on Meta::CPAN
socket = new WebSocket(tunnelURL + "?" + data, "guacamole");
socket.onopen = function(event) {
reset_timeout();
// Ping tunnel endpoint regularly to test connection stability
pingInterval = setInterval(function sendPing() {
tunnel.sendMessage(Guacamole.Tunnel.INTERNAL_DATA_OPCODE,
"ping", new Date().getTime());
}, PING_FREQUENCY);
view release on metacpan or search on metacpan
- Downgraded to use Moo.
- Added standard load test script (t/00-load.t).
- Removed '+x' attributes from some of the test scripts.
0.06 2016-04-12 MANWAR
* Updated endpoint for API.
* Updated param name for api key i.e. 'api-key'.
* Tidied up pod document.
* Updated github repository details.
* Removed '+x' attrbutes from Build.PL, MANIFEST and README.
* Tidied up Changes file.
view release on metacpan or search on metacpan
lib/HTML/Dojo/editions.pm view on Meta::CPAN
dojo.debug("your JSON wasn't comment filtered!");
return "";
}
return _143.substring(_144+2,_145);
}
dojo.debug("please consider using a mimetype of text/json-comment-filtered to avoid potential security issues with JSON endpoints");
return _143;
},load:function(type,data,_148,_149){
},error:function(type,_14b,_14c,_14d){
},timeout:function(type,_14f,_150,_151){
},handle:function(type,data,_154,_155){
lib/HTML/Dojo/editions.pm view on Meta::CPAN
dojo.debug("your JSON wasn't comment filtered!");
return "";
}
return _735.substring(_736+2,_737);
}
dojo.debug("please consider using a mimetype of text/json-comment-filtered to avoid potential security issues with JSON endpoints");
return _735;
},load:function(type,data,_73a,_73b){
},error:function(type,_73d,_73e,_73f){
},timeout:function(type,_741,_742,_743){
},handle:function(type,data,_746,_747){
lib/HTML/Dojo/editions.pm view on Meta::CPAN
dojo.debug("your JSON wasn't comment filtered!");
return "";
}
return _143.substring(_144+2,_145);
}
dojo.debug("please consider using a mimetype of text/json-comment-filtered to avoid potential security issues with JSON endpoints");
return _143;
},load:function(type,data,_148,_149){
},error:function(type,_14b,_14c,_14d){
},timeout:function(type,_14f,_150,_151){
},handle:function(type,data,_154,_155){
lib/HTML/Dojo/editions.pm view on Meta::CPAN
dojo.debug("your JSON wasn't comment filtered!");
return "";
}
return _5a2.substring(_5a3+2,_5a4);
}
dojo.debug("please consider using a mimetype of text/json-comment-filtered to avoid potential security issues with JSON endpoints");
return _5a2;
},load:function(type,data,_5a7,_5a8){
},error:function(type,_5aa,_5ab,_5ac){
},timeout:function(type,_5ae,_5af,_5b0){
},handle:function(type,data,_5b3,_5b4){
lib/HTML/Dojo/editions.pm view on Meta::CPAN
dojo.debug("your JSON wasn't comment filtered!");
return "";
}
return _735.substring(_736+2,_737);
}
dojo.debug("please consider using a mimetype of text/json-comment-filtered to avoid potential security issues with JSON endpoints");
return _735;
},load:function(type,data,_73a,_73b){
},error:function(type,_73d,_73e,_73f){
},timeout:function(type,_741,_742,_743){
},handle:function(type,data,_746,_747){
lib/HTML/Dojo/editions.pm view on Meta::CPAN
dojo.debug("your JSON wasn't comment filtered!");
return "";
}
return _19e.substring(_19f+2,_1a0);
}
dojo.debug("please consider using a mimetype of text/json-comment-filtered to avoid potential security issues with JSON endpoints");
return _19e;
},load:function(type,data,_1a3,_1a4){
},error:function(type,_1a6,_1a7,_1a8){
},timeout:function(type,_1aa,_1ab,_1ac){
},handle:function(type,data,_1af,_1b0){
view release on metacpan or search on metacpan
lib/HTML/FormHandlerX/JQueryRemoteValidator.pm view on Meta::CPAN
use JSON ();
has_field _validation_scripts => (type => 'JavaScript', set_js_code => '_js_code_for_validation_scripts');
has validation_endpoint => (is => 'rw', isa => 'Str', default => '/ajax/formvalidator');
has jquery_validator_link => (is => 'rw', isa => 'Str', default => 'http://ajax.aspnetcdn.com/ajax/jquery.validate/1.14.0/jquery.validate.min.js');
has skip_remote_validation_types => (is => 'rw', isa => 'ArrayRef', default => sub { [ qw(Submit Hidden noCAPTCHA Display JSON JavaScript) ] });
lib/HTML/FormHandlerX/JQueryRemoteValidator.pm view on Meta::CPAN
return $js_profile;
}
method _build_remote_rule ($field) {
my $remote_rule = {
url => sprintf("%s/%s/%s", $self->validation_endpoint, $self->name, $field->id),
type => 'POST',
data => $self->name . "_data_collector",
};
return $remote_rule;
lib/HTML/FormHandlerX/JQueryRemoteValidator.pm view on Meta::CPAN
=head1 CONFIGURATION AND SETUP
The purpose of this package is to build a set of JQuery scripts and inject them
into your forms. The scripts send user input to your server where you must
provide an endpoint that can validate the fields. Since you already have an
HTML::FormHandler form, you can use that.
The package uses the remote validation feature of the JQuery Validator
framework. This also takes care of updating your form to notify the user of
errors and successes while they fill in the form. You will most likely want
lib/HTML/FormHandlerX/JQueryRemoteValidator.pm view on Meta::CPAN
=item JQuery validator
See the C<jquery_validator_link> attribute.
=item Server-side validation endpoint
See the C<validation_endpoint> attribute.
=item Some JS fragments to update the form
=item CSS to prettify it all
lib/HTML/FormHandlerX/JQueryRemoteValidator.pm view on Meta::CPAN
has '+jqr_validate_options' => (default => sub {$jqr_validate_options});
=head2 Class (form) attributes
=head3 C<validation_endpoint>
Default: /ajax/formvalidator
The form data will be POSTed to C<[validation_endpoint]/[form_name]/[field_name]>.
Note that *all* fields are submitted, not just the field being validated.
You must write the code to handle this submission. The response should be a JSON
string, either C<true> if the field passed its tests, or a message describing
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/HTML/OSM.pm view on Meta::CPAN
An object to use for HTTP requests.
If not provided, a default user agent is created.
=item * C<host>
The API host endpoint.
Defaults to L<https://nominatim.openstreetmap.org/search>.
=item * C<width>
Width (in pixels or using your own unit), the default is 600px.
view release on metacpan or search on metacpan
"Gisle Aas <gisle@aas.no>",
"Graham Knop <haarg@haarg.org>",
"Jacques Germishuys <jacquesg@striata.com>",
"James Raspass <jraspass@gmail.com>",
"Jess Robinson <castaway@desert-island.me.uk>",
"Jon Jensen <jon@endpoint.com>",
"Lukas Mai <lukasmai.403@gmail.com>",
"Michal Josef \u0160pa\u010dek <mspacek@redhat.com>",
"Mike South <msouth@gmail.com>",
"Nicholas Clark <nick@ccl4.org>",
"Nicolas R <nicolas@atoomic.org>",
view release on metacpan or search on metacpan
lib/HTML/TableContent/Template/Base.pm view on Meta::CPAN
cell all => ( alternate_classes => qw['one', 'two'] );
sub _render_header {
my ($self, $header) = @_;
return ['<a href="some/endpoint?sort=%s">%s</a>', 'template_attr', 'text'];
}
sub _even_rows {
return ['<div>%s</div>', '_render_element'];
}
view release on metacpan or search on metacpan
"Hao Wu <hwu@intellisurvey.com>",
"Ilya Rassadin <elcamlost@gmail.com>",
"James Raspass <jraspass@gmail.com>",
"James Waters <james@jcwaters.co.uk>",
"joatis <joatis3@gmail.com>",
"Jon Jensen <jon@endpoint.com>",
"Konstantin A. Pustovalov <konstantin.pustovalov@quantumsoft.ru>",
"ktat <ktat.is@gmail.com>",
"lsaunders <lsaunders@dev05.backbone.i5invest.com>",
"Mahdi Zarei <ymgsmz@gmail.com>",
"Marco Fontani <MFONTANI@cpan.org>",
view release on metacpan or search on metacpan
lib/HTTP/Request.pm view on Meta::CPAN
are a few examples.
=head2 Simple POST
Here, we'll create a simple POST request that could be used to send JSON data
to an endpoint.
#!/usr/bin/env perl
use strict;
use warnings;
view release on metacpan or search on metacpan
lib/HTTP/MultiGet/Role.pm view on Meta::CPAN
use Moo;
BEGIN { with 'HTTP::MultiGet::Role' }
sub que_some_request {
my ($self,$cb)=@_;
my $request=HTTP::Request->new(GET=>'https://some_json_endpoint');
return $self->queue_request($request,$cb);
}
Blocking Example
view release on metacpan or search on metacpan
script/oai_pmh.pl view on Meta::CPAN
=back
=head1 DESCRIPTION
Retrieve data from OAI-PMH endpoints. The output format is:
<headers>
<content>
<FORMFEED>
view release on metacpan or search on metacpan
lib/HTTP/Promise/Headers.pm view on Meta::CPAN
See L<Mozilla documentation|https://developer.mozilla.org/en-US/docs/Web/HTTP/Headers/Content-Security-Policy>
=head2 content_security_policy_report_only
# Content-Security-Policy-Report-Only: default-src https:; report-uri /csp-violation-report-endpoint/
Sets or gets the C<Content-Security-Policy-Report-Only> header field value. It takes a string value of properly formatted header value.
See also L<HTTP::Promise::Headers::ContentSecurityPolicyReportOnly> to have a more granular control.
view release on metacpan or search on metacpan
examples/send.pl view on Meta::CPAN
my $server_key = { public => 'BCAI00zPAbxEVU5w8D1kZXVs2Ro--FmpQNMOd0S0w1_5naTLZTGTYNqIt7d97c2mUDstAWOCXkNKecqgS4jARA8',
private => 'M6xy5prDBhJNlOGnOkMekyAQnQSWKuJj1cD06SUQTow'};
my $send=HTTP::Request::Webpush->new();
$send->subscription('{"endpoint":"https://bn3p.notify.windows.com/w/?token=BQYAAACgmmGJB%2fT6GgtS%2bZsefznjZgOG1kd2d05B80MIiQ%2fn5JKOOjrE7Bep8JYJoqRiAW67%2fyoq69DRfLFaZHxhBiYbWh6HfdUd0SbAAwe6%2fvk0ClM0a4%2bEfX0fzUflmVix%2fV8uM1lFqVidtOLLs20lnWw%2bH5N...
$send->subject('mailto:esf@moller.cl');
$send->authbase64($server_key->{public}, $server_key->{private});
$send->content("Billy Jean's not my lover");
$send->encode;
$send->header('TTL' => '90');
view release on metacpan or search on metacpan
lib/HTTP/Upload/FlowJs.pm view on Meta::CPAN
library that uploads
a file in multiple parts. It requires two API points on the server side,
one C<GET> API point to check whether a part already has been uploaded
completely and one C<POST> API point to send the data of each partial
upload to. This Perl module implements the backend functionality for
both endpoints. It does not implement the handling of the HTTP requests
themselves, but you likely already use a framework like L<Mojolicious>
or L<Dancer> for that.
=head1 METHODS
view release on metacpan or search on metacpan
lib/Hadoop/HDFS/Command.pm view on Meta::CPAN
down below).
You can always use the WebHDFS to do similar operations instead of failling
back to the commandline. However there are several benefits of using the
cli; i) you'll end up with a single C<JVM> invocation, so the response
might be faster ii) Some functionality / endpoints might be buggy for WebHDFS
but might work with the cli (for example escaping certain values is broken
in some versions, but works with the cli).
=head1 NAME
view release on metacpan or search on metacpan
t/lib/Hailo/Test/TimToady.trn view on Meta::CPAN
I don't think anyone can look at 0..* and not grok it.
s/anyone/anyone not seriously damaged by earlier exposure to computer culture. :)/
Make me one with *..*
In a selector when you're too lazy to say Num.
that's another reason for it. 'a'..*
the endpoint is *not* Inf.
It's...its...er...
Whatever.
Sorry, I already called the colon.
Whatever...
right.
t/lib/Hailo/Test/TimToady.trn view on Meta::CPAN
as can all(@foo) if it's false
or none(@foo) if it's true
nothing like that
well, that's exactly what $0 is...
I doubt .. would know what to do with StrPos, but StrPos might figure out what to do with ..
and .. could exclude the endpoints. :)
I once had a font with square periods...
i wasn't making fun of your bad English
I was making a pun.
I do that sometimes...
unfortunately...
t/lib/Hailo/Test/TimToady.trn view on Meta::CPAN
since it's something that has to be known at compile time.
so I'm just going to delete it.
putter: note in my message I'm thinking about changing it to lazy flattening undoable by @@
you can ignore the symbol stuff in S05, it's already obsolete
in fact, I just now deleted it
Range.max just returns the endpoint, ignoring :by
so pugs is correct
Schwern++
the "Perl 7" discussion, I think
not to mention the strange regex ideas
There's little wrong with Perl 5 today that wasn't already wrong in 2000 when 361 RFCs were written...
t/lib/Hailo/Test/TimToady.trn view on Meta::CPAN
actually, that section implies that .succ is not used for ++ on strings, hmm...
that's specced, though
see S03:2029
why would you want to in increment kana?
it's not like the codepoints follow the a,i,u,e,o song... :)
you can still use it as a Range, as in testing cmp its endpoints
but cmp has nothing to do with .succ, really
yes, and then if you do something non-sensical, you get a lot of nonsense :)
the test is supposed to be !after, which matches eqv
or the other way around
anyway, a direct hit is suppose to stop it
view release on metacpan or search on metacpan
Word/noun.txt view on Meta::CPAN
endoscopy,endoscopies
endothelin,endothelins
endotoxin,endotoxins
endowment,endowments
endpaper,endpapers
endpoint,endpoints
enema,enemas
enemy,enemies
energetic,energetics
energy,energies
enfant,enfants
view release on metacpan or search on metacpan
lib/HealthCheck/Diagnostic/RemoteHealth.pm view on Meta::CPAN
version v0.1.2
=head1 SYNOPSIS
Returns the decoded JSON object from a HTTP HealthCheck endpoint.
$health_check->register(
HealthCheck::Diagnostic::RemoteHealth->new(
url => "https://example.com/healthz",
)
);
=head1 DESCRIPTION
Takes in a C<url> to a HealthCheck JSON endpoint
and checks to see if a connection can be made.
If the connection fails or the JSON object cannot be decoded,
the C<status> is set to "CRITICAL".
If both the connection succeeds and the JSON object is successfully decoded,
it returns the decoded JSON object from the remote endpoint.
=head1 ATTRIBUTES
This diagnostic inherits all attributes from
L<HealthCheck::Diagnostic::WebRequest> in addition to its own.
C<status_code> is by default set to "200, 503".
=head2 url
The URL to the remote HealthCheck JSON endpoint. This typically ends in
"I</healthz>".
=head1 DEPENDENCIES
=over 4
view release on metacpan or search on metacpan
lib/HealthCheck.pm view on Meta::CPAN
#pod
#pod =over
#pod
#pod =item *
#pod
#pod A fast HTTP endpoint that can be used to verify that a web app can
#pod serve traffic.
#pod To this end, it may be useful to use the runtime support option,
#pod available in L<HealthChecks::Diagnostic>.
#pod
#pod =item *
lib/HealthCheck.pm view on Meta::CPAN
=over
=item *
A fast HTTP endpoint that can be used to verify that a web app can
serve traffic.
To this end, it may be useful to use the runtime support option,
available in L<HealthChecks::Diagnostic>.
=item *
view release on metacpan or search on metacpan
helios_config_get view on Meta::CPAN
=head1 SYNOPSIS
helios_config_get --service=<service name> [--hostname=<hostname>] --param=<param name>
# get the value of the "endpoint_url" param for MyService on the current host
helios_config_get --service=MyService --param=endpoint_url
# get the global MAX_WORKERS setting for MyService
# (-H is a shortcut for --hostname)
helios_config_get -s MyService -H=* -p MAX_WORKERS
view release on metacpan or search on metacpan
lib/Hetula/Client.pm view on Meta::CPAN
=head2 API Access methods
=head3 login
See Hetula API doc for endpoint POST /api/v1/auth
@param1 {HASHRef} username => String || undef if given via credentials during construction,
password => String || undef if given via credentials during construction,
organization => String || undef if given via credentials during construction,
lib/Hetula/Client.pm view on Meta::CPAN
return _handleResponse($tx);
}
=head3 ssnAdd
See Hetula API doc for endpoint POST /api/v1/ssns
=cut
sub ssnAdd($s, $params) {
my $tx = $s->ua->post( $s->baseURL().'/api/v1/ssns', {Accept => '*/*'}, json => $params );
return _handleResponse($tx);
}
=head3 ssnGet
See Hetula API doc for endpoint GET /api/v1/users/<id>
@param1 {HASHRef} id => ssn id to get
=cut
lib/Hetula/Client.pm view on Meta::CPAN
return _handleResponse($tx);
}
=head3 ssnsBatchAdd
See Hetula API doc for endpoint GET /api/v1/ssns/batch
@param1 {ARRAYRef} of ssns
=cut
lib/Hetula/Client.pm view on Meta::CPAN
$s->ssnsBatchAddChunked($feeder, $digester);
}
=head3 userAdd
See Hetula API doc for endpoint POST /api/v1/users
=cut
sub userAdd($s, $params) {
my $tx = $s->ua->post( $s->baseURL().'/api/v1/users', {Accept => '*/*'}, json => $params );
lib/Hetula/Client.pm view on Meta::CPAN
return $s->userAdd($params);
}
=head3 userMod
See Hetula API doc for endpoint PUT /api/v1/users/<id>
@param {HASHRef} username or id => mandatory,
other patron attributes => and values,
...
view release on metacpan or search on metacpan
{
"abstract" : "Simple REST endpoint app for db backend build with Plack and DBIC",
"author" : [
"Tomasz Czepiel <tjmc@cpan.org>"
],
"dynamic_config" : 1,
"generated_by" : "ExtUtils::MakeMaker version 6.66, CPAN::Meta::Converter version 2.133380",
view release on metacpan or search on metacpan
lib/Hypersonic.pm view on Meta::CPAN
sub del { shift->_add_route('DELETE', @_) }
sub patch { shift->_add_route('PATCH', @_) }
sub head { shift->_add_route('HEAD', @_) }
sub options { shift->_add_route('OPTIONS', @_) }
# Health check endpoint - built-in route for load balancer / k8s probes
sub health_check {
my ($self, $path, $handler) = @_;
$path //= '/health';
# Default handler returns JSON string (JIT compiled as constant)
lib/Hypersonic.pm view on Meta::CPAN
};
return $self->get($path => $handler);
}
# Readiness check endpoint - separate from health for k8s
sub ready_check {
my ($self, $path, $handler) = @_;
$path //= '/ready';
$handler //= sub {