X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMooseX%2FTypes%2FCheckedUtilExports.pm;h=7fb042efd56458830de51aa3b5614138055796d7;hb=9fd376471e35369998008c1ea620f2e3febaa001;hp=d3c48da739d44143b8ffc54f2f07fa684181fea6;hpb=b55332a8c759716048630d99e936c3817d68de73;p=gitmo%2FMooseX-Types.git diff --git a/lib/MooseX/Types/CheckedUtilExports.pm b/lib/MooseX/Types/CheckedUtilExports.pm index d3c48da..7fb042e 100644 --- a/lib/MooseX/Types/CheckedUtilExports.pm +++ b/lib/MooseX/Types/CheckedUtilExports.pm @@ -1,12 +1,7 @@ -=head1 NAME - -MooseX::Types::CheckedUtilExports - Wrap L to be -safer for L - -=cut - package MooseX::Types::CheckedUtilExports; +#ABSTRACT: Wrap L to be safer for L + use strict; use warnings; use Moose::Util::TypeConstraints (); @@ -45,10 +40,6 @@ From L. See that module for syntax. =cut -Moose::Exporter->setup_import_methods( - with_caller => [ @exports, 'class_type', 'role_type' ] -); - for my $export (@exports) { no strict 'refs'; @@ -67,6 +58,10 @@ for my $export (@exports) { } } +Moose::Exporter->setup_import_methods( + with_caller => [ @exports, 'class_type', 'role_type' ] +); + sub class_type { my $caller = shift; @@ -87,10 +82,6 @@ sub role_type ($;$) { L -=head1 AUTHOR - -See L. - =head1 LICENSE This program is free software; you can redistribute it and/or modify