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             package GitHub::MergeVelocity::Types;
2             $GitHub::MergeVelocity::Types::VERSION = '0.000006';
3 3     3   16 use strict;
  3         3  
  3         130  
4 3     3   14 use warnings;
  3         6  
  3         97  
5              
6 3     3   1784 use DateTime::Format::ISO8601;
  3         109485  
  3         283  
7 3     3   6890 use Type::Library -base, -declare => ('Datetime');
  3         66961  
  3         34  
8 3     3   3978 use Type::Utils;
  3         11609  
  3         29  
9 3     3   5176 use Types::Standard -types;
  3         123781  
  3         56  
10              
11             class_type Datetime, { class => "DateTime" };
12              
13             coerce Datetime, from Str,
14             via { DateTime::Format::ISO8601->parse_datetime($_) };
15             1;
16              
17             =pod
18              
19             =encoding UTF-8
20              
21             =head1 NAME
22              
23             GitHub::MergeVelocity::Types - Custom types for use by GitHub::MergeVelocity modules
24              
25             =head1 VERSION
26              
27             version 0.000006
28              
29             =head1 AUTHOR
30              
31             Olaf Alders <olaf@wundercounter.com>
32              
33             =head1 COPYRIGHT AND LICENSE
34              
35             This software is copyright (c) 2015 by Olaf Alders.
36              
37             This is free software; you can redistribute it and/or modify it under
38             the same terms as the Perl 5 programming language system itself.
39              
40             =cut
41              
42             __END__
43              
44             # ABSTRACT: Custom types for use by GitHub::MergeVelocity modules