view release on metacpan or  search on metacpan

lib/Mojolicious/Plugin/ACME/Command/acme/cert/generate.pm  view on Meta::CPAN

    sub { $acme->check_all_challenges(shift->begin) },
    sub {
      my ($delay, $err) = @_;
      die Mojo::Util::dumper($err) if $err;
      my $bad = c(values %{ $acme->challenges })->grep(sub { $_->{status} ne 'valid' });
      die 'The following challenges were not validated ' . Mojo::Util::dumper($bad->to_array) if $bad->size;
      #TODO poll for cert when delayed
      $cert = $acme->get_cert(@domains);
    },
  )->catch(sub{ warn "$_[-1]\n" })->wait;

 view release on metacpan or  search on metacpan

ppport.h  view on Meta::CPAN

utilize|||
uvchr_to_utf8_flags||5.007003|
uvchr_to_utf8|||
uvuni_to_utf8_flags||5.007003|
uvuni_to_utf8||5.007001|
validate_suid|||
varname|||
vcmp||5.009000|
vcroak||5.006000|
vdeb||5.007003|
vdie_common|||

 view release on metacpan or  search on metacpan

MANIFEST  view on Meta::CPAN

META.yml
README
cpanfile
dist.ini
lib/Mojo/Collection/Role/Transform.pm
t/_reduce_validate.t
t/author-pod-syntax.t
t/collect_by.t
t/hashify.t
t/hashify_collect.t
t/options_validate.t

 view release on metacpan or  search on metacpan

MANIFEST  view on Meta::CPAN

t/connector_defaults.t
t/new_connection.t
t/new_connection_overrides.t
t/options_merge_append_replace.t
t/results_roles.t
t/scheme_validate.t
t/strict_mysql.t
t/strict_pg.t
META.yml
MANIFEST

 view release on metacpan or  search on metacpan

lib/Mojo/DB/Results/Role/MoreMethods.pm  view on Meta::CPAN

sub _parse_transform_options {
    my $self = shift;
    my $private_options = shift;
    my $options = ref $_[0] eq 'HASH' ? shift : {};

    my ($key, $key_ref)                       = _parse_and_validate_transform_key(shift);
    my ($value, $value_is_column, $value_ref) = _parse_and_validate_transform_value(@_);

    my ($type, $flatten) = _parse_and_validate_transform_options($private_options, $options);

    # if user will not access the rows and the type won't be used, default rows to arrays for speed
    if (($value_is_column or $flatten) and $key_ref ne 'CODE' and $value_ref ne 'CODE') {
        if ($type and $type ne 'array') {
            Carp::cluck 'Useless type option provided. array will be used for performance.';

 view release on metacpan or  search on metacpan

lib/Mojo/Darkpan/Config.pm  view on Meta::CPAN

    my $self = shift;
    my $location = $ENV{DARKPAN_CONFIG_FILE};

    if (defined($location)) {

        $self->_validateAssetLocation($location);

        my $file = Mojo::File->new($location);
        my $config = JSON->new->utf8->decode($file->slurp);

        return $config;

 view release on metacpan or  search on metacpan

t/samples/perlmonks.html  view on Meta::CPAN

any other options ?
</i>
<br />

<br />
Do we have some perl code checker available for us to validate scripts / modules ?
<br />Thanks

<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-1052035">
<i>Do not wait to strike when the iron is hot! Make it hot by striking - WB Yeats</i>

 view release on metacpan or  search on metacpan

lib/Mojo/JWT.pm  view on Meta::CPAN

=head2 verify_rsa

  my $bool = $jwt->verify_rsa($size, $payload, $signature);

Returns true if the given RSA size algorithm validates the given payload and signature.
The L</public> attribute is used as the public key.
This method is provided mostly for the purposes of subclassing.

=head1 SEE ALSO

 view release on metacpan or  search on metacpan

lib/Mojo/Run.pm  view on Meta::CPAN

			."Limit of " . $self->max_forks . " concurrently spawned process(es) is reached."
		);
		return 0;
	}
	
	# normalize and validate run parameters...
	my $proc = $self->_getRunStruct(\%opt);
	return 0 unless $self->_validateRunStruct($proc);
	
	$self->log->debug("Spawning command "
		."timeout: "
		.($proc->{exec_timeout} > 0 ? sprintf("%-.3f seconds]", $proc->{exec_timeout}) : "none")
		." : [$proc->{cmd}]"

 view release on metacpan or  search on metacpan

lib/Mojo/UserAgent/Cached.pm  view on Meta::CPAN

    return bless($ua, $class);
}


sub invalidate {
    my ($self, $key) = @_;

    if ($self->is_cacheable($key)) {
        $self->logger->debug("Invalidating cache for '$key'");
        return $self->cache_agent->remove($key);

 view release on metacpan or  search on metacpan

lib/Mojo/Webqq/Run.pm  view on Meta::CPAN

                        ."Limit of " . $self->max_forks . " concurrently spawned process(es) is reached."
                );
                return 0;
        }
         
        # normalize and validate run parameters...
        my $proc = $self->_getRunStruct(\%opt);
        return 0 unless $self->_validateRunStruct($proc);
         
        $self->log->debug("Spawning command "
                ."timeout: "
                .($proc->{exec_timeout} > 0 ? sprintf("%-.3f seconds]", $proc->{exec_timeout}) : "none")
                ." : [$proc->{cmd}]"

 view release on metacpan or  search on metacpan

lib/MojoMojo/Controller/Attachment.pm  view on Meta::CPAN

    $c->res->output( $io_file );
    $c->res->header( 'content-type', $att->contenttype );
    $c->res->header(
        "Content-Disposition" => "inline; filename=" . URI::Escape::uri_escape_utf8( $att->name ) );
    $c->res->header( 'Cache-Control', 'max-age=86400, must-revalidate' );
}

=head2 download

Forwards to L</view> then forces the attachment to be downloaded

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

0.07	2016-12-02
	fix mysterious placeholder bug that affects some older systems

0.08	2016-12-04
	additional tests to validate that test file hierarchy is correct

0.09	2017-01-08
	bug fixes

0.12	2021-11-04

 view release on metacpan or  search on metacpan

lib/MojoX/Run.pm  view on Meta::CPAN

		my $obj = __PACKAGE__->new();
		return $obj->spawn(%opt);
	}
	$self->{_error} = '';

	# normalize and validate run parameters...
	my $o = $self->_getRunStruct(\%opt);
	return 0 unless ($self->_validateRunStruct($o));

	# start exec!
	return $self->_spawn($o);
}

 view release on metacpan or  search on metacpan

xt/author/run.t  view on Meta::CPAN

use Test::More tests => 1;

# ------------------------

my($url)      = 'http://127.0.0.1/Novels-etc.html';
my(@result)   = `$^X bin/validate.head.links.pl -d /run/shm/html -max debug -u $url`;
my($result)   = join('', @result);
my($expected) = <<EOS;
URL: $url
 Import: /run/shm/html/assets/js/DataTables-1.9.4/media/css/demo_page.css
 Import: /run/shm/html/assets/js/DataTables-1.9.4/media/css/demo_table.css

 view release on metacpan or  search on metacpan

bin/validate.head.links.pl  view on Meta::CPAN

=pod

=head1 NAME

validate.head.links.pl - Ensure CSS and JS links in web pages point to real files

=head1 SYNOPSIS

validate.head.links.pl [options]

	Options:
	-help
	-doc_root aDirName
	-maxlevel logOption1

 view release on metacpan or  search on metacpan

lib/MojoX/Validator.pm  view on Meta::CPAN

    $validator->field('document');
    $validator->field('number');
    $validator->when('document')->regexp(qr/^1$/)
      ->then(sub { shift->field('number')->required(1) });

    $validator->validate($values_hashref);
    my $errors_hashref = $validator->errors;
    my $pass_error = $validator->group('passwords')->error;
    my $validated_values_hashref = $validator->values;

=head1 DESCRIPTION

A wrapper around L<Input::Validator>. See original documentation.