Use new Pegex::Grammar / Pegex::Parser

ingydotnet · Aug 31, 2011 · 6a61d7a · 6a61d7a
1 parent ba41401
commit 6a61d7a
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 6 deletions.
diff --git a/lib/TestML/Compiler.pm b/lib/TestML/Compiler.pm
@@ -4,7 +4,6 @@ use TestML::Base -base;
 use TestML::Grammar;
 
 has 'base';
-has 'debug' => init => '$TestML::Compiler::Debug';
 
 sub compile {
     my $self = shift;
@@ -21,11 +20,10 @@ sub compile {
 
     my ($code, $data) = @$result{qw(code data)};
 
-    my $debug = $self->debug;
-    $debug = $result->{DebugPegex} if defined $result->{DebugPegex};
+#     my $debug = $self->debug;
+#     $debug = $result->{DebugPegex} if defined $result->{DebugPegex};
     my $grammar = TestML::Grammar->new(
         receiver => TestML::Receiver->new,
-        debug => $debug,
     );
     $grammar->parse($code, 'code_section')
         or die "Parse TestML code section failed";

diff --git a/lib/TestML/Grammar.pm b/lib/TestML/Grammar.pm
@@ -1,7 +1,8 @@
 package TestML::Grammar;
 use base 'Pegex::Grammar';
+use strict;
 
-sub build_tree {
+sub tree_ {
     return +{
   '+top' => 'TOP',
   'NEVER' => {

diff --git a/src/grammar.pl b/src/grammar.pl
@@ -6,8 +6,9 @@
 print <<"...";
 package TestML::Grammar;
 use base 'Pegex::Grammar';
+use strict;
 
-sub build_tree {
+sub tree_ {
     return +$perl;
 }