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

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

use Getopt::Std;
use File::Spec;

use DDP {deparse => 1};

my $target_cbc_file = shift;
my $stubManager = Gears::Stub->new(file_name => File::Spec->rel2abs($target_cbc_file));

$stubManager->findInterfacewImpl($stubManager->slup());