Mercurial > hg > GearsTemplate
annotate src/parallel_execution/trans_impl.pl @ 558:8a825fc15817
tweak
| author | anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> |
|---|---|
| date | Mon, 18 Nov 2019 21:32:08 +0900 |
| parents | 1eb2a22ec1e3 |
| children | 2dc06f944a85 |
| rev | line source |
|---|---|
| 555 | 1 #!/usr/bin/env perl |
| 2 use strict; | |
| 3 use warnings; | |
| 4 | |
| 557 | 5 use FindBin; |
| 6 use lib "$FindBin::Bin/lib"; | |
| 7 use Gears::Util; | |
| 555 | 8 |
| 557 | 9 use DDP { deparse => 1}; |
| 558 | 10 my $cur_path = "$FindBin::Bin"; |
| 555 | 11 |
| 557 | 12 my $impl_file = shift or die 'require impl file'; |
| 13 my $ir = Gears::Util->parse_impl($impl_file); | |
| 558 | 14 my $hoge = Gears::Util->find_header($ir->{isa},$cur_path); |
| 15 #my $foo = Gears::Util->slup($hoge); | |
| 16 p $hoge; | |
| 17 |