use strict;
use warnings;
-our $VERSION = '1.14';
-$VERSION = eval $VERSION;
-our $AUTHORITY = 'cpan:STEVAN';
-
-# This package is really more of a role, so it doesn't inherit from anything.
+use Moose::Role;
sub _inline_check_var_is_valid_key {
- my ( $self, $var ) = @_;
+ my $self = shift;
+ my ($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;};
+ return (
+ 'if (!defined(' . $var . ')) {',
+ $self->_inline_throw_error(
+ '"The key passed to ' . $self->delegate_to_method
+ . ' must be a defined value"',
+ ) . ';',
+ '}',
+ );
}
+no Moose::Role;
+
1;