File Coverage

blib/lib/SyForm/FormBootstrap.pm
Criterion Covered Total %
statement 10 12 83.3
branch n/a
condition n/a
subroutine 4 5 80.0
pod n/a
total 14 17 82.3


line stmt bran cond sub pod time code
1             package SyForm::FormBootstrap;
2             BEGIN {
3 6     6   3681 $SyForm::FormBootstrap::AUTHORITY = 'cpan:GETTY';
4             }
5             # ABSTRACT: Bootstrap Form
6             $SyForm::FormBootstrap::VERSION = '0.103';
7 6     6   50 use Moo;
  6         11  
  6         38  
8 6     6   2524 use HTML::Declare ':all';
  6         9567  
  6         2722  
9 6     6   498 use Safe::Isa;
  6         567  
  6         1430  
10              
11             with qw(
12             MooX::Traits
13             );
14              
15             our @attributes = qw();
16              
17             for my $attribute (@attributes) {
18             has $attribute => (
19             is => 'ro',
20             predicate => 1,
21             );
22             }
23              
24             has syform_formhtml => (
25             is => 'ro',
26             required => 1,
27             );
28              
29             has layout => (
30             is => 'lazy',
31             );
32              
33             sub _build_layout {
34 0     0     my ( $self ) = @_;
35 0           return 'basic';
36             }
37              
38             1;
39              
40             __END__
41              
42             =pod
43              
44             =head1 NAME
45              
46             SyForm::FormBootstrap - Bootstrap Form
47              
48             =head1 VERSION
49              
50             version 0.103
51              
52             =head1 AUTHOR
53              
54             Torsten Raudssus <torsten@raudss.us>
55              
56             =head1 COPYRIGHT AND LICENSE
57              
58             This software is copyright (c) 2014 by Torsten Raudssus.
59              
60             This is free software; you can redistribute it and/or modify it under
61             the same terms as the Perl 5 programming language system itself.
62              
63             =cut