. 'do { local $_ = ' . $value . '; '
. $message . '->(' . $value . ')'
. '}',
- 'roles => ["Moose::Exception::TypeConstraint"]',
+ 'class => "Moose::Exception::TypeConstraint"',
'attribute_name => ' . $self->name,
'type_name => ' . $self->type_constraint->name,
'value => ' . $value,
. 'do { local $_ = ' . $value . '; '
. $message . '->(' . $value . ')'
. '}',
- 'roles => ["Moose::Exception::TypeConstraint"]',
+ 'class => "Moose::Exception::TypeConstraint"',
'attribute_name => ' . $self->name,
'type_name => ' . $self->type_constraint->name,
'value => ' . $value,