Explicitly return the DOES coderef if we install it
[gitmo/Role-Tiny.git] / lib / Role / Tiny.pm
index 07fb3d4..1bd95c3 100644 (file)
@@ -6,7 +6,7 @@ sub _getstash { \%{"$_[0]::"} }
 use strict;
 use warnings FATAL => 'all';
 
-our $VERSION = '1.003002';
+our $VERSION = '1.003003';
 $VERSION = eval $VERSION;
 
 our %INFO;
@@ -426,7 +426,7 @@ sub _install_does {
     Role::Tiny::does_role($proto, $role) or $proto->$existing($role);
   };
   no warnings 'redefine';
-  *{_getglob "${to}::DOES"} = $new_sub;
+  return *{_getglob "${to}::DOES"} = $new_sub;
 }
 
 sub does_role {