File Coverage

blib/lib/SyForm/Role/HTML.pm
Criterion Covered Total %
statement 6 6 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 9 9 100.0


line stmt bran cond sub pod time code
1             package SyForm::Role::HTML;
2             BEGIN {
3 7     7   3812 $SyForm::Role::HTML::AUTHORITY = 'cpan:GETTY';
4             }
5             # ABSTRACT: SyForm::ViewRole::HTML configuration of the form
6             $SyForm::Role::HTML::VERSION = '0.103';
7 7     7   51 use Moo::Role;
  7         13  
  7         65  
8              
9             has html => (
10             is => 'ro',
11             predicate => 1,
12             );
13              
14             has html_submit => (
15             is => 'ro',
16             predicate => 1,
17             );
18              
19             has no_html_submit => (
20             is => 'lazy',
21             );
22              
23             sub _build_no_html_submit {
24 2     2   305 my ( $self ) = @_;
25 2         40 return 0;
26             }
27              
28             1;
29              
30             __END__
31              
32             =pod
33              
34             =head1 NAME
35              
36             SyForm::Role::HTML - SyForm::ViewRole::HTML configuration of the form
37              
38             =head1 VERSION
39              
40             version 0.103
41              
42             =head1 AUTHOR
43              
44             Torsten Raudssus <torsten@raudss.us>
45              
46             =head1 COPYRIGHT AND LICENSE
47              
48             This software is copyright (c) 2014 by Torsten Raudssus.
49              
50             This is free software; you can redistribute it and/or modify it under
51             the same terms as the Perl 5 programming language system itself.
52              
53             =cut