diff GalaxyPath.pm @ 0:1a0416feb74b draft

Uploaded

--- /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;