[gitmo/MooseX-Types-Structured.git] / lib / MooseX / Types / Structured / OverflowHandler.pm

package MooseX::Types::Structured::OverflowHandler;

use Moose;

use overload '""' => 'name', fallback => 1;

=attr type_constraint

=cut

has type_constraint => (
    is       => 'ro',
    isa      => 'Moose::Meta::TypeConstraint',
    required => 1,
    handles  => [qw/check/],
);

=method name

=cut

sub name {
    my ($self) = @_;
    return 'slurpy ' . $self->type_constraint->name;
}

no Moose;
__PACKAGE__->meta->make_immutable;

1;
Commit	Line	Data
2f8e2a40	1	package MooseX::Types::Structured::OverflowHandler;
	2
	3	use Moose;
	4
	5	use overload '""' => 'name', fallback => 1;
	6
8dbdca20	7	=attr type_constraint
	8
	9	=cut
	10
2f8e2a40	11	has type_constraint => (
	12	is => 'ro',
	13	isa => 'Moose::Meta::TypeConstraint',
	14	required => 1,
	15	handles => [qw/check/],
	16	);
	17
8dbdca20	18	=method name
	19
	20	=cut
	21
2f8e2a40	22	sub name {
	23	my ($self) = @_;
	24	return 'slurpy ' . $self->type_constraint->name;
	25	}
	26
	27	no Moose;
	28	__PACKAGE__->meta->make_immutable;
	29
	30	1;