# -*- perl -*-
#
# $Id: OnExit.pm,v 1.2 1995/12/05 03:59:56 qjb Exp $
# $Source: /home/qjb/source/perl/modules/RCS/OnExit.pm,v $
# $Author: qjb $
#

require 5.000;
use strict;

package OnExit;
my $package = "OnExit";

# Field names
my $f_function = "function";
my $f_args = "args";

# Routines

sub new
{
    my $class = shift;
    my $rep = +{$package => {} };
    $rep->{$package}{$f_function} = shift;
    $rep->{$package}{$f_args} = shift;
    bless $rep, $class;
}

sub DESTROY
{
    my $rep = shift;
    my $function = ($rep->{$package}{$f_function});
    my $args = ($rep->{$package}{$f_args});
    &{$function}(@{$args});
}

1;