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

            },

        ]

    }

);