From: Graham Knop <haarg@haarg.org>
Date: Mon, 24 Feb 2014 11:09:44 +0000 (-0500)
Subject: run hooks on role creation
X-Git-Tag: v1.003003~3
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=cca4fd3e2b7ba5b6b6bd615d4f46ae2aefffd27b;p=gitmo%2FRole-Tiny.git

run hooks on role creation
---

diff --git a/lib/Role/Tiny.pm b/lib/Role/Tiny.pm
index d611cca..07fb3d4 100644
--- a/lib/Role/Tiny.pm
+++ b/lib/Role/Tiny.pm
@@ -13,6 +13,7 @@ our %INFO;
 our %APPLIED_TO;
 our %COMPOSED;
 our %COMPOSITE_INFO;
+our @ON_ROLE_CREATE;
 
 # Module state workaround totally stolen from Zefram's Module::Runtime.
 
@@ -72,6 +73,7 @@ sub import {
   @{$INFO{$target}{not_methods}={}}{@not_methods} = @not_methods;
   # a role does itself
   $APPLIED_TO{$target} = { $target => undef };
+  $_->($target) for @ON_ROLE_CREATE;
 }
 
 sub role_application_steps {