Mercurial > repos > sarahinraauzeville > star
changeset 0:1a0416feb74b draft
Uploaded
| author | sarahinraauzeville |
|---|---|
| date | Tue, 12 Dec 2017 10:08:05 -0500 |
| parents | |
| children | e8dbc8b9a59a |
| files | GalaxyPath.pm |
| diffstat | 1 files changed, 19 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/GalaxyPath.pm Tue Dec 12 10:08:05 2017 -0500 @@ -0,0 +1,19 @@ +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;