CPAN::Groonga

JSON::MicrosoftDateFormat;
use strict;
use warnings;
use DateTime;

our $VERSION = '0.05';
our $PACKAGE = __PACKAGE__;

=head1 NAME

DateTime::Format::JSON::MicrosoftDateFormat - Parse and format JSON

osoftDateFormat strings

=head1 SYNOPSIS

  use DateTime::Format::JSON::MicrosoftDateFormat;

  my $formatter = DateTime::Format::JSON::MicrosoftDateFormat->new;
  my $dt        = $formatter->parse_da

:JSON::MicrosoftDateFormat -e 'print DateTime::Format::JSON::MicrosoftDateFormat->new->parse_datetime(shift), "\n";' '/Date(1392606509000-0500)/'

=head1 DESCRIPTION

This module understands the JSON 

#!/usr/bin/perl
use strict;
use warnings;
use DateTime::Format::JSON::MicrosoftDateFormat;

my $parser=DateTime::Format::JSON::MicrosoftDateFormat->new;

my $dt=$parser->parse_datetime("/Date(13926065

/perl
use strict;
use warnings;
use DateTime;
use DateTime::Format::JSON::MicrosoftDateFormat;

my $formatter=DateTime::Format::JSON::MicrosoftDateFormat->new;

my $dt=DateTime->now;
$dt->set_formatte

se JSON;
use DateTime;
use DateTime::Format::JSON::MicrosoftDateFormat (to_json=>1); #imports DateTime::TO_JSON method

my $formatter=DateTime::Format::JSON::MicrosoftDateFormat->new;
my $json=JSON->n

ew->convert_blessed->pretty;

my $dt=DateTime->now(formatter=>$formatter);
print $json->encode({now=>$dt});