#!/usr/bin/env perl
use strict;
use warnings;

use FindBin;
use lib "$FindBin::Bin/lib";
use Gears::Util;

use DDP { deparse => 1};
my $cur_path = "$FindBin::Bin";

my $impl_file = shift or die 'require impl file';
my $ir =  Gears::Util->parse_impl($impl_file);
my $hoge  =  Gears::Util->find_header($ir->{isa},$cur_path);
#my $foo =  Gears::Util->slup($hoge);
p $hoge;