Changeset 52 in text-formbuilder for trunk/lib/Text


Ignore:
Timestamp:
01/03/05 13:41:53 (20 years ago)
Author:
peichman
Message:

failure to load Perl::Tidy is no longer fatal
create_form tries to emit tidy code
expanded documentation for bin/fb.pl

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/lib/Text/FormBuilder.pm

    r50 r52  
    77use vars qw($VERSION @EXPORT); 
    88 
    9 $VERSION = '0.07'; 
     9$VERSION = '0.08_01'; 
    1010@EXPORT = qw(create_form); 
    1111 
     
    6464            # write webpage, script, or module 
    6565            if ($destination =~ $MODULE_EXTS) { 
    66                 $parser->write_module($destination); 
     66                $parser->write_module($destination, 1); 
    6767            } elsif ($destination =~ $SCRIPT_EXTS) { 
    68                 $parser->write_script($destination); 
     68                $parser->write_script($destination, 1); 
    6969            } else { 
    7070                $parser->write($destination); 
     
    439439    croak '[Text::FormBuilder::write_module] Expecting a package name' unless $package; 
    440440     
     441    # remove a trailing .pm 
     442    $package =~ s/\.pm$//; 
     443##     warn  "[Text::FromBuilder::write_module] Removed extra '.pm' from package name\n" if $package =~ s/\.pm$//; 
     444     
    441445    my $form_code = $self->_form_code; 
    442446     
     
    499503        # clean up the generated code, if asked 
    500504        eval 'use Perl::Tidy'; 
    501         die "Can't tidy the code: $@" if $@; 
    502         Perl::Tidy::perltidy(source => \$source_code, destination => $outfile, argv => $TIDY_OPTIONS); 
     505        unless ($@) { 
     506            Perl::Tidy::perltidy(source => \$source_code, destination => $outfile, argv => $TIDY_OPTIONS); 
     507        } else { 
     508            carp "Can't tidy the code: $@" if $@; 
     509            # fallback to just writing it as-is 
     510            open OUT, "> $outfile" or die $!; 
     511            print OUT $source_code; 
     512            close OUT; 
     513        } 
    503514    } else { 
    504515        # otherwise, just print as is 
     
    11941205=head1 TODO 
    11951206 
     1207Improve the commmand line tools 
     1208 
    11961209Allow renaming of the submit button; allow renaming and inclusion of a  
    11971210reset button 
     1211 
     1212Allow groups to be used in normal field lines something like this: 
     1213 
     1214    !group DATE { 
     1215        month 
     1216        day 
     1217        year 
     1218    } 
     1219     
     1220    dob|Your birthday:DATE 
     1221 
     1222Pieces that wouldn't make sense in a group field: size, row/col, options, 
     1223validate. These should cause C<build> to emit a warning before ignoring them. 
     1224 
     1225Make the generated modules into subclasses of CGI::FormBuilder 
    11981226 
    11991227Allow for custom wrappers around the C<form_template> 
Note: See TracChangeset for help on using the changeset viewer.