File Coverage

lib/Class/Usul/Response/Table.pm
Criterion Covered Total %
statement 9 9 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 12 12 100.0


line stmt bran cond sub pod time code
1             package Class::Usul::Response::Table;
2              
3 1     1   566 use namespace::autoclean;
  1         2  
  1         9  
4              
5 1     1   84 use Moo;
  1         2  
  1         9  
6 1     1   710 use Class::Usul::Types qw( ArrayRef HashRef Int Str );
  1         3  
  1         10  
7              
8             has 'caption' => is => 'ro', isa => Str, default => q();
9             has 'class' => is => 'ro', isa => HashRef | Str, default => q();
10             has 'classes' => is => 'ro', isa => HashRef, default => sub { {} };
11             has 'count' => is => 'ro', isa => Int, default => 0;
12             has 'fields' => is => 'ro', isa => ArrayRef, default => sub { [] };
13             has 'hclass' => is => 'ro', isa => HashRef, default => sub { {} };
14             has 'labels' => is => 'ro', isa => HashRef, default => sub { {} };
15             has 'sizes' => is => 'ro', isa => HashRef, default => sub { {} };
16             has 'typelist' => is => 'ro', isa => HashRef, default => sub { {} };
17             has 'values' => is => 'ro', isa => ArrayRef, default => sub { [] };
18             has 'widths' => is => 'ro', isa => HashRef, default => sub { {} };
19             has 'wrap' => is => 'ro', isa => HashRef, default => sub { {} };
20              
21             1;
22              
23             __END__
24              
25             =pod
26              
27             =head1 Name
28              
29             Class::Usul::Response::Table - Data structure for the table widget
30              
31             =head1 Synopsis
32              
33             use Class::Usul::Response::Table;
34              
35             $table_obj = Class::Usul::Response::Table->new( \%params );
36              
37             =head1 Description
38              
39             Response class for the table widget in L<HTML::FormWidgets>
40              
41             =head1 Configuration and Environment
42              
43             Defines the following attributes;
44              
45             =over 3
46              
47             =item C<caption>
48              
49             =item C<class>
50              
51             =item C<classes>
52              
53             =item C<count>
54              
55             =item C<fields>
56              
57             =item C<hclass>
58              
59             =item C<labels>
60              
61             =item C<sizes>
62              
63             =item C<typelist>
64              
65             =item C<values>
66              
67             =item C<widths>
68              
69             =item C<wrap>
70              
71             =back
72              
73             =head1 Subroutines/Methods
74              
75             None
76              
77             =head1 Diagnostics
78              
79             None
80              
81             =head1 Dependencies
82              
83             =over 3
84              
85             =item L<Moo>
86              
87             =back
88              
89             =head1 Incompatibilities
90              
91             There are no known incompatibilities in this module
92              
93             =head1 Bugs and Limitations
94              
95             There are no known bugs in this module.
96             Please report problems to the address below.
97             Patches are welcome
98              
99             =head1 Author
100              
101             Peter Flanigan, C<< <pjfl@cpan.org> >>
102              
103             =head1 License and Copyright
104              
105             Copyright (c) 2017 Peter Flanigan. All rights reserved
106              
107             This program is free software; you can redistribute it and/or modify it
108             under the same terms as Perl itself. See L<perlartistic>
109              
110             This program is distributed in the hope that it will be useful,
111             but WITHOUT WARRANTY; without even the implied warranty of
112             MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE
113              
114             =cut
115              
116             # Local Variables:
117             # mode: perl
118             # tab-width: 3
119             # End: