2 use warnings FATAL => 'all';
3 use Test::More qw(no_plan);
4 use Scalar::Util qw(weaken);
10 sub new { bless({}, shift) }
17 is_deeply($foo->foo(1), [ $foo, 1 ], 'Direct object call');
18 is_deeply($foo->curry::foo->(1), [ $foo, 1 ], 'Curried object call');
20 $foo->curry::_('foo')->(1), [ $foo, 1 ],
21 'Curried string method call'
24 weaken(my $weak_foo = $foo);
26 my $curry = $foo->curry::foo;
30 ok($weak_foo, 'Weakened object kept alive by curry');
34 ok(!$weak_foo, 'Weakened object dead');
38 $curry = $foo->curry::weak::foo;
40 is_deeply($curry->(1), [ $foo, 1 ], 'Curried weak object call');
42 my $curry2 = $foo->curry::weak::_('foo');
44 is_deeply($curry2->(1), [ $foo, 1 ], 'Curried weak string method call');
46 weaken($weak_foo = $foo);
50 ok(!$weak_foo, 'Weak curry does not keep object alive');
52 is($curry->(1), undef, 'Weak curry returns undef after object is dead');