more tests and moosification
This commit is contained in:
parent
7ee8fec611
commit
631f6ad267
7 changed files with 109 additions and 72 deletions
|
|
@ -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;
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue