convert compiler to new api.

ingydotnet · Aug 24, 2011 · 0160878 · 0160878
1 parent 808f625
commit 0160878
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/src/grammar.pl b/src/grammar.pl
@@ -4,8 +4,10 @@
 
 open IN, shift or die;
 my $testml = do {local $/; <IN>};
-# my $perl = Pegex::Compiler->compile($testml)->combinate->to_perl;
-my $perl = Pegex::Compiler::Bootstrap->compile($testml)->combinate->to_perl; # XXX
+# my $pegex = Pegex::Compiler->new;
+my $pegex = Pegex::Compiler::Bootstrap->new;
+$pegex->compile($testml);
+my $perl = $pegex->to_perl;
 chomp($perl);
 
 print <<"...";