more tests and moosification

This commit is contained in:
Doug Bell 2009-11-16 18:26:46 -06:00
parent 7ee8fec611
commit 631f6ad267
7 changed files with 109 additions and 72 deletions

View file

@ -114,8 +114,8 @@ Returns the HTML to render the fieldset.
sub toHtml {
my ( $self ) = @_;
my $html = '<fieldset><legend>' . $self->legend . '</legend>';
$html .= $self->maybe::next::method;
my $html = '<fieldset><legend>' . $self->label . '</legend>';
$html .= inner();
$html .= '</fieldset>';
return $html;