view release on metacpan or  search on metacpan

lib/Class/Validating.pm  view on Meta::CPAN

    my($sub) = Params::Validate::validate_pos(@_, @GetPVSpecValidate);
    
    $class = ref($class) || $class;
    return $class->_get_pv_spec("${class}::${sub}");
}

my @ValidateArgsValidate = (
    { type => Params::Validate::ARRAYREF() },
    { type => Params::Validate::HASHREF(), optional => 1 }
);
sub validate_args(\@\%)
{
    my $self = shift;
    my($params, $extra_args) = Params::Validate::validate_pos(@_, @ValidateArgsValidate);

    my $sub  = (caller(1))[3];

    my $pv_spec = $self->_get_pv_spec($sub);
    if (!$pv_spec) {
        require Carp;
        Carp::croak("pv_spec for $sub is not defined.");