view release on metacpan or search on metacpan
lib/App/Memcached/CLI/Help.pm view on Meta::CPAN
> delete <KEY>
EODESC
},
+{
command => 'flush_all',
summary => 'Invalidate whole data',
description => <<'EODESC',
Usage:
> flush_all [<DELAY>]
> flush_all # Invalidate immediately
> flush_all 60 # Invalidate after 60 seconds
EODESC
},
+{
command => 'call',
summary => 'Execute any command',
view release on metacpan or search on metacpan
lib/App/Mimosa/Controller/Root.pm view on Meta::CPAN
my $file = $tmp_base->file( @_ );
return "$file";
}
sub validate : Private {
my ( $self, $c ) = @_;
if( $c->req->param('program') eq 'none' ) {
$c->stash->{error} = "You must select a BLAST program to generate your report with.";
$c->detach('/input_error');
lib/App/Mimosa/Controller/Root.pm view on Meta::CPAN
$c->stash->{error} = "Sequence input too short. Must have a length of at least $min_length";
$c->detach('/input_error');
}
$c->stash->{sequence} = $s;
$c->stash->{program} = $program;
$c->forward('validate_sequence');
}
}
sub validate_sequence : Private {
my ($self, $c) = @_;
my $sequence = $c->stash->{sequence};
my $program = $c->stash->{program};
try {
$sequence->validate_seq();
} catch {
$c->stash->{error} = "Sequence is not a valid BioPerl sequence";
$c->detach('/input_error');
};
unless ($program) {
$c->stash->{error} = "Invalid program";
$c->detach('/input_error');
}
my %validate = (
blastn => qr/^([ACGTURYKMSWBDHVN]+)$/i,
tblastx => qr/^([GAVLIPFYCMHKRWSTDENQBZ\.X\*]+)$/i,
tblastn => qr/^([GAVLIPFYCMHKRWSTDENQBZ\.X\*]+)$/i,
);
my $seq = $sequence->seq();
unless ($seq =~ $validate{$program}){
my $encseq = encode_entities($seq);
$c->stash->{error} = "Sequence $encseq contains illegal characters for $program";
$c->detach('/input_error');
}
lib/App/Mimosa/Controller/Root.pm view on Meta::CPAN
$c->stash->{report_format} = $alignment_view;
# prevent race conditions
stat $input_file;
$c->forward('validate');
my @ss_ids;
if ($ids =~ m/,/){
(@ss_ids) = split /,/, $ids;
view release on metacpan or search on metacpan
lib/App/MiseEnPlace.pm view on Meta::CPAN
[ 'verbose|v' => 'be verbose' ] ,
[ 'version|V' => 'show version' ] ,
);
}
sub validate_args {
my( $self , $opt , $args ) = @_;
$self->usage_error( "No args needed" ) if @$args;
if ( $opt->{version} ) {
view release on metacpan or search on metacpan
lib/App/Module/Template.pm view on Meta::CPAN
_get_template_path
_module_path_exists
_process_dirs
_process_file
_process_template
_validate_module_name
);
%EXPORT_TAGS = (
ALL => [ @EXPORT_OK ],
);
lib/App/Module/Template.pm view on Meta::CPAN
my $file = $module; $file =~ s/.*:://msx; $file .= '.pm';
my $dist_dir = File::Spec->catdir( File::Spec->curdir, $dist );
my $tmpl_vars;
try {
_validate_module_name($module);
} catch {
croak "$_ module-template. exiting...";
};
if ( _module_path_exists($dist_dir) ) {
lib/App/Module/Template.pm view on Meta::CPAN
#
# 1. No top-level namespaces
# 2. No all lower case names
# 3. Match XXX::XXX
#-------------------------------------------------------------------------------
sub _validate_module_name {
my ($module_name) = @_;
given ( $module_name ) {
when ( $module_name =~ m/\A[A-Za-z]+\z/msx )
{
view release on metacpan or search on metacpan
lib/App/MojoSlides/files/public/bootstrap.min.js view on Meta::CPAN
/**
* bootstrap.js v3.0.0 by @fat and @mdo
* Copyright 2013 Twitter Inc.
* http://www.apache.org/licenses/LICENSE-2.0
*/
if(!jQuery)throw new Error("Bootstrap requires jQuery");+function(a){"use strict";function b(){var a=document.createElement("bootstrap"),b={WebkitTransition:"webkitTransitionEnd",MozTransition:"transitionend",OTransition:"oTransitionEnd otransitionen...
view release on metacpan or search on metacpan
lib/App/MtAws/ConfigDefinition.pm view on Meta::CPAN
} else {
custom('name-type', 'rel-filename'), mandatory('set-rel-filename'), custom('relfilename', value('set-rel-filename'));
}
} elsif (present('dir')) {
custom('relfilename', do {
validate 'dir', 'filename';
if (valid('dir') && valid('filename')) {
my $b_dir = binary_abs_path(binaryfilename value('dir'));
my $b_file = binary_abs_path(binaryfilename value('filename'));
lib/App/MtAws/ConfigDefinition.pm view on Meta::CPAN
my $mt = 'mtmsg';
validation(option('format', default => $fh),
message(qq{%option a% must be "$fh" or "$mt"}), sub { /^(\Q$fh\E|\Q$mt\E)$/ });
}
command 'create-vault' => sub { validate(optional('config'), mandatory(@encodings), mandatory('vault-name'), mandatory(@config_opts), check_https)};
command 'delete-vault' => sub { validate(optional('config'), mandatory(@encodings), mandatory('vault-name'), mandatory(@config_opts), check_https)};
command 'list-vaults' => sub {
validate(optional('config'), mandatory(@encodings), optional('dry-run'), mandatory(@config_opts), check_https, mandatory('format'))
};
command 'sync' => sub {
validate(mandatory(
optional('config'), mandatory(@encodings), @config_opts, sync_opts, detect_opts, check_https,
qw/dir vault concurrency partsize/, writable_journal('journal'),
optional(qw/max-number-of-files leaf-optimization follow/),
filter_options, optional('dry-run')
))
};
command 'upload-file' => sub {
validate(mandatory( optional('config'), mandatory(@encodings), @config_opts, check_https, qw/vault concurrency/, writable_journal('journal'),
check_dir_or_relname, check_base_dir, mandatory('partsize'), check_max_size ))
};
command 'purge-vault' => sub {
validate(mandatory(
optional('config'), mandatory(@encodings), @config_opts, check_https, qw/vault concurrency/,
writable_journal(existing_journal('journal')),
deprecated('dir'), filter_options, optional('dry-run')
))
};
command 'restore' => sub {
validate(mandatory(
optional('config'), mandatory(@encodings), @config_opts, check_https, qw/dir vault max-number-of-files concurrency/,
writable_journal(existing_journal('journal')),
filter_options, optional('dry-run')
))
};
command 'restore-completed' => sub {
validate(mandatory(
optional('config'), mandatory(@encodings), @config_opts, check_https, qw/dir vault concurrency/, existing_journal('journal'),
filter_options, optional('dry-run'), http_download_options
))
};
command 'check-local-hash' => sub {
validate(mandatory(
optional('config'), mandatory(@encodings), @config_opts, check_https, qw/dir/, existing_journal('journal'), deprecated('vault'),
filter_options, optional('dry-run')
))
};
command 'retrieve-inventory' => sub {
validate(mandatory(optional('config'), mandatory(@encodings), 'request-inventory-format', @config_opts, check_https, qw/vault/))
};
command 'download-inventory' => sub {
validate(mandatory(optional('config'), mandatory(@encodings), @config_opts, check_https, 'vault', empty_journal('new-journal')))
};
});
return $c;
}
view release on metacpan or search on metacpan
lib/App/MultiModule/Tasks/DocGateway.pm view on Meta::CPAN
my $message = shift;
my %args = @_;
$self->debug('message', message => $message)
if $self->{debug} > 5;
my $state = $self->{state};
#TODO: validate document_database, document_collection, document_method here
$self->_find($message) if $message->{document_method} eq 'find';
$self->_insert($message) if $message->{document_method} eq 'insert';
$self->_remove($message) if $message->{document_method} eq 'remove';
$self->_upsert($message) if $message->{document_method} eq 'upsert';
}
sub _upsert {
my $self = shift;
my $message = shift;
#TODO: validate $message->{document_filter} here
eval {
local $SIG{ALRM} = sub { die "timed out\n"; };
my $timeout = $self->{config}->{pg_upsert_timeout} || 2;
alarm $timeout;
my $c = $self->_get_connection();
lib/App/MultiModule/Tasks/DocGateway.pm view on Meta::CPAN
}
sub _remove {
my $self = shift;
my $message = shift;
#TODO: validate $message->{document_filter} here
eval {
local $SIG{ALRM} = sub { die "timed out\n"; };
my $timeout = $self->{config}->{pg_remove_timeout} || 2;
alarm $timeout;
my $c = $self->_get_connection();
lib/App/MultiModule/Tasks/DocGateway.pm view on Meta::CPAN
}
sub _find {
my $self = shift;
my $message = shift;
#TODO: validate $message->{document_filter} here
#TODO: variant that emits once per return document
my @emits = eval {
local $SIG{ALRM} = sub { die "timed out\n"; };
my $timeout = $self->{config}->{pg_find_timeout} || 7;
alarm $timeout;
view release on metacpan or search on metacpan
lib/App/MultiModule/Tasks/NagiosCmd.pm view on Meta::CPAN
sub _write_tick {
my $self = shift;
my $nagios_commands = $self->{state}->{nagios_commands};
return unless scalar @$nagios_commands; #no work
if(my $command_file_err = _validate_command_file($self->{state}->{command_file})) {
$self->error("App::MultiModule::Tasks::NagiosCmd::_write_tick: $command_file_err");
return;
}
WHILE:
while($nagios_commands->[0]) {
lib/App/MultiModule/Tasks/NagiosCmd.pm view on Meta::CPAN
$self->_cmd_log($cmd);
shift @$nagios_commands;
}
}
sub _validate_command_file { #return false means good
#true return is the text of the problem
my $command_file = shift;
my $ret = eval {
local $SIG{ALRM} = sub { die "timed out\n"; };
lib/App/MultiModule/Tasks/NagiosCmd.pm view on Meta::CPAN
return "command_file $command_file is not of file type pipe"
unless -p $command_file;
return 0;
};
alarm 0;
return "command_file $command_file _validate_command_file exception: $@"
if $@;
return $ret;
}
sub _cmd_log {
lib/App/MultiModule/Tasks/NagiosCmd.pm view on Meta::CPAN
unless $self->{state}->{nagios_commands};
if(not $self->{config}->{command_file}) {
$self->error("App::MultiModule::Tasks::NagiosCmd::set_config: required config 'command_file' not found");
return;
}
if(my $command_file_err = _validate_command_file($self->{config}->{command_file})) {
$self->error("App::MultiModule::Tasks::NagiosCmd::set_config: $command_file_err");
return;
}
$self->{state}->{command_file} = $self->{config}->{command_file};
$self->named_recur(
view release on metacpan or search on metacpan
IPC::Transit::send(qname => 'SmartMerge', message => {
x => 'y', a => 'b'
});
message_is(
'first validate pass-through',
{
x => 'y',
a => 'b',
source => 'SmartMerge',
},
view release on metacpan or search on metacpan
t/repeated-task-crash.t view on Meta::CPAN
qname => $OtherExternalModule->{task_name},
message => $crash_message
);
};
#crash it and validate it's back several times
for (1..10) {
my $rand = int rand 4;
print STDERR "\$rand=$rand\n";
ok $crash->() if $rand == 0;
print STDERR '$OtherExternalModule->send();' . "\n";
view release on metacpan or search on metacpan
lib/App/Mxpress/Client.pm view on Meta::CPAN
use Types::Standard qw/Object Str StrMatch Enum Optional HashRef Bool/;
use Future::HTTP;
use HTTP::CookieJar;
use JSON;
our ($validate, $session);
BEGIN {
$validate = cpo(
login => {
username => Str,
password => Str
},
generate => {
lib/App/Mxpress/Client.pm view on Meta::CPAN
});
}
sub login {
my $self = shift;
my $params = $validate->login->(@_);
$self->session->then(sub {
return $self->ua->http_post(
sprintf("%s/api/login", $self->host),
$self->json->encode({%$params}),
headers => {
lib/App/Mxpress/Client.pm view on Meta::CPAN
})->get;
}
sub generate {
my $self = shift;
my $params = $validate->generate->(@_);
$self->ua->http_post(
sprintf("%s/api/generate/pdf", $self->host),
$self->json->encode({
name => $params->name,
size => $params->size,
lib/App/Mxpress/Client.pm view on Meta::CPAN
})->get;
}
sub pod {
my $self = shift;
my $params = $validate->pod->(@_);
$params->{name} = $params->name
? $params->name
: $params->{$params->type};
$params->{styles} = {} if !$params->styles;
$params->{styles} = $self->json->encode($params->styles);
lib/App/Mxpress/Client.pm view on Meta::CPAN
return Future->new->done($_[0]);
})->get;
}
sub save {
my ($self, $params, $body) = $validate->save->(@_);
my $file = sprintf("%s/%s.pdf", $params->save, $params->filename || $params->name);
open my $fh, '>', $file or die "cannot open file to write $file";
print $fh $body;
close $fh;
return Future->new->done($file);
view release on metacpan or search on metacpan
script/mysql-copy-rows-adjust-pk view on Meta::CPAN
You can also put configuration for multiple programs inside a single file, and use filter C<program=NAME> in section names, e.g. C<[program=NAME ...]> or C<[SOMESECTION program=NAME]>. The section will then only be used when the reading program match...
You can also filter a section by environment variable using the filter C<env=CONDITION> in section names. For example if you only want a section to be read if a certain environment variable is true: C<[env=SOMEVAR ...]> or C<[SOMESECTION env=SOMEVAR ...
To load and configure plugins, you can use either the C<-plugins> parameter (e.g. C<< -plugins=DumpArgs >> or C<< -plugins=DumpArgs@before_validate_args >>), or use the C<[plugin=NAME ...]> sections, for example:
[plugin=DumpArgs]
-event=before_validate_args
-prio=99
[plugin=Foo]
-event=after_validate_args
arg1=val1
arg2=val2
which is equivalent to setting C<< -plugins=-DumpArgs@before_validate_args@99,-Foo@after_validate_args,arg1,val1,arg2,val2 >>.
List of available configuration parameters:
adjust (see --adjust)
database (see --database)
view release on metacpan or search on metacpan
- ndquery: --md5 output for STDIN fixed
- ndquery: --items opt renamed to --keys
- depends updated: Struct::Diff 0.96
0.5.3 2018-03-11
- nddiff: validate diff when --show opt used
- nddiff: don't print diff header when --quiet opt used
- nddiff: grep failures fixed on unexisted substructures
- docs improved
0.5.2 2018-03-04
view release on metacpan or search on metacpan
lib/App/Nag.pm view on Meta::CPAN
use constant OPACITY => [ 0, 1, 1, 1 ];
use constant FONT_SIZE => [ 20, 25, 28, 32 ];
use constant XY => [ [ 8, 40 ], [ 9, 40 ], [ 7, 41 ], [ 3, 43 ] ];
sub validate_args {
my $name = prog_name;
my ( $opt, $usage ) = describe_options(
"$name %o <time> <text>+",
[],
['Send yourself a reminder.'],
lib/App/Nag.pm view on Meta::CPAN
}
return ( $opt, $usage, $name );
}
sub validate_time {
my ( undef, $opt, $usage, $time, @args ) = @_;
require DateTime;
require DateTime::TimeZone;
# parse time
lib/App/Nag.pm view on Meta::CPAN
This module is written only to serve C<nag>. Use outside of this application at your
own risk.
=head1 METHODS
=head2 validate_args
C<validate_args> does your basic argument validation. If all goes well
it returns C<$opt> and C<$usage> arguments as per L<Getopt::Long::Descriptive> and
a C<$name> argument as per C<Getopt::Long::Descriptive::prog_name>.
=head2 validate_time
C<validate_time> confirms the validity of the time expression. If all goes well
it generates a numeric verbosity level, title and body text, for whatever
widget is to pop up, and a number of seconds to wait before making and
displaying the widget.
=head2 run
view release on metacpan or search on metacpan
lib/App/Netdisco/Web/Auth/Provider/DBIC.pm view on Meta::CPAN
# each of these settings permits no user in the database
# so create a pseudo user entry instead
if (not $user and
(setting('no_auth') or
(not setting('validate_remote_user')
and (setting('trust_remote_user') or setting('trust_x_remote_user')) ))) {
$user = $database->resultset($users_table)
->new_result({username => $username});
}
return $user;
}
sub validate_api_token {
my ($self, $token) = @_;
return unless defined $token;
my $settings = $self->realm_settings;
my $database = schema($settings->{schema_name})
view release on metacpan or search on metacpan
share/mib/ADSL-LINE-MIB.txt view on Meta::CPAN
"This object is used to create a new row or modify or
delete an existing row in this table.
A profile activated by setting this object to
`active'. When `active' is set, the system
will validate the profile.
Before a profile can be deleted or taken out of
service, (by setting this object to `destroy' or
`outOfService') it must be first unreferenced
from all associated lines.
share/mib/ADSL-LINE-MIB.txt view on Meta::CPAN
"This object is used to create a new row or modify or
delete an existing row in this table.
A profile activated by setting this object to
`active'. When `active' is set, the system
will validate the profile.
Before a profile can be deleted or taken out of
service, (by setting this object to `destroy' or
`outOfService') it must be first unreferenced
from all associated lines.
view release on metacpan or search on metacpan
whatsoever, including without limitation commercial, advertising or
promotional purposes (the "License"). The License shall be deemed effective
as of the date CC0 was applied by Affirmer to the Work. Should any part of
the License for any reason be judged legally invalid or ineffective under
applicable law, such partial invalidity or ineffectiveness shall not
invalidate the remainder of the License, and in such case Affirmer hereby
affirms that he or she will not (i) exercise any of his or her remaining
Copyright and Related Rights in the Work or (ii) assert any associated claims
and causes of action with respect to the Work, in either case contrary to
Affirmer's express Statement of Purpose.
view release on metacpan or search on metacpan
whatsoever, including without limitation commercial, advertising or
promotional purposes (the "License"). The License shall be deemed effective
as of the date CC0 was applied by Affirmer to the Work. Should any part of
the License for any reason be judged legally invalid or ineffective under
applicable law, such partial invalidity or ineffectiveness shall not
invalidate the remainder of the License, and in such case Affirmer hereby
affirms that he or she will not (i) exercise any of his or her remaining
Copyright and Related Rights in the Work or (ii) assert any associated claims
and causes of action with respect to the Work, in either case contrary to
Affirmer's express Statement of Purpose.
view release on metacpan or search on metacpan
lib/App/Nrepo.pm view on Meta::CPAN
=cut
sub go {
my ( $self, $action, @args ) = @_;
$self->_validate_config();
my $dispatch = {
'add-file' => \&add_file,
'del-file' => \&del_file,
'clean' => \&clean,
lib/App/Nrepo.pm view on Meta::CPAN
$dispatch->{$action}->( $self, @args );
exit(0);
}
sub _validate_config {
my $self = shift;
# If data_dir is relative, lets expand it based on cwd
$self->config->{'data_dir'} =
File::Spec->rel2abs( $self->config->{data_dir} );
lib/App/Nrepo.pm view on Meta::CPAN
}
}
sub _get_plugin {
my $self = shift;
my %o = validate(
@_,
{
type => { type => SCALAR, },
options => { options => HASHREF, },
}
lib/App/Nrepo.pm view on Meta::CPAN
return $plugin;
}
sub _get_repo_dir {
my $self = shift;
my %o = validate(
@_,
{
repo => { type => SCALAR },
tag => { type => SCALAR, default => 'head', },
}
lib/App/Nrepo.pm view on Meta::CPAN
=cut
sub add_file {
my $self = shift;
my %o = validate(
@_,
{
'repo' => { type => SCALAR },
'arch' => { type => SCALAR },
'file' => { type => SCALAR | ARRAYREF },
lib/App/Nrepo.pm view on Meta::CPAN
=cut
sub del_file {
my $self = shift;
my %o = validate(
@_,
{
'repo' => { type => SCALAR },
'arch' => { type => SCALAR },
'file' => { type => SCALAR | ARRAYREF },
lib/App/Nrepo.pm view on Meta::CPAN
=cut
sub clean {
my $self = shift;
my %o = validate(
@_,
{
repo => { type => SCALAR, },
arch => { type => SCALAR, optional => 1 },
force => { type => BOOLEAN, optional => 1, },
lib/App/Nrepo.pm view on Meta::CPAN
=cut
sub init {
my $self = shift;
my %o = validate(
@_,
{
repo => { type => SCALAR, },
arch => { type => SCALAR, optional => 1 },
}
lib/App/Nrepo.pm view on Meta::CPAN
=cut
sub mirror {
my $self = shift;
my %o = validate(
@_,
{
'repo' => { type => SCALAR },
'force' => { type => BOOLEAN, default => 0 },
'arch' => { type => SCALAR, optional => 1 },
lib/App/Nrepo.pm view on Meta::CPAN
=cut
sub tag {
my $self = shift;
my %o = validate(
@_,
{
'repo' => { type => SCALAR },
'tag' => { type => SCALAR },
'src-tag' => { type => SCALAR, default => 'head' },
view release on metacpan or search on metacpan
License to anyone who comes into possession of a copy. This
License will therefore apply, along with any applicable section 7
additional terms, to the whole of the work, and all its parts,
regardless of how they are packaged. This License gives no
permission to license the work in any other way, but it does not
invalidate such permission if you have separately received it.
d) If the work has interactive user interfaces, each must display
Appropriate Legal Notices; however, if the Program has interactive
interfaces that do not display Appropriate Legal Notices, your
work need not make them do so.
view release on metacpan or search on metacpan
lib/App/Office/CMS.pm view on Meta::CPAN
$self -> log(debug => 'A message');
$self -> log(info => 'Another message');
=item o Validator.pm
This is used to validate CGI form data.
=back
=item o What's the database schema?
lib/App/Office/CMS.pm view on Meta::CPAN
=item o update()
=back
=item o App::Office::CMS::Util::Validator.validate_page()
=item o App::Office::CMS::Database::Page.save_page_record()
=item o App::Office::CMS::View::Page.build_update_page_html()
lib/App/Office/CMS.pm view on Meta::CPAN
templates. See below for details.
=item o Validator.pm
This is C<App::Office::CMS::Util::Validator>. You'll have to edit the
validate_design() method.
=item o The declaration of update_page_callback() (2 of 2)
This is in page.js. This is the Javascript function which receives the output
of CustomPage.pm.
view release on metacpan or search on metacpan
lib/App/Office/Contacts/Donations/Controller.pm view on Meta::CPAN
script_name => $self -> script_name,
session => $self -> param('session'),
tmpl_path => $self -> tmpl_path,
) );
if ($self -> validate_post == 0)
{
$self -> prerun_mode('Initialize');
}
} # End of cgiapp_prerun.
view release on metacpan or search on metacpan
lib/App/Office/Contacts/Import/vCards/Controller.pm view on Meta::CPAN
script_name => $self -> script_name,
session => $self -> param('session'),
tmpl_path => $self -> tmpl_path,
) );
if ($self -> validate_post == 0)
{
$self -> prerun_mode('Initialize');
}
} # End of cgiapp_prerun.
view release on metacpan or search on metacpan
lib/App/Office/Contacts.pm view on Meta::CPAN
Hence it will not be used by C<CGI> scripts, unless you write such a script yourself.
=item Validator.pm
This is used to validate CGI form data.
=back
=head2 Why did you use Sub::Exporter?
view release on metacpan or search on metacpan
lib/App/Oozie/Deploy.pm view on Meta::CPAN
if ( $verbose ) {
$logger->debug("Assert file: $absolute_path");
}
# assert_valid() does not display the error message, hence the manual check
my $error = $is_file->validate( $absolute_path ) || next;
$logger->logdie( sprintf 'required_tt_files(): %s', $error );
}
if ( $verbose ) {
$logger->debug( join q{=}, $_, $self->$_ ) for qw(
lib/App/Oozie/Deploy.pm view on Meta::CPAN
for my $xml_file ( $sv->local_xml_files ) {
my $parsed = $sv->maybe_parse_xml( $xml_file );
if ( my $error = $parsed->{error} ) {
$logger->fatal(
sprintf q{We can't validate %s since parsing failed: %s},
$parsed->{relative_file_name},
$error,
);
${ $validation_errors_ref }++;
${ $total_errors_ref }++;
lib/App/Oozie/Deploy.pm view on Meta::CPAN
\$validation_errors,
\$total_errors,
);
if ( $self->write_ownership_to_workflow_xml ) {
$self->validate_meta_file(
File::Spec->catfile( $workflow, $self->meta->file ),
\$validation_errors,
\$total_errors,
{},
);
lib/App/Oozie/Deploy.pm view on Meta::CPAN
}
return $validation_errors, $total_errors, $dest, $cvc;
}
sub validate_meta_file {
my $self = shift;
my $file = shift;
$self->logger->info( sprintf 'Extra validation for %s', $file );
lib/App/Oozie/Deploy.pm view on Meta::CPAN
=head2 run
=head2 upload_to_hdfs
=head2 validate_meta_file
=head2 verify_temp_dir
=head2 write_deployment_meta_file
view release on metacpan or search on metacpan
script/restart-opera view on Meta::CPAN
You can also put configuration for multiple programs inside a single file, and use filter C<program=NAME> in section names, e.g. C<[program=NAME ...]> or C<[SOMESECTION program=NAME]>. The section will then only be used when the reading program match...
You can also filter a section by environment variable using the filter C<env=CONDITION> in section names. For example if you only want a section to be read if a certain environment variable is true: C<[env=SOMEVAR ...]> or C<[SOMESECTION env=SOMEVAR ...
To load and configure plugins, you can use either the C<-plugins> parameter (e.g. C<< -plugins=DumpArgs >> or C<< -plugins=DumpArgs@before_validate_args >>), or use the C<[plugin=NAME ...]> sections, for example:
[plugin=DumpArgs]
-event=before_validate_args
-prio=99
[plugin=Foo]
-event=after_validate_args
arg1=val1
arg2=val2
which is equivalent to setting C<< -plugins=-DumpArgs@before_validate_args@99,-Foo@after_validate_args,arg1,val1,arg2,val2 >>.
List of available configuration parameters:
format (see --format)
log_level (see --log-level)
view release on metacpan or search on metacpan
lib/App/Options.pm view on Meta::CPAN
my ($type);
if ($option_defs) {
@vars = (sort keys %$option_defs);
foreach $var (@vars) {
$type = $option_defs->{$var}{type};
next if (!$type); # nothing to validate against
$value = $values->{$var};
next if (! defined $value);
if ($type eq "integer") {
if ($value !~ /^-?[0-9_]+$/) {
$exit_status = 1;
lib/App/Options.pm view on Meta::CPAN
=head2 Help and Validations
If the "-?" or "--help" options were set on the command line,
the usage statement is printed, and the program is exited.
Then each of the options which is defined may be validated.
If an option is designated as "required", its value must be
defined somewhere (although it may be the empty string).
(If it is also required to be a non-empty string, a regex
may be provided for the type, i.e. type => "/./".)
view release on metacpan or search on metacpan
lib/App/ListOrgTodos.pm view on Meta::CPAN
done => sub { my $as = shift; $as->{schema}[1]{default} = 0 },
sort => sub { my $as = shift; $as->{schema}[1]{default} = 'due_date' },
},
modify_meta => sub {
my $meta = shift;
$meta->{"x.dist.zilla.plugin.rinci.wrap.wrap_args"} = {validate_args=>0, validate_result=>0}; # don't bother checking arguments, they will be checked in list_org_headlines()
},
output_code => sub {
my %args = @_;
$args{done} //= 0;
view release on metacpan or search on metacpan
lib/App/PAIA/Command/logout.pm view on Meta::CPAN
1;
__END__
=head1 NAME
App::PAIA::Command::logout - invalidate an access token
=cut