[gitmo/Moose.git] / lib / Moose / Meta / Method / Accessor / Native / Hash.pm

package Moose::Meta::Method::Accessor::Native::Hash;

use strict;
use warnings;

our $VERSION = '1.25';
$VERSION = eval $VERSION;
our $AUTHORITY = 'cpan:STEVAN';

use Moose::Role;

sub _inline_check_var_is_valid_key {
    my ( $self, $var ) = @_;

    return $self->_inline_throw_error( q{'The key passed to }
            . $self->delegate_to_method
            . q{ must be a defined value'} )
        . qq{ unless defined $var;};
}

no Moose::Role;

1;
Commit	Line	Data
44babf1f	1	package Moose::Meta::Method::Accessor::Native::Hash;
	2
	3	use strict;
	4	use warnings;
	5
0c3879e8	6	our $VERSION = '1.25';
44babf1f	7	$VERSION = eval $VERSION;
	8	our $AUTHORITY = 'cpan:STEVAN';
	9
8b9641b8	10	use Moose::Role;
44babf1f	11
	12	sub _inline_check_var_is_valid_key {
	13	my ( $self, $var ) = @_;
	14
	15	return $self->_inline_throw_error( q{'The key passed to }
	16	. $self->delegate_to_method
	17	. q{ must be a defined value'} )
	18	. qq{ unless defined $var;};
	19	}
	20
8b9641b8	21	no Moose::Role;
8b9641b8	22
44babf1f	23	1;