view src/gearsTools/lib/Gears/Stub.pm @ 236:0a74a7bbe765

tweak...
author anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
date Tue, 28 Jan 2020 15:10:22 +0900
parents 98aea649e37b
children 21a5761e3e7a
line wrap: on
line source

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

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::Context->extraction_dg_compile_sources([$cbc_file]);
  p $findInterfaces;
}

1;