File Coverage

blib/lib/Time/Str/Regexp.pm

Criterion	Covered	Total	%
statement	12	12	100.0
branch	1	2	50.0
condition			n/a
subroutine	5	5	100.0
pod	1	1	100.0
total	19	20	95.0

package Time::Str::Regexp;
use strict;
use warnings;
use v5.10.1;

our $VERSION   = '0.80';
our @EXPORT_OK = qw[ $ANSIC_Rx
                     $ASN1GT_Rx
                     $ASN1UT_Rx
                     $CLF_Rx
                     $DateTime_Rx
                     $ECMAScript_Rx
                     $GitDate_Rx
                     $ISO8601_Rx
                     $ISO9075_Rx
                     $RFC2616_Rx
                     $RFC2822_Rx
                     $RFC2822FWS_Rx
                     $RFC3339_Rx
                     $RFC3501_Rx
                     $RFC4287_Rx
                     $RFC5280_Rx
                     $RFC5545_Rx
                     $RFC9557_Rx
                     $RubyDate_Rx
                     $UnixDate_Rx
                     $UnixStamp_Rx
                     $W3CDTF_Rx ];

use Exporter qw[import];

# DateTime
#
#  Parses a broad set of real-world date and time formats, accepting only
#  those that can be parsed deterministically. Numeric-only dates must use
#  Y-M-D order with separators. Any other ordering requires the month to
#  be given as a name or Roman numeral. Every date must include a four-digit
#  year. Optional time components include hours, minutes, seconds, fractional
#  seconds, AM/PM, and time zones. Parsing is structurally deterministic;
#  semantic validation occurs after matching.
#
# ISO 8601 - Date and time format:
#   2012-12-24
#   2012-12-24T15:30
#   2012-12-24T15:30+01
#   2012-12-24T15:30:45,500+01
#
# RFC 3339 - Internet timestamps:
#   2012-12-24T15:30:45+01:00
#   2012-12-24T15:30:45.500+01:00
#
# RFC 9557 - Timestamps with additional information:
#   2012-12-24T15:30:45.500+01:00[Europe/Stockholm]
#
# RFC 2822 - Internet Message Format:
#   Mon, 24 Dec 2012 15:30:45 +0100
#   Mon, 24 Dec 2012 15:30 +0100
#   24 Dec 2012 15:30:45 +0100
#   24 Dec 2012 15:30 +0100
#
# RFC 2616 - HTTP-date:
#   Mon, 24 Dec 2012 15:30:45 GMT
#
# RFC 9051 - IMAP date-time:
#   24-Dec-2012 15:30:45 +0100
#
# ISO 9075 - SQL timestamp w/ and w/o zone:
#   2012-12-24 15:30:45
#   2012-12-24 15:30:45 +01:00
#   2012-12-24 15:30:45.500
#   2012-12-24 15:30:45.500 +01:00
#
# ECMAScript Date.prototype.toString:
#   Mon Dec 24 2012 15:30:45 GMT+0100 (Central European Time)
#
# Long-form Textual:
#   Monday, 24 December 2012, 15:30 GMT+1
#   Monday, 24th December 2012 at 3:30 pm UTC+1 (CET)
#   Monday, December 24, 2012, 3:30 PM
#   December 24th, 2012 at 3:30 PM
#
# Short-form Variations:
#   Dec/24/2012 03:30:45 PM
#   24. XII. 2012 12PM UTC+1 (CET)
#   24DEC2012 12:30:45.500 UTC+1
#   24.Dec.2012 15:30:45
#
our $DateTime_Rx = qr{
  (?(DEFINE)
    (?      (?i: Mon|Tue|Tues|Wed|Thu|Thurs|Fri|Sat|Sun))
    (?       (?i: Monday|Tuesday|Wednesday|Thursday|Friday|
                               Saturday|Sunday))
    (?           (?&DayNameShort) | (?&DayNameLong))
    (?    (?i: Jan|Feb|Mar|Apr|May|Jun|Jul|
                               Aug|Sep|Sept|Oct|Nov|Dec))
    (?     (?i: January|February|March|April|May|June|
                               July|August|September|October|November|December))
    (?         (?&MonthNameShort) | (?&MonthNameLong))
    (?        (?i: I|II|III|IV|V|VI|VII|VIII|IX|X|XI|XII))
    (?      (?&MonthName) | (?&MonthRoman))
    (?     (?i: st|nd|rd|th))
    (?          (?: [AaPp] (?: [Mm] | [.][Mm][.])))
    (?    (?: [+-] (?: [0-9]{4} | [0-9]{2}   (?: [:][0-9]{2})? )))
    (? (?: [+-] (?: [0-9]{4} | [0-9]{1,2} (?: [:][0-9]{2})? )))
    (?    [A-Z][A-Za-z][A-Z]{1,4})
  )

  \A

  (?: (? (?&DayName)) [.]?[,]? [ ] )?

  (?:
      (?:
                   (?  [0-9]{4})
           ([-./]) (? (?&MonthName) | [0-9]{1,2})
           \g{-2}  (?   [0-9]{1,2})
        |
                   (?   [0-9]{1,2})
           ([-./]) (? (?&MonthTextual))
           \g{-2}  (?  [0-9]{4})
        |
                   (? (?&MonthName))
           ([-./]) (?   [0-9]{1,2})
           \g{-2}  (?  [0-9]{4})
      )
    |
      (?:
               (?   [0-9]{1,2} (?&OrdinalSuffix)?) [.]?
           [ ] (? (?&MonthTextual)) [.,]?
           [ ] (?  [0-9]{4})
        |
               (? (?&MonthName)) [.,]?
           [ ] (?   [0-9]{1,2} (?&OrdinalSuffix)?) [,]?
           [ ] (?  [0-9]{4})
      )
    |
      (?:
           (? [0-9]{4})   (? (?&MonthName))    (?  [0-9]{1,2})
        |  (?  [0-9]{1,2}) (? (?&MonthTextual)) (? [0-9]{4})
      )
  )

  (?:

    (?: (?: [ ] (?: [Aa][Tt][ ] )? ) | (?: [,][ ]) | [Tt] )

    # Note: Dot-separated times (HH.MM or HH.MM.SS) are not accepted; only HH:MM
    # or HH:MM:SS are allowed. This avoids ambiguity where ISO 8601 decimal hours
    # could be misinterpreted as hour-minute notation.

    (?:
             (?     [0-9]{1,2})
         [:] (?   [0-9]{2}) (?: [:]  (?   [0-9]{2})
                                    (?: [.,] (? [0-9]{1,9}) )?)?

         (?: [ ]? (? (?&Meridiem)) )?
      |
              (?     [0-9]{1,2})
         [ ]? (? (?&Meridiem))
    )

    (?:

      [ ]?

      (?:
           (? (?&TimeZoneOffset))
        |  (?    (?:GMT|UTC)) (?: (? (?&TimeZoneOffsetUTC)) )?
        |  (?    [Zz])
        |  (? (?&TimeZoneAbbrev))
      )

      # RFC 9557 (IXDTF) annotation tag, e.g. [Europe/Paris]
      (?:
        (? (?: \[ [^\[\]]+ \] )+ )
      )?

      # Parenthesized comment, e.g. (Central European Time)
      (?:
        [ ] (?: \( [^()]+ \) )
      )?

    )?
  )?

  \z
}x;

# ITU-T X.680 (ISO/IEC 8824-1) Abstract Syntax Notation One (ASN.1)
#
#
#
#  ASN.1 GeneralizedTime
#   YYYYMMDDhh[mm[ss]][(.|,)fraction][Z|±hh[mm]]
#
our $ASN1GT_Rx = qr{
   \A

   (?   [0-9]{4})
   (?  [0-9]{2})
   (?    [0-9]{2})
   (?   [0-9]{2}) (?: (? [0-9]{2})
                        (?: (? [0-9]{2}))?)?

   (?: [.,] (? [0-9]{1,9}))?

   (?:
        (? [+-][0-9]{2} (?: [0-9]{2})? )
     |  (?    [Z])
   )?
   \z
}x;

#  ASN.1 UTCTime
#   YYMMDDhhmm[ss](Z|±hhmm)
#
our $ASN1UT_Rx = qr{
   \A

   (?   [0-9]{2})
   (?  [0-9]{2})
   (?    [0-9]{2})
   (?   [0-9]{2})
   (? [0-9]{2}) (?: (? [0-9]{2}))?
   (?:
        (? [+-][0-9]{4})
     |  (?    [Z])
   )
   \z
}x;

# W3 Consortium Date and Time Formats
#
#
#   YYYY
#   YYYY-MM
#   YYYY-MM-DD
#   YYYY-MM-DDThh:mm:ss[.fraction](Z|±hh:mm)
#
our $W3CDTF_Rx = qr{
   \A

   (? [0-9]{4})

   (?: [-] (?  [0-9]{2})
   (?: [-] (?    [0-9]{2})
   (?: [T] (?   [0-9]{2})
       [:] (? [0-9]{2})
       [:] (? [0-9]{2}) (?: [.] (? [0-9]{1,9}) )?
           (?:
                (? [+-][0-9]{2}[:][0-9]{2})
             |  (?    [Z])
           )
   )?)?)?
   \z
}x;

# RFC 2616 Hypertext Transfer Protocol (HTTP/1.1)
#
#
#
#   DDD, DD MMM YYYY hh:mm:ss GMT   # IMF-fixdate
#   DDDD, DD-MMM-YY hh:mm:ss GMT    # RFC 850
#   DDD MMM (_D|DD) hh:mm:ss YYYY   # ANSI C's ctime
#
our $RFC2616_Rx = qr{
  (?(DEFINE)
    (?   (?: Mon|Tue|Wed|Thu|Fri|Sat|Sun))
    (?    (?: Monday|Tuesday|Wednesday|Thursday|Friday|
                            Saturday|Sunday))
    (? (?: Jan|Feb|Mar|Apr|May|Jun|Jul|Aug|Sep|Oct|Nov|Dec))
  )
  \A
  (?:
    # IMF-fixdate
    (?:
          (? (?&DayNameShort)) [,]
      [ ] (?      [0-9]{2})
      [ ] (?    (?&MonthNameShort))
      [ ] (?     [0-9]{4})
      [ ] (?     [0-9]{2})
      [:] (?   [0-9]{2})
      [:] (?   [0-9]{2})
      [ ] (?   GMT)
    )
  | # RFC 850
    (?:
          (? (?&DayNameLong)) [,]
      [ ] (?      [0-9]{2})
      [-] (?    (?&MonthNameShort))
      [-] (?     [0-9]{2})
      [ ] (?     [0-9]{2})
      [:] (?   [0-9]{2})
      [:] (?   [0-9]{2})
      [ ] (?   GMT)
    )
  | # ANSI C's ctime
    (?:
          (? (?&DayNameShort))
      [ ] (?    (?&MonthNameShort))
      (?:
          (?: [ ]{2} (? [0-9]{1}))
        | (?: [ ]{1} (? [0-9]{2}))
      )
      [ ] (?   [0-9]{2})
      [:] (? [0-9]{2})
      [:] (? [0-9]{2})
      [ ] (?   [0-9]{4})
    )
  )
  \z
}x;

# RFC 2822 Internet Message Format (canonical)
#
#
#
#   [DDD,] D MMM YYYY hh:mm[:ss] (±hhmm|UT|UTC|GMT|ZONE) [(comment)]
#
our $RFC2822_Rx = qr{
  (?(DEFINE)
    (?        (?i: Mon|Tue|Wed|Thu|Fri|Sat|Sun))
    (?      (?i: Jan|Feb|Mar|Apr|May|Jun|Jul|Aug|Sep|Oct|Nov|Dec))
    (? [A-Z][A-Za-z][A-Z]{1,4})
  )
  \A
  (?: (? (?&DayName))[,][ ] )?
      (?      [0-9]{1,2})
  [ ] (?    (?&MonthName))
  [ ] (?     [0-9]{4})
  [ ] (?     [0-9]{2})
  [:] (?   [0-9]{2}) (?: [:](? [0-9]{2}))?
  [ ]
  (?:
       (? [+-][0-9]{4})
    |  (?    UT[C]?|GMT)
    |  (? (?&TimeZoneAbbrev))
  )
  (?: [ ] \( [^()]+ \) )?
  \z
}x;

# RFC 2822 Internet Message Format (with folding white space and nested comments)
#
#   [DDD,] D MMM YYYY hh:mm[:ss] (±hhmm|UT|UTC|GMT|ZONE) [(comment)]
#
our $RFC2822FWS_Rx = qr{
  (?(DEFINE)
    (?        (?i: Mon|Tue|Wed|Thu|Fri|Sat|Sun))
    (?      (?i: Jan|Feb|Mar|Apr|May|Jun|Jul|Aug|Sep|Oct|Nov|Dec))
    (? [A-Z][A-Za-z][A-Z]{1,4})
    (?  \( (?: \\\( | \\\) | [^()] | (?&NestedComment) )* \) )
  )
  \A
  (?: \s* (? (?&DayName))[,] )?
  \s* (?    [0-9]{1,2})
  \s+ (?  (?&MonthName))
  \s+ (?   [0-9]{4})
  \s+ (?   [0-9]{2})
  [:] (? [0-9]{2}) (?: [:](? [0-9]{2}))?
  \s+
  (?:
       (? [+-][0-9]{4})
    |  (?    UT[C]?|GMT)
    |  (? (?&TimeZoneAbbrev))
  )
  (?: \s+ (?&NestedComment) )?
  \z
}x;

# RFC 3501 Internet Message Access Protocol (IMAP)
#
#
#
#   DD-MMM-YYYY hh:mm:ss ±hhmm
#
our $RFC3501_Rx = qr{
  (?(DEFINE)
    (? (?i: Jan|Feb|Mar|Apr|May|Jun|Jul|Aug|Sep|Oct|Nov|Dec))
  )
  \A
      (?       [0-9]{2})
  [-] (?     (?&MonthName))
  [-] (?      [0-9]{4})
  [ ] (?      [0-9]{2})
  [:] (?    [0-9]{2})
  [:] (?    [0-9]{2})
  [ ] (? [+-][0-9]{4})
  \z
}x;

# RFC 3339 Date and Time on the Internet: Timestamps
#
#
#   YYYY-MM-DD(T|t|space)hh:mm:ss[.fraction](Z|z|±hh:mm)
#
our $RFC3339_Rx = qr{
  \A
        (?   [0-9]{4})
  [-]   (?  [0-9]{2})
  [-]   (?    [0-9]{2})
  [Tt ] (?   [0-9]{2})
  [:]   (? [0-9]{2})
  [:]   (? [0-9]{2}) (?: [.] (? [0-9]{1,9}) )?
  (?:
       (? [+-][0-9]{2}[:][0-9]{2})
    |  (?    [Zz])
  )
  \z
}x;

# RFC 9557 Date and Time on the Internet: Timestamps with Additional Information
#
#
#   YYYY-MM-DD(T|t|space)hh:mm:ss[.fraction](Z|z|±hh:mm)[TAGS]
#
our $RFC9557_Rx = qr{
  (?(DEFINE)
    (? \[ [0-9A-Za-z!+-._/]+ \])
  )
  \A
        (?   [0-9]{4})
  [-]   (?  [0-9]{2})
  [-]   (?    [0-9]{2})
  [Tt ] (?   [0-9]{2})
  [:]   (? [0-9]{2})
  [:]   (? [0-9]{2}) (?: [.] (? [0-9]{1,9}) )?
  (?:
       (? [+-][0-9]{2}[:][0-9]{2})
    |  (?    [Zz])
  )
  (?:
    (? (?&Tag)+ )
  )?
  \z
}x;

# RFC 4287 Atom Format
#
#
#   YYYY-MM-DDThh:mm:ss[.fraction](Z|±hh:mm)
#
our $RFC4287_Rx = qr{
  \A
      (?   [0-9]{4})
  [-] (?  [0-9]{2})
  [-] (?    [0-9]{2})
  [T] (?   [0-9]{2})
  [:] (? [0-9]{2})
  [:] (? [0-9]{2}) (?: [.] (? [0-9]{1,9}) )?
  (?:
       (? [+-][0-9]{2}[:][0-9]{2})
    |  (?    [Z])
  )
  \z
}x;

# RFC 5280 PKIX Certificate and CRL Profile (x509)
#
#
#   YYMMDDhhmmzzZ
#   YYYYMMDDhhmmssZ
#
our $RFC5280_Rx = qr{
  \A
  (?   [0-9]{2}|[0-9]{4})
  (?  [0-9]{2})
  (?    [0-9]{2})
  (?   [0-9]{2})
  (? [0-9]{2})
  (? [0-9]{2})
  (? [Z])
  \z
}x;

# RFC 5545 iCalendar
#
#
#
#   YYYYMMDD
#   YYYYMMDDThhmmss[Z]
#
our $RFC5545_Rx = qr{
  \A
  (?   [0-9]{4})
  (?  [0-9]{2})
  (?    [0-9]{2})
  (?:
    [T]
    (?   [0-9]{2})
    (? [0-9]{2})
    (? [0-9]{2})
    (? [Z])?
  )?
  \z
}x;

# ISO 8601
#
#
#  Calendar date with optional time of day, a profile of ISO 8601.
#
#   YYYY-MM-DD
#   YYYY-MM-DDThh[:mm[:ss]][(.|,)fraction][Z|±hh[:mm]]
#   YYYYMMDD
#   YYYYMMDDThh[mm[ss]][(.|,)fraction][Z|±hh[mm]]
#
our $ISO8601_Rx = qr{
  \A

  (? [0-9]{4})

  (?: # Extended format
     (?:
           [-] (?  [0-9]{2})
           [-] (?    [0-9]{2})
       (?: [T] (?   [0-9]{2}) (?: [:] (? [0-9]{2})
                                    (?: [:] (? [0-9]{2}))?)?

         (?: [.,] (? [0-9]{1,9}))?

         (?:
              (? [+-][0-9]{2} (?: [:][0-9]{2})? )
           |  (?    [Z])
         )?
       )?
     )
   | # Basic format
     (?:
               (?  [0-9]{2})
               (?    [0-9]{2})
       (?: [T] (?   [0-9]{2}) (?: (? [0-9]{2})
                                    (?: (? [0-9]{2}))?)?

         (?: [.,] (? [0-9]{1,9}))?

         (?:
              (? [+-][0-9]{2} (?: [0-9]{2})? )
           |  (?    [Z])
         )?
       )?
     )
  )
  \z
}x;

# ISO 9075 Database Language SQL — Part 2: Foundation (SQL/Foundation)
#
#
#   YYYY-MM-DD
#   YYYY-MM-DD hh:mm:ss[.fraction]
#   YYYY-MM-DD hh:mm:ss[.fraction] ±hh:mm
#
our $ISO9075_Rx = qr{
  \A
      (?   [0-9]{4})
  [-] (?  [0-9]{2})
  [-] (?    [0-9]{2})
  (?:
    [ ] (?   [0-9]{2})
    [:] (? [0-9]{2})
    [:] (? [0-9]{2}) (?: [.] (? [0-9]{1,9}) )?
    (?:
      [ ] (? [+-][0-9]{2}[:][0-9]{2})
    )?
  )?
  \z
}x;

# ECMAScript Date.prototype.toString
#
#
#   DDD MMM DD YYYY hh:mm:ss [GMT|UTC]±hhmm [comment]
#
our $ECMAScript_Rx = qr{
  (?(DEFINE)
    (?   (?: Mon|Tue|Wed|Thu|Fri|Sat|Sun))
    (? (?: Jan|Feb|Mar|Apr|May|Jun|Jul|Aug|Sep|Oct|Nov|Dec))
  )
  \A
      (? (?&DayName))
  [ ] (?    (?&MonthName))
  [ ] (?      [0-9]{2})
  [ ] (?     [0-9]{4})
  [ ] (?     [0-9]{2})
  [:] (?   [0-9]{2})
  [:] (?   [0-9]{2})
  [ ] (?   UTC|GMT)? (? [+-][0-9]{4})
  (?:
    [ ] (?: \( [^()]+ \) )
  )?
  \z
}x;

# Common Log Format
#
#
#
#   DD/MMM/YYYY:hh:mm:ss[.fraction] ±hhmm
#
our $CLF_Rx = qr{
  (?(DEFINE)
    (? (?: Jan|Feb|Mar|Apr|May|Jun|Jul|Aug|Sep|Oct|Nov|Dec))
  )
  \A
      (?       [0-9]{2})
  [/] (?     (?&MonthName))
  [/] (?      [0-9]{4})
  [:] (?      [0-9]{2})
  [:] (?    [0-9]{2})
  [:] (?    [0-9]{2}) (?: [.] (? [0-9]{1,9}) )?
  [ ] (? [+-][0-9]{4})
  \z
}x;

# ANSI/ISO C ctime
#
#
#
#   DDD MMM (_D|DD) hh:mm:ss YYYY
#
our $ANSIC_Rx = qr{
  (?(DEFINE)
    (?   (?: Mon|Tue|Wed|Thu|Fri|Sat|Sun))
    (? (?: Jan|Feb|Mar|Apr|May|Jun|Jul|Aug|Sep|Oct|Nov|Dec))
  )
  \A
  (?:
        (? (?&DayName))
    [ ] (?    (?&MonthName))
    (?:
        (?: [ ]{2} (? [0-9]{1}))
      | (?: [ ]{1} (? [0-9]{2}))
    )
    [ ] (?   [0-9]{2})
    [:] (? [0-9]{2})
    [:] (? [0-9]{2})
    [ ] (?   [0-9]{4})
  )
  \z
}x;

# Git Date
#
#
#  The default date format used by Git.
#
#   DDD MMM D hh:mm:ss YYYY ±hhmm
#
our $GitDate_Rx = qr{
  (?(DEFINE)
    (?   (?: Mon|Tue|Wed|Thu|Fri|Sat|Sun))
    (? (?: Jan|Feb|Mar|Apr|May|Jun|Jul|Aug|Sep|Oct|Nov|Dec))
  )
  \A
      (?  (?&DayName))
  [ ] (?     (?&MonthName))
  [ ] (?       [0-9]{1,2})
  [ ] (?      [0-9]{2})
  [:] (?    [0-9]{2})
  [:] (?    [0-9]{2})
  [ ] (?      [0-9]{4})
  [ ] (? [+-][0-9]{4})
  \z
}x;

# Ruby Date
#
#  Popularized by Ruby on Rails and Twitter.
#
#   DDD MMM DD hh:mm:ss ±hhmm YYYY
#
our $RubyDate_Rx = qr{
  (?(DEFINE)
    (?   (?: Mon|Tue|Wed|Thu|Fri|Sat|Sun))
    (? (?: Jan|Feb|Mar|Apr|May|Jun|Jul|Aug|Sep|Oct|Nov|Dec))
  )
  \A
      (?  (?&DayName))
  [ ] (?     (?&MonthName))
  [ ] (?       [0-9]{2})
  [ ] (?      [0-9]{2})
  [:] (?    [0-9]{2})
  [:] (?    [0-9]{2})
  [ ] (? [+-][0-9]{4})
  [ ] (?      [0-9]{4})
  \z
}x;

# Unix Date
#
#
#  The date command output format.
#
#   DDD MMM (_D|DD) hh:mm:ss (±hhmm|UTC|GMT|ZONE) YYYY
#   DDD MMM (_D|DD) hh:mm:ss YYYY (±hhmm|UTC|GMT|ZONE)
#
our $UnixDate_Rx = qr{
  (?(DEFINE)
    (?        (?: Mon|Tue|Wed|Thu|Fri|Sat|Sun))
    (?      (?: Jan|Feb|Mar|Apr|May|Jun|Jul|Aug|Sep|Oct|Nov|Dec))
    (? [A-Z][A-Za-z][A-Z]{1,4})
    (? [+-][0-9]{4})
  )
  \A
  (?:
        (? (?&DayName))
    [ ] (?    (?&MonthName))
    (?:
        (?: [ ]{2} (? [0-9]{1}))
      | (?: [ ]{1} (? [0-9]{2}))
    )
    [ ] (?   [0-9]{2})
    [:] (? [0-9]{2})
    [:] (? [0-9]{2})
    [ ]
    (?:
        (?:
             (? (?&TimeZoneOffset))
          |  (?    UTC|GMT)
          |  (? (?&TimeZoneAbbrev))
        )
        [ ] (? [0-9]{4})
      |
            (? [0-9]{4})
        [ ]
        (?:
             (? (?&TimeZoneOffset))
          |  (?    UTC|GMT)
          |  (? (?&TimeZoneAbbrev))
        )
    )
  )
  \z
}x;

# UnixStamp
#
#  Unix date based format with optional fractional seconds and timezone
#
#   [DDD ]MMM (_D|D|DD) hh:mm[:ss[.fraction]] [±hhmm|UTC|GMT|ZONE] YYYY
#   [DDD ]MMM (_D|D|DD) hh:mm[:ss[.fraction]] YYYY [±hhmm|UTC|GMT|ZONE]
#
our $UnixStamp_Rx = qr{
  (?(DEFINE)
    (?        (?: Mon|Tue|Wed|Thu|Fri|Sat|Sun))
    (?      (?: Jan|Feb|Mar|Apr|May|Jun|Jul|Aug|Sep|Oct|Nov|Dec))
    (? [A-Z][A-Za-z][A-Z]{1,4})
    (? [+-][0-9]{4})
  )
  \A
  (?:
    (?: (? (?&DayName)) [ ] )?
        (?  (?&MonthName))
    (?:
        (?: [ ]{2} (? [0-9]{1}))
      | (?: [ ]{1} (? [0-9]{1,2}))
    )
    [ ] (?   [0-9]{2})
    [:] (? [0-9]{2}) (?: [:] (?   [0-9]{2})
                             (?: [.] (? [0-9]{1,9}) )?)?
    [ ]
    (?:
        (?:
             (? (?&TimeZoneOffset))
          |  (?    UTC|GMT) (?: (? (?&TimeZoneOffset)) )?
          |  (? (?&TimeZoneAbbrev))
        )
        [ ] (? [0-9]{4})
      |
            (? [0-9]{4})
        (?:
          [ ]
          (?:
               (? (?&TimeZoneOffset))
            |  (?    UTC|GMT) (?: (? (?&TimeZoneOffset)) )?
            |  (? (?&TimeZoneAbbrev))
          )?
        )?
    )
  )
  \z
}x;

my %RegexpMap = (
  ansic      => $ANSIC_Rx,
  asn1gt     => $ASN1GT_Rx,
  asn1ut     => $ASN1UT_Rx,
  clf        => $CLF_Rx,
  datetime   => $DateTime_Rx,
  ecmascript => $ECMAScript_Rx,
  gitdate    => $GitDate_Rx,
  iso8601    => $ISO8601_Rx,
  iso9075    => $ISO9075_Rx,
  rfc2616    => $RFC2616_Rx,
  rfc2822    => $RFC2822_Rx,
  rfc2822fws => $RFC2822FWS_Rx,
  rfc3339    => $RFC3339_Rx,
  rfc3501    => $RFC3501_Rx,
  rfc4287    => $RFC4287_Rx,
  rfc5280    => $RFC5280_Rx,
  rfc5545    => $RFC5545_Rx,
  rfc9557    => $RFC9557_Rx,
  rubydate   => $RubyDate_Rx,
  unixdate   => $UnixDate_Rx,
  unixstamp  => $UnixStamp_Rx,
  w3cdtf     => $W3CDTF_Rx,
);

sub mapping {
  return wantarray ? %RegexpMap : { %RegexpMap };
}

1;