File Coverage

blib/lib/HTML/Shakan/Field/Input.pm
Criterion Covered Total %
statement 14 14 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 1 1 100.0
total 20 20 100.0


line stmt bran cond sub pod time code
1             package HTML::Shakan::Field::Input;
2 23     23   134 use strict;
  23         51  
  23         599  
3 23     23   232 use warnings;
  23         53  
  23         573  
4 23     23   113 use Mouse;
  23         45  
  23         138  
5             extends 'HTML::Shakan::Field';
6              
7             has '+widget' => (
8             default => 'input',
9             );
10              
11             has type => (
12             is => 'ro',
13             isa => 'Str',
14             required => 1,
15             );
16             sub BUILD {
17 56     56 1 115 my $self = shift;
18 56         642 $self->attr->{type} = $self->type;
19             }
20              
21 23     23   9891 no Mouse;
  23         51  
  23         102  
22             __PACKAGE__->meta->make_immutable;
23             __END__
24              
25             =head1 NAME
26              
27             HTML::Shakan::Field::Input - <input /> field
28              
29             =head1 DESCRIPTION
30              
31             This module provides the <input /> field object.
32              
33             =head1 ATTRIBUTE
34              
35             =over 4
36              
37             =item type
38              
39             <input type="XXX" /> attribute.
40              
41             =back
42              
43             =head1 SEE ALSO
44              
45             L<HTML::Shakan>
46