File Coverage

blib/lib/HTML/FormFu/Element/Blank.pm
Criterion Covered Total %
statement 10 10 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 14 14 100.0


line stmt bran cond sub pod time code
1             package HTML::FormFu::Element::Blank;
2              
3 3     3   855 use strict;
  3         6  
  3         141  
4             our $VERSION = '2.05'; # VERSION
5              
6 3     3   9 use Moose;
  3         4  
  3         21  
7              
8             extends 'HTML::FormFu::Element';
9              
10             with 'HTML::FormFu::Role::Element::Input';
11              
12 3     3   13409 use HTML::FormFu::Constants qw( $EMPTY_STR );
  3         5  
  3         684  
13              
14             after BUILD => sub {
15             my $self = shift;
16              
17             $self->label_tag($EMPTY_STR);
18              
19             #$self->field_type( $EMPTY_STR );
20             $self->render($EMPTY_STR);
21              
22             return;
23             };
24              
25             sub field_tag {
26 1     1   3 return $EMPTY_STR;
27             }
28              
29             override render => sub {
30             return $EMPTY_STR;
31             };
32              
33             around render_data_non_recursive => sub {
34             return;
35             };
36              
37             __PACKAGE__->meta->make_immutable;
38              
39             1;
40              
41             __END__
42              
43             =head1 NAME
44              
45             HTML::FormFu::Element::Blank - blank element
46              
47             =head1 VERSION
48              
49             version 2.05
50              
51             =head1 SEE ALSO
52              
53             Is a sub-class of, and inherits methods from
54             L<HTML::FormFu::Role::Element::Input>,
55             L<HTML::FormFu::Role::Element::Field>,
56             L<HTML::FormFu::Element>
57              
58             L<HTML::FormFu>
59              
60             =head1 AUTHOR
61              
62             Carl Franks, C<cfranks@cpan.org>
63              
64             =head1 LICENSE
65              
66             This library is free software, you can redistribute it and/or modify it under
67             the same terms as Perl itself.
68              
69             =cut