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.