use strict;
use warnings;
-our $AUTHORITY = 'cpan:STEVAN';
-
use Moose::Role;
-with 'Moose::Meta::Method::Accessor::Native::Array::set' => {
- -excludes => [
- qw( _generate_method
- _minimum_arguments
- _maximum_arguments
- _inline_process_arguments
- _inline_check_arguments
- _return_value)
- ]
- },
- 'Moose::Meta::Method::Accessor::Native::Array::get' => {
- -excludes => [
- qw(
- _generate_method
- _minimum_arguments
- _maximum_arguments
- )
- ]
- };
+with 'Moose::Meta::Method::Accessor::Native::Array::set',
+ 'Moose::Meta::Method::Accessor::Native::Array::get';
+
+sub _inline_process_arguments {
+ my $self = shift;
+ $self->Moose::Meta::Method::Accessor::Native::Array::get::_inline_process_arguments(@_);
+}
+
+sub _inline_check_arguments {
+ my $self = shift;
+ $self->Moose::Meta::Method::Accessor::Native::Array::get::_inline_check_arguments(@_);
+}
+
+sub _return_value {
+ my $self = shift;
+ $self->Moose::Meta::Method::Accessor::Native::Array::get::_return_value(@_);
+}
sub _generate_method {
my $self = shift;
'sub {',
'my ' . $inv . ' = shift;',
$self->_inline_curried_arguments,
- $self->_inline_check_lazy($inv, '$type_constraint', '$type_constraint_obj'),
+ $self->_inline_check_lazy($inv, '$type_constraint', '$type_coercion', '$type_message'),
# get
'if (@_ == 1) {',
$self->_inline_check_var_is_valid_index('$_[0]'),