File Coverage

blib/lib/HTML/Shakan/Field/Date.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::Date;
2 22     22   120 use strict;
  22         37  
  22         745  
3 22     22   122 use warnings;
  22         36  
  22         561  
4 22     22   101 use Mouse;
  22         41  
  22         139  
5             extends 'HTML::Shakan::Field';
6              
7             has '+widget' => (
8             default => 'date'
9             );
10              
11             has years => (
12             is => 'ro',
13             isa => 'ArrayRef',
14             required => 0,
15             );
16              
17             sub BUILD {
18 4     4 1 12 my $self = shift;
19 4         36 $self->add_constraint('DATE');
20             }
21              
22 22     22   7968 no Mouse;
  22         42  
  22         102  
23             __PACKAGE__->meta->make_immutable;
24             __END__