Changeset 55 in text-formbuilder

Timestamp:

01/13/05 14:32:57 (19 years ago)

Author:

peichman

Message:

updated version number
added Class::Base to dependancies
laid groundwork for using !groups directly in a form line

Location:

trunk

Files:

• Makefile.PL (modified) (1 diff)
• lib/Class/ParseText/Base.pm (modified) (2 diffs)
• lib/Text/FormBuilder.pm (modified) (1 diff)
• lib/Text/FormBuilder/grammar (modified) (1 diff)

trunk/Makefile.PL

@@ -10 +10 @@
                             Parse::RecDescent => 1.94,
                             Text::Template => 1.44,
+                            # requirement for Class::ParseText::Base
+                            Class::Base => 0.03,
                          }, # e.g., Module::Name => 1.1
     ($] >= 5.005 ?     ## Add these new keywords supported since 5.005

trunk/lib/Class/ParseText/Base.pm

@@ -77 +77 @@
     my $start_rule = $self->{start_rule};
     croak '[' . (caller(0))[3] . '] No start rule given for the parser' unless defined $start_rule;
+    
     $self->{$start_rule} = $self->{parser}->$start_rule($src);
     
@@ -204 +205 @@
 =back
 
+I<Be sure that you explicitly return the object!> This is a bug that
+has bitten me a number of times.
+
 =head1 TODO
 

trunk/lib/Text/FormBuilder.pm

@@ -7 +7 @@
 use vars qw($VERSION @EXPORT);
 
-$VERSION = '0.08';
+$VERSION = '0.09_01';
 @EXPORT = qw(create_form);
 

trunk/lib/Text/FormBuilder/grammar

@@ -191 +191 @@
 hint: '[' /[^\]]+/ ']'    { $item[2] }
 
-type: ':' /textarea|text|password|file|checkbox|radio|select|hidden|static/
+# TODO: differentiate between builtins and custom field groups
+type: ':' ( builtin_field | var_name { warn "[Text::FormBuilder] Using field group names directly is not (yet) supported (input line $thisline)\n"; 'text' } )
+
+builtin_field: /textarea|text|password|file|checkbox|radio|select|hidden|static/
+
 
 default: '=' (simple_multiword | quoted_string) { $item[2] }