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 22     22   103 use strict;
  22         38  
  22         616  
3 22     22   388 use warnings;
  22         43  
  22         458  
4 22     22   98 use Mouse;
  22         33  
  22         159  
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 49     49 1 98 my $self = shift;
18 49         583 $self->attr->{type} = $self->type;
19             }
20              
21 22     22   8923 no Mouse;
  22         37  
  22         105  
22             __PACKAGE__->meta->make_immutable;
23             __END__