HTML::Widget::Element::Fieldset - Fieldset Element

HTML-Widget documentation Contained in the HTML-Widget distribution.

Index

Code Index:

NAME

Top

HTML::Widget::Element::Fieldset - Fieldset Element

SYNOPSIS

Top

    my $fs = $widget->element( 'Fieldset', 'address' );
    $fs->element( 'Textfield', 'street' );
    $fs->element( 'Textfield', 'town' );

DESCRIPTION

Top

Fieldset Element. Container element creating a fieldset which can contain other Elements.

METHODS

Top

new

legend

Set a legend for this fieldset.

SEE ALSO

Top

HTML::Widget::Element

AUTHOR

Top

Michael Gray, mjg@cpan.org

LICENSE

Top

This library is free software, you can redistribute it and/or modify it under the same terms as Perl itself.

HTML-Widget documentation Contained in the HTML-Widget distribution. 
package HTML::Widget::Element::Fieldset;

use warnings;
use strict;
use base 'HTML::Widget::Element::Block';
use NEXT;

__PACKAGE__->mk_accessors('legend');


sub new {
    return shift->NEXT::new(@_)->type('fieldset')->class('widget_fieldset');
}


sub _pre_content_elements {
    my ( $self, $w ) = @_;
    return () unless $self->legend;

    my %args;
    $args{id} = $self->id($w) . "_legend" if defined $self->name;
    my $l = HTML::Element->new( 'legend', %args );

    $l->push_content( $self->legend );
    return ($l);
}


1;