use strict;
use warnings;
-our $VERSION = '1.19';
-$VERSION = eval $VERSION;
our $AUTHORITY = 'cpan:STEVAN';
use Moose::Role;
return;
}
-sub _value_needs_copy {
+sub _writer_value_needs_copy {
my $self = shift;
return $self->_constraint_must_be_checked
sub _inline_tc_code {
my $self = shift;
- my ($potential_value) = @_;
return unless $self->_constraint_must_be_checked;
}
else {
return (
- $self->_inline_check_coercion($potential_value),
- $self->_inline_check_constraint($potential_value),
+ $self->_inline_check_coercion(@_),
+ $self->_inline_check_constraint(@_),
);
}
}
$self->_inline_throw_error(
'"A new member value for ' . $attr_name
. ' does not pass its type constraint because: "'
- . ' . $member_tc->get_message($_)',
+ . ' . $member_tc_obj->get_message($_)',
'data => $_',
) . ';',
'}',