changeset 892:3fa258d0891a

load metapm
author anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
date Tue, 26 Jan 2021 14:36:33 +0900
parents 76a8f578091d
children e656a5d80d1c
files src/parallel_execution/generate_stub.pl
diffstat 1 files changed, 12 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/src/parallel_execution/generate_stub.pl	Tue Jan 26 14:03:45 2021 +0900
+++ b/src/parallel_execution/generate_stub.pl	Tue Jan 26 14:36:33 2021 +0900
@@ -5,6 +5,7 @@
 use Getopt::Long;
 use File::Path qw/make_path/;
 use File::Basename qw/basename dirname/;
+use Module::Load qw/load/;
 #use DDP { deparse => 1};
 
 use FindBin;
@@ -603,6 +604,7 @@
     my ($filename, $inputCbCFile) = @_;
     open my $in,"<",$filename or die("can't open $filename $!");
 
+    findMetaPM($filename);
 
     my $fn;
     if ($opt_o) {
@@ -1339,5 +1341,15 @@
 }
 
 sub findMetaPM {
+  my ($filename) = @_;
+  my $project_dir_name = dirname $filename;
+  my $metapm = "$FindBin::Bin/$project_dir_name/meta.pm";
+  unless (-f $metapm) {
+    #print "[info] not found $metapm\n";
+    return;
+  }
 
+  load $metapm;
+  print "[info] load $metapm\n";
+  print STDERR meta->hello();
 }