find_methods.pl

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

my $file = "VimStub.java";
my @method_names = ();
open FILE, $file or die $!;
while(<FILE>) {
    if( $_ =~ /public \w+\b (.*)\(/g) {
        #print $1."\n";
        if( grep { $1 eq $_} @method_names) {
            print "$1 duplicate found\n";
        }
        else {
            push @method_names, $1;
        }
    }
}
print "found ";
print scalar @method_names;
print " methods in total\n";
close($file);