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 2     2   25385 use strict;
  2         5  
  2         47  
4 2     2   21 use warnings;
  2         3  
  2         44  
5              
6 2     2   510 use Value::Object::ValidationUtils;
  2         3  
  2         49  
7              
8 2     2   723 use parent 'Value::Object';
  2         313  
  2         15  
9              
10             our $VERSION = '0.13';
11              
12             sub _why_invalid
13             {
14 12     12   16 my ( $self, $value ) = @_;
15 12         32 my ($why, $long, $data) = Value::Object::ValidationUtils::why_invalid_iso_8601_date( $value );
16 12 100       62 return ( ref($self) . ": $why", $long, $data ) if defined $why;
17 1         3 return;
18             }
19              
20             1;
21             __END__