File Coverage

blib/lib/Class/Validating.pm

Criterion	Covered	Total	%
statement	49	56	87.5
branch	4	6	66.6
condition	0	3	0.0
subroutine	8	9	88.8
pod	3	3	100.0
total	64	77	83.1

# $Id: Validating.pm 4 2005-01-06 06:22:24Z daisuke $
#
# Daisuke Maki
# All rights reserved.

package Class::Validating;
use strict;
use Class::Data::Inheritable ();
use Params::Validate         ();

our $VERSION = '0.02';

sub import
{
    my $class = shift;
    my($package) = caller;

    {
        no strict 'refs';
        my @isa = @{"${package}::ISA"};
        if (!grep { 'Class::Data::Inheritable' eq $_ } @isa) {
            @{"${package}::ISA"} = (@isa, 'Class::Data::Inheritable');
        }
        *{"${package}::validate_args"} = \&validate_args;
        *{"${package}::get_pv_spec"}   = \&get_pv_spec;
        *{"${package}::_get_pv_spec"}  = \&_get_pv_spec;
        *{"${package}::set_pv_spec"}   = \&set_pv_spec;
    }

}

# Hey, use the (slight) evil-ness that we wanted to fix :)
my @SetPVSpecValidate = (
    { type => Params::Validate::SCALAR() },
    { type => Params::Validate::HASHREF() | Params::Validate::ARRAYREF() }
);
sub set_pv_spec
{
    my $class = shift;
    my($name, $spec) = Params::Validate::validate_pos(@_, @SetPVSpecValidate);

    my $method = "pv_spec_$name";
    $class->mk_classdata($method);
    $class->$method($spec);
}

sub _get_pv_spec
{
    my($class, $sub) = @_;

    my $simple_sub  = ($sub =~ /([^:]+)$/)[0];
    my $pv_spec_name = "pv_spec_${simple_sub}";
    my $pv_spec      = $class->$pv_spec_name;
    return $pv_spec;
}

my @GetPVSpecValidate = (
    { type => Params::Validate::SCALAR() }
);
sub get_pv_spec
{
    my $class = shift;
    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.");
    }
    my @args = (
        spec   => $pv_spec,
        called => $sub,
    );
    if (defined $extra_args) {
        push @args, %{$extra_args};
    }
    push @args, (params => $params);
    return Params::Validate::validate_with(@args);
}

1;

__END__