EVOLUTION-MANAGER

Edit File: 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"; }