Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Switched to Module::Install and updated for kwalitee metrics.

  • Loading branch information...
commit d3782751f9885e375dbee7e61aaeb574731375c1 1 parent 1ff58f1
@kasei authored
View
22 MANIFEST
@@ -0,0 +1,22 @@
+inc/Module/Install.pm
+inc/Module/Install/Base.pm
+inc/Module/Install/Can.pm
+inc/Module/Install/Fetch.pm
+inc/Module/Install/Makefile.pm
+inc/Module/Install/Metadata.pm
+inc/Module/Install/Win32.pm
+inc/Module/Install/WriteAll.pm
+Changes
+lib/DateTime/Format/W3CDTF.pm
+LICENSE
+Makefile.PL
+MANIFEST This list of files
+t/00load.t
+t/01parse.t
+t/02bugs.t
+t/pod.t
+t/pod_coverage.t
+Makefile.PL
+README
+META.yml
+examples/now.pl
View
2  MANIFEST.SKIP
@@ -5,6 +5,7 @@
\.svn.*
^\.hg
^\.git
+^\.DS_Store
# Avoid Makemaker generated and utility files.
^Makefile$
@@ -44,3 +45,4 @@
# No need to ship this
\.shipit
+^MYMETA.yml$
View
23 Makefile.PL
@@ -0,0 +1,23 @@
+use strict;
+use warnings;
+
+use inc::Module::Install;
+
+name 'DateTime-Format-W3CDTF';
+all_from 'lib/DateTime/Format/W3CDTF.pm';
+author 'Gregory Todd Williams <gwilliams@cpan.org>';
+license 'perl';
+
+build_requires 'Test::More' => 0.61;
+
+requires 'DateTime' => 0;
+
+resources(
+ 'homepage' => "http://search.cpan.org/dist/DateTime-Format-W3CDTF/",
+ 'repository' => "http://github.com/kasei/datetime-format-w3cdtf",
+ 'bugtracker' => "http://rt.cpan.org/NoAuth/Bugs.html?Dist=DateTime-Format-W3CDTF",
+);
+
+sign;
+
+WriteAll;
View
80 README
@@ -0,0 +1,80 @@
+NAME
+ DateTime::Format::W3CDTF - Parse and format W3CDTF datetime strings
+
+SYNOPSIS
+ use DateTime::Format::W3CDTF;
+
+ my $w3c = DateTime::Format::W3CDTF->new;
+ my $dt = $w3c->parse_datetime( '2003-02-15T13:50:05-05:00' );
+
+ # 2003-02-15T13:50:05-05:00
+ $w3c->format_datetime($dt);
+
+DESCRIPTION
+ This module understands the W3CDTF date/time format, an ISO 8601
+ profile, defined at http://www.w3.org/TR/NOTE-datetime. This format as
+ the native date format of RSS 1.0.
+
+ It can be used to parse these formats in order to create the appropriate
+ objects.
+
+METHODS
+ This API is currently experimental and may change in the future.
+
+ * parse_datetime($string)
+
+ Given a W3CDTF datetime string, this method will return a new
+ "DateTime" object.
+
+ If given an improperly formatted string, this method may die.
+
+ * format_datetime($datetime)
+
+ Given a "DateTime" object, this methods returns a W3CDTF datetime
+ string.
+
+ NOTE: As of version 0.4, format_datetime no longer attempts to
+ truncate datetimes without a time component. This is due to the fact
+ that "DateTime" doesn't distinguish between a date with no time
+ component, and midnight.
+
+ * format_date($datetime)
+
+ Given a "DateTime" object, return a W3CDTF datetime string without
+ the time component.
+
+SUPPORT
+ Support for this module is provided via the datetime@perl.org email
+ list. See http://datetime.perl.org/?MailingList for details.
+
+ Please submit bugs to the CPAN RT system at
+ http://rt.cpan.org/NoAuth/ReportBug.html?Queue=datetime-format-w3cdtf or
+ via email at bug-datetime-format-w3cdtf@rt.cpan.org.
+
+AUTHOR
+ Dave Rolsky <autarch@urth.org>
+
+CREDITS
+ This module is maintained by Gregory Todd Williams <gwilliams@cpan.org>.
+ It was originally created by Kellan Elliott-McCrea <kellan@protest.net>.
+
+ This module was inspired by DateTime::Format::ICal
+
+COPYRIGHT
+ Copyright (c) 2009 David Rolsky. All rights reserved. This program is
+ free software; you can redistribute it and/or modify it under the same
+ terms as Perl itself.
+
+ Copyright (c) 2003 Kellan Elliott-McCrea
+
+ Portions of the code in this distribution are derived from other works.
+ Please see the CREDITS file for more details.
+
+ The full text of the license can be found in the LICENSE file included
+ with this module.
+
+SEE ALSO
+ datetime@perl.org mailing list
+
+ http://datetime.perl.org/
+
View
9 examples/now.pl
@@ -0,0 +1,9 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+use DateTime::Format::W3CDTF;
+
+my $dt = DateTime->now;
+my $format = DateTime::Format::W3CDTF->new;
+print $format->format_datetime($dt) . "\n";
View
1  lib/DateTime/Format/W3CDTF.pm
@@ -1,6 +1,7 @@
package DateTime::Format::W3CDTF;
use strict;
+use warnings;
use vars qw ($VERSION);
View
6 t/pod.t
@@ -0,0 +1,6 @@
+use strict;
+use warnings;
+use Test::More;
+eval "use Test::Pod 1.14";
+plan skip_all => "Test::Pod 1.14 required for testing POD" if $@;
+all_pod_files_ok();
View
6 t/pod_coverage.t
@@ -0,0 +1,6 @@
+use strict;
+use warnings;
+use Test::More;
+eval "use Test::Pod::Coverage 1.04";
+plan skip_all => "Test::Pod::Coverage 1.04 required for testing POD coverage" if $@;
+all_pod_coverage_ok();

0 comments on commit d378275

Please sign in to comment.
Something went wrong with that request. Please try again.