view release on metacpan or  search on metacpan

examples/lib/My/App.pm  view on Meta::CPAN

            {href => '?do=list_users'}, b($user->login_name) . ' with id ' . $user_id
            )
            . '.'
        )
      )
      );
  }
  $out .= start_form
    . div(
    input({type => 'hidden', name => 'do', value => 'add_user'}),
    legend('User Name'),
    input({name => 'login_name'}),
    br(),
    legend('Password'),
    input({name => 'login_password'}),
    br(),
    input({type => 'submit', class => 'submit', value => 'Add User'})
    ) . end_form;


  return $out;
}

sub action_list_groups {

examples/lib/My/App.pm  view on Meta::CPAN

              "//ajax.googleapis.com/ajax/libs/jqueryui/1.8.18/themes/base/jquery-ui.css",
            rel  => "stylesheet",
            type => "text/css"
          }
        ),
        $/,
        script(<<'JS')
$(function(){
    $('a.button,input.submit').button();
    $('table').addClass('ui-widget');
    $('th,caption,legend').addClass('ui-widget-header');
    $('td, input').addClass('ui-widget-content');
    $('div.error').addClass('ui-state-error ui-corner-all')
    $('div.info').addClass('ui-state-highlight ui-corner-all')
})
JS
        ,
        style(<<'CSS')
form div {width:30ex}
form div input, form div legend {width:100%}
.error p,.info p {margin:1ex; font-family:sans-serif}
CSS

      ),
      body($app->$action())
      );
  }
  else {
    print $app->q->header(
      -type    => 'text/html',