view release on metacpan or  search on metacpan

lib/Array/AsHash.pm  view on Meta::CPAN

};

my $_croak = sub {
    my ( $proto, $message ) = @_;
    require Carp;
    Carp::croak($message);
};

my $_validate_kv_pairs = sub {
    my ( $self, $arg_for ) = @_;
    my $sub = $arg_for->{sub} || ( caller(1) )[3];

    if ( @{ $arg_for->{pairs} } % 2 ) {
        $self->$_croak("Arguments to $sub must be an even-sized list");
    }
};

sub new {
    my $class = shift;
    return $class->_initialize(@_);
}