We no longer use $class
Shawn M Moore [Thu, 25 Jun 2009 04:18:46 +0000 (00:18 -0400)]
lib/Moose/Util/TypeConstraints.pm

index 9ad9c2e..069d7bc 100644 (file)
@@ -371,7 +371,6 @@ sub duck_type {
             'Object',
             sub {
                 my $obj = $_;
-                my $class = blessed($obj) || return;
                 return 0 unless all { $obj->can($_) } @methods;
                 return 1;
             },