Summary | Package variables | Synopsis | Description | General documentation | Methods |
WebCvs | Raw content |
use Bio::EnsEMBL::Analysis::Config::Funcgen::ProbeAlign;
import | No description | Code |
import | description | prev | next | Top |
my ($callpack) = caller(0); # Name of the calling package}
my $pack = shift; # Need to move package off @_
# Get list of variables supplied, or else everything
my @vars = @_ ? @_ : keys( %Config ); return unless @vars; # Predeclare global variables in calling package
eval "package $callpack; use vars qw(" . join(' ', map { '$'.$_ } @vars) . ")"; die $@ if $@; foreach (@vars) { if ( defined $Config{$_} ) { no strict 'refs'; # Exporter does a similar job to the following
# statement, but for function names, not
# scalar variables:
*{"${callpack}::$_"} =\$ Config{ $_ }; } else { die "Error: Config: $_ not known\n"; } } } 1;
CONTACT | Top |