#$tmpArgs =~ s/\(.*\)/\(\)/; my @args = split(/,/,$tmpArgs); #.... my $nextType = $currentCodeGearInfo->{localVar}->{$next} // $currentCodeGearInfo->{arg}->{$next}; my $nextTypePath = $headerNameToInfo->{$nextType}->{path}; my $parsedNextTypePath = Gears::Interface->detailed_parse($nextTypePath); unless (exists $parsedNextTypePath->{codeName}->{$method}) { die "[ERROR] not found $next definition at $_ in $filename\n"; } my $nextMethodInfo = $parsedNextTypePath->{codeName}->{$method}; my $nextMethodWantArgc = $nextMethodInfo->{argc}; if ($nextMethodWantArgc != scalar(@args)) { die "[ERROR] invalid arg $line you shoud impl $nextMethodInfo->{args}\n"; }