File Coverage

blib/lib/HTML/FormHandler/Widget/Theme/Bootstrap3.pm

Criterion	Covered	Total	%
statement	4	5	80.0
branch			n/a
condition			n/a
subroutine	2	3	66.6
pod	0	2	0.0
total	6	10	60.0

package HTML::FormHandler::Widget::Theme::Bootstrap3;
# ABSTRACT: sample Bootstrap3 theme
$HTML::FormHandler::Widget::Theme::Bootstrap3::VERSION = '0.40067';

use Moose::Role;
with 'HTML::FormHandler::Widget::Theme::BootstrapFormMessages';

after 'before_build' => sub {
    my $self = shift;
    $self->set_widget_wrapper('Bootstrap3')
       if $self->widget_wrapper eq 'Simple';
};

sub build_form_element_class { ['form-horizontal'] }

sub form_messages_alert_error_class { 'alert-danger' }

1;

__END__

=pod

=encoding UTF-8

=head1 NAME

HTML::FormHandler::Widget::Theme::Bootstrap3 - sample Bootstrap3 theme

=head1 VERSION

version 0.40067

=head1 SYNOPSIS

Also see L<HTML::FormHandler::Manual::Rendering>.

Sample Bootstrap3 theme role. Can be applied to your subclass of HTML::FormHandler.
Sets the widget wrapper to 'Bootstrap3' and renders form messages using Bootstrap3
formatting and classes.

There is an example app using Bootstrap3 at http://github.com/gshank/formhandler-example.

This is a lightweight example of what you could do in your own custom
Bootstrap3 theme. The heavy lifting is done by the Bootstrap3 wrapper,
L<HTML::FormHandler::Widget::Wrapper::Bootstrap3>,
which you can use by itself in your form with:

    has '+widget_wrapper' => ( default => 'Bootstrap3' );

It also uses L<HTML::FormHandler::Widget::Theme::BootstrapFormMessages>
to render the form messages in a Bootstrap style:

   <div class="alert alert-danger">
       <span class="error_message">....</span>
   </div>

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) 2016 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