File Coverage

blib/lib/Data/MuForm/Field/Repeatable/Instance.pm
Criterion Covered Total %
statement 12 12 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 0 2 0.0
total 16 18 88.8


line stmt bran cond sub pod time code
1             package Data::MuForm::Field::Repeatable::Instance;
2             # ABSTRACT: used internally by repeatable fields
3              
4 21     21   8591 use Moo;
  21         27  
  21         94  
5 21     21   3881 use Data::MuForm::Meta;
  21         38  
  21         96  
6             extends 'Data::MuForm::Field::Compound';
7              
8              
9             sub BUILD {
10 24     24 0 377 my $self = shift;
11             }
12              
13             has '+no_value_if_empty' => ( default => 1 );
14              
15             sub base_render_args {
16 4     4 0 63 my $self = shift;
17 4         14 my $args = $self->next::method(@_);
18 4         5 $args->{no_label} = 1;
19 4         6 $args->{is_instance} = 1;
20 4         10 return $args;
21             }
22              
23             1;
24              
25             __END__
26              
27             =pod
28              
29             =encoding UTF-8
30              
31             =head1 NAME
32              
33             Data::MuForm::Field::Repeatable::Instance - used internally by repeatable fields
34              
35             =head1 VERSION
36              
37             version 0.04
38              
39             =head1 SYNOPSIS
40              
41             This is a simple container class to hold an instance of a Repeatable field.
42             It will have a name like '0', '1'... Users should not need to use this class.
43              
44             =head1 AUTHOR
45              
46             Gerda Shank
47              
48             =head1 COPYRIGHT AND LICENSE
49              
50             This software is copyright (c) 2017 by Gerda Shank.
51              
52             This is free software; you can redistribute it and/or modify it under
53             the same terms as the Perl 5 programming language system itself.
54              
55             =cut