From: gfx 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;