# HG changeset patch
# User sarahinraauzeville
# Date 1513089637 18000
# Node ID 71f57a90f5308c277ab1f503cf91633cd852b260
# Parent  bcc062005bb2c5394bc57e1cb92ae774abc92a58
Uploaded

diff -r bcc062005bb2 -r 71f57a90f530 GalaxyPath.pm
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/GalaxyPath.pm	Tue Dec 12 09:40:37 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;