From: Dagfinn Ilmari Mannsåker <ilmari@ilmari.org>
Date: Mon, 13 Jan 2014 13:58:33 +0000 (+0000)
Subject: Check $INFO{$role}{is_role} in ->is_role
X-Git-Tag: v1.003003~35
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=daee147429975ed4aa17f94ecb84a02f9213db8d;p=gitmo%2FRole-Tiny.git

Check $INFO{$role}{is_role} in ->is_role
---

diff --git a/lib/Role/Tiny.pm b/lib/Role/Tiny.pm
index 86941c1..a628cc7 100644
--- a/lib/Role/Tiny.pm
+++ b/lib/Role/Tiny.pm
@@ -418,7 +418,7 @@ sub does_role {
 
 sub is_role {
   my ($me, $role) = @_;
-  return !!$INFO{$role};
+  return !!($INFO{$role} && $INFO{$role}{is_role});
 }
 
 1;