my %made;
-my $one_defer = defer 'Foo::one' => sub {
+my $one_defer = defer_sub 'Foo::one' => sub {
die "remade - wtf" if $made{'Foo::one'};
$made{'Foo::one'} = sub { 'one' }
};
-my $two_defer = defer 'Foo::two' => sub {
+my $two_defer = defer_sub 'Foo::two' => sub {
die "remade - wtf" if $made{'Foo::two'};
$made{'Foo::two'} = sub { 'two' }
};
is(Foo->one, 'one', 'one (undeferred) runs');
-is(my $two_made = undefer($two_defer), $made{'Foo::two'}, 'make two');
+is(my $two_made = undefer_sub($two_defer), $made{'Foo::two'}, 'make two');
is($two_made, \&Foo::two, 'two installed');
my $three = sub { 'three' };
-is(undefer($three), $three, 'undefer non-deferred is a no-op');
+is(undefer_sub($three), $three, 'undefer non-deferred is a no-op');
+
+my $four_defer = defer_sub 'Foo::four' => sub {
+ sub { 'four' }
+};
+is($four_defer, \&Foo::four, 'four defer installed');
+
+# somebody somewhere wraps up around the deferred installer
+no warnings qw/redefine/;
+my $orig = Foo->can('four');
+*Foo::four = sub {
+ $orig->() . ' with a twist';
+};
+
+is(Foo->four, 'four with a twist', 'around works');
+is(Foo->four, 'four with a twist', 'around has not been destroyed by first invocation');
done_testing;