File Coverage

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   26256 use strict;
  2         4  
  2         48  
4 2     2   10 use warnings;
  2         4  
  2         47  
5              
6 2     2   597 use Value::Object::ValidationUtils;
  2         5  
  2         52  
7              
8 2     2   710 use parent 'Value::Object';
  2         303  
  2         11  
9              
10             our $VERSION = '0.15';
11              
12             sub _why_invalid
13             {
14 12     12   23 my ( $self, $value ) = @_;
15 12         40 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__