ensembl-pipeline MitConf
Package variablesGeneral documentationMethods
Toolbar
WebCvsRaw content
Package variables
No package variables defined.
Synopsis
No synopsis!
Description
No description!
Methods
import
No description
Code
Methods description
None available.
Methods code
importdescriptionprevnextTop
sub import {
    my ($callpack) = caller(0); # Name of the calling package
my $pack = shift; # Need to move package off @_
# Get list of variables supplied, or else
# all of GeneConf:
my @vars = @_ ? @_ : keys( %MitConf ); return unless @vars; # Predeclare global variables in calling package
eval "package $callpack; use vars qw(" . join(' ', map { '$'.$_ } @vars) . ")"; die $@ if $@; foreach (@vars) { if ( defined $MitConf{ $_ } ) { no strict 'refs'; # Exporter does a similar job to the following
# statement, but for function names, not
# scalar variables:
*{"${callpack}::$_"} =\$ MitConf{ $_ }; } else { die "Error: MitConf: $_ not known\n"; } } } 1;
}
General documentation
No general documentation available.