/usr/share/perl5/MooseX/Meta/TypeConstraint/Structured/Optional.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 | package ## Hide from PAUSE
MooseX::Meta::TypeConstraint::Structured::Optional;
use Moose;
use MooseX::Meta::TypeCoercion::Structured::Optional;
extends 'Moose::Meta::TypeConstraint::Parameterizable';
around parameterize => sub {
my $orig = shift;
my $self = shift;
my $ret = $self->$orig(@_);
$ret->coercion(MooseX::Meta::TypeCoercion::Structured::Optional->new(type_constraint => $ret));
return $ret;
};
__PACKAGE__->meta->make_immutable(inline_constructor => 0);
1;
|