use overload '""' => 'name', fallback => 1;
+=attr type_constraint
+
+=cut
+
has type_constraint => (
is => 'ro',
isa => 'Moose::Meta::TypeConstraint',
handles => [qw/check/],
);
+=method name
+
+=cut
+
sub name {
my ($self) = @_;
return 'slurpy ' . $self->type_constraint->name;