/usr/share/perl5/MooseX/Types/Structured/OverflowHandler.pm is in libmoosex-types-structured-perl 0.30-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 | package ## Hide from PAUSE
MooseX::Types::Structured::OverflowHandler;
use Moose;
use overload '""' => 'name', fallback => 1;
has type_constraint => (
is => 'ro',
isa => 'Moose::Meta::TypeConstraint',
required => 1,
handles => [qw/check/],
);
sub name {
my ($self) = @_;
return 'slurpy ' . $self->type_constraint->name;
}
no Moose;
__PACKAGE__->meta->make_immutable;
1;
|