X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FSub%2FDefer.pm;h=4f2db1fd0be1004434123a8edec009b72e212865;hb=c45702917a553f4c038f0fc77869380b57da4742;hp=0aa00687728db13cccee9d9c628b35c7c107adf3;hpb=d62762034118990bd9c9f42b66f9f9081f46291c;p=gitmo%2FRole-Tiny.git

diff --git a/lib/Sub/Defer.pm b/lib/Sub/Defer.pm
index 0aa0068..4f2db1f 100644
--- a/lib/Sub/Defer.pm
+++ b/lib/Sub/Defer.pm
@@ -18,9 +18,15 @@ sub undefer_sub {
     no warnings 'redefine';
     *{_getglob($target)} = $made;
   }
+  push @{$DEFERRED{$made} = $DEFERRED{$deferred}}, $made;
   return $made;
 }
 
+sub defer_info {
+  my ($deferred) = @_;
+  $DEFERRED{$deferred||''};
+}
+
 sub defer_sub {
   my ($target, $maker) = @_;
   my $undeferred;