File Coverage

blib/lib/GitHub/MergeVelocity/Types.pm
Criterion Covered Total %
statement 18 18 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod n/a
total 24 24 100.0


line stmt bran cond sub pod time code
1              
2             use strict;
3 3     3   20 use warnings;
  3         6  
  3         100  
4 3     3   13  
  3         7  
  3         133  
5             our $VERSION = '0.000009';
6              
7             use DateTime::Format::ISO8601;
8 3     3   1635 use Type::Library -base, -declare => ('Datetime');
  3         1116582  
  3         218  
9 3     3   1816 use Type::Utils;
  3         55049  
  3         32  
10 3     3   3539 use Types::Standard -types;
  3         13100  
  3         30  
11 3     3   6126  
  3         139940  
  3         34  
12             class_type Datetime, { class => "DateTime" };
13              
14             coerce Datetime, from Str,
15             via { DateTime::Format::ISO8601->parse_datetime($_) };
16             1;
17              
18             =pod
19              
20             =encoding UTF-8
21              
22             =head1 NAME
23              
24             GitHub::MergeVelocity::Types - Custom types for use by GitHub::MergeVelocity modules
25              
26             =head1 VERSION
27              
28             version 0.000009
29              
30             =head1 AUTHOR
31              
32             Olaf Alders <olaf@wundercounter.com>
33              
34             =head1 COPYRIGHT AND LICENSE
35              
36             This software is copyright (c) 2015 by Olaf Alders.
37              
38             This is free software; you can redistribute it and/or modify it under
39             the same terms as the Perl 5 programming language system itself.
40              
41             =cut
42              
43              
44             # ABSTRACT: Custom types for use by GitHub::MergeVelocity modules