view release on metacpan or  search on metacpan

t/lifetime.t  view on Meta::CPAN

jamitin 'via_sub_rx', sub { $forceclosure };

is $calls, 1;
is_deeply \%watcher, {};

fun_rx via_fun_rx(@) { $forceclosure }

is $calls, 2;
TODO: {
    local $TODO = 'bug/leak: runtime-installed subs are kept alive somehow';
    is_deeply \%watcher, {};
}