X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMooseX%2FTypes%2FUtil.pm;h=1b3c979f1ec40a80620b06240674c5d669704e17;hb=ef8b7b7a254653b0e77d19b19d7bd870700cf4b2;hp=312df4bdd130cb43b7984cba9ead0122fc79b886;hpb=b55332a8c759716048630d99e936c3817d68de73;p=gitmo%2FMooseX-Types.git

diff --git a/lib/MooseX/Types/Util.pm b/lib/MooseX/Types/Util.pm
index 312df4b..1b3c979 100644
--- a/lib/MooseX/Types/Util.pm
+++ b/lib/MooseX/Types/Util.pm
@@ -1,13 +1,10 @@
 package MooseX::Types::Util;
 
-=head1 NAME
-
-MooseX::Types::Util - Common utility functions for the module
-
-=cut
+#ABSTRACT: Common utility functions for the distribution
 
 use warnings;
 use strict;
+use Scalar::Util 'blessed';
 
 use base 'Exporter';
 
@@ -88,7 +85,7 @@ sub has_available_type_export {
         or return undef;
 
     return undef
-        unless $sub->isa('MooseX::Types::EXPORTED_TYPE_CONSTRAINT');
+        unless blessed $sub && $sub->isa('MooseX::Types::EXPORTED_TYPE_CONSTRAINT');
 
     return $sub->();
 }
@@ -97,10 +94,6 @@ sub has_available_type_export {
 
 L<MooseX::Types::Moose>, L<Exporter>
 
-=head1 AUTHOR
-
-See L<MooseX::Types/AUTHOR>.
-
 =head1 LICENSE
 
 This program is free software; you can redistribute it and/or modify