Scopeguard example

gistfile1.pl

# From Try::Tiny
{
  package # hide from PAUSE
    Try::Tiny::ScopeGuard;
 
  sub _new {
    shift;
    bless [ @_ ];
  }
 
  sub DESTROY {
    my @guts = @{ shift() };
    my $code = shift @guts;
    $code->(@guts);
  }
}

# Used
    # set up a scope guard to invoke the finally block at the end
    my @guards =
    map { Try::Tiny::ScopeGuard->_new($_, $failed ? $error : ()) }
    @finally;

@guards falls out of scope, DESTROY calls schtuff