The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
<%init>
my $superuser = TestApp::CurrentUser->superuser;
my $user = TestApp::Model::User->new( current_user => $superuser );
$user->load('1');
my $action = Jifty->web->new_action(
    class => 'UpdateUser',
    moniker => 'updateuser',
    record => $user,
);
</%init>
<&| /_elements/wrapper, title => "Test of simple form for editing" &>
  Basic test of a simple form for editing.
<% Jifty->web->form->start() %>
<% $action->form_field('name') %>
<% $action->form_field('email') %>
<% $action->form_field('tasty') %>
<% Jifty->web->form->submit %>
<% Jifty->web->form->end %>
</&>