From: Shawn M Moore Date: Mon, 22 Dec 2008 03:10:10 +0000 (+0000) Subject: Style X-Git-Tag: 0.19~90 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=abe4e887fce1ae47be91a8495235dc652457484a;p=gitmo%2FMouse.git Style --- diff --git a/lib/Mouse/Util/TypeConstraints.pm b/lib/Mouse/Util/TypeConstraints.pm index bd71383..b7f39fc 100644 --- a/lib/Mouse/Util/TypeConstraints.pm +++ b/lib/Mouse/Util/TypeConstraints.pm @@ -71,12 +71,10 @@ my $optimized_constraints_base; GlobRef => sub { ref($_) eq 'GLOB' }, FileHandle => sub { - ref($_) eq 'GLOB' - && openhandle($_) + ref($_) eq 'GLOB' && openhandle($_) or - blessed($_) - && $_->isa("IO::Handle") - }, + blessed($_) && $_->isa("IO::Handle") + }, Object => sub { blessed($_) && blessed($_) ne 'Regexp' }, );