package DateTime::Format::Simple;
use DateTime::Format::Builder (
parsers => {
parse_datetime => [
{
params => [qw( year month mday hours mins secs fsecs ampm )],
regex => qr[^
(\d{4}) \s*-?\s* (\d{2}) \s*-?\s* (\d{2})
\s*
(?:-?\s* (\d{1,2}) :? (\d{2}) (?::? (\d{2}) )? )?
(?:\. (\d+) ) ? (?:\s* ([aApP]\.?[mM]\.?) )?
$
]x,
},
{
params => [qw( month mday year hours mins secs fsecs ampm )],
regex => qr (\d{1,2})[-/](\d{1,2})[-/](\d{4})
(?:\s+(\d{1,2}):(\d{2})(?::(\d{2}))?)?
(?:\.(\d+))?
(?:\s*([aApP]\.?[mM]\.?))?
$
},
]
}
);