view release on metacpan or search on metacpan
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
inc/Module/Install/Metadata.pm view on Meta::CPAN
);
while ( my ($pattern, $license, $osi) = splice(@phrases, 0, 3) ) {
$pattern =~ s{\s+}{\\s+}g;
if ( $license_text =~ /\b$pattern\b/i ) {
if ( $osi and $license_text =~ /All rights reserved/i ) {
print "WARNING: 'All rights reserved' in copyright may invalidate Open Source license.\n";
}
$self->license($license);
return 1;
}
}
view release on metacpan or search on metacpan
eg/Model/MyPageKit/MyModel.pm view on Meta::CPAN
messages => {
email => "The E-mail address, <b>%%VALUE%%</b>, is invalid.",
phone => "The phone number, <b>%%VALUE%%</b>, is invalid.",
},
};
# validate user input
unless($model->pkit_validate_input($input_profile)){
$model->pkit_internal_redirect('form_validation');
return;
}
$model->pkit_redirect('index');
}
eg/Model/MyPageKit/MyModel.pm view on Meta::CPAN
email => "The E-mail address, <b>%%VALUE%%</b>, is invalid.",
phone => "The phone number you entered is invalid.",
passwd1 => "The passwords you entered do not match.",
},
};
# validate user input
unless($model->pkit_validate_input($input_profile)){
$model->pkit_internal_redirect('newacct1');
return;
}
my $login = $model->input('login');
view release on metacpan or search on metacpan
t/conf/extra.conf.in view on Meta::CPAN
AcceptPathInfo On
# Example of useful section to put given ssi are dynamic
<IfModule mod_headers.c>
Header Set Pragma "no-cache"
Header Set Expires "Thu, 1 Jan 1970 00:00:00 GMT"
Header Set Cache-Control "max-age=0, no-store, no-cache, must-revalidate"
Header Unset ETag
</IfModule>
# Alternatively, you can do also:
PerlSetVar Apache2_SSI_NO_CACHE On
PerlSetVar Apache2_SSI_Expression "legacy"
view release on metacpan or search on metacpan
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
lib/Apache2/SiteControl/User.pm view on Meta::CPAN
my $r = shift;
if(!defined($this) || !defined($r)) {
croak "INVALID CALL TO LOGOUT. You forgot to use OO syntax, or you forgot to pass the request object.";
}
eval("$this->{manager}" . '->invalidate($r, $this)');
if($@) {
$r->log_error("Logout failed: $@");
}
}
view release on metacpan or search on metacpan
lib/Apache2/UploadProgress.pm view on Meta::CPAN
}
$r->headers_out->set( 'Vary' => 'Accept' );
$r->headers_out->set( 'Pragma' => 'no-cache' );
$r->headers_out->set( 'Expires' => 'Thu, 01 Jan 1970 00:00:00 GMT' );
$r->headers_out->set( 'Cache-Control' => 'no-store, no-cache, must-revalidate, post-check=0, pre-check=0' );
my $callback = $MIMES->{$content_type};
my $content = $callback->( @$progress, $r );
$r->content_type($content_type);
view release on metacpan or search on metacpan
usr/share/webapp-toolkit/extra/class/admin.tt view on Meta::CPAN
#
# Print errors/exceptions and exit.
sub _error {
my ($self, $c, $title, $value)
= validate_pos(@_,
{ type => OBJECT },
{ type => OBJECT },
{ type => SCALAR },
{ type => SCALAR }
);
usr/share/webapp-toolkit/extra/class/admin.tt view on Meta::CPAN
#
# Logs the action including HTTP request parameters.
sub _log_action {
my ($self, $c, $action)
= validate_pos(@_,
{ type => OBJECT },
{ type => OBJECT },
{ type => SCALAR }
);
usr/share/webapp-toolkit/extra/class/admin.tt view on Meta::CPAN
#
# Generate per-page results.
sub _gen_results {
my ($self, $total, $start, $limit, $ary_ref)
= validate_pos(@_,
{ type => OBJECT },
{ type => SCALAR },
{ type => SCALAR },
{ type => SCALAR },
{ type => ARRAYREF }
usr/share/webapp-toolkit/extra/class/admin.tt view on Meta::CPAN
#
# Return a sorted multi-dimensional array.
sub _sort_data {
my ($self, $key, $order, $ary_ref)
= validate_pos(@_,
{ type => OBJECT },
{ type => SCALAR },
{ type => SCALAR },
{ type => ARRAYREF }
);
view release on metacpan or search on metacpan
lib/Apache2/WebApp/Plugin/CGI.pm view on Meta::CPAN
#
# Get the request paramters; return name/value parameters as a hash.
sub params {
my ( $self, $c )
= validate_pos( @_,
{ type => OBJECT },
{ type => HASHREF }
);
return
lib/Apache2/WebApp/Plugin/CGI.pm view on Meta::CPAN
#
# Redirect an HTTP request to a target URI/URL.
sub redirect {
my ( $self, $c, $target )
= validate_pos( @_,
{ type => OBJECT },
{ type => HASHREF },
{ type => SCALAR },
);
view release on metacpan or search on metacpan
lib/Apache2/WebApp/Plugin/Cookie.pm view on Meta::CPAN
#
# Set a new browser cookie.
sub set {
my ( $self, $c, $vars )
= validate_pos( @_,
{ type => OBJECT },
{ type => HASHREF },
{ type => HASHREF }
);
lib/Apache2/WebApp/Plugin/Cookie.pm view on Meta::CPAN
#
# Return the browser cookie value.
sub get {
my ( $self, $name )
= validate_pos( @_,
{ type => OBJECT },
{ type => SCALAR }
);
my %cookie = Apache2::Cookie->fetch;
lib/Apache2/WebApp/Plugin/Cookie.pm view on Meta::CPAN
#
# Delete a browser cookie by name.
sub delete {
my ( $self, $c, $name )
= validate_pos( @_,
{ type => OBJECT },
{ type => HASHREF },
{ type => SCALAR }
);
view release on metacpan or search on metacpan
lib/Apache2/WebApp/Plugin/DBI.pm view on Meta::CPAN
#
# Make a new database connection.
sub connect {
my ( $self, $config )
= validate_pos( @_,
{ type => OBJECT },
{ type => HASHREF }
);
my $driver = $config->{driver};
view release on metacpan or search on metacpan
lib/Apache2/WebApp/Plugin/DateTime.pm view on Meta::CPAN
#
# Return the total days between dates.
sub days_between_dates {
my ( $self, $date1, $date2 )
= validate_pos( @_,
{ type => OBJECT },
{ type => SCALAR },
{ type => SCALAR }
);
lib/Apache2/WebApp/Plugin/DateTime.pm view on Meta::CPAN
#
# Convert seconds-since-epoch to a human readable format.
sub format_time {
my ( $self, $unix_time, $format )
= validate_pos( @_,
{ type => OBJECT },
{ type => SCALAR },
{ type => SCALAR }
);
view release on metacpan or search on metacpan
lib/Apache2/WebApp/Plugin/File.pm view on Meta::CPAN
#
# Open the file in a web browser window.
sub open {
my ( $self, $c, $file, $force_download )
= validate_pos( @_,
{ type => OBJECT },
{ type => HASHREF },
{ type => SCALAR },
{ type => SCALAR, optional => 1 }
);
view release on metacpan or search on metacpan
lib/Apache2/WebApp/Plugin/Filters.pm view on Meta::CPAN
#
# Encode URL to ASCII.
sub encode_url {
my ( $self, $url )
= validate_pos( @_,
{ type => OBJECT },
{ type => SCALAR }
);
$url =~ s/([\W])/"%" . uc( sprintf("%2.2x", ord($1)) )/eg;
lib/Apache2/WebApp/Plugin/Filters.pm view on Meta::CPAN
#
# Decode ASCII to URL.
sub decode_url {
my ( $self, $url )
= validate_pos( @_,
{ type => OBJECT },
{ type => SCALAR }
);
$url =~ tr/+/ /;
lib/Apache2/WebApp/Plugin/Filters.pm view on Meta::CPAN
#
# Remove the subdomain (alias) from a domain name.
sub strip_domain_alias {
my ( $self, $domain )
= validate_pos( @_,
{ type => OBJECT },
{ type => SCALAR }
);
$domain =~ /(?: |\.|\-)([\w-]+?)\.(\w+?) \z/xs;
lib/Apache2/WebApp/Plugin/Filters.pm view on Meta::CPAN
#
# Remove all HTML tags and attributes.
sub strip_html {
my ( $self, $markup )
= validate_pos( @_,
{ type => OBJECT },
{ type => SCALAR }
);
my $hs = HTML::StripScripts::Parser->new({
lib/Apache2/WebApp/Plugin/Filters.pm view on Meta::CPAN
#
# Remove restricted HTML tags and attributes.
sub untaint_html {
my ( $self, $markup )
= validate_pos( @_,
{ type => OBJECT },
{ type => SCALAR }
);
my $hs = HTML::StripScripts::Parser->new({
view release on metacpan or search on metacpan
lib/Apache2/WebApp/Plugin/Mail.pm view on Meta::CPAN
#
# Send a template based (text) message.
sub send_text {
my ( $self, $c, $data_ref )
= validate_pos( @_,
{ type => OBJECT },
{ type => HASHREF },
{ type => HASHREF }
);
lib/Apache2/WebApp/Plugin/Mail.pm view on Meta::CPAN
#
# Send a template based (HTML/Text) multi-formatted message.
sub send_html {
my ( $self, $c, $data_ref )
= validate_pos( @_,
{ type => OBJECT },
{ type => HASHREF },
{ type => HASHREF }
);
view release on metacpan or search on metacpan
lib/Apache2/WebApp/Plugin/Session/File.pm view on Meta::CPAN
#
# Create a new file based session and set a web browser cookie.
sub create {
my ( $self, $c, $name, $data_ref )
= validate_pos( @_,
{ type => OBJECT },
{ type => HASHREF },
{ type => SCALAR },
{ type => HASHREF }
);
lib/Apache2/WebApp/Plugin/Session/File.pm view on Meta::CPAN
# Takes the cookie unique identifier or session id as arguments. Returns
# the session data as a hash reference.
sub get {
my ( $self, $c, $arg )
= validate_pos( @_,
{ type => OBJECT },
{ type => HASHREF },
{ type => SCALAR }
);
lib/Apache2/WebApp/Plugin/Session/File.pm view on Meta::CPAN
# Takes the cookie unique identifier or session id as arguments. Deletes
# an existing session.
sub delete {
my ( $self, $c, $arg )
= validate_pos( @_,
{ type => OBJECT },
{ type => HASHREF },
{ type => SCALAR }
);
lib/Apache2/WebApp/Plugin/Session/File.pm view on Meta::CPAN
# Takes the cookie unique identifier or session id as arguments. Updates
# existing session data.
sub update {
my ( $self, $c, $arg, $data_ref )
= validate_pos( @_,
{ type => OBJECT },
{ type => HASHREF },
{ type => SCALAR },
{ type => HASHREF }
);
lib/Apache2/WebApp/Plugin/Session/File.pm view on Meta::CPAN
#
# Return the cookie unique identifier for a given session.
sub id {
my ( $self, $c, $name )
= validate_pos( @_,
{ type => OBJECT },
{ type => HASHREF },
{ type => SCALAR }
);
view release on metacpan or search on metacpan
lib/Apache2/WebApp/Plugin/Session/Memcached.pm view on Meta::CPAN
#
# Create a new session within the database and set a web browser cookie.
sub create {
my ($self, $c, $name, $data_ref)
= validate_pos(@_,
{ type => OBJECT },
{ type => HASHREF },
{ type => SCALAR },
{ type => HASHREF }
);
lib/Apache2/WebApp/Plugin/Session/Memcached.pm view on Meta::CPAN
# Takes the cookie unique identifier or session id as arguments. Returns
# the session data as a hash reference.
sub get {
my ($self, $c, $name)
= validate_pos(@_,
{ type => OBJECT },
{ type => HASHREF },
{ type => SCALAR }
);
lib/Apache2/WebApp/Plugin/Session/Memcached.pm view on Meta::CPAN
# Takes the cookie unique identifier or session id as arguments. Deletes
# an existing session.
sub delete {
my ($self, $c, $name)
= validate_pos(@_,
{ type => OBJECT },
{ type => HASHREF },
{ type => SCALAR }
);
lib/Apache2/WebApp/Plugin/Session/Memcached.pm view on Meta::CPAN
# Takes the cookie unique identifier or session id as arguments. Updates
# existing session data.
sub update {
my ($self, $c, $name, $data_ref)
= validate_pos(@_,
{ type => OBJECT },
{ type => HASHREF },
{ type => SCALAR },
{ type => HASHREF }
);
lib/Apache2/WebApp/Plugin/Session/Memcached.pm view on Meta::CPAN
#
# Return the cookie unique identifier for a given session.
sub id {
my ($self, $c, $name)
= validate_pos(@_,
{ type => OBJECT },
{ type => HASHREF },
{ type => SCALAR }
);
view release on metacpan or search on metacpan
lib/Apache2/WebApp/Plugin/Session/MySQL.pm view on Meta::CPAN
#
# Create a new session within the database and set a web browser cookie.
sub create {
my ( $self, $c, $name, $data_ref )
= validate_pos( @_,
{ type => OBJECT },
{ type => HASHREF },
{ type => SCALAR },
{ type => HASHREF }
);
lib/Apache2/WebApp/Plugin/Session/MySQL.pm view on Meta::CPAN
# Takes the cookie unique identifier or session id as arguments. Returns
# the session data as a hash reference.
sub get {
my ( $self, $c, $arg )
= validate_pos( @_,
{ type => OBJECT },
{ type => HASHREF },
{ type => SCALAR }
);
lib/Apache2/WebApp/Plugin/Session/MySQL.pm view on Meta::CPAN
# Takes the cookie unique identifier or session id as arguments. Deletes
# an existing session.
sub delete {
my ( $self, $c, $arg )
= validate_pos( @_,
{ type => OBJECT },
{ type => HASHREF },
{ type => SCALAR }
);
lib/Apache2/WebApp/Plugin/Session/MySQL.pm view on Meta::CPAN
# Takes the cookie unique identifier or session id as arguments. Updates
# existing session data.
sub update {
my ( $self, $c, $arg, $data_ref )
= validate_pos( @_,
{ type => OBJECT },
{ type => HASHREF },
{ type => SCALAR },
{ type => HASHREF }
);
lib/Apache2/WebApp/Plugin/Session/MySQL.pm view on Meta::CPAN
#
# Return the cookie unique identifier for a given session.
sub id {
my ( $self, $c, $name )
= validate_pos( @_,
{ type => OBJECT },
{ type => HASHREF },
{ type => SCALAR }
);
view release on metacpan or search on metacpan
lib/Apache2/WebApp/Plugin/Session.pm view on Meta::CPAN
#
# Based on config value for 'storage_type', include the correct sub-class.
sub _init_new {
my ($self, $c)
= validate_pos(@_,
{ type => OBJECT },
{ type => HASHREF }
);
my $package;
view release on metacpan or search on metacpan
lib/Apache2/WebApp/Plugin/Validate.pm view on Meta::CPAN
#
# Check the currency format (0.00)
sub currency {
my ( $self, $total )
= validate_pos( @_,
{ type => OBJECT },
{ type => SCALAR }
);
if ($total =~ /\A [0-9]{0,8}[\.][0-9]{1,2} \z/xs && length($total) < 10) {
lib/Apache2/WebApp/Plugin/Validate.pm view on Meta::CPAN
#
# Check the date format (YYYY-MM-DD)
sub date {
my ( $self, $date )
= validate_pos( @_,
{ type => OBJECT },
{ type => SCALAR }
);
if ($date =~ /\A [0-9]{4}[\/|-][0-9]{1,2}[\/|-][0-9]{1,2} \z/xs ) {
lib/Apache2/WebApp/Plugin/Validate.pm view on Meta::CPAN
#
# Is the date in the future? (YYYY-MM-DD)
sub date_is_future {
my ( $self, $date )
= validate_pos( @_,
{ type => OBJECT },
{ type => SCALAR }
);
my ( $year1, $month1, $day1 ) = split( /\-/, $date );
lib/Apache2/WebApp/Plugin/Validate.pm view on Meta::CPAN
#
# Is the date in the past? (YYYY-MM-DD)
sub date_is_past {
my ( $self, $date )
= validate_pos( @_,
{ type => OBJECT },
{ type => SCALAR }
);
my ( $year1, $month1, $day1 ) = split( /\-/, $date );
lib/Apache2/WebApp/Plugin/Validate.pm view on Meta::CPAN
#
# Check the domain name format; verify the domain status using a DNS query.
sub domain {
my ( $self, $name )
= validate_pos( @_,
{ type => OBJECT },
{ type => SCALAR }
);
my $dns = new Net::DNS::Check(
lib/Apache2/WebApp/Plugin/Validate.pm view on Meta::CPAN
#
# Check the e-mail address format; verify the domain status using a DNS query.
sub email {
my ( $self, $address, $mx )
= validate_pos( @_,
{ type => OBJECT },
{ type => SCALAR },
{ type => SCALAR, optional => 1 }
);
lib/Apache2/WebApp/Plugin/Validate.pm view on Meta::CPAN
#
# Check for a integer.
sub integer {
my ( $self, $value )
= validate_pos( @_,
{ type => OBJECT },
{ type => SCALAR }
);
if ($value =~ /^[\d]*$/) {
lib/Apache2/WebApp/Plugin/Validate.pm view on Meta::CPAN
#
# Check for HTML markup.
sub html {
my ( $self, $markup )
= validate_pos( @_,
{ type => OBJECT },
{ type => SCALAR }
);
if ($markup =~ /<\/?\w+((\s+\w+(\s*=\s*(?:"(.|\n)*?"|'(.|\n)*?'|[^'">\s]+))?)+\s*|\s*)\/?>/) {
lib/Apache2/WebApp/Plugin/Validate.pm view on Meta::CPAN
#
# Check the URL.
sub url {
my ( $self, $string )
= validate_pos( @_,
{ type => OBJECT },
{ type => SCALAR }
);
my $v = Data::Validate::URI->new();
view release on metacpan or search on metacpan
lib/Apache2/WebApp/AppConfig.pm view on Meta::CPAN
#
# Return the configuration name/value pairs as a reference to a hash.
sub parse {
my ($self, $file)
= validate_pos(@_,
{ type => OBJECT },
{ type => SCALAR }
);
my $config;
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
script/acme-cpanauthors view on Meta::CPAN
### begin code_after_shebang
# Note: This script is a CLI for Riap function /App/AcmeCpanauthors/acme_cpanauthors
# and generated automatically using Perinci::CmdLine::Gen version 0.502
### end code_after_shebang
# PERICMD_INLINE_SCRIPT: {"code_after_shebang":"...","config_dirs":null,"config_filename":"acme-cpanauthors.conf","env_name":"ACME_CPANAUTHORS_OPT","include":["App::AcmeCpanauthors"],"log":null,"pack_deps":1,"pod":0,"read_config":1,"read_env":1,"scri...
# This script is generated by Perinci::CmdLine::Inline version 0.554 on Sat Jun 17 09:02:58 2023.
# Rinci metadata taken from these modules: App::AcmeCpanauthors (no version)
script/acme-cpanauthors 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:
action (see --action)
detail (see --detail)
script/acme-cpanauthors view on Meta::CPAN
#
# my %existing_methods;
# @existing_methods{keys %{ $me->_all_subs($to) }} = ();
#
# # _concrete_methods_of caches its result on roles. that cache needs to be
# # invalidated after applying roles
# delete $INFO{$to}{methods} if $INFO{$to};
#
# foreach my $i (keys %$methods) {
# next
# if exists $existing_methods{$i};
script/acme-cpanauthors view on Meta::CPAN
# # Data::Sah can also create validator that returns nice error message string
# # and/or coerced value. Data::Sah can even create validator that targets other
# # language, like JavaScript. All from the same schema. See its documentation
# # for more details.
#
#To validate function parameters against this schema (requires L<Params::Sah>):
#
# use Params::Sah qw(gen_validator);
#
# sub myfunc {
# my @args = @_;
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/Addex/Plugin/Nobody.pm view on Meta::CPAN
#pod You can supply the following options for the plugin:
#pod
#pod name - the "full name" to use (default: "Undisclosed Recipients")
#pod nick - the nick (if any) to provide (default: nobody)
#pod group - the name of the address group (default: undisclosed-recipients)
#pod this option is not well-validated, so maybe you should leave it alone
#pod
#pod The entry will have a true C<skip_hiveminder> field, to avoid bizarre
#pod interactions with the Hiveminder plugin.
#pod
#pod =cut
lib/App/Addex/Plugin/Nobody.pm view on Meta::CPAN
You can supply the following options for the plugin:
name - the "full name" to use (default: "Undisclosed Recipients")
nick - the nick (if any) to provide (default: nobody)
group - the name of the address group (default: undisclosed-recipients)
this option is not well-validated, so maybe you should leave it alone
The entry will have a true C<skip_hiveminder> field, to avoid bizarre
interactions with the Hiveminder plugin.
=head1 AUTHOR
view release on metacpan or search on metacpan
script/algodiff-compact-diff 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:
file1 (see --file1)
file2 (see --file2)
view release on metacpan or search on metacpan
lib/App/AltSQL/View.pm view on Meta::CPAN
}
around BUILDARGS => sub {
my $orig = shift;
my $class = shift;
my %args = validate(@_, {
app => 1,
timing => 1,
verb => 1,
sth => 1,
});
lib/App/AltSQL/View.pm view on Meta::CPAN
=cut
sub render {
my $self = shift;
my %args = validate(@_, {
no_pager => 0,
one_row_per_column => 0,
});
# Buffer will be unset unless there is a static result
view release on metacpan or search on metacpan
lib/App/Anchr/Command/anchors.pm view on Meta::CPAN
$desc .= ucfirst(abstract) . ".\n";
$desc .= "\tFasta files can be gzipped\n";
return $desc;
}
sub validate_args {
my ( $self, $opt, $args ) = @_;
if ( !( @{$args} == 2 ) ) {
my $message = "This command need two input files.\n\tIt found";
$message .= sprintf " [%s]", $_ for @{$args};
view release on metacpan or search on metacpan
lib/App/AppSpec.pm view on Meta::CPAN
my $pod = $generator->generate;
say $pod;
}
sub cmd_validate {
my ($self, $run) = @_;
my $options = $run->options;
my $parameters = $run->parameters;
my @errors;
require App::AppSpec::Schema::Validator;
my $validator = App::AppSpec::Schema::Validator->new;
my $spec_file = $parameters->{spec_file};
if (ref $spec_file eq 'SCALAR') {
my $spec = YAML::PP::Load($$spec_file);
@errors = $validator->validate_spec($spec);
}
else {
@errors = $validator->validate_spec_file($spec_file);
}
binmode STDOUT, ":encoding(utf-8)";
if (@errors) {
print $validator->format_errors(\@errors);
say $run->colored(out => red => "Not valid!");
lib/App/AppSpec.pm view on Meta::CPAN
=head1 METHODS
=over 4
=item cmd_completion, cmd_new, cmd_validate, generate_pod
=back
=head1 LICENSE
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.