I expect this test script to print '850' for milliseconds using the CLDR format 'SSS', but it doesn't. What's wrong?

#!perl

use v5.16;
use strict;
use warnings;

use DateTime::Format::Epoch; # For parser
use DateTime::Format::CLDR;  # For formatter
use Math::BigInt;

my $epoch = DateTime->new(
    year       => 1601,
    month      => 1,
    day        => 1,
    hour       => 0,
    minute     => 0,
    second     => 0,
    nanosecond => 0,
);

my $parser = DateTime::Format::Epoch->new(
    epoch => $epoch,
    unit  => 1e7, # Hundreds of nanonseconds
);

my $timestamp = Math::BigInt->new('0x01_CD_F5_A9_75_38_2F_DF');

# This prints 130030072428507103, which is correct
say $timestamp;

my $dt = $parser->parse_datetime($timestamp)
                ->format_cldr('yyyy-MM-ddTHH:mm:ss.SSS');

# This prints 2013-01-18T18:27:22.000, not 2013-01-18T18:27:22.850
say $dt;

exit 0;

[download]

In reply to Printing milliseconds using DateTime::Format::Epoch and DateTime::Format::CLDR by Jim

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.