Source

p5-java-parse / examples / inferface-parsing.pl

Full commit
use 5.010;
use lib "../lib";
use lib "lib";

use Java::Parser;
use Java::Tokeniser;
use Data::Printer;
use Data::Dumper;

my $jt = Java::Parser->new(tokens => <<'JAVA');
/**
 * interface Predator
 */
public strictfp interface Predator extends Animal, Killer
{
	public final boolean IS_PREDATOR = 1;
	public void begin_hunt ();
	public boolean finish_hunt ();
}
JAVA

print Dumper($jt->parse);
say "Done";