File Coverage

blib/lib/DateTime/Format/RSS.pm

Criterion	Covered	Total	%
statement	10	12	83.3
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	14	16	87.5

# $Id: /mirror/perl/DateTime-Format-RSS/trunk/lib/DateTime/Format/RSS.pm 63379 2008-06-17T20:51:20.618065Z daisuke  $
#
# Copyright (c) 2006 Daisuke Maki
# All rights reserved.

package DateTime::Format::RSS;
use strict;
use warnings;
use vars qw($VERSION);
use DateTime::Format::Mail;
use DateTime::Format::ISO8601;
use DateTime::Format::DateParse;
use base qw(Class::Accessor::Fast);

__PACKAGE__->mk_accessors($_) for qw(parsers version);

BEGIN
{
    $VERSION = '0.03000';
}

sub new
{
    my $class = shift;
    my %args  = @_;
    my $self  = $class->SUPER::new({
        version => $args{version} || '1.0',
        parsers => [
            # order matters
            DateTime::Format::Mail->new,
            DateTime::Format::ISO8601->new,
            'DateTime::Format::DateParse',
        ]
    });
    return $self;
}

sub parse_datetime
{
    my $self = shift;
    my $date = shift;
    if (! ref($self)) {
        $self = $self->new();
    }

    my $dt;
    foreach my $p (@{$self->parsers}) {
        $dt = eval { $p->parse_datetime($date) };
        last if $dt;
    }
    return $dt;
}

sub format_datetime
{
    my $self = shift;
    if ($self->version eq '2.0') {
        return $self->parsers->[0]->format_datetime($_[0]);
    } else {
        return $_[0]->iso8601;
    }
}

1;

__END__