formbuilder toTemplateVars is now complete and tested
This commit is contained in:
parent
67918361e6
commit
04a420e0bd
7 changed files with 254 additions and 105 deletions
|
|
@ -144,8 +144,13 @@ sub toHtml {
|
|||
|
||||
=cut
|
||||
|
||||
sub toTemplateVars {
|
||||
|
||||
}
|
||||
around toTemplateVars => sub {
|
||||
my ( $orig, $self ) = @_;
|
||||
my $var = $self->$orig();
|
||||
$var->{ name } = $self->name;
|
||||
$var->{ label } = $self->label;
|
||||
$var->{ legend } = $self->label;
|
||||
return $var;
|
||||
};
|
||||
|
||||
1;
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue