Do not import unused functions

diff --git a/lib/Mouse/PurePerl.pm b/lib/Mouse/PurePerl.pm
index de57492..b60721e 100644 (file)
--- a/lib/Mouse/PurePerl.pm
+++ b/lib/Mouse/PurePerl.pm
@@ -77,10 +77,12 @@ sub get_code_ref{
 package
     Mouse::Util::TypeConstraints;
 
+use Scalar::Util qw(blessed looks_like_number openhandle);
+
 sub _generate_class_type_for{
     my($for_class, $name) = @_;
 
-    my $predicate = sub{ Scalar::Util::blessed($_[0]) && $_[0]->isa($for_class) };
+    my $predicate = sub{ blessed($_[0]) && $_[0]->isa($for_class) };
 
     if(defined $name){
         no strict 'refs';

diff --git a/lib/Mouse/Util/TypeConstraints.pm b/lib/Mouse/Util/TypeConstraints.pm
index a020eb4..4ff7100 100644 (file)
--- a/lib/Mouse/Util/TypeConstraints.pm
+++ b/lib/Mouse/Util/TypeConstraints.pm
@@ -2,7 +2,7 @@ package Mouse::Util::TypeConstraints;
 use Mouse::Util qw(does_role not_supported); # enables strict and warnings
 
 use Carp qw(confess);
-use Scalar::Util qw/blessed looks_like_number openhandle/;
+use Scalar::Util qw(blessed);
 
 use Mouse::Meta::TypeConstraint;
 use Mouse::Exporter;