view GalaxyPath.pm @ 5:de565501c7d3 draft default tip

Uploaded

package GalaxyPath;

use parent 'Config::IniFiles';

sub _convert_path{
	my ($path)=@_;
	return $path if ($path=~/^\//);
	return "$ENV{'MY_GALAXY_DIR'}/galaxy/$path";
}

sub my_path{
    my $self = shift;
    my ($section,$item)=@_;
    defined $ENV{'MY_GALAXY_DIR'} || die 'no MY_GALAXY_DIR environment variable defined';
    -e $ENV{'MY_GALAXY_DIR'} || die "$ENV{'MY_GALAXY_DIR'} path not found";
    return join(',',map{_convert_path($_)}split/,/,$self->val($section,$item));
}
 
1;