Na}{

File Content: `Fall.pm`

#!/usr/bin/perl -w
use strict;

=pod

This example shows a simple fall through parser that tries
a few of the other formatting modules, _then_ fails.

=cut

package DateTime::Format::Fall;
use DateTime::Format::HTTP;
use DateTime::Format::Mail;
use DateTime::Format::IBeat;

use DateTime::Format::Builder (
    parsers => {
        parse_datetime => [
            sub {
                eval { DateTime::Format::HTTP->parse_datetime( $_[1] ) };
            },
            sub {
                eval { DateTime::Format::Mail->parse_datetime( $_[1] ) };
            },
            sub {
                eval { DateTime::Format::IBeat->parse_datetime( $_[1] ) };
            },
        ]
    }
);

package main;

for ( '@d19.07.03 @704', '20030719T155345', 'gibberish' ) {
    print DateTime::Format::Fall->parse_datetime($_)->datetime, "\n";
}

Name	Size	Permission
Apache.pm	1363 bytes	0644
Fall.pm	841 bytes	0644
ICal.pm	3750 bytes	0644
MySQL.pm	4771 bytes	0644
Simple.pm	853 bytes	0644
Tivoli.pm	719 bytes	0644
W3CDTF.pm	4539 bytes	0644

File Content: Fall.pm

File Content: `Fall.pm`