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

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

use DDP { deparse => 1};

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