1package DateTime::Format::Simple;
2
3use DateTime::Format::Builder (
4    parsers => {
5	parse_datetime => [
6	{
7	    params => [qw( year month mday hours mins secs fsecs ampm )],
8	    regex => qr[^
9		(\d{4}) \s*-?\s* (\d{2}) \s*-?\s* (\d{2})
10		\s*
11		(?:-?\s* (\d{1,2}) :? (\d{2}) (?::? (\d{2}) )? )?
12		(?:\. (\d+) ) ? # fsecs
13		(?:\s* ([aApP]\.?[mM]\.?) )?
14		$
15		]x,
16	},
17	{
18	    # mm/dd/yyyy, mm-dd-yyyy, [hh:mm[:ss[.nnn]]] [am/pm]
19	    params => [qw( month mday year hours mins secs fsecs ampm )],
20	    regex => qr#^
21		(\d{1,2})[-/](\d{1,2})[-/](\d{4})
22		(?:\s+(\d{1,2}):(\d{2})(?::(\d{2}))?)?
23		(?:\.(\d+))?
24		(?:\s*([aApP]\.?[mM]\.?))?
25		$
26		#x
27	},
28	]
29    }
30);
31