/usr/share/perl5/MooseX/Types/CheckedUtilExports.pm is in libmoosex-types-perl 0.41-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 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 | package MooseX::Types::CheckedUtilExports;
{
$MooseX::Types::CheckedUtilExports::VERSION = '0.41';
}
BEGIN {
$MooseX::Types::CheckedUtilExports::AUTHORITY = 'cpan:PHAYLON';
}
#ABSTRACT: Wrap L<Moose::Util::TypeConstraints> to be safer for L<MooseX::Types>
use strict;
use warnings;
use Moose::Util::TypeConstraints ();
use Moose::Exporter;
use Sub::Name;
use Carp;
use namespace::autoclean;
my $StringFoundMsg =
q{WARNING: String found where Type expected (did you use a => instead of a , ?)};
my @exports = qw/type subtype maybe_type duck_type enum coerce from as/;
for my $export (@exports) {
no strict 'refs';
*{$export} = sub {
my $caller = shift;
local $Carp::CarpLevel = $Carp::CarpLevel + 1;
carp $StringFoundMsg
unless ref($_[0]) ||
$_[0] =~ /\b::\b/ || # qualified type
$caller->get_registered_class_type($_[0]) ||
$caller->get_registered_role_type($_[0]);
goto &{"Moose::Util::TypeConstraints::$export"};
}
}
Moose::Exporter->setup_import_methods(
with_caller => [ @exports, 'class_type', 'role_type' ]
);
sub class_type {
my $caller = shift;
$caller->register_class_type(
Moose::Util::TypeConstraints::class_type(@_)
);
}
sub role_type ($;$) {
my ($caller, $name, $opts) = @_;
$caller->register_role_type(
Moose::Util::TypeConstraints::role_type($name, $opts)
);
}
1;
__END__
=pod
=encoding UTF-8
=for :stopwords Robert "phaylon" Sedlacek
=head1 NAME
MooseX::Types::CheckedUtilExports - Wrap L<Moose::Util::TypeConstraints> to be safer for L<MooseX::Types>
=head1 VERSION
version 0.41
=head1 DESCRIPTION
Prevents errors like:
subtype Foo =>
...
Which should be written as:
subtype Foo,
...
When using L<MooseX::Types>. Exported by that module.
Exports checked versions of the following subs:
C<type> C<subtype> C<maybe_type> C<duck_type> C<enum> C<coerce> C<from> C<as>
While C<class_type> and C<role_type> will also register the type in the library.
From L<Moose::Util::TypeConstraints>. See that module for syntax.
=head1 SEE ALSO
L<MooseX::Types>
=head1 LICENSE
This program is free software; you can redistribute it and/or modify
it under the same terms as perl itself.
=head1 AUTHOR
Robert "phaylon" Sedlacek <rs@474.at>
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2007 by Robert "phaylon" Sedlacek.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut
|