File Coverage

blib/lib/Data/MuForm/Field/Hidden.pm
Criterion Covered Total %
statement 9 9 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod 0 2 0.0
total 12 14 85.7


line stmt bran cond sub pod time code
1             package Data::MuForm::Field::Hidden;
2             # ABSTRACT: hidden field
3              
4 3     3   2643 use Moo;
  3         8842  
  3         16  
5             extends 'Data::MuForm::Field::Text';
6              
7             has '+html5_type_attr' => ( default => 'hidden' );
8              
9 1     1 0 36 sub build_input_type { 'hidden' }
10              
11              
12             sub base_render_args {
13 1     1 0 21 my $self = shift;
14 1         5 my $args = $self->next::method(@_);
15 1         3 $args->{layout_type} = 'element';
16 1         2 $args->{wrapper} = 'none';
17 1         13 return $args;
18             }
19              
20             1;
21              
22             __END__
23              
24             =pod
25              
26             =encoding UTF-8
27              
28             =head1 NAME
29              
30             Data::MuForm::Field::Hidden - hidden field
31              
32             =head1 VERSION
33              
34             version 0.03
35              
36             =head1 DESCRIPTION
37              
38             This is a 'convenience' text field that uses the 'hidden' type.
39              
40             =head1 AUTHOR
41              
42             Gerda Shank
43              
44             =head1 COPYRIGHT AND LICENSE
45              
46             This software is copyright (c) 2017 by Gerda Shank.
47              
48             This is free software; you can redistribute it and/or modify it under
49             the same terms as the Perl 5 programming language system itself.
50              
51             =cut