#!/usr/bin/perl
use AnyEvent::Util;
my $guard1 = create_guard(1);
my $guard3 = hoge();
{
my $guard4 = create_guard(4);
}
undef $guard3;
undef $guard1;
sub hoge {
my $guard2 = create_guard(2);
return create_guard(3);
}
sub create_guard {
my ($no) = @_;
return AnyEvent::Util::guard {
warn "Destroy $no";
};
}