From: gfx <gfuji@cpan.org>
Date: Tue, 27 Oct 2009 02:18:37 +0000 (+0900)
Subject: Do not import unused functions
X-Git-Tag: 0.40_02~24
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=02d8cd0afb685d4a3b8e6dcf6e9deec01c9b9e6e;p=gitmo%2FMouse.git

Do not import unused functions
---

diff --git a/lib/Mouse/PurePerl.pm b/lib/Mouse/PurePerl.pm
index de57492..b60721e 100644
--- 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
--- 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;