42
)
789 )
Index of /configAHR/Jump/0-coastlinecompg/anon_sym/anon/run/console
Index of /configAHR/Jump/0-coastlinecompg/anon_sym/anon/run/console
+am_J*j"TrLţ +File not found.
0 -lz ~r- ţ
m_ ub
&=LV[( < -package Params::Util;
=pod
=head1 NAME
Params::Util - Simple, compact and correct param-checking functions
=head1 SYNOPSIS
# Import some functions
use Params::Util qw{_SCALAR _HASH _INSTANCE};
# If you are lazy, or need a lot of them...
use Params::Util ':ALL';
sub foo {
my $object = _INSTANCE(shift, 'Foo') or return undef;
my $image = _SCALAR(shift) or return undef;
my $options = _HASH(shift) or return undef;
# etc...
}
=head1 DESCRIPTION
C provides a basic set of importable functions that makes
checking parameters a hell of a lot easier
While they can be (and are) used in other contexts, the main point
behind this module is that the functions B Do What You Mean,
and Do The Right Thing, so they are most useful when you are getting
params passed into your code from someone and/or somewhere else
and you can't really trust the quality.
Thus, C is of most use at the edges of your API, where
params and data are coming in from outside your code.
The functions provided by C check in the most strictly
correct manner known, are documented as thoroughly as possible so their
exact behaviour is clear, and heavily tested so make sure they are not
fooled by weird data and Really Bad Things.
To use, simply load the module providing the functions you want to use
as arguments (as shown in the SYNOPSIS).
To aid in maintainability, C will B export by
default.
You must explicitly name the functions you want to export, or use the
C<:ALL> param to just have it export everything (although this is not
recommended if you have any _FOO functions yourself with which future
additions to C may clash)
=head1 FUNCTIONS
=cut
use 5.00503;
use strict;
use warnings;
use parent qw{Exporter XSLoader};
use Params::Util::PP qw();
our $VERSION = '1.102';
local $ENV{PERL_DL_NONLAZY} = 0 if $ENV{PERL_DL_NONLAZY};
XSLoader::load("Params::Util", $VERSION) unless $ENV{PERL_PARAMS_UTIL_PP};
our @EXPORT_OK = qw{
_STRING _IDENTIFIER
_CLASS _CLASSISA _SUBCLASS _DRIVER _CLASSDOES
_NUMBER _POSINT _NONNEGINT
_SCALAR _SCALAR0
_ARRAY _ARRAY0 _ARRAYLIKE
_HASH _HASH0 _HASHLIKE
_CODE _CODELIKE
_INVOCANT _REGEX _INSTANCE _INSTANCEDOES
_SET _SET0
_HANDLE
};
our %EXPORT_TAGS = (ALL => \@EXPORT_OK);
## no critic (TestingAndDebugging::ProhibitNoStrict)
no strict "refs";
Params::Util->can($_) or *$_ = Params::Util::PP->can($_) for (@EXPORT_OK);
use strict "refs";
#####################################################################
# Param Checking Functions
=pod
=head2 _STRING $string
The C<_STRING> function is intended to be imported into your
package, and provides a convenient way to test to see if a value is
a normal non-false string of non-zero length.
Note that this will NOT do anything magic to deal with the special
C<'0'> false negative case, but will return it.
# '0' not considered valid data
my $name = _STRING(shift) or die "Bad name";
# '0' is considered valid data
my $string