package ReleaseAction;

# Pass this a sub...
sub new {
  bless($_[1], $_[0]);
}

# and call it when it goes.
sub DESTROY {
  shift->();
}

1;