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