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;
1;
-=pod
-
=head1 NAME
Sub::Defer - defer generation of subroutines until they are first called