Util::Stool (version 1.0)

package Util::Stool;
##############################################################################
#
# DESCRIPTION: STOOLs are a set of compiled programs which are useful for 
# DESCRIPTION: processing. They are not generally released to the public.
# DESCRIPTION: All this class adds to its parent is a knowledge of the
# DESCRIPTION: STOOL executable directory.
#
# HISTORY
# HISTORY: $Log: Stool.pm,v $
# HISTORY: Revision 1.2  2006/08/01 20:35:34  apsop
# HISTORY: Add in CVS history indicator.
# HISTORY:
# HISTORY:
#
# VERSION: 1.0
#
##############################################################################

use Util::Tool;
@ISA=("Util::Tool");
use strict;

my $BIN;
my $VERSION;

sub new { #(tool)
    my $self=shift;
    my $tool=shift;

    $self=$self->SUPER::new($BIN,$tool);

    return $self;
   
}

######################
# ACCESSORS:
######################

##############################################################
# get or set the STOOL executable directory in the class data
##############################################################
sub bin {
    my $self=shift;
    if (@_) { 
        #########################
        # set bin directory 
        #########################
        $BIN = shift;

        ##########################################
        # parse the STOOLS version name
        ##########################################
        ($VERSION) = $BIN =~ m|/stools\.([^/]*)/|;
    }
    return $BIN;
}

sub DESTROY {
    my $self = shift;
    # check for an overridden destructor...
    $self->SUPER::DESTROY if $self->can("SUPER::DESTROY");
}


1;