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+) ) ? # fsecs
		(?:\s* ([aApP]\.?[mM]\.?) )?
		$
		]x,
	},
	{
	    # mm/dd/yyyy, mm-dd-yyyy, [hh:mm[:ss[.nnn]]] [am/pm]
	    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]\.?))?
		$
		#x
	},
	]
    }
);