Raw content of Environment
<![CDATA[package Environment;
use lib './config';
use strict;
use warnings;
use Bio::EnsEMBL::Utils::Exception qw(throw warning verbose);
use Bio::EnsEMBL::Utils::Argument qw( rearrange );
use Bio::EnsEMBL::Root;
use vars qw(@ISA);
@ISA = qw(Bio::EnsEMBL::Root);
sub new{
my ($class) = @_;
my $self = bless {}, $class;
return $self;
}
#containers
# store info about "old" PERL5LIB to "return_environment" later
sub old_perl5lib{
my $self = shift;
$self->{'old_perl5lib'} = shift if(@_);
return $self->{'old_perl5lib'};
}
# store info about "old" BLASTDB for "return_environment" later
sub old_blastdb{
my $self = shift;
$self->{'old_blastdb'} = shift if(@_);
return $self->{'old_blastdb'};
}
# methods to alter PERL5LIB and BLASTDB
sub add_to_perl5lib{
my ($self, $addition) = @_;
my $perl5lib = $ENV{'PERL5LIB'};
$self->old_perl5lib($perl5lib);
$addition .= ':'.$perl5lib;
$ENV{'PERL5LIB'} = $addition;
return $addition;
}
sub change_blastdb{
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
sub return_environment{
my ($self) = @_;
$ENV{'PERL5LIB'} = $self->old_perl5lib;
$ENV{'BLASTDB'} = $self->old_blastdb;
}
sub DESTROY{
my ($self) = @_;
$self->return_environment;
}
1;
]]>