view src/gearsTools/lib/Gears/Stub.pm @ 280:21a5761e3e7a

mv_extraction_dg_compile_sources Context2Util
author anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
date Tue, 28 Jan 2020 15:20:34 +0900
parents 0a74a7bbe765
children 4d76280758db
line wrap: on
line source

package Gears::Stub;
use strict;
use warnings;
use Carp qw/croak/;
use File::Find;
use Gears::Util;

use DDP {deparse => 1};

sub new {
  my ($class, %args) = @_;

  my $self = {};
  $self->{file_name} = $args{file_name} || croak 'invalid file_name!'; 

  return bless $self, $class;
}



sub findInterfacewImpl {
  my $self     = shift;
  my $cbc_file = shift // $self->{file_name};
  my $findInterfaces = Gears::Util->extraction_dg_compile_sources([$cbc_file]);
  p $findInterfaces;
}

1;