HTML::Widget - HTML Widget And Validation Framework

    use HTML::Widget;

    # Create a widget
    my $w = HTML::Widget->new('widget')->method('get')->action('/');

    # Add a fieldset to contain the elements
    my $fs = $w->element( 'Fieldset', 'user' )->legend('User Details');

    # Add some elements
    $fs->element( 'Textfield', 'age' )->label('Age')->size(3);
    $fs->element( 'Textfield', 'name' )->label('Name')->size(60);
    $fs->element( 'Submit', 'ok' )->value('OK');

    # Add some constraints
    $w->constraint( 'Integer', 'age' )->message('No integer.');
    $w->constraint( 'Not_Integer', 'name' )->message('Integer.');
    $w->constraint( 'All', 'age', 'name' )->message('Missing value.');

    # Add some filters
    $w->filter('Whitespace');

    # Process
    my $result = $w->process;
    my $result = $w->process($query);

    # Check validation results
    my @valid_fields   = $result->valid;
    my $is_valid       = $result->valid('foo');
    my @invalid_fields = $result->have_errors;
    my $is_invalid     = $result->has_errors('foo');;

    # CGI.pm-compatible! (read-only)
    my $value  = $result->param('foo');
    my @params = $result->param;

    # Catalyst::Request-compatible
    my $value = $result->params->{foo};
    my @params = keys %{ $result->params };

    # Merge widgets (constraints and elements will be appended)
    $widget->merge($other_widget);

    # Embed widgets (as fieldset)
    $widget->embed($other_widget);

    # Get list of elements
    my @elements = $widget->get_elements;

    # Get list of constraints
    my @constraints = $widget->get_constraints;

    # Get list of filters
    my @filters = $widget->get_filters;

    # Complete xml result
    [% result %]
    [% result.as_xml %]
    # Iterate over elements
    <form action="/foo" method="get">
    [% FOREACH element = result.elements %]
        [% element.field_xml %]
        [% element.error_xml %]
    [% END %]
    </form>
    # Iterate over validation errors
    [% FOREACH element = result.have_errors %]
        <p>
        [% element %]:<br/>
        <ul>
        [% FOREACH error = result.errors(element) %]
            <li>
                [% error.name %]: [% error.message %] ([% error.type %])
            </li>
        [% END %]
        </ul>
        </p>
    [% END %]
    <p><ul>
    [% FOREACH element = result.have_errors %]
        [% IF result.error( element, 'Integer' ) %]
            <li>[% element %] has to be an integer.</li>
        [% END %]
    [% END %]
    </ul></p>
    [% FOREACH error = result.errors %]
        <li>[% error.name %]: [% error.message %] ([% error.type %])</li>
    [% END %]
    # XML output looks like this (easy to theme with css)
    <form action="/foo/bar" id="widget" method="post">
        <fieldset>
            <label for="widget_age" id="widget_age_label"
              class="labels_with_errors">
                Age
                <span class="label_comments" id="widget_age_comment">
                    (Required)
                </span>
                <span class="fields_with_errors">
                    <input id="widget_age" name="age" size="3" type="text"
                      value="24" class="Textfield" />
                </span>
            </label>
            <span class="error_messages" id="widget_age_errors">
                <span class="Regex_errors" id="widget_age_error_Regex">
                    Contains digit characters.
                </span>
            </span>
            <label for="widget_name" id="widget_name_label">
                Name
                <input id="widget_name" name="name" size="60" type="text"
                  value="sri" class="Textfield" />
                <span class="error_messages" id="widget_name_errors"></span>
            </label>
            <input id="widget_ok" name="ok" type="submit" value="OK" />
        </fieldset>
    </form>
    $w->attributes( $key => $value );
    $w->attributes( { $key => $value } );

    $w->attributes->{key} = $value;

    $self->element( "+Fully::Qualified::Name", $name );

    my $e = $widget->element('Block');

    my $e = $widget->element('Block');
    $e->type('img');

    my $e = $widget->element( 'Button', 'foo' );
    $e->value('bar');

    my $e = $widget->element( 'Button', 'foo' );
    $e->value('bar');
    $e->content('<b>arbitrary markup</b>');
    $e->type('submit');

    my $e = $widget->element( 'Checkbox', 'foo' );
    $e->comment('(Required)');
    $e->label('Foo');
    $e->checked('checked');
    $e->value('bar');

    my $e = $widget->element( 'Fieldset', 'foo' );
    $e->legend('Personal details');
    $e->element('Textfield', 'name');
    $e->element('Textarea', 'address');

    my $e = $widget->element( 'Hidden', 'foo' );
    $e->value('bar');

    my $e = $widget->element( 'Password', 'foo' );
    $e->comment('(Required)');
    $e->fill(1);
    $e->label('Foo');
    $e->size(23);
    $e->value('bar');

    my $e = $widget->element( 'Radio', 'foo' );
    $e->comment('(Required)');
    $e->label('Foo');
    $e->checked('checked');
    $e->value('bar');

    my $e = $widget->element( 'RadioGroup', 'name' );
    $e->comment('(Required)');
    $e->label('Foo'); # Label for whole radio group
    $e->value('bar'); # Currently selected value
    $e->labels([qw/Fu Bur Garch/]); # default to ucfirst of values

    $e = $widget->element( 'Reset', 'foo' );
    $e->value('bar');

    my $e = $widget->element( 'Select', 'foo' );
    $e->comment('(Required)');
    $e->label('Foo');
    $e->size(23);
    $e->options( foo => 'Foo', bar => 'Bar' );
    $e->selected(qw/foo bar/);

    my $e = $widget->element( 'Span' );
    $e->content('bar');

    $e = $widget->element( 'Submit', 'foo' );
    $e->value('bar');

    $e = $widget->element( 'Submit', 'foo' );
    $e->value('bar');
    $e->src('image.png');
    $e->width(100);
    $e->height(35);

    my $e = $widget->element( 'Textarea', 'foo' );
    $e->comment('(Required)');
    $e->label('Foo');
    $e->cols(30);
    $e->rows(40);
    $e->value('bar');
    $e->wrap('wrap');

    my $e = $widget->element( 'Textfield', 'foo' );
    $e->comment('(Required)');
    $e->label('Foo');
    $e->size(23);
    $e->maxlength(42);
    $e->value('bar');

    my $e = $widget->element( 'Upload', 'foo' );
    $e->comment('(Required)');
    $e->label('Foo');
    $e->accept('text/html');
    $e->maxlength(1000);
    $e->size(23);

    my @elements = $self->get_elements;
    
    my @elements = $self->get_elements( type => 'Textfield' );
    
    my @elements = $self->get_elements( name => 'username' );

    my $element = $self->get_element;
    
    my $element = $self->get_element( type => 'Textfield' );
    
    my $element = $self->get_element( name => 'username' );

    $self->constraint( "+Fully::Qualified::Name", @names );

    my $c = $widget->constraint( 'All', 'foo', 'bar' );

    my $c = $widget->constraint( 'AllOrNone', 'foo', 'bar' );

    my $c = $widget->constraint( 'Any', 'foo', 'bar' );

    my $c = $widget->constraint( 'ASCII', 'foo' );

    my $c = $widget->constraint( 'Bool', 'foo' );

    my $c = $widget->constraint( 'Callback', 'foo' )->callback(sub { 
        my $value=shift;
        return 1;
    });

    my $c = $widget->constraint( 'CallbackOnce', 'foo' )->callback(sub { 
        my $value=shift;
        return 1;
    });

    my $c = $widget->constraint( 'Date', 'year', 'month', 'day' );

    my $c =
      $widget->constraint( 'DateTime', 'year', 'month', 'day', 'hour',
        'minute', 'second' );

    my $c =
      $widget->constraint( 'DependOn', 'foo', 'bar' );

    my $c = $widget->constraint( 'Email', 'foo' );

    my $c = $widget->constraint( 'Equal', 'foo', 'bar' );
    $c->render_errors( 'foo' );

    my $c = $widget->constraint( 'HTTP', 'foo' );

    my $c = $widget->constraint( 'In', 'foo' );
    $c->in( 'possible', 'values' );

    my $c = $widget->constraint( 'Integer', 'foo' );

    my $c = $widget->constraint( 'Length', 'foo' );
    $c->min(23);
    $c->max(50);

    my $c = $widget->constraint( 'Number', 'foo' );

    my $c = $widget->constraint( 'Printable', 'foo' );

    my $c = $widget->constraint( 'Range', 'foo' );
    $c->min(23);
    $c->max(30);

    my $c = $widget->constraint( 'Regex', 'foo' );
    $c->regex(qr/^\w+$/);

    my $c = $widget->constraint( 'String', 'foo' );

    my $c = $widget->constraint( 'Time', 'hour', 'minute', 'second' );

    $w->element( Textfield => 'name' );
    $w->element( Textfield => 'password' );
    $w->constraint_all( 'All' );

    my @constraints = $self->get_constraints;
    
    my @constraints = $self->get_constraints( type => 'Integer' );

    my $constraint = $self->get_constraint;
    
    my $constraint = $self->get_constraint( type => 'Integer' );

    # while building $self:
    $in_here = $self->element('Fieldset', 'my_fieldset');
    # later:
    $self->embed($in_here, @widgets);

    # these are equivalent: 
    $self->embed(($self->find_elements)[0], @widgets);
    $self->embed_into_first(@widgets); # but this is faster!

    $w->element( 'Textfield', 'foo', {id => 'my_id'} )

    $self->filter( "+Fully::Qualified::Name", @names );

    my $f = $widget->filter( 'Callback', 'foo' );
    $f->callback( \&my_callback );

    my $f = $widget->filter( 'HTMLEscape', 'foo' );

    my $f = $widget->filter( 'HTMLStrip', 'foo' );

    my $f = $widget->filter( 'HTMLStrip', 'foo' );
    $f->allow( 'p', 'br' );

    my $f = $widget->filter( 'LowerCase', 'foo' );

    my $f = $widget->filter( 'TrimEdges', 'foo' );

    my $f = $widget->filter( 'UpperCase', 'foo' );

    my $f = $widget->filter( 'Whitespace', 'foo' );

    $w->element( Textfield => 'name' );
    $w->element( Textfield => 'age' );
    $w->filter_all( 'Whitespace' );

    my @filters = $self->get_filters;
    
    my @filters = $self->get_filters( type => 'Integer' );

    my @filters = $self->get_filter;
    
    my @filters = $self->get_filter( type => 'Integer' );

    $widget->attributes( onsubmit => $javascript );

    $element->attributes( onchange => $javascript );

    $w->element('Block')->type('br');
    # will render as
    <br />

    my $ul = $w->element('Block')->type('ul');
    $ul->element('Block')->type('li')
        ->element( Textfield => foo' );
    $ul->element('Block')->type('li')
        ->element( Textfield => 'bar' );
    
    # will render as
    <ul>
    <li>
    <input class="textfield" id="widget_foo" name="foo" type="text" />
    </li>
    <li>
    <input class="textfield" id="widget_bar" name="bar" type="text" />
    </li>
    </ul>