File Coverage

blib/lib/Class/Param/Callback.pm

Criterion	Covered	Total	%
statement	31	31	100.0
branch	1	2	50.0
condition	2	3	66.6
subroutine	8	8	100.0
pod			n/a
total	42	44	95.4

package Class::Param::Callback;

use strict;
use warnings;
use base 'Class::Param::Base';

use Params::Validate qw[];

BEGIN {

    my @required = qw[ get set names remove ];
    my @optional = qw[ add clear count has param scan as_hash ];
    my $spec     = { };

    foreach my $method ( @required, @optional ) {

        no strict 'refs';

        *$method = sub {
             my $self = shift;
             my $code = $self->{$method} || Class::Param::Base->can($method);
             return $self->$code(@_);
        };
    }

    foreach my $required ( @required ) {

        $spec->{ $required } = {
            type     => Params::Validate::CODEREF,
            optional => 0
        };
    }

    foreach my $optional ( @optional ) {

        $spec->{ $optional } = {
            type     => Params::Validate::CODEREF,
            optional => 1
        };
    }

    *new = sub {
        my $class = ref $_[0] ? ref shift : shift;
        my $self  = Params::Validate::validate_with(
            params  => \@_,
            spec    => $spec,
            called  => "$class\::new"
        );

        return bless( $self, $class );
    };
}

1;

__END__