Changeset 82 in text-formbuilder for trunk/lib/Class/ParseText/Base.pm

Timestamp:

04/21/05 10:48:19 (19 years ago)

Author:

peichman

Message:

added a $parser->{debug} attribute to Class::ParseText::Base that controls $::RD_TRACE
added as_script and as_module methods that return the Perl code without writing to a file
changed required field message and markers

File:

• trunk/lib/Class/ParseText/Base.pm (modified) (1 diff)

trunk/lib/Class/ParseText/Base.pm

@@ -78 +78 @@
     croak '[' . (caller(0))[3] . '] No start rule given for the parser' unless defined $start_rule;
     
+    # set the trace in RecDescent if we have the debug flag
+    $::RD_TRACE = $self->{debug} ? 1 : undef;
+    
     $self->{$start_rule} = $self->{parser}->$start_rule($src);