File Coverage

blib/lib/HTML/FormHandler/Field/Repeatable/Instance.pm
Criterion Covered Total %
statement 9 9 100.0
branch 2 2 100.0
condition n/a
subroutine 4 4 100.0
pod 0 2 0.0
total 15 17 88.2


line stmt bran cond sub pod time code
1             package # hide from Pause
2             HTML::FormHandler::Field::Repeatable::Instance;
3             # ABSTRACT: used internally by repeatable fields
4              
5 29     29   12282 use Moose;
  29         37  
  29         147  
6             extends 'HTML::FormHandler::Field::Compound';
7              
8              
9             sub BUILD {
10 33     33 0 55 my $self = shift;
11              
12 33 100       1179 $self->add_wrapper_class('hfh-repinst')
13             unless $self->has_wrapper_class;
14             }
15              
16 30     30 0 980 sub build_tags {{ wrapper => 1 }}
17              
18             has '+do_label' => ( default => 0 );
19             has '+do_wrapper' => ( default => 1 );
20             has '+no_value_if_empty' => ( default => 1 );
21              
22             __PACKAGE__->meta->make_immutable;
23 29     29   121026 use namespace::autoclean;
  29         50  
  29         276  
24             1;
25              
26             __END__
27              
28             =pod
29              
30             =encoding UTF-8
31              
32             =head1 NAME
33              
34             HTML::FormHandler::Field::Repeatable::Instance - used internally by repeatable fields
35              
36             =head1 VERSION
37              
38             version 0.40067
39              
40             =head1 SYNOPSIS
41              
42             This is a simple container class to hold an instance of a Repeatable field.
43             It will have a name like '0', '1'... Users should not need to use this class.
44              
45             =head1 AUTHOR
46              
47             FormHandler Contributors - see HTML::FormHandler
48              
49             =head1 COPYRIGHT AND LICENSE
50              
51             This software is copyright (c) 2016 by Gerda Shank.
52              
53             This is free software; you can redistribute it and/or modify it under
54             the same terms as the Perl 5 programming language system itself.
55              
56             =cut