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 23     23   143 use strict;
  23         47  
  23         575  
3 23     23   118 use warnings;
  23         43  
  23         574  
4 23     23   107 use Mouse;
  23         61  
  23         128  
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 11 my $self = shift;
19 4         23 $self->add_constraint('DATE');
20             }
21              
22 23     23   9105 no Mouse;
  23         54  
  23         110  
23             __PACKAGE__->meta->make_immutable;
24             __END__
25              
26             =head1 NAME
27              
28             HTML::Shakan::Field::Date - date field
29              
30             =head1 DESCRIPTION
31              
32             date field specific class.
33              
34             =head1 SEE ALSO
35              
36             L<HTML::Shakan>
37