/usr/share/perl5/MooseX/Types/Common.pm is in libmoosex-types-common-perl 0.001004-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 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 | package MooseX::Types::Common;
use strict;
use warnings;
use Carp qw/cluck/;
our $VERSION = '0.001004';
sub import {
my $package = shift;
return unless @_;
cluck("Tried to import the symbols " . join(', ', @_)
. " from MooseX::Types::Common.\nDid you mean "
. "MooseX::Types::Common::String or MooseX::Type::Common::Numeric?");
}
1;
=head1 NAME
MooseX::Types::Common - A library of commonly used type constraints
=head1 SYNOPSIS
use MooseX::Types::Common::String qw/SimpleStr/;
has short_str => (is => 'rw', isa => SimpleStr);
...
#this will fail
$object->short_str("string\nwith\nbreaks");
use MooseX::Types::Common::Numeric qw/PositiveInt/;
has count => (is => 'rw', isa => PositiveInt);
...
#this will fail
$object->count(-33);
=head1 DESCRIPTION
A set of commonly-used type constraints that do not ship with Moose by default.
=head1 SEE ALSO
=over
=item * L<MooseX::Types::Common::String>
=item * L<MooseX::Types::Common::Numeric>
=item * L<MooseX::Types>
=item * L<Moose::Util::TypeConstraints>
=back
=head1 AUTHORS
This distribution was extracted from the L<Reaction> code base by Guillermo
Roditi (groditi).
The original authors of this library are:
=over 4
=item * Matt S. Trout
=item * K. J. Cheetham
=item * Guillermo Roditi
=back
=head1 LICENSE
This library is free software, you can redistribute it and/or modify
it under the same terms as Perl itself.
=cut
|