TOML::Tiny::Faithful: Provide own DateTime formatter

[nailing-cargo.git] / lib / TOML / Tiny / Faithful.pm

diff --git a/lib/TOML/Tiny/Faithful.pm b/lib/TOML/Tiny/Faithful.pm
index 58512003c1a1492bf95674746e9c4447aebfe3ab..42edf1bdba42947fbf6d429d84d6e42bb4e9dc1b 100644 (file)
--- a/lib/TOML/Tiny/Faithful.pm
+++ b/lib/TOML/Tiny/Faithful.pm
@@ -24,7 +24,7 @@ sub _options {
   },
   inflate_float => sub { 0. + shift; },
   no_string_guessing => 1,
-  datetime_formatter => DateTime::Format::RFC3339->new(),
+  datetime_formatter => TOML::Tiny::Faithful::DateTime::Formatter->new(),
 }
 
 sub new {
@@ -40,6 +40,30 @@ sub to_toml {
   TOML::Tiny::to_toml($source, _options(), @_);
 }
 
+package TOML::Tiny::Faithful::DateTime::Formatter;
+use DateTime::Format::RFC3339;
+
+our $base = DateTime::Format::RFC3339->new();
+
+sub new ($) {
+    my ($class) = @_;
+    bless { }, $class;
+}
+
+sub format_datetime {
+    my ($self,$dt) = @_;
+    # RFC3339 always prints a timezone.  This is correct for RFC3339
+    # but in our application we sometimes have "local datetime"s
+    # where the time_zone is DateTime::TimeZone::Floating.
+    # We could use ISO8601 but it never prints the nanoseconds.
+    # It is easier to strip the timezone offset than add the ns.
+    my $r = DateTime::Format::RFC3339->new()->format_datetime($dt);
+    if ((ref $dt->time_zone()) =~ m/Floating/) {
+       $r =~ s/\+[0-9:.]+$//;
+    }
+    $r
+}
+
 1;
 
 =head1 SYNOPSIS