my ($self) = @_;
  $self->return_environment;
}

1;

  my ($self, $addition) = @_;
  my $perl5lib = $ENV{'PERL5LIB'};
  $self->old_perl5lib($perl5lib);
  $addition .= ':'.$perl5lib;
  $ENV{'PERL5LIB'} = $addition;
  return $addition;

  my ($self, $blastdb) = @_;
  $self->old_blastdb($ENV{'BLASTDB'});
  $ENV{'BLASTDB'} = $blastdb;
  return $blastdb;
}


# methods for resetting PERL5LIB and BLASTDB to original state 
# after running test 

  my ($class) = @_;
  my $self = bless {}, $class;
  return $self;
}


#containers

# store info about "old" PERL5LIB to "return_environment" later

  my $self = shift;
  $self->{'old_blastdb'} = shift if(@_);
  return $self->{'old_blastdb'};
}

# methods to alter PERL5LIB and BLASTDB

  my $self = shift;
  $self->{'old_perl5lib'} = shift if(@_);
  return $self->{'old_perl5lib'};
}

# store info about "old" BLASTDB for "return_environment" later

  my ($self) = @_;

  $ENV{'PERL5LIB'} = $self->old_perl5lib;
  $ENV{'BLASTDB'} = $self->old_blastdb;