my ($class, $meta) = @_;
my $associated_metaclass_name = $meta->name;
- my @attrs = $meta->compute_all_applicable_attributes;
+ my @attrs = $meta->get_all_attributes;
my $buildall = $class->_generate_BUILDALL($meta);
my $buildargs = $class->_generate_BUILDARGS($meta);
my $processattrs = $class->_generate_processattrs($meta, \@attrs);
}
$code .= "
\$attrs[$index]->verify_type_constraint_error(
- '$key', \$_, \$attrs[$index]->type_constraint
+ '$key', \$value, \$attrs[$index]->type_constraint
)
}
";
if ($attr->has_type_constraint) {
$code .= "{
unless (\$attrs[$index]->{type_constraint}->check(\$value)) {
- \$attrs[$index]->verify_type_constraint_error('$key', \$_, \$attrs[$index]->type_constraint)
+ \$attrs[$index]->verify_type_constraint_error('$key', \$value, \$attrs[$index]->type_constraint)
}
}";
}