File Coverage

blib/lib/DateTime/Format/Diotek.pm
Criterion Covered Total %
statement 9 9 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 12 12 100.0


line stmt bran cond sub pod time code
1             package DateTime::Format::Diotek;
2             {
3             $DateTime::Format::Diotek::VERSION = '0.0.1';
4             }
5             # ABSTRACT: parse only YYYYMMDDhhmmss format
6 1     1   25152 use strict;
  1         3  
  1         32  
7 1     1   5 use warnings;
  1         1  
  1         78  
8             use DateTime::Format::Builder
9             (
10 1         20 parsers => {
11             parse_datetime => [
12             {
13             params => [qw(year month day hour minute second)],
14             regex => qr/^(\d\d\d\d)(\d\d)(\d\d)(\d\d)(\d\d)(\d\d)$/,
15             }
16             ]
17             }
18 1     1   2938 );
  1         192638  
19              
20              
21             1;
22              
23             __END__