gistfile1.txt

## Template syntax update to allow capture blocks with "sub() {"
% use experimental 'signatures';
%= formbuilder->form(method => 'POST', sub($fb) {
  <fieldset>
    <legend>My Test Form</legend>
    %= $fb->input(type='text');
    %= $fb->input(type='text');
  </fieldset>
% });

# Could produce HTML like
<form method='post'>
  <fieldset>
    <legend>My Test Form</legend>
    <input .... >
    <input .... >
  </fieldset>
</form>

# Code sketch of function 
package Formbuilder;

use Moo;

sub form {
  my ($self, $content, %attrs) = (shift, _parse_proto(@_));
  my $inner = $content->($self);
  my $attrs = join ' ', map { "$_='$attrs{$_}'" } keys %attrs;
  return "<form $attrs>$inner</form>";
}