package HTML::FormHandler::Widget::Theme::Bootstrap; # ABSTRACT: sample bootstrap theme $HTML::FormHandler::Widget::Theme::Bootstrap::VERSION = '0.40068'; use Moose::Role; with 'HTML::FormHandler::Widget::Theme::BootstrapFormMessages'; after 'before_build' => sub { my $self = shift; $self->set_widget_wrapper('Bootstrap') if $self->widget_wrapper eq 'Simple'; }; sub build_form_element_class { ['form-horizontal'] } 1; __END__ =pod =encoding UTF-8 =head1 NAME HTML::FormHandler::Widget::Theme::Bootstrap - sample bootstrap theme =head1 VERSION version 0.40068 =head1 SYNOPSIS Also see L. Sample Bootstrap theme role. Can be applied to your subclass of HTML::FormHandler. Sets the widget wrapper to 'Bootstrap' and renders form messages using Bootstrap formatting and classes. There is an example app using Bootstrap at http://github.com/gshank/formhandler-example. This is a lightweight example of what you could do in your own custom Bootstrap theme. The heavy lifting is done by the Bootstrap wrapper, L, which you can use by itself in your form with: has '+widget_wrapper' => ( default => 'Bootstrap' ); It also uses L to render the form messages in a Bootstrap style:
....
By default this does 'form-horizontal' with 'build_form_element_class'. Implement your own sub to use 'form-vertical': sub build_form_element_class { ['form-vertical'] } =head1 AUTHOR FormHandler Contributors - see HTML::FormHandler =head1 COPYRIGHT AND LICENSE This software is copyright (c) 2017 by Gerda Shank. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. =cut