File Coverage

blib/lib/DateTime/Format/PayPal/IPN.pm

Criterion	Covered	Total	%
statement	30	30	100.0
branch	2	4	50.0
condition			n/a
subroutine	8	8	100.0
pod	2	2	100.0
total	42	44	95.4

use strict;
use warnings;

use 5.006;

package DateTime::Format::PayPal::IPN;
$DateTime::Format::PayPal::IPN::VERSION = '0.000001';
use Carp qw( croak );
use DateTime::TimeZone;
use DateTime::Format::Strptime;

my $pattern = '%H:%M:%S %b %d, %Y';
my $tz      = DateTime::TimeZone->new( name => 'America/Los_Angeles' );
my $strp    = DateTime::Format::Strptime->new(
    pattern   => $pattern,
    time_zone => $tz,
);

sub parse_timestamp {
    my $class = shift;
    my $date  = shift;

    my $orig = $date;
    $date =~ s{ (PST|PDT)\z}{};

    my $dt = $strp->parse_datetime( $date );
    croak 'could not parse string: ' . $orig unless $dt;

    return $dt;
}

sub format_timestamp {
    my $class = shift;
    my $dt    = shift;

    my $stamp = $dt->strftime( $pattern, $dt );
    $stamp .= $dt->is_dst ? ' PDT' : ' PST';
    return $stamp;
}

1;

=pod

=encoding UTF-8

=head1 NAME

DateTime::Format::PayPal::IPN - Parse PayPal IPN timestamps

=head1 VERSION

version 0.000001

=head1 SYNOPSIS

    use DateTime::Format::PayPal::IPN;

    my $dt = DateTime::Format::PayPal::IPN->parse_timestamp( '02:35:35 Feb 16, 2010 PST' );

    # 2010-02-16 02:35:35
    DateTime::Format::PayPal::IPN->format_timestamp($dt);

=head1 DESCRIPTION

This module parses and formats timestamps returned by PayPal's IPN (Instant
Payment Notification) system.

=head1 METHODS

=over 4

=item * parse_timestamp($string)

Given a value of the appropriate type, this method will return a new
L object.  The time zone for this object will always be the
'America/Los_Angeles' as all IPN data which I have seen is sent in this time
zone format.

If given an improperly formatted string, this method should die.

=item * format_timestamp($datetime)

Given a C object, this methods returns an appropriately
formatted string.

=back

=head1 ACKNOWLEDGEMENTS

Most of the Pod was directly lifted from Dave Rolsky's L.

=head1 AUTHOR

Olaf Alders

=head1 COPYRIGHT AND LICENSE

This software is Copyright (c) 2014 by MaxMind, Inc.

This is free software, licensed under:

  The Artistic License 2.0 (GPL Compatible)

=cut

__END__