my $accessor = "sub {\n";
if ($attribute->_is_metadata eq 'rw') {
- $accessor .= 'if (exists $_[1]) {' . "\n";
+ $accessor .= 'if (@_ >= 2) {' . "\n";
my $value = '$_[1]';
if exists $args{coerce};
if (exists $args{isa}) {
+ confess "Mouse does not yet support parameterized types (rt.cpan.org #39795)"
+ if $args{isa} =~ /\[.*\]/;
+
my $type_constraint = delete $args{isa};
$type_constraint =~ s/\s//g;
my @type_constraints = split /\|/, $type_constraint;