File Coverage

blib/lib/Value/Object/W3CDate.pm
Criterion Covered Total %
statement 16 16 100.0
branch 2 2 100.0
condition n/a
subroutine 5 5 100.0
pod n/a
total 23 23 100.0


line stmt bran cond sub pod time code
1             package Value::Object::W3CDate;
2              
3 1     1   24881 use strict;
  1         2  
  1         27  
4 1     1   6 use warnings;
  1         2  
  1         24  
5              
6 1     1   561 use Value::Object::ValidationUtils;
  1         2  
  1         31  
7              
8 1     1   722 use parent 'Value::Object';
  1         303  
  1         6  
9              
10             our $VERSION = '0.14';
11              
12             sub _why_invalid
13             {
14 12     12   21 my ( $self, $value ) = @_;
15 12         32 my ($why, $long, $data) = Value::Object::ValidationUtils::why_invalid_iso_8601_date( $value );
16 12 100       75 return ( ref($self) . ": $why", $long, $data ) if defined $why;
17 1         3 return;
18             }
19              
20             1;
21             __END__