File Coverage

blib/lib/Clustericious/Client/Object/DateTime.pm
Criterion Covered Total %
statement 12 12 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 1 1 100.0
total 17 17 100.0


line stmt bran cond sub pod time code
1             package Clustericious::Client::Object::DateTime;
2              
3 2     2   1573 use strict;
  2         5  
  2         59  
4 2     2   12 use warnings;
  2         5  
  2         85  
5              
6             # ABSTRACT: Clustericious DateTime object
7             our $VERSION = '1.27'; # VERSION
8              
9              
10 2     2   748 use DateTime::Format::ISO8601;
  2         568024  
  2         175  
11              
12              
13             sub new
14             {
15 1     1 1 954 my $class = shift;
16 1         3 my ($datetime) = @_;
17              
18 1         3 DateTime::Format::ISO8601->new->parse_datetime($datetime);
19             }
20              
21             1;
22              
23             __END__
24              
25             =pod
26              
27             =encoding UTF-8
28              
29             =head1 NAME
30              
31             Clustericious::Client::Object::DateTime - Clustericious DateTime object
32              
33             =head1 VERSION
34              
35             version 1.27
36              
37             =head1 SYNOPSIS
38              
39             my $obj = Clustericious::Client::Object::DateTime->new('2000-01-01');
40              
41             returns a DateTime object from the string date/time. Expects the
42             date/time to be in ISO 8601 format.
43              
44             =head1 DESCRIPTION
45              
46             A simple wrapper around DateTime::Format::ISO8601 that provides a
47             new() function that acts like Clustericious::Client::Object wants it
48             to.
49              
50             =head1 METHODS
51              
52             =head2 new
53              
54             my $obj = Clustericious::Client::Object::DateTime->new('2000-01-01');
55              
56             =head1 AUTHOR
57              
58             Original author: Brian Duggan
59              
60             Current maintainer: Graham Ollis E<lt>plicease@cpan.orgE<gt>
61              
62             Contributors:
63              
64             Curt Tilmes
65              
66             Yanick Champoux
67              
68             =head1 COPYRIGHT AND LICENSE
69              
70             This software is copyright (c) 2013 by NASA GSFC.
71              
72             This is free software; you can redistribute it and/or modify it under
73             the same terms as the Perl 5 programming language system itself.
74              
75             =cut