Mercurial > hg > Members > menikon > CbC_xv6
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;