File Coverage

blib/lib/DateTimeX/ymdhms.pm
Criterion Covered Total %
statement 22 22 100.0
branch n/a
condition 4 8 50.0
subroutine 6 6 100.0
pod 0 2 0.0
total 32 38 84.2


line stmt bran cond sub pod time code
1             package DateTimeX::ymdhms;
2              
3 3     3   310206 use warnings;
  3         9  
  3         110  
4 3     3   17 use strict;
  3         11  
  3         96  
5 3     3   15 use Carp;
  3         10  
  3         227  
6              
7 3     3   3342 use version; our $VERSION = qv('0.0.2');
  3         6871  
  3         52  
8              
9             sub DateTime::ymdhms {
10 1     1 0 472 my $self = shift;
11 1         3 my($ymd_sep, $hms_sep) = @_;
12 1   50     7 $ymd_sep //= "-";
13 1   50     5 $hms_sep //= ":";
14              
15 1         9 return $self->format_cldr( "yyyy${ymd_sep}MM${ymd_sep}dd HH${hms_sep}mm${hms_sep}ss" );
16              
17             }
18              
19             sub DateTime::ymdhm {
20 1     1 0 1547 my $self = shift;
21 1         2 my($ymd_sep, $hms_sep) = @_;
22 1   50     9 $ymd_sep //= "-";
23 1   50     5 $hms_sep //= ":";
24              
25 1         6 return $self->format_cldr( "yyyy${ymd_sep}MM${ymd_sep}dd HH${hms_sep}mm" );
26              
27             }
28              
29             1; # Magic true value required at end of module
30             __END__
31              
32             =encoding utf8
33              
34             =head1 NAME
35              
36             DateTimeX::ymdhms - more easily output date and time of your DateTime.
37              
38             =head1 VERSION
39              
40             This document describes DateTimeX::ymdhms version 0.0.1
41              
42             =head1 SYNOPSIS
43              
44             use DateTime;
45             use DateTimeX::ymdhms;
46              
47             my $dt = DateTime->now;
48             print $dt->ymdhms; # prints "YYYY-MM-DD HH:MM:SS"
49             print $dt->ymdhm; # same as above without seconds
50              
51             =head1 DESCRIPTION
52              
53             Adds easy to use methods for outputting date and time.
54              
55             =head1 INTERFACE
56              
57             =head2 ymdhms
58              
59             Does both ymd("-") and hms(":") with a space between.
60              
61             =head2 ymdhm
62              
63             Same as L</ymdhms> only without seconds.
64              
65             =head1 CONFIGURATION AND ENVIRONMENT
66              
67             Currently doesn't load DateTime, you must do that. As such it would be
68             pointless to use this module without also using DateTime.
69              
70             =head1 DEPENDENCIES
71              
72             None.
73              
74              
75             =head1 INCOMPATIBILITIES
76              
77             None reported.
78              
79              
80             =head1 BUGS AND LIMITATIONS
81              
82             No bugs have been reported.
83              
84             Please report any bugs or feature requests to
85             C<bug-datetimex-ymdhms@rt.cpan.org>, or through the web interface at
86             L<http://rt.cpan.org>.
87              
88              
89             =head1 AUTHOR
90              
91             Torbjørn Lindahl C<< <torbjorn.lindahl@gmail.com> >>
92              
93              
94             =head1 LICENCE AND COPYRIGHT
95              
96             Copyright (c) 2013, Torbjørn Lindahl C<< <torbjorn.lindahl@gmail.com> >>. All rights reserved.
97              
98             This module is free software; you can redistribute it and/or
99             modify it under the same terms as Perl itself. See L<perlartistic>.
100              
101              
102             =head1 DISCLAIMER OF WARRANTY
103              
104             BECAUSE THIS SOFTWARE IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY
105             FOR THE SOFTWARE, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN
106             OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES
107             PROVIDE THE SOFTWARE "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER
108             EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
109             WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE
110             ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE SOFTWARE IS WITH
111             YOU. SHOULD THE SOFTWARE PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL
112             NECESSARY SERVICING, REPAIR, OR CORRECTION.
113              
114             IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING
115             WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR
116             REDISTRIBUTE THE SOFTWARE AS PERMITTED BY THE ABOVE LICENCE, BE
117             LIABLE TO YOU FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL,
118             OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE
119             THE SOFTWARE (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA BEING
120             RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD PARTIES OR A
121             FAILURE OF THE SOFTWARE TO OPERATE WITH ANY OTHER SOFTWARE), EVEN IF
122             SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF
123             SUCH DAMAGES.