closure_destructors.pl

#!/usr/bin/env perl

use strict;

use Guard;

sub make_foo {
    my $foo = shift;
    my $guard = guard {
        print "DESTROY\n";
    };
    return sub {
        $guard; # will print warning, need to wrap in 'no warnings' or invent a smarter way to reference it from closure
        $foo += shift;
        print $foo, "\n";
    }
}

{
    my $foo = make_foo(3);
    $foo->(1);
    $foo->(1);
    $foo->(2);
    $foo->(2);
}