--- /dev/null
+# Contributor Covenant Code of Conduct
+
+## Our Pledge
+
+In the interest of fostering an open and welcoming environment, we as
+contributors and maintainers pledge to making participation in our project and
+our community a harassment-free experience for everyone, regardless of age,
+body size, disability, ethnicity, gender identity and expression, level of
+experience, education, socio-economic status, nationality, personal
+appearance, race, religion, or sexual identity and orientation.
+
+## Our Standards
+
+Examples of behavior that contributes to creating a positive environment
+include:
+
+* Using welcoming and inclusive language
+* Being respectful of differing viewpoints and experiences
+* Gracefully accepting constructive criticism
+* Focusing on what is best for the community
+* Showing empathy towards other community members
+
+Examples of unacceptable behavior by participants include:
+
+* The use of sexualized language or imagery and unwelcome sexual attention or
+ advances
+* Trolling, insulting/derogatory comments, and personal or political attacks
+* Public or private harassment
+* Publishing others' private information, such as a physical or electronic
+ address, without explicit permission
+* Other conduct which could reasonably be considered inappropriate in a
+ professional setting
+
+## Our Responsibilities
+
+Project maintainers are responsible for clarifying the standards of acceptable
+behavior and are expected to take appropriate and fair corrective action in
+response to any instances of unacceptable behavior.
+
+Project maintainers have the right and responsibility to remove, edit, or
+reject comments, commits, code, wiki edits, issues, and other contributions
+that are not aligned to this Code of Conduct, or to ban temporarily or
+permanently any contributor for other behaviors that they deem inappropriate,
+threatening, offensive, or harmful.
+
+## Scope
+
+This Code of Conduct applies both within project spaces and in public spaces
+when an individual is representing the project or its community. Examples of
+representing a project or community include using an official project e-mail
+address, posting via an official social media account, or acting as an
+appointed representative at an online or offline event. Representation of a
+project may be further defined and clarified by project maintainers.
+
+## Enforcement
+
+Instances of abusive, harassing, or otherwise unacceptable behavior may be
+reported by contacting the project team at autarch@urth.org. All complaints
+will be reviewed and investigated and will result in a response that is deemed
+necessary and appropriate to the circumstances. The project team is obligated
+to maintain confidentiality with regard to the reporter of an incident.
+Further details of specific enforcement policies may be posted separately.
+
+Project maintainers who do not follow or enforce the Code of Conduct in good
+faith may face temporary or permanent repercussions as determined by other
+members of the project's leadership.
+
+## Attribution
+
+This Code of Conduct is adapted from the [Contributor Covenant][homepage],
+version 1.4, available at
+https://www.contributor-covenant.org/version/1/4/code-of-conduct.html
+
+[homepage]: https://www.contributor-covenant.org
+
--- /dev/null
+# CONTRIBUTING
+
+Thank you for considering contributing to this distribution. This file
+contains instructions that will help you work with the source code.
+
+Please note that if you have any questions or difficulties, you can reach the
+maintainer(s) through the bug queue described later in this document
+(preferred), or by emailing the releaser directly. You are not required to
+follow any of the steps in this document to submit a patch or bug report;
+these are just recommendations, intended to help you (and help us help you
+faster).
+
+The distribution is managed with
+[Dist::Zilla](https://metacpan.org/release/Dist-Zilla).
+
+However, you can still compile and test the code with the
+`Makefile.PL`
+in the repository:
+
+ perl Makefile.PL
+ make
+ make test
+
+
+You may need to satisfy some dependencies. The easiest way to satisfy
+dependencies is to install the last release. This is available at
+https://metacpan.org/release/DateTime
+
+You can use [`cpanminus`](https://metacpan.org/pod/App::cpanminus) to do this
+without downloading the tarball first:
+
+ $> cpanm --reinstall --installdeps --with-recommends DateTime
+
+[`Dist::Zilla`](https://metacpan.org/pod/Dist::Zilla) is a very powerful
+authoring tool, but requires a number of author-specific plugins. If you would
+like to use it for contributing, install it from CPAN, then the following
+command to install the needed distros:
+
+ $> dzil authordeps --missing | cpanm
+
+There may also be additional requirements not needed by the dzil build which
+are needed for tests or other development:
+
+ $> dzil listdeps --author --missing | cpanm
+
+Or, you can use the 'dzil stale' command to install all requirements at once:
+
+ $> cpanm Dist::Zilla::App::Command::stale
+ $> dzil stale --all | cpanm
+
+You can also do this via cpanm directly:
+
+ $> cpanm --reinstall --installdeps --with-develop --with-recommends DateTime
+
+Once installed, here are some dzil commands you might try:
+
+ $> dzil build
+ $> dzil test
+ $> dzil test --release
+ $> dzil xtest
+ $> dzil listdeps --json
+ $> dzil build --notgz
+
+You can learn more about Dist::Zilla at http://dzil.org/.
+
+The code for this distribution is [hosted on GitHub](https://github.com/houseabsolute/DateTime.pm).
+
+You can submit code changes by forking the repository, pushing your code
+changes to your clone, and then submitting a pull request. Please update the
+Changes file with a user-facing description of your changes as part of your
+work. See the GitHub documentation for [detailed instructions on pull
+requests](https://help.github.com/articles/creating-a-pull-request)
+
+If you have found a bug, but do not have an accompanying patch to fix it, you
+can submit an issue report [via the web](https://github.com/houseabsolute/DateTime.pm/issues).
+
+## Continuous Integration
+
+All pull requests for this distribution will be automatically tested using
+[Azure Pipelines](https://dev.azure.com/houseabsolute/houseabsolute/_build).
+
+All CI results will be visible in the pull request on GitHub. Follow the
+appropriate links for details when tests fail. PRs cannot be merged until tests
+pass.
+
+## Precious
+
+This distribution uses [precious](https://github.com/houseabsolute/precious)
+to enforce a uniform coding style. This is tested as part of the author
+testing suite. You can install this and any other necessary non-Perl tools by
+running `./dev-bin/install-xt-tools.sh`.
+
+Then you can use `precious` to tidy and lint your code:
+
+ $> precious tidy -a
+ $> precious lint -a
+
+Please run `precious tidy -a` and `precious lint -a` before committing your
+changes and address any issues that it reports.
+
+You can also set up a git pre-commit hook that checks all changed files for
+linting issues by running `./git/setup.pl`.
+
+## Contributor Names
+
+If you send a patch or pull request, your name and email address will be
+included in the documentation as a contributor (using the attribution on the
+commit or patch), unless you specifically request for it not to be. If you
+wish to be listed under a different name or address, you should submit a pull
+request to the `.mailmap` file to contain the correct mapping.
+
+## Generated By
+
+This file was generated via Dist::Zilla::Plugin::GenerateFile::FromShareDir 0.015 from a
+template file originating in Dist-Zilla-PluginBundle-DROLSKY-1.22.
--- /dev/null
+The core implementations for the DateTime.pm and DateTime::Duration
+modules originally came from Date::ICal and Date::ICal::Duration, both
+of which were written by Rich Bowen <rbowen@rcbowen.com> with help
+from the Reefknot team. Nowadays much of this code has been rewritten
+to the point that it is fundamentally original work.
+
+Parts of the API come from Time::Piece, by Matt Sergeant
+<matt@sergeant.org>, who had help from Jarkko Hietaniemi <jhi@iki.fi>.
+That API was originally created by Larry Wall. None of the code is
+shared.
+
+The DateTime::Locale functionality is based in part on the
+Date::Language modules that come with Graham Barr's <gbarr@pobox.com>
+TimeDate module suite. The strftime method in this module also
+borrows heavily from Graham's implementation.
+
+The week number and week year algorithms were taken from Steffen
+Beyer's Date::Calc module, but rewritten in Perl from scratch.
+
+The code for handling nanoseconds and the code for leap seconds were
+both largely written by Flavio Soibelmann Glock, who also has
+contributed various other features and fixes.
+
+Many others have helped out with code, ideas, and bug reports. See
+the Changes file for details.
--- /dev/null
+1.65 2023-11-05
+
+- This release is the same as 1.64. This release fixes builds on macOS with
+ Perls before 5.22.0. Reported by Simon Sawert. GH #141.
+
+
+1.64 2023-10-29 (TRIAL RELEASE)
+
+- Fix builds on macOS with Perls before 5.22.0. This seems to have the same
+ issue as Windows on older Perls. Reported by Simon Sawert. GH #141.
+
+
+1.63 2023-10-22
+
+- This release is the same as 1.62. This releases fixes quadmath builds on
+ Windows. Reported by @sisyphus. GH #139.
+
+
+1.62 2023-09-04 (TRIAL RELEASE)
+
+- This is take 3 of trying to use `Perl_isfinite` where it's available. Now we
+ simply don't use it on Windows unless the Perl version is 5.22.0 or later.
+
+
+1.61 2023-09-02 (TRIAL RELEASE)
+
+- Fix use of the `Perl_isfinite` function on platforms where this is
+ broken. On Windows with Perl <= 5.20, it seems like `Perl_isfinite` exists
+ but it calls `Perl_isinf` and `Perl_isnan`, which don't exist.
+
+
+1.60 2023-08-19 (TRIAL RELEASE)
+
+- Switched to using the `Perl_isfinite` function instead of trying to
+ implement this ourselves in XS code. This should fix quadmath builds on
+ Windows. Reported by @sisyphus. GH #139.
+
+
+1.59 2022-10-23
+
+- Fixed tests to pass with DateTime::Locale 1.37+. Reported by Slaven
+ Rezić. GH #34.
+
+
+1.58 2022-04-18
+
+- Fixed tests so that they ignore the value set in the
+ `PERL_DATETIME_DEFAULT_TZ` env var, if one exists. Reported by Ian Gibbs. GH
+ #128.
+
+
+1.57 2022-03-03
+
+- The last release would die if Sub::Util was not available, but this should
+ just be an optional requirement. Fixed by Paul Howarth. GH #131.
+
+- This is the second time I've introduced this bug, so now there's a test to
+ make sure that DateTime can be loaded if Sub::Util is not
+ installed. Hopefully this will prevent a third occurrence of this bug.
+
+
+1.56 2022-03-02
+
+- The DateTime->from_epoch constructor now accepts a single, non-hashref
+ argument, and validates it as an epoch value. Requested by Neil Bowers. GH
+ #119.
+
+
+1.55 2021-12-23
+
+- Another documentation fix release. This fixes some mistakes, fixes some
+ broken links, and removes all references to the long-dead datetime.perl.org
+ site.
+
+
+1.54 2020-12-04
+
+- This release contains a lot of small documentation revisions, both to
+ formatting and content.
+
+
+1.53 2020-11-08
+
+- Added a $dt->rfc3339 method. Based on discussion in GH #109 by worthmine.
+
+
+1.52 2020-02-29
+
+- Added a $dt->is_between($dt1, $dt2) method. Based on GH #97 by philip r
+ brenan.
+
+- Simplify the calculation of leap seconds in XS. This is a little more
+ efficient for most use cases (anything with future or recent past
+ datetimes). Contributed by Mark Overmeer. GH #91.
+
+
+1.51 2019-04-21
+
+- Fix CLDR formatting of 'S' pattern with more than 9 digits of
+ precision. While we only store nanoseconds in the DateTime object we should
+ still be able to handle an arbitrary number of digits properly. Fixed by
+ Slaven Rezić. GH #89.
+
+
+1.50 2018-08-01
+
+- The %F strftime pattern incorrectly zero-padded numbers less than four
+ digits. According to POSIX::strftime, this should output the year as-is
+ without padding. Reported by Andy Lester. GH #83.
+
+
+1.49 2018-05-20
+
+- Updated the ppport.h with the latest version of Devel::PPPort. This fixes a
+ compilation warning when compiling with 5.27.11. Reported by Jim
+ Keenan. Fixed GH #81.
+
+
+1.48 2018-03-26
+
+- The last release would die if Sub::Util was not available, but this should
+ just be an optional requirement. Fixed by Paul Howarth. Fixes GH #77. PR
+ #78.
+
+
+1.47 2018-03-25
+
+- DateTime::Duration->multiply now only allows integer
+ multipliers. Implemented by Dan Stewart. PR #73.
+
+- Added is_last_day_of_quarter() and is_last_day_of_year()
+ methods. Implemented by Dan Stewart. PR #72.
+
+- When an exception was thrown while adding a duration the object could be
+ left in a broken state, with the duration partially applied. Subsequent
+ addition or subtraction would produce the wrong results. Reported by Pawel
+ Pabian. GH #74.
+
+
+1.46 2018-02-11
+
+- Fixed the formatting for the CLDR "S" symbol. It could in some cases round
+ _up_ to 1 instead of truncating a value. For example, the "SSS" symbol would
+ format 999,999,999 nanoseconds as "1.000". Fixed by Gianni Ceccarelli. PR
+ #71.
+
+
+1.45 2017-12-26
+
+- Added month_length(), quarter_length() and year_length()
+ methods. Implemented by Dan Stewart. PR #70.
+
+
+1.44 2017-08-20
+
+- Added a stringify() method. This does exactly the same thing as
+ stringification overloading does. GH #58.
+
+- Added an is_last_day_of_month() method to indicate whether or not an object
+ falls on the last day of its month. GH #60.
+
+
+1.43 2017-05-29
+
+- Added a small optimization for boolification overloading. Rather than
+ relying on a fallback to stringification, we now return true directly, which
+ is a little faster in cases like "if ($might_be_dt) { ... }".
+
+- The datetime() method now accepts a single argument to use as the separator
+ between the date and time portion. This defaults to "T".
+
+
+1.42 2016-12-25
+
+- The DateTime::Duration->add and ->subtract methods now accept
+ DateTime::Duration objects. This used to work by accident, but this is now
+ done intentionally (with docs and tests). Reported by Petr Pisar. GitHub
+ #50.
+
+
+1.41 2016-11-16
+
+- The DateTime->add and ->subtract methods now accept DateTime::Duration
+ objects. This used to work by accident, but this is now done intentionally
+ (with docs and tests). Based on PR #45 from Sam Kington.
+
+
+1.40 2016-11-12
+
+- Switched from RT to the GitHub issue tracker.
+
+
+1.39 2016-09-17
+
+- Bump minimum required Perl to 5.8.4 from 5.8.1. Looking at CPAN Testers,
+ this distro hasn't actually passed with earlier Perl versions since
+ 1.35. I'm not explicitly testing with anything earlier than 5.8.8
+
+
+1.38 2016-09-16
+
+- This release includes changes from past trial releases to switch from
+ Params::Validate and Params::ValidationCompiler. Relevant release notes from
+ those trial releases are repeated here for clarity.
+
+- Replaced Params::Validate with Params::ValidationCompiler and Specio. In my
+ benchmarks this makes constructing a new DateTime object about 14%
+ faster. However, it slows down module load time by about 100 milliseconds
+ (1/10 of a second) on my desktop system with a primed cache (so really
+ measuring compile time, not disk load time).
+
+- When you pass a locale to $dt->set you will now get a warning suggesting you
+ should use $dt->set_locale instead. The previous trial releases didn't allow
+ locale to be passed at all, which broke a lot of modules. I've sent PRs, but
+ for now the parameter should be allowed (but discouraged). Reported by
+ Slaven Rezić. RT #115420.
+
+- Removed the long-deprecated DateTime->DefaultLanguage method. Use
+ DefaultLocale instead.
+
+- Removed the long-deprecated "language" constructor parameter. Use "locale"
+ instead.
+
+
+1.37 2016-08-14 (TRIAL RELEASE)
+
+- Require the latest Params::ValidationCompiler (0.11).
+
+
+1.36 2016-08-06
+
+- Require namespace::autoclean 0.19.
+
+
+1.35 2016-08-05
+
+- Use namespace::autoclean in all packages which import anything. Without
+ cleaning the namespace, DateTime ends up with "methods" like try and catch
+ (from Try::Tiny), which can lead to very confusing bugs. Reported by Mischa
+ Schwieger. RT #115983.
+
+
+1.34 2016-07-06
+
+- Added the leap second coming on December 31, 2016.
+
+
+1.33 2016-06-29
+
+- Fixed the $dt->set docs to say that you cannot pass a locale (even though
+ you can but you'll get a warning) and added more docs for $dt->set_locale.
+
+- Require DateTime::Locale 1.05.
+
+- Require DateTime::TimeZone 2.00.
+
+
+1.32 2016-06-28
+
+- This release *does not* include any of the changes in the 1.29-1.30 TRIAL
+ releases.
+
+- When you pass a locale to $dt->set you will now get a warning suggesting you
+ should use $dt->set_locale instead. If you have DateTime::Format::Mail
+ installed you should upgrade to 0.0403 or later, since that module will
+ trigger this warning.
+
+- Added support for $dt->truncate( to => 'quarter' ). Implemented by Michael
+ Conrad. GitHub #17.
+
+
+1.31 2016-06-18 (TRIAL RELEASE)
+
+- When you pass a locale to $dt->set you will now get a warning suggesting you
+ should use $dt->set_locale instead. The previous trial releases didn't allow
+ locale to be passed at all, which broke a lot of modules. I've sent PRs, but
+ for now the parameter should be allowed (but discouraged). Reported by
+ Slaven Rezić. RT #115420.
+
+
+1.30 2016-06-18 (TRIAL RELEASE)
+
+- Require the latest version of Params::ValidationCompiler (0.06). Tests failed
+ with 0.01.
+
+
+1.29 2016-06-17 (TRIAL RELEASE)
+
+- Replaced Params::Validate with Params::ValidationCompiler and Specio. In my
+ benchmarks this makes constructing a new DateTime object about 14%
+ faster. However, it slows down module load time by about 100 milliseconds
+ (1/10 of a second) on my desktop system with a primed cache (so really
+ measuring compile time, not disk load time).
+
+
+1.28 2016-05-21
+
+- Fixed handling of some floating point epochs. Because DateTime treated the
+ epoch like a string instead of a number, certain epochs with a non-integer
+ value ended up treated like integers (Perl is weird). Patch by Christian
+ Hansen. GitHub #15. This also addresses the problem that GitHub #6 brought
+ up. Addresses RT #96452, reported by Slaven Rezić.
+
+
+1.27 2016-05-13
+
+- Added an environment variable PERL_DATETIME_DEFAULT_TZ to globally set the
+ default time zone. Using this is very dangerous! Be careful!. Patch by
+ Ovid. GitHub #14.
+
+
+1.26 2016-03-21
+
+- Switched from Module::Build to ExtUtils::MakeMaker. Implementation by Karen
+ Etheridge. GitHub #13.
+
+
+1.25 2016-03-06
+
+- DateTime->from_object would die if given a DateTime::Infinite object. Now it
+ returns another DateTime::Infinite object. Reported by Greg Oschwald. RT
+ #112712.
+
+
+1.24 2016-02-29
+
+- The last release partially broke $dt->time. If you passed a value to use as
+ unit separator, this was ignored. Reported by Sergiy Zuban. RT #112585.
+
+
+1.23 2016-02-28
+
+- Make all DateTime::Infinite objects return the system's representation of
+ positive or negative infinity for any method which returns a number of
+ string representation (year(), month(), ymd(), iso8601(), etc.). Previously
+ some of these methods could return "Nan", "-Inf--Inf--Inf", and other
+ confusing outputs. Reported by Greg Oschwald. RT #110341.
+
+
+1.22 2016-02-21 (TRIAL RELEASE)
+
+- Fixed several issues with the handling of non-integer values passed to
+ from_epoch().
+
+ This method was simply broken for negative values, which would end up being
+ incremented by a full second, so for example -0.5 became 0.5.
+
+ The method did not accept all valid float values. Specifically, it did not
+ accept values in scientific notation.
+
+ Finally, this method now rounds all non-integer values to the nearest
+ millisecond. This matches the precision we can expect from Perl itself (53
+ bits) in most cases.
+
+ Patch by Christian Hansen. GitHub #11.
+
+
+1.21 2015-09-30
+
+- Make all tests pass with both the current DateTime::Locale and the upcoming
+ new version (currently still in trial releases).
+
+
+1.20 2015-07-01
+
+- The 1.18 release added the June 30, 2015 leap second to the XS code, but I
+ forgot to update the corresponding pure Perl implementation in
+ DateTime::LeapSecond.
+
+
+1.19 2015-05-31
+
+- If you compared a DateTime object to an undef value, you might have received
+ a warning pointing to code inside DateTime.pm, instead of in your own
+ code. Fixed by Jason McIntosh. GH #7.
+
+- The 30future-tz.t could fail if run at certain very specific times. This
+ should now be much less likely, unless a time zone being tested implements a
+ DST change at noon (which would be even more insane than DST already is by a
+ huge factor). Reported by Karen Etheridge and diagnosed by Slaven Rezić. RT
+ #102925.
+
+
+1.18 2015-01-05
+
+- There will be a new leap second on June 30, 2015.
+
+
+1.17 2015-01-04
+
+- No code changes from the 1.16 release.
+
+
+1.16 2015-01-04 (TRIAL RELEASE)
+
+- Test fix for systems where IVs are 4 bytes long.
+
+
+1.15 2015-01-03 (TRIAL RELEASE)
+
+- Trying this again ... Experimental fix for adding very large numbers of
+ days. Previously, trying to add more than around 2^28 days could cause
+ errors if the result ended up in a leap year. This is being released as a
+ trial release because I'm not sure how this change will behave on a 32-bit
+ Perl. Reported by KMX. RT #97046.
+
+
+1.14 2015-01-03
+
+- Accidentally released 1.13 as a non-TRIAL release. Releasing 1.13 minus the
+ integer change so there's a known-safe stable release on CPAN for people to
+ install.
+
+
+1.13 2015-01-03
+
+* This release was deleted from CPAN.
+
+- Experimental fix for adding very large numbers of days. Previously, trying
+ to add more than around 2^28 days could cause errors if the result ended up
+ in a leap year. This is being released as a trial release because I'm not
+ sure how this change will behave on a 32-bit Perl. Reported by KMX. RT
+ #97046.
+
+- Various small doc chances to address RT #96958, #98733, and #101262.
+
+
+1.12 2014-08-31
+
+- The last release had the wrong repo info in the metadata.
+
+
+1.11 2014-08-31
+
+- The latest historical changes in DateTime::TimeZone 1.74 caused some tests
+ to fail. Reported by Slaven Rezić. RT #98483.
+
+- This release of DateTime.pm now requires the DateTime::TimeZone 1.74.
+
+
+1.10 2014-05-05
+
+- Some tests added in 1.09 would fail on a Perl without a 64-bit
+ gmtime(). Reported by Jerome Eteve. RT #95345.
+
+
+1.09 2014-05-03
+
+- A call to ->truncate( to => 'week' ) could fail but leave the object
+ changed. RT #93347.
+
+- The value of ->jd() is now calculated based on ->mjd() instead of the other
+ way around. This reduces floating point errors a bit when calculating MJD,
+ and should have a neglible impact on the accuracy of JD. Reported by Anye
+ Li. RT #92972. See the ticket for a more detailed description of what this
+ fixes.
+
+- Attempting to construct a DateTime object with a year >= 5000 and a time
+ zone other than floating or DST now issues a warning. This warning may go
+ away once DateTime::TimeZone is made much faster. Inspired by a bug report
+ from Lloyd Fournier. RT #92655.
+
+
+1.08 2014-03-11
+
+- DateTime now calls DateTime->_core_time() instead of calling Perl's time()
+ built-in directly. This makes it much easier to override the value of time()
+ that DateTime sees. This may make it easier to write tests for code that
+ uses DateTime .
+
+
+1.07 2014-02-06
+
+- Added a hack to get this module working on Android. RT #92671.
+
+
+1.06 2013-12-31
+
+- DateTime's attempt to generate infinity by calculating 9**9**9 actually got
+ a number on some platforms, like powerpcspe. Reported by Gregor Hermann. RT
+ #91696.
+
+
+1.05 2013-12-22
+
+- Added a new CLDR ZZZZZ specifier, which is like ZZZ but inserts a
+ colon. Patch by Ricardo Signes.
+
+- Added a new option for the truncate() method to truncate to the
+ "local_week". This truncates to the locale's notion of the first day of the
+ week, rather than always truncating to Monday. Patch by Christian Hansen.
+
+
+1.04 2013-12-07
+
+- Calling set_locale() or set_formatter() on an object with an ambiguous local
+ time could change the underlying UTC time for that object. Reported by Marta
+ Cuaresma Saturio. RT #90583.
+
+
+1.03 2013-04-17
+
+- The set_time_zone() method was not returning the object when called with a
+ name that matched the current zone. Reported by Noel Maddy. RT #84699.
+
+
+1.02 2013-04-15
+
+- When a constructor method like new() or today() was called on an object,
+ you'd get an error message like 'Can't locate object method
+ "_normalize_nanoseconds" via package "2013-04-15T00:00:00"'. This has been
+ fixed to provide a sane error message. Patch by Doug Bell.
+
+- When set_time_zone() is called with a name that matches the current time
+ zone, DateTime now short circuits and avoids a lot of work. Patch by Mark
+ Stosberg.
+
+
+1.01 2013-04-01
+
+- Fixed test failures on older Perls.
+
+
+1.00 2013-03-31
+
+- Bumped the version to 1.00. This is mostly because my prior use of both X.YY
+ and X.YYYY versions causes trouble for some packaging systems. Plus after 10
+ years it's probably ready to be called 1.00. Requested by Adam. RT #82800.
+
+- The %j specifier for strftime was not zero-padding 1 and 2 digit
+ numbers. Fixed by Christian Hansen. RT #84310.
+
+- The truncate method was sloppy about validating its "to" parameter, so you
+ could pass things like "years" or "month whatever anything goes". The method
+ would accept the parameter but then not actually truncate the object. RT
+ #84229.
+
+- Previously, if a call to $dt->set_time_zone() failed it would still change
+ the time zone of the object, leaving it in a broken state. Reported by Bill
+ Moseley. RT #83940.
+
+- DateTime::Infinite objects should no longer die when methods that require a
+ locale are called. Instead, these methods return undef for names and
+ Inf/-Inf for numbers. This affects methods such as day_name() as well as
+ CLDR and strftime formats. When a locale-specific format is used (like the
+ "full" datetime format) it uses the en_US format. Reported by Paul
+ Boldra. RT #67550.
+
+
+0.78 2012-11-16
+
+- Reverted the change to round nanoseconds up or down in various
+ situtations. Now we always round down. This avoids the case where rounding
+ up would require us to then increment the second value (which could then
+ require us to increment the minute, which could then require us to increment
+ the hour, which could then ...).
+
+ In other words, we don't want to round 2011-12-31T23:59:59.999999 up to
+ 2012-01-01T00:00:00, because that would be insane.
+
+ This applies to the return values for ->microsecond, ->millisecond, and the
+ %N specifier for strftime.
+
+ Patch by Martin Hasch. RT #79845.
+
+
+0.77 2012-09-25
+
+- POD changes that should make the documentation look better, especially on
+ the web.
+
+
+0.76 2012-07-01
+
+- The DateTime->subtract method ignored the end_of_month parameter. Patch by
+ Chris Reinhardt. RT #77844.
+
+
+0.75 2012-06-11
+
+- The epoch for years 1-999 was broken because Time::Local is "clever". A pox
+ on all clever APIs, I say! Reported by Christian Hansen. RT #77719.
+
+- Shut up compilation warning from 5.17.x. Reported by Tom Wyant. RT #77490.
+
+
+0.74 2012-03-22
+
+- Small packaging fix for metacpan's benefit. No need to upgrade.
+
+
+0.73 2012-03-17
+
+- Change tests to work with Zefram's entirely rebuilt DateTime::TimeZone
+ distribution, which will replace the current implementation. Patch by
+ Zefram. RT #75757.
+
+
+0.72 2012-01-05
+
+- Remove Test::DependentModules from the dep list. This is used by some
+ author-only tests. Reported by Zefram.
+
+
+0.71 2012-01-05
+
+- There will be a new leap second on June 30, 2012.
+
+
+0.70 2011-05-09
+
+- Really fix %N, finally. This was breaking the DateTime::Event::Recurrence
+ test suite. Patch by Dagfinn Ilmari Mannsåker.
+
+
+0.69 2011-05-03
+
+- When a DateTime object had nanoseconds == 0, the %N strftime specifier
+ always returned "0" regardless of the precision requested. Reported by John
+ Siracusa. RT #67928.
+
+
+0.68 2011-04-25
+
+- The tests for %N in the last release relied on the vagaries of floating
+ point math on a 64-bit system. Now the from_epoch() method just uses string
+ operations to separate the epoch into an integer value and a mantissa. This
+ avoids floating point insanity. Reported by zefram. RT #67736.
+
+
+0.67 2011-04-24
+
+- The %N strftime specifier simply truncated nanoseconds, rather than rounding
+ them. Reported by Michael R. Davis. RT #66744.
+
+- The %U strftime specifier was off by one in years where January 1st was a
+ Sunday. Patch by Christian Hansen. RT #67631.
+
+- The %W strftime specifier was off by one in years where January 1st was a
+ Sunday or Monday. Patch by Christian Hansen. RT #67631.
+
+- Some small optimizations from Christian Hansen. The biggest impact is for
+ calculating week_of_month, week_number, and week_year.
+
+- This distro now requires Perl 5.8.1+ (it implicitly did this anyway now that
+ Params::Validate is 5.8.1+).
+
+
+0.66 2010-11-26
+
+- A bunch of documentation cleanup. No code changes.
+
+
+0.65 2010-10-25
+
+- Actually put the right $VERSION in every package. No other changes.
+
+
+0.64 2010-10-25
+
+* All the constructors besides new() ended up calling new(), which meant that
+ these constructors went through the parameter validation code
+ twice. Avoiding this should make everything that constructs a new object
+ (besides new() itself) a little faster.
+
+ ** This change breaks DateTime::Fiscal::Retail454, but no other modules, to
+ the best of my knowledge. **
+
+- The t/39no-so.t test failed for some people. I can't reproduce it, but this
+ release will hopefully fix the problem. Patch by Tokuhiro Matsuno. RT
+ #62061.
+
+- Added a section on the DateTime Project ecosystem to the docs. Addresses RT
+ #60930.
+
+- Fixed wiki links in the docs now that the wiki has moved to a new wiki
+ platform.
+
+- Restored some of the dzil-ification. The repo now has a very minimal
+ Build.PL file which is just enough to build the XS code and run the
+ tests. This fixes the total lack of prereqs in the META.* files. Reported by
+ Bjørn-Olav. RT #62427.
+
+
+0.63 2010-09-24
+
+- Actually bump the version in the module files. Oops. Reported by bricas.
+
+
+0.62 2010-09-23
+
+- Don't try to test with DateTime::Format::Strptime unless we have a
+ relatively recent version. Should fix some test failures.
+
+
+0.61 2010-07-16
+
+- Switching to dzil in 0.56 broke the --pp flag for the Build.PL. Reported by
+ Jonathan Noack. RT #59421.
+
+
+0.60 2010-07-03
+
+- By default, Dist::Zilla generates a Build.PL that requires Module::Build
+ 0.3601+, but this distro really doesn't need any particular version.
+
+
+0.59 2010-06-29
+
+- More packaging fixes. This release makes sure that POD only shows up in the
+ right files. In 0.56 through 0.58, some POD in the wrong place confused the
+ search.cpan.org POD display code, and the main module's documentation wasn't
+ viewable.
+
+
+0.58 2010-06-28
+
+- Versions 0.56 and 0.57 did not build XS properly when installing.
+
+
+0.57 2010-06-26
+
+- Make DateTime::LeapSecond have the same $VERSION as every other .pm file.
+
+
+0.56 2010-06-26
+
+- The set_formatter() method did not return the DateTime object, and did not
+ actually validate the value provided for the formatter. Based on a patch by
+ Andrew Whatson. RT #58506.
+
+- Improved docs on floating time zone. Based on suggestions by Michael
+ Svoboda. RT #56389.
+
+- Added mention of end-of-month algorithms to docs on DateTime math. Based on
+ a patch by Michael R. Davis. RT #58533.
+
+- License is now Artistic 2.0.
+
+
+0.55 2010-03-16
+
+- Get all tests passing on 5.6.2. Thanks to Zefram for help spotting the
+ problems.
+
+- Moved code to my hg repo at http://hg.urth.org/hg/DateTime.pm.
+
+
+0.54 2010-03-14
+
+- Bumped the DateTime::TimeZone prereq to 1.09 to force people to use a modern
+ version. Previously the minimum version was 0.59, and there have been a lot
+ of bug fixes since then.
+
+- String overloading now extends to string comparison, so a DateTime object
+ can be compared to any string. In other words
+
+ if ( $dt eq $string ) { ... }
+
+ will simply stringify $dt and then do a normal string-is-equals
+ check. Previously, this would blow up unless both operands were a DateTime
+ object.
+
+ Note that future versions of Test::More (0.95_01+) will no longer stringify
+ arguments to is(), which means that older versions of DateTime may cause new
+ test failures when you upgrade Test::More. It is highly recommended that you
+ upgrade DateTime before upgrading to Test::More 0.95_01+.
+
+ Patch by Michael Schwern. RT #55453.
+
+- Allow passing end_of_month setting to $duration->inverse(). Requested by
+ John Siracusa. RT #53985.
+
+
+0.53 2009-12-06
+
+- Added Test::Exception to build_requires.
+
+
+0.52 2009-12-05
+
+- Numeric to ->new() are now all validated to make sure they are
+ integers. Previously, things like "month => 11.2" would have been
+ allowed. Based on a bug report from Max Kanat-Alexandar. RT #45767.
+
+- Added a warning to the docs suggesting that you cache the locale time zone
+ if you need to make many DateTime objects in the local zone. Looking up the
+ local zone can be fairly expensive. RT #46753.
+
+
+0.51 2009-11-01
+
+- Switched to Module::Build. To force a non-XS build, start the build
+ process with "perl Build.PL --pp".
+
+- POD-related tests are only run for the maintainer now.
+
+- Fixed handling of negative years in CLDR formatting for "y" and "u"
+ patterns. Note that the LDML spec says nothing about how this should work,
+ so I took my best guess.
+
+
+0.50 2009-05-11
+
+- Tests were failing on Win32 because they attempted to use a negative
+ epoch. Fixed so that these tests are skipped. Fixes RT #45966.
+
+
+0.49 2009-05-04
+
+- A bug in the test code for handling overloaded objects in from_epoch
+ resulted in a test failure on Perl 5.8.x. This release contains no
+ changes besides a test code fix.
+
+
+0.48 2009-05-04
+
+- Some of the accessors (the "main" ones like year(), month(), day(),
+ etc) now warn if they are passed a value. Patch from Shawn
+ Moore. Fixes RT #6979.
+
+- DateTime::Duration expected DateTime to be loaded and used some
+ constants from it, but did not explicitly "use DateTime". Reported
+ by Jeff Kubina. RT #44740.
+
+- The CLDR formatting for "c" and "cc" was incorrectly using the local
+ day of the week. This meant that it gave the wrong result for
+ locales where Monday is not considered the first day of the
+ week. Reported by Maros Kollar. RT #45007.
+
+- DateTime->from_epoch did not allow an object which overloaded
+ numification as the epoch value. Patch by Michael Schwern. RT
+ #45653.
+
+- Fixed how datetime subtraction is handled for some cases around DST
+ changes. This had been improved back in 0.30, but there were still
+ bugs. RT #45235.
+
+
+0.47 2009-03-01
+
+- The handling of CLDR format 'j' and 'jj' was backwards, using 24
+ hour time for locales that wanted 12 hour, and vice versa. Reported
+ by Maros Kollar.
+
+- The CLDR formatting was missing support for lower-case "q"
+ patterns. Reported by Maros Kollar.
+
+
+0.46 2009-02-28
+
+- Added a duration_class method for the benefit of DateTime.pm
+ subclasses. Patch by Shawn Moore.
+
+
+0.4501 2008-11-25
+
+- The epoch() method got broken in the recent shuffling between
+ Time::Local and Time::y2038. Unfortunately, the tests to catch this
+ also got lost in the shuffle. Reported by Avianna Chao.
+
+
+0.45 2008-11-11
+
+- Reverted the changes to use Time::y2038, on the recommendation of
+ Michael Schwern (the author of said module), because it is not yet
+ stable. This may come back in a future release.
+
+
+0.4401 2008-11-03
+
+- In order to handle epochs > 2**32 properly on a 32-bit machine, we
+ also need to import gmtime from Time::y2038. This changes fixes a
+ whole bunch of test failures seen with 0.44.
+
+
+0.44 2008-11-01
+
+- XS-capable DateTime.pm now uses Time::y2038 instead of
+ Time::Local. This lets it handle epochs up to 142 million years
+ before and after the Unix epoch.
+
+- Fixed a compiler warning with Perl 5.10.0.
+
+- Fixed docs for year_with_era, which had AD and BC
+ backwards. Reported by Vynce Montgomery. RT #39923.
+
+- The format_cldr() method did not format the "yy" format properly
+ when the year ended in "0X". Reported by Wilson Santos. RT #40555.
+
+
+0.4305 2008-10-03
+
+- The pure Perl version of this module did not know about the end of
+ 2008 leap second. Reported by James T Monty.
+
+
+0.4304 2008-07-13
+
+- Fix test failures when tests are run with DateTime::Locale
+ 0.41. Reported by David Cantrell via CPAN Testers.
+
+
+0.4303 2008-07-12
+
+- There is a new leap second coming at the end of 2008.
+
+
+0.4302 2008-05-20
+
+[ BUG FIXES ]
+
+- The 41cldr_format.t test blew up on Perl 5.6.x, because of a bug in
+ the test code.
+
+
+0.4301 2008-05-18
+
+[ BUG FIXES ]
+
+- In the 0.43 release, I forgot to change the DateTime::Locale
+ dependency to require DT::Locale 0.40.
+
+
+0.43 2008-05-18
+
+[ *** BACKWARDS INCOMPATIBILITIES *** ]
+
+* Dropped support for Perl 5.005.
+
+[ ENHANCEMENTS ]
+
+- Added support for formatting the CLDR date pattern language, which
+ is much more powerful than strftime. This, combined with the latest
+ DateTime::Locale, makes the localized output much more correct.
+
+[ BUG FIXES ]
+
+- The hour_1() method was returning the real hour + 1, rather than
+ just representing midnight as 24 instead of 0. This bug fix will
+ probably break someone's code.
+
+
+0.42 2008-02-29
+
+[ BUG FIXES ]
+
+- The 17set_return.t tests failed on leap days, like today. Reported
+ by Duncan Ferguson. RT #33695.
+
+
+0.41 2007-09-10
+
+[ BUG FIXES ]
+
+- The 13strftime.t test was failing when DateTime::Locale 0.35 was
+ installed. The test has been adjusted and we now list DT::Locale
+ 0.35 as the minimum version. Reported by David Cantrell.
+
+
+0.40 2007-08-30
+
+[ BUG FIXES ]
+
+- A custom formatter would be lost after a call to set() or
+ truncate(). Reported by Kjell-Magne Øierud. RT #28728.
+
+- The truncate() method docs said it accepted "second" as a parameter,
+ but it didn't actually do the right thing with it. Now it always
+ truncates nanoseconds to 0 for any parameter it is passed.
+
+
+0.39 2007-07-17
+
+[ BUG FIXES ]
+
+- Yet more changes to how infinity is handled and tested. This passes
+ for me on 32-bit Win XP and 64-bit Linux, which is promising. Patch
+ by Yitzchak Scott-Thoennes. RT #22392.
+
+
+0.38 2007-06-30
+
+[ BUG FIXES ]
+
+- Require Test::Pod::Coverage 1.08 in pod-coverage.t, since we use
+ all_modules, which was only exported as of version 1.08. Reported by
+ MATSUNO Tokuhiro. Fixes RT #26594.
+
+- Fixed a bad link to the old FAQ location in the docs. Reported by
+ Ric Signes. Fixes RT #26846.
+
+[ ENHANCEMENTS ]
+
+- DateTime.pm now explicitly overloads string comparison. This was
+ done so that comparing a DateTime.pm object to a string returns
+ false, rather than throwing an exception. Reported by Chris
+ Dolan. Addresses RT #26085.
+
+
+0.37 2007-03-30
+
+[ BUG FIXES ]
+
+- Require DateTime::Locale 0.34, which fixes a problem that manifested
+ when thawing a DateTime.pm object. See
+ http://www.mail-archive.com/datetime@perl.org/msg05633.html for some
+ discussion of this.
+
+- Added pod coverage tests, and added some POD for undocumented
+ methods as a result.
+
+[ ENHANCEMENTS ]
+
+- This distro is now GPG-signed, per RT #24776.
+
+
+0.36 2007-01-18
+
+[ BUG FIXES ]
+
+- For infinity, use 100 ** 1000 instead of 100 ** 100 ** 100. This may
+ fix the problems with infinity on some platforms (or may
+ not). Suggested by Bjorn Tackmann. See RT #17390, #19626, and
+ #22392.
+
+- Require DateTime::TimeZone 0.59, which includes a similar fix.
+
+
+0.35 2006-10-22
+
+[ ENHANCEMENTS ]
+
+- Added several new methods for getting locale-based data, era_abbr(),
+ era_name(), quarter_abbr(), and quarter_name(). The era() method
+ returns the same data as era_abbr(), but is deprecated.
+
+
+0.34 2006-08-11
+
+[ BUG FIXES ]
+
+- DateTime's code to fall back to the pure Perl implementation was
+ broken in most cases, making it fairly useless. Reported by Adam
+ Kennedy and Brendan Gibson.
+
+- Under Perl 5.6.2 (and presumably 5.6.x), some of the tests
+ mysteriously failed. I tracked this down to a weird interaction
+ between DateTime's string overloading and
+ Test::Builder->cmp_ok(). See RT 19626.
+
+
+0.33 2006-08-09 (the "Asia/Kaohsiung" release)
+
+[ ENHANCEMENTS ]
+
+- Attempting to do an overloaded operation (add, subtract, compare)
+ with an inappropriate argument (like $dt + 1) gives a more useful
+ error message.
+
+[ BUG FIXES ]
+
+- The fixes in 0.30 for subtract_datetime() crossing a DST change had
+ a bug. When subtracting two dates, both occurring on a DST change
+ date, but where the dates did not cross the change, the answer was
+ off by an hour. Reported by Chris Prather. See RT 20697.
+
+- Borrowed a tweak from version.pm's Makefile.PL to make compiler
+ detection work with MSVC.
+
+
+0.32 2006-07-24
+
+[ BUG FIXES ]
+
+- Change how C compiler detection is done in the Makefile.PL so it
+ does not rely on having make on the system. The new way should work
+ on (most?) Unix and Win32 systems. Suggested by David Golden. See RT
+ 18969.
+
+
+0.31 2006-05-21
+
+[ ENHANCEMENTS ]
+
+- Switched some uses of die() to Carp::croak(), where
+ appropriate. This should make error messages more useful in many
+ cases. Based on a suggestion by Max Maischein. See RT tickets 11692
+ & 18728.
+
+[ BUG FIXES ]
+
+- Removed all uses of UNIVERSAL::isa and UNIVERSAL::can as functions.
+
+- Tweaked 20infinite.t test to give more useful output for some
+ failures, though it probably doesn't fix them. See RT 17390.
+
+
+0.30 2005-12-22
+
+[ ENHANCEMENTS ]
+
+- Expanded and rewrote the docs on date math to try to explain exactly
+ how DateTime.pm works, and in particular cover the problems DST
+ introduces to various types of date math. The docs now also include
+ some specific recommendations on getting sane results from datetime
+ math.
+
+- Added calendar_duration() and clock_duration() methods to
+ DateTime::Duration
+
+- Explicitly override the stringification method for
+ DateTime::Infinite objects. They now stringify as whatever the IEEE
+ infinity and negative infinity numbers stringify to on your
+ platform. On Linux this is "inf" and "-inf". CPAN RT #16632.
+
+[ BUG FIXES ]
+
+- delta_md() and delta_days() did not always return correct values
+ when crossing a DST change.
+
+- The pure Perl version of the code had a dependency ordering problem
+ where DateTime::LeapSecond depended on other pure Perl code that
+ wasn't yet available. I'm not sure how this ever worked.
+
+- Remove mentions of leap second on 1971-12-31 from the docs, because
+ there was no leap second that day. Reported by Mike Schilli.
+
+- If you added a second to a datetime that was on a leap second (like
+ 2005-12-31T23:59:60) it got "stuck" and kept returning the same
+ datetime. Reported by Mike Schilli.
+
+- Changes to the tests in 20infinite.t may fix failures seen on some
+ platforms and with new versions of Test::More (0.62 was known to
+ cause failures)
+
+[ *** BACKWARDS INCOMPATIBILITIES *** ]
+
+- The subtract_datetime() method switched back to using the local
+ portion of the date _and_ time, but it now accounts for days with
+ DST changes specially. This produces results that fix the bugs that
+ were fixed by previous subtraction changes in 0.28 and 0.29, but
+ without introducing even more bugs. The overall result should be
+ sane, but please see the docs for details.
+
+
+0.2901 2005-07-04
+
+- A leap second for the end of 2005 was announced.
+
+
+0.29 2005-06-03
+
+[ *** BACKWARDS INCOMPATIBILITIES *** ]
+
+- When adding/subtracting a duration with months or days that crossed
+ a DST change, the result was based on the local time, not the UTC
+ time. For consistent results, it is necessary to use the UTC time
+ (but local date) for all date math. Reported by J. Alexander
+ Docauer.
+
+
+0.28 2005-02-27
+
+[ ENHANCEMENTS ]
+
+- The era names for the era() method are now retrieved from the
+ DateTime.pm object's associated locale. The old era() method, which
+ was hard-coded to use BCE and CE, is renamed secular_era(). The
+ christian_era() method remains the same.
+
+[ BUG FIXES ]
+
+- Fixed an embarassing bug in the subtract_datetime() method. It was
+ subtracting local times, not UTC, which caused bugs when doing
+ subtraction across a DST change. This method is used to implement
+ subtraction overloading, so that was affected as well. Reported by
+ Mike Schilli.
+
+- The docs for the %U and %W strftime specifiers implied that these
+ should be zero-padded, but the code was not doing so. Reported by J
+ Docauer.
+
+
+0.27 2005-01-31
+
+[ ENHANCEMENTS ]
+
+- Added local_rd_values() method for the benefit of other modules like
+ DateTime::Event::Recurrence.
+
+
+0.26 2005-01-27
+
+[ BUG FIXES ]
+
+- The docs claimed that the delta_ms(), delta_md(), delta_days()
+ methods always returned a positive duration, but this was not true
+ for delta_md() or delta_days().
+
+
+0.25 2005-01-10 (the "new year, new bugs" release)
+
+[ BUG FIXES ]
+
+- Calling set_time_zone() for a datetime very close to a time zone
+ change died for many of the Olson time zones.
+
+- The docs for the from_object constructor said that by default, new
+ objects were in the UTC time zone, but in reality the default was
+ the floating time zone. The docs were changed to match the code.
+ Ticket 9278 on rt.cpan.org.
+
+
+0.24 2004-12-10 (the "have I mentioned I hate leap seconds" release)
+
+[ BUG FIXES ]
+
+- Fixed even more bugs related to leap seconds and time zones.
+ Reported by Eugene van der Pijll.
+
+[ KNOWN BUGS ]
+
+- Offsets with a seconds portion (like "+00:00:30") act strangely near
+ leap seconds. Reported by Eugene van der Pijll. This will be fixed
+ in a future release.
+
+
+0.23 2004-12-09 (the "oh how I hate leap seconds" release)
+
+[ ENHANCEMENTS ]
+
+- Added a number of convenience "set" methods: set_year, set_month,
+ set_day, set_hour, set_minute, set_second, set_nanosecond, and
+ set_locale. Suggested by Michael Schwern.
+
+- Added christian_era and year_with_christian_era methods.
+
+- Clarified that from_epoch(), today(), and now() all return objects
+ in the UTC time zone. Suggested by Sagar Shah and others.
+
+- Added formatter parameter to constructor, which allows per-object
+ stringification. Based on a patch from Daisuke Maki.
+
+[ BUG FIXES ]
+
+- Trying to serialize DateTime::Infinite objects with Storable blew
+ up. Patch by Daisuke Maki.
+
+- Require Test::More 0.34+, since I use a function introduced in that
+ version in the tests. Suggested by Jean Forget.
+
+- Fix a bug in strftime() which could cause weirdness with
+ pathological specifiers like "%%{day_name}%n". Reported by Jean
+ Forget.
+
+- Fixed a number of bugs related to leap seconds and time zones.
+ Reported by Eugene van der Pijll.
+
+
+0.22 2004-07-23
+
+[ *** BACKWARDS INCOMPATIBILITIES *** ]
+
+- The leap second table we were using mistakenly included a leap
+ second on December 31, 1971. This will break all versions of the
+ DateTime::Format::Epoch::TAI64 module up to and including version
+ 0.06. Most users of DateTime.pm will not be affected. Patch by
+ Joshua Hoblitt.
+
+
+0.2101 2004-06-10
+
+[ BUG FIXES ]
+
+- There was a bug in the date math code that occurred if you tried to
+ add enough days, minutes or seconds to generate a datetime 10 years
+ in the future (or so). If the the DateTime object had a a time zone
+ with recurring DST changes, then the date math operation would cause
+ a fatal error "Invalid local time for date in time zone ...".
+ Reported by Dave Faraldo.
+
+
+0.21 2004-03-28 (The "Another YAPC::Taipei release party release" release)
+
+[ *** BACKWARDS INCOMPATIBILITIES *** ]
+
+- When given mixed positive & negative arguments, DateTime::Duration
+ no longer forces all arguments to be negative.
+
+- For mixed durations, the is_positive, is_zero, and is_negative
+ methods all return false.
+
+- Brought back stringification overloading. As of version 1.06,
+ Devel::StackTrace will ignore this overloading when displaying a
+ trace.
+
+[ ENHANCEMENTS ]
+
+- Add a new in_units() method to DateTime::Duration. Patch by Andrew
+ Pimlott.
+
+- Rely on DateTime::TimeZone and DateTime::Locale having their own
+ Storable hooks, as opposed to handling them in DateTime.pm's own
+ Storable hooks. This should fix RT ticket #5542, reported by Dan
+ Rowles (I hope).
+
+- More docs on how date math is done. See the new section "The
+ Results of Date Math".
+
+[ BUG FIXES ]
+
+- DateTime::Duration's is_positive, is_zero, and is_negative methods
+ could incorrectly return true if a duration contained mixed positive
+ and negative units.
+
+- Better normalization of nanoseconds in DateTime::Duration. Patch by
+ Andrew Pimlott.
+
+
+0.20 2004-02-12
+
+[ IMPROVEMENTS ]
+
+- Tweaked the "How Date Math is Done" section in DateTime.pm to
+ provide some more explicit examples.
+
+[ BUG FIXES ]
+
+- If seconds are not negative, DateTime::Duration will try to keep
+ nanoseconds >= 0 when normalizing them to seconds, as long as this
+ doesn't make seconds become negative. Suggested by Andrew Pimlott.
+
+- In the datetime subtraction code, there was an off-by-one error in
+ the code to determine if one of the datetimes occurred in a minute
+ containing a leap second. This led to the result of the subtraction
+ being off by one second. Patch by Andrew Pimlott.
+
+- A duration's nanoseconds weren't normalized after multiplication.
+ Patch by Andrew Pimlott.
+
+
+0.1901 2004-01-07 (the "people care about ancient history?" release)
+
+[ BUG FIXES ]
+
+- The day of week was totally busted for dates before 0000-12-25.
+ Reported by Flavio Glock.
+
+
+0.19 2003-12-01 (the "never look before a leap second" release)
+
+[ IMPROVEMENTS ]
+
+- DateTime::Duration now provides a compare() class method.
+
+- DateTime::Duration now overloads comparison to throw an exception,
+ because comparison requires a base DateTime object. Note that
+ previous versions of DateTime::Duration _did not_ overload
+ comparison, so if you were comparing them, you were just comparing
+ the value of the object references. Thanks to Rick Measham, Jon
+ Swartz, and Max Maischein for contributing to the discussion on
+ datetime@perl.org about how to implement this feature.
+
+- Added DateTime::Duration->multiply to complement multiplication
+ overloading.
+
+- Added a leap_seconds method.
+
+- Added a section to the docs about floating datetimes.
+
+- DateTime::LeapSecond no longer contains code copied from
+ DateTime.pm, instead it just uses DateTime.pm directly. Patch by
+ Joshua Hoblitt.
+
+[ BACKWARDS INCOMPATIBILITIES ]
+
+- DateTime::LeapSecond's leap_seconds() function now returns the
+ number of leap seconds that have occurred, as opposed to the
+ difference between TAI and UTC for a given Rata Die day, which is
+ what it was returning previously. This means that the values it
+ returns are 9 second less than the previous version. This does not
+ affect DateTime.pm because it never looke at the actual value, just
+ the difference between two leap second values, which remains the
+ same.
+
+
+0.18 2003-10-26 (the "delta, delta, delta, can I help ya, help ya, help ya?" release)
+
+[ IMPROVEMENTS ]
+
+- Added several new methods for calculating the difference between two
+ datetime objects. These are delta_md(), delta_days(), and
+ delta_ms(). Each of these methods returns the difference as a
+ duration containing just certain units.
+
+[ BUG FIXES ]
+
+- Require Pod::Man 1.14+, so that head3/head4 markup doesn't cause
+ installation to die.
+
+[ BACKWARDS INCOMPATIBILITIES ]
+
+- The local_rd_as_seconds method is deprecated, as it doesn't really
+ serve much purpose.
+
+
+0.1705 2003-10-07
+
+[ BUG FIXES ]
+
+- Subtracting one datetime from another was still broken, and my fix
+ in 0.1704 broke many other subtractions. Reported by Pierre Denis
+ again. Many thanks to Pierre for paying attention.
+
+- Subtracting datetimes where the subtraction crossed a leap second
+ was also broken.
+
+
+0.1704 2003-10-07
+
+[ IMPROVEMENTS ]
+
+- Documented the behavior of strftime() when given an invalid format.
+
+
+[ BUG FIXES ]
+
+- The DateTime::Duration synopsis showed a sign() method that doesn't
+ exist, so I removed it from the synopsis. Reported by Flavio Glock.
+
+- Subtracting one datetime from another was seriously broken. The
+ values for days & weeks were wrong in many cases. Reported by
+ Pierre Denis.
+
+
+0.1703 2003-09-22
+
+
+[ BUG FIXES ]
+
+- truncate( to => 'week' ) caused a fatal error when the beginning of
+ the week was in the previous month. Reported by R. Mathews
+ (rt.cpan.org #3843).
+
+
+0.1702 2003-09-18
+
+[ IMPROVEMENTS ]
+
+- Added truncate( to => 'week' ). Suggested by Flavio Glock.
+
+
+0.1701 2003-09-15
+
+[ BUG FIXES ]
+
+- If from_epoch was given a fractional epoch with a floating point
+ value with more than 9 digits after the decimal point, the object
+ ended up containing a floating point number of nanoseconds. We now
+ truncate this number to an integer. Fixed by Joshua Hoblitt.
+
+- The %V strftime specifier was documented, but not implemented.
+ Reported by Joshua Hoblitt.
+
+- Test #56 in 03components.t would die with "Invalid offset: -124"
+ when run with DateTime::TimeZone 0.2502+. Next time, I'll read my
+ own docs ;)
+
+
+0.17 2003-08-29 (the "math is hard" release)
+
+[ BACKWARDS INCOMPATIBILITIES ]
+
+- The default end_of_month mode for negative durations is now
+ "preserve". This makes more sense, as the previous default meant
+ that the following code:
+
+ print DateTime->new( year => 2003, month => 5, day => 31 )
+ ->subtract( months => 1 )->ymd;
+
+ printed "2003-05-01" as opposed to "2003-04-30". Thanks to Thomas
+ Klausner for starting a discussion on this problem.
+
+- The subtract_datetime method now returns different results, as does
+ subtraction overloading when both sides of the subtraction are
+ DateTime objects.
+
+ The subtract_datetime_absolute method returns results similar to
+ what was previously returned from subtract_datetime.
+
+ Thanks to Matthew McGillis for bringing this up, and Joshua Hoblitt
+ and Eugene van der Pijll for contributing to the ensuing discussion.
+
+[ IMPROVEMENTS ]
+
+- DateTime.pm compare() method is now documented to work with any
+ other calendar class that provides a utc_rd_values() method.
+
+- Added the subtract_datetime_absolute method. See the docs for
+ details.
+
+- Documented the inverse() method in DateTime::Duration.
+
+
+0.1601 2003-08-07
+
+[ BUG FIXES ]
+
+- On platforms like Win32, where we can't find a finite() or
+ isfinite() function/macro, the DateTime::LeapSecond code wasn't
+ being loaded, so many tests failed. Reported by Ron Hill.
+
+
+0.16 2003-08-06
+
+[ IMPROVEMENTS ]
+
+- The XS code now implements leap second-related calculations.
+ However, this is only used on platforms where we can find a usable
+ finite() or isfinite() function/macro, so it isn't used on Win32.
+
+- This distro has now borged the DateTime::LeapSecond module. It is
+ only loaded when the XS leap second code cannot be used.
+
+- Other miscellaneous performance improvements.
+
+
+0.1503 2003-07-31
+
+[ BUG FIXES ]
+
+- Adding a duration with delta months to an infinite DateTime was
+ quite broken. Reported by Eugene van der Pijll.
+
+
+0.1502 2003-07-31
+
+[ BUG FIXES ]
+
+- XSLoader wasn't the problem on Solaris, so it's back.
+
+- Now loading the XS version of DateTime.pm is wrapped in an eval
+ block. If it fails with an error about the object version not
+ matching, the pure Perl version is loaded instead. This should fix
+ Solaris. Thanks to Joshua Hoblitt for identifying this bug.
+
+
+0.1501 2003-07-30
+
+[ BUG FIXES ]
+
+- Fixed the from_object() method to set the returned object's time
+ zone to the floating time zone if the source object did not have a
+ time zone, as specified in the docs. Previously, the returned
+ object's time zone was UTC. Patch by Eugene van der Pjill.
+
+- For this release, at least, the module always uses Dynaloader. This
+ is in order to see if this fixes a problem on Solaris where the
+ install library version of the DateTime .so file is loaded instead
+ of the newly compiled version in the blib directory.
+
+
+0.15 2003-07-29
+
+[ IMPROVEMENTS ]
+
+- The utc_rd_values() method now returns nanoseconds in addition to
+ Rata Die days and seconds. Based on a patch by Joshua Hoblitt.
+
+- The from_object() method expects objects to return the same values
+ from their utc_rd_values() methods. Based on a patch by Joshua
+ Hoblitt.
+
+[ BUG FIXES ]
+
+- Fixed a bug in the pure Perl version of _normalize_tai_seconds that
+ caused very weird results from datetime math. This version may be
+ used on platforms where the XS code compiles, so it can affect quite
+ a number of systems. Reported by Dan Sully.
+
+
+0.1402 2003-07-24
+
+[ BUG FIXES ]
+
+- Fix DefaultLocale method, which didn't work at all. Reported by
+ Serge Leger.
+
+
+0.1401 2003-07-24
+
+[ BUG FIXES ]
+
+- Fix a test failure in 13strftime.t under Perl 5.6.1 (and probably
+ 5.6.0).
+
+
+0.14 2003-07-23
+
+[ BACKWARDS INCOMPATIBILITIES ]
+
+- The DateTime::Language modules are no longer being developed or
+ distributed as part of the DateTime.pm distribution.
+
+ Because of this, all "language" parameters should now be replaced by
+ "locale" parameter. The "language" parameter is deprecated and will
+ be removed in a future release.
+
+ Also note that locales should be specified via ISO codes, not names
+ like "English". The old DateTime::Language names will continue to
+ work indefinitely, but they load DateTime::Locale objects instead.
+
+ Locale-specific data will be returned in utf8 when necessary.
+
+- Similarly, the "language" and "DefaultLanguage" methods are now
+ deprecated in favor of "locale" and "DefaultLocale".
+
+
+[ IMPROVEMENTS ]
+
+- DateTime::Duration now returns the object from mutator methods, in
+ order to make method chaining possible. Suggested by Ben Bennett.
+
+- If the value for second given to new() is 60 or 61, then it must be
+ a valid leap second.
+
+- DateTime now uses DateTime::Locale for localization, which allows
+ for real language and territory based localization. The locale code
+ is generated from the ICU project's data, and is much more complete
+ than the DateTime::Language modules. However, we are losing
+ (hopefully only temporarily) support for the various African
+ languages contributed by Daniel Yacob. Support for those languages
+ should return in a future release of DateTime::Locale.
+
+- Support for the '%c', '%x', and '%X' strftime format specifiers,
+ which output localized date and time strings.
+
+- Added the time_zone_long_name method, primarily for the benefit of
+ DateTime::Locale.
+
+- Added a note to the DateTime::Infinite docs warning that it may not
+ work well on Win32.
+
+[ BUG FIXES ]
+
+- DateTime::Duration was not consistent in how it handled mixed
+ positive and negative constructor parameters. Reported by Ben
+ Bennett.
+
+
+0.13 2003-05-05
+
+[ IMPROVEMENTS ]
+
+- DateTime now does more validation of parameters given to
+ constructors and to the set() method, so bogus values like a month
+ of 13 are a fatal error.
+
+- Added a new constructor, from_day_of_year().
+
+- Added a number of new "get" methods, including era, year_with_era,
+ hour_1, hour_12, hour_12_0, weekday_of_month, and week_of_month.
+ Based in part on a patch from Rick Measham.
+
+- Now any object method can be called in strftime format by using
+ "%{method}" as a format specifier. Patch from Rick Measham
+
+- Added an is_zero method to DateTime::Duration, for objects of zero
+ length.
+
+- DateTime->from_epoch will now accept a floating point epoch and turn
+ the post-decimal portion into nanoseconds. This was done in order
+ to interface more accurately with Time::HiRes.
+
+- Added a DateTime->hires_epoch method that returns a floating point
+ value for epoch, also for compatibility with Time::HiRes.
+
+- DateTime.pm now implements Storable hooks to reduce the size of
+ serialized DateTime objects. In particular, the contained time zone
+ object is not serialized along with the DateTime object.
+
+- It is now possible to create arbitrary DateTime::Language subclasses
+ in any namespace.
+
+[ BUG FIXES ]
+
+- "Fixed" 20infinite.t failures on Windows with 2 icky hacks. The
+ first simply doesn't compile the XS code that deals with infinite
+ numbers on Win32, so the pure Perl version is used instead.
+ However, the rest of the XS code is still compiled on Win32. The
+ other hack is to simply skip a failing test in 20infinite.t on
+ Win32. Hopefully, this will eventually be fixed but given that this
+ is not core functionality for most users, I'd rather get this
+ release out the door now.
+
+- Fix epoch() method to work properly with dates greater than 50 years
+ ago. Apparently, if Time::Local is given a year less than 100, it
+ tries to guess the century, and it doesn't do this by simply adding
+ 1900. Numbers less than 53 (for the year 2003) are treated as being
+ in the current century. Ugh.
+
+- Fixed compilation on HPUX. Patch from Dan Sully.
+
+- The last_day_of_month() method did not accept a nanosecond
+ parameter.
+
+- A DT::Duration object created with just nanoseconds was always
+ positive, regardless of the value given for nanoseconds.
+
+- Fixed a serious bug when subtracting one datetime from another that
+ could cause the result to be off by up to a second, and negative
+ when it should be positive. This was caused by the introduction of
+ nanoseconds in 0.10.
+
+- A zero length duration reported itself as positive when it should be
+ neither positive nor negative.
+
+- In Perl 5.6.1/Red Hat Linux 7.2, multiplying a variable with value
+ zero by -1 gives negative-zero, which breaks tests.
+
+ perl -e ' $x=0; $x*=-1; print $x '
+
+ -0
+
+ Patch by Flavio Glock.
+
+- Comparing a DateTime::Infinite object to a regular datetime could
+ cause a fatal error. Reported by John Peacock.
+
+- Fixed a failure in the 04epoch.t tests on Win32. Negative epoch
+ values don't work on Win32.
+
+[ BACKWARDS INCOMPATIBILITIES ]
+
+- The "Portugese" language module has been renamed to "Portuguese".
+ I'm so embarassed! Reported by Richard Evans.
+
+- DateTime::Infinite objects no longer die if "set" methods are
+ called. Instead, these methods are now no-op methods that simply
+ return the original object. This makes these objects more usable
+ when mixed with regular datetime objects.
+
+- Removed the fractional_second constructor parameter. It was
+ incorrectly documented anyway. The fractional_second _accessor_ is
+ still there.
+
+- DateTime::Duration objects of zero length no longer return true for
+ is_positive.
+
+
+0.12 2003-05-05
+
+[ BUG FIXES ]
+
+- Make sure tests always run with warnings on.
+
+- Fix line that had "$] >= 5.6.0" to be "$] >= 5.006". This caused
+ warnings and was just wrong. Reported by John Siracusa.
+
+- Quiet warnings from pure Perl implementation.
+
+- Quiet warnings from language modules with Unicode when used with
+ Perl 5.00503.
+
+
+0.11 2003-05-03
+
+[ IMPROVEMENTS ]
+
+- Moved a little bit of the leap second code to XS, so DateTime.pm may
+ be a tiny bit faster.
+
+- Added name() method to DateTime::Language. Suggested by Rick
+ Measham.
+
+- Use XSLoader with Perl 5.6.0+, which according to ancient
+ perl5-porters discussions saves some memory.
+
+- Added infinite DateTime objects. See the DateTime::Infinite docs
+ for details.
+
+[ BUG FIXES ]
+
+- The %I and %l strftime formats were formatting hours as 0-11, not
+ 1-12 as documented. Patch by Simon Newton.
+
+- A DateTime::Duration object created only with weeks as a parameter
+ always was positive. Fixed by Flavio Glock.
+
+[ BACKWARDS INCOMPATIBILTIES ]
+
+- Because of changes in DateTime::TimeZone 0.13, which this version
+ now requires, when a local time is ambiguous, the latest UTC time is
+ used, rather than the earliest, as was done previously.
+
+- The Brazilian language module has been renamed as Portugese.
+
+- Removed DateTime::Duration->compare (which I forgot to document
+ anyway ;) and comparison overloading for DT::Duration. There's no
+ meaningful way to compare 60 days to 2 months.
+
+
+0.10 2003-04-19 (the "I'm sure the new regime will be spiffy" release)
+
+[IMPROVEMENTS]
+
+- Added Tigre language module. Contributed by Daniel Yacob.
+
+- DateTime::Duration objects now overload multiplication. Implemented
+ by Flavio Glock.
+
+- Added support for nanoseconds in DateTime.pm and DateTime::Duration.
+ Implemented by Flavio Glock.
+
+- Added complete support for leap seconds (through use of
+ DateTime::LeapSecond). Mostly implemented by Flavio Glock.
+
+[ BACKWARDS INCOMPATIBILTIES ]
+
+- Because of the addition of leap seconds to the mix, we are now
+ forced to handle seconds separately from minutes when doing date
+ math. This means that several aspects of the DateTime::Duration API
+ have changed. Specifically:
+
+-- There is now an additional delta_minutes() method.
+-- The hash returned by the deltas() method now includes a "minutes" key.
+-- The seconds delta may be greater than 59.
+-- The seconds() method may return a number greater than 59.
+
+
+0.09 2003-04-05 (the "liberation through violence" release)
+
+[IMPROVEMENTS]
+
+- As requested by numerous people, there is now a pure Perl
+ implementation of DateTime.pm included with this distribution. If
+ you don't have a C compiler it will be used instead of the XS
+ implementation.
+
+- Document how floating time zones are handling in comparisons, and
+ add the compare_ignore_floating method. Based on a patch from
+ Eugene van der Pijll.
+
+- Allow from_epoch(), now(), and today() to accept a time_zone
+ parameter. Based on suggestions from Tim Bunce and Joshua Hoblitt.
+
+- Allow extraction of AM/PM string list from DateTime::Language classes.
+
+- Added quarter() and day_of_quarter() methods. Based on a patch from
+ Tim Allwine.
+
+[BUG FIXES]
+
+- If a datetime had the floating timezone and then set_time_zone was
+ used to set it to something else, the internal UTC time of the
+ object was not changed, meaning that its offset could be calculated
+ incorrectly. Patch by Eugene van der Pijll.
+
+- If datetime math was done with hours, minutes, or seconds, the
+ return value of ->epoch would be wrong after this. Based on report
+ and patch from Iain Truskett.
+
+
+0.08 2003-03-21 (the "anti-war" release)
+
+[IMPROVEMENTS]
+
+- All set/modify methods now return the datetime object, in order to
+ make method chaining possible. Patch by Iain Truskett.
+
+- The _greg2rd and _rd2greg methods have been renamed _ymd2rd and
+ _rd2ymd, so as to make them look more normal when used in
+ subclasses.
+
+- Added a truncate() method. Suggested by Flavio Glock.
+
+- Added Swedish language module. Contributed by Christian Hansen.
+
+- Added language modules for Afar, Amharic, Gedeo, Oromo, Sidama,
+ Somali, and Tigrinya (Eritrean and Ethiopian), all courtesy of
+ Daniel Yacob.
+
+- Various doc improvements, including a section on invalid local
+ times.
+
+[BUG FIXES]
+
+- The week() method was wrong for many dates. Reported by Christian
+ Hansen.
+
+- The last_day_of_month() method had the DateTime class hard-coded in
+ it. Reported by Eugene van der Pijll.
+
+- Fixed a bug when comparing a datetime object to infinity (or
+ negative infinity). Fixed by Flavio Glock.
+
+- Date math has been fixed so that it affects the _local_ times. This
+ means that sometimes 1 day is not equal to 24 hours when the
+ addition/subtraction crosses over a Daylight Saving Time change.
+ See the "How Date Math is Done" section of the docs for more
+ details.
+
+[BACKWARDS INCOMPATIBILITIES]
+
+- Objects constructed via the new() method now have a "floating" time
+ zone by default, instead of using the "local" time zone. This is
+ just simpler to deal with, and for code where time zones are
+ unimportant, this is the most appropriate default.
+
+
+0.07 2003-02-26
+
+[IMPROVEMENTS]
+
+- Added a small hack to the compare() method so that this module can
+ be used with Set::Infinite.
+
+- Changed compare so that it can be used to compare two objects from
+ different calendars that conform to the DateTime::Calendar
+ interface.
+
+- Added explanation of exactly what calendar this module represents
+ ("proleptic Gregorian calendar") to docs.
+
+- Added a Spanish language DateTime::Language subclass. Implemented
+ by Flavio S. Glock.
+
+- Added support for specifying a language by ISO code ("en" or
+ "pt-br") as well as the subclass name. Based on a patch from Eric
+ Cholet.
+
+- Revamped the externally visible DateTime::Language API.
+
+- Objects created via the from_object() method are set to the time
+ zone of the object from which they were created, if it has one, or
+ UTC otherwise.
+
+[BUG FIXES]
+
+- The from_object() method was broken because it retrieved a UTC
+ datetime from the object passed in, and then created a new DateTime
+ object using that UTC time as a _local_ time.
+
+[BACKWARDS INCOMPATIBILITIES]
+
+- Removed stringification overloading. Having this in place made it
+ impossible to create a strack trace in much of the time zone code.
+
+- Renamed the DateTime::Language->subclasses method as languages.
+
+- It is no longer possible to directly instantiate a
+ DateTime::Language subclass, instead use:
+
+ my $en = DateTime::Language->new( language => 'English' );
+
+- The from_object() method no longer accepts a "time_zone" parameter.
+
+
+0.06 2003-02-16
+
+- The docs said that there was no year 0 in the Gregorian calendar,
+ but that was wrong. The year() method can now return 0. The
+ year_0() method has been removed.
+
+- Added jd() and mjd() methods.
+
+- Re-implemented some of the core code in XS for speed.
+
+0.05 2003-02-13
+
+- Fix handling and reporting of epoch times. Epoch times are, by
+ definition, UTC times, so any time created from an epoch should
+ always have its time zone set to "UTC". This can be changed after
+ the object is created. Similarly, the value returned by the epoch()
+ method needs to be based on the object's UTC time, not it's local
+ time. Bug reported by Kellan Elliott-McCrea.
+
+- Change year_0 so that -1 BCE is 0, not 1 CE. This corresponds to
+ astronomical years.
+
+- Change ymd, dmy, mdy, and iso8601 to use Gregorian years (..., -2,
+ -1, 1, 2, ... ) as opposed to astronomical years. Also make sure
+ all negative years are formatted as 4 digits.
+
+0.04 2003-02-10
+
+- Explicitly set time zone for objects created during tests.
+
+0.03 2003-02-09
+
+- Giving a language parameter to a constructor method didn't load the
+ language class.
+
+- Test that all language classes are at least loadable.
+
+- Added Brazilian (not quite a language ;) and Danish, again stolen
+ from Graham Barr's TimeDate suite.
+
+- Added is_dst method. Requested by Matt Sergeant.
+
+0.02 2003-02-09
+
+- Fixed a bug in calculating day of year in leap years (it was +1 off
+ starting in February). Reported by Matt Sergeant.
+
+- Subtracting one datetime from another was broken in most cases.
+ Improved the tests for this quite a bit. Reported by Eric Cholet.
+
+- Made the version number a non-dev-release so it's visible when
+ CPAN.pm tries to install it as a prereq for something else.
+
+0.01_00 2003-02-04
+
+- The first alpha release. This module draws on Date::ICal for much
+ of its internals, so it has more history than a normal alpha
+ release.
--- /dev/null
+#include "EXTERN.h"
+#include "perl.h"
+#include "XSUB.h"
+#include "ppport.h"
+
+#include <stdlib.h>
+
+/* This file is generated by tools/leap_seconds_header.pl */
+#include "leap_seconds.h"
+
+# if defined(WIN32) || defined(PERL_DARWIN)
+# if PERL_VERSION_GE(5, 22, 0)
+# define dt_isfinite Perl_isfinite
+# endif
+# else
+# define dt_isfinite Perl_isfinite
+# endif
+
+#define DAYS_PER_400_YEARS 146097
+#define DAYS_PER_4_YEARS 1461
+#define MARCH_1 306
+
+#define SECONDS_PER_DAY 86400
+
+const int PREVIOUS_MONTH_DOY[12] = { 0,
+ 31,
+ 59,
+ 90,
+ 120,
+ 151,
+ 181,
+ 212,
+ 243,
+ 273,
+ 304,
+ 334 };
+
+const int PREVIOUS_MONTH_DOLY[12] = { 0,
+ 31,
+ 60,
+ 91,
+ 121,
+ 152,
+ 182,
+ 213,
+ 244,
+ 274,
+ 305,
+ 335 };
+
+
+IV
+_real_is_leap_year(IV y) {
+ /* See http://www.perlmonks.org/?node_id=274247 for where this silliness
+ comes from */
+ return (y % 4) ? 0 : (y % 100) ? 1 : (y % 400) ? 0 : 1;
+}
+
+
+MODULE = DateTime PACKAGE = DateTime
+
+PROTOTYPES: ENABLE
+
+void
+_rd2ymd(self, d, extra = 0)
+ IV d;
+ IV extra;
+
+ PREINIT:
+ IV y, m;
+ IV c;
+ IV quarter;
+ IV yadj = 0;
+ IV dow, doy, doq;
+ IV rd_days;
+
+ PPCODE:
+ rd_days = d;
+
+ d += MARCH_1;
+
+ if (d <= 0) {
+ yadj = -1 * (((-1 * d) / DAYS_PER_400_YEARS) + 1);
+ d -= yadj * DAYS_PER_400_YEARS;
+ }
+
+ /* c is century */
+ c = ((d * 4) - 1) / DAYS_PER_400_YEARS;
+ d -= c * DAYS_PER_400_YEARS / 4;
+ y = ((d * 4) - 1) / DAYS_PER_4_YEARS;
+ d -= y * DAYS_PER_4_YEARS / 4;
+ m = ((d * 12) + 1093) / 367;
+ d -= ((m * 367) - 1094) / 12;
+ y += (c * 100) + (yadj * 400);
+
+ if (m > 12) {
+ ++y;
+ m -= 12;
+ }
+
+ EXTEND(SP, extra ? 7 : 3);
+ mPUSHi(y);
+ mPUSHi(m);
+ mPUSHi(d);
+
+ if (extra) {
+ quarter = ( ( 1.0 / 3.1 ) * m ) + 1;
+
+ dow = rd_days % 7;
+ if ( dow <= 0 ) {
+ dow += 7;
+ }
+
+ mPUSHi(dow);
+
+ if (_real_is_leap_year(y)) {
+ doy = PREVIOUS_MONTH_DOLY[m - 1] + d;
+ doq = doy - PREVIOUS_MONTH_DOLY[ (3 * quarter) - 3 ];
+ } else {
+ doy = PREVIOUS_MONTH_DOY[m - 1] + d;
+ doq = doy - PREVIOUS_MONTH_DOY[ (3 * quarter ) - 3 ];
+ }
+
+ mPUSHi(doy);
+ mPUSHi(quarter);
+ mPUSHi(doq);
+ }
+
+void
+_ymd2rd(self, y, m, d)
+ IV y;
+ IV m;
+ IV d;
+
+ PREINIT:
+ IV adj;
+
+ PPCODE:
+ if (m <= 2) {
+ adj = (14 - m) / 12;
+ y -= adj;
+ m += 12 * adj;
+ } else if (m > 14) {
+ adj = (m - 3) / 12;
+ y += adj;
+ m -= 12 * adj;
+ }
+
+ if (y < 0) {
+ adj = (399 - y) / 400;
+ d -= DAYS_PER_400_YEARS * adj;
+ y += 400 * adj;
+ }
+
+ d += (m * 367 - 1094) /
+ 12 + y % 100 * DAYS_PER_4_YEARS /
+ 4 + (y / 100 * 36524 + y / 400) - MARCH_1;
+
+ EXTEND(SP, 1);
+ mPUSHi(d);
+
+void
+_seconds_as_components(self, secs, utc_secs = 0, secs_modifier = 0)
+ IV secs;
+ IV utc_secs;
+ IV secs_modifier;
+
+ PREINIT:
+ IV h, m, s;
+
+ PPCODE:
+ secs -= secs_modifier;
+
+ h = secs / 3600;
+ secs -= h * 3600;
+
+ m = secs / 60;
+
+ s = secs - (m * 60);
+
+ if (utc_secs >= SECONDS_PER_DAY) {
+ if (utc_secs >= SECONDS_PER_DAY + 1) {
+ /* If we just use %d and the IV, we get a warning that IV is
+ not an int. */
+ croak("Invalid UTC RD seconds value: %s", SvPV_nolen(newSViv(utc_secs)));
+ }
+
+ s += (utc_secs - SECONDS_PER_DAY) + 60;
+ m = 59;
+ h--;
+
+ if (h < 0) {
+ h = 23;
+ }
+ }
+
+ EXTEND(SP, 3);
+ mPUSHi(h);
+ mPUSHi(m);
+ mPUSHi(s);
+
+#ifdef dt_isfinite
+void
+_normalize_tai_seconds(self, days, secs)
+ SV* days;
+ SV* secs;
+
+ PPCODE:
+ if (dt_isfinite(SvNV(days)) && dt_isfinite(SvNV(secs))) {
+ IV d = SvIV(days);
+ IV s = SvIV(secs);
+ IV adj;
+
+ if (s < 0) {
+ adj = (s - (SECONDS_PER_DAY - 1)) / SECONDS_PER_DAY;
+ } else {
+ adj = s / SECONDS_PER_DAY;
+ }
+
+ d += adj;
+ s -= adj * SECONDS_PER_DAY;
+
+ sv_setiv(days, (IV) d);
+ sv_setiv(secs, (IV) s);
+ }
+
+void
+_normalize_leap_seconds(self, days, secs)
+ SV* days;
+ SV* secs;
+
+ PPCODE:
+ if (dt_isfinite(SvNV(days)) && dt_isfinite(SvNV(secs))) {
+ IV d = SvIV(days);
+ IV s = SvIV(secs);
+ IV day_length;
+
+ while (s < 0) {
+ SET_DAY_LENGTH(d - 1, day_length);
+
+ s += day_length;
+ d--;
+ }
+
+ SET_DAY_LENGTH(d, day_length);
+
+ while (s > day_length - 1) {
+ s -= day_length;
+ d++;
+ SET_DAY_LENGTH(d, day_length);
+ }
+
+ sv_setiv(days, (IV) d);
+ sv_setiv(secs, (IV) s);
+ }
+
+#endif /* ifdef dt_isfinite */
+
+void
+_time_as_seconds(self, h, m, s)
+ IV h;
+ IV m;
+ IV s;
+
+ PPCODE:
+ EXTEND(SP, 1);
+ mPUSHi(h * 3600 + m * 60 + s);
+
+void
+_is_leap_year(self, y)
+ IV y;
+
+ PPCODE:
+ EXTEND(SP, 1);
+ mPUSHi(_real_is_leap_year(y));
+
+void
+_day_length(self, utc_rd)
+ IV utc_rd;
+
+ PPCODE:
+ IV day_length;
+ SET_DAY_LENGTH(utc_rd, day_length);
+
+ EXTEND(SP, 1);
+ mPUSHi(day_length);
+
+void
+_day_has_leap_second(self, utc_rd)
+ IV utc_rd;
+
+ PPCODE:
+ IV day_length;
+ SET_DAY_LENGTH(utc_rd, day_length);
+
+ EXTEND(SP, 1);
+ mPUSHi(day_length > 86400 ? 1 : 0);
+
+void
+_accumulated_leap_seconds(self, utc_rd)
+ IV utc_rd;
+
+ PPCODE:
+ IV leap_seconds;
+ SET_LEAP_SECONDS(utc_rd, leap_seconds);
+
+ EXTEND(SP, 1);
+ mPUSHi(leap_seconds);
--- /dev/null
+This is the Perl distribution DateTime.
+
+Installing DateTime is straightforward.
+
+## Installation with cpanm
+
+If you have cpanm, you only need one line:
+
+ % cpanm DateTime
+
+If it does not have permission to install modules to the current perl, cpanm
+will automatically set up and install to a local::lib in your home directory.
+See the local::lib documentation (https://metacpan.org/pod/local::lib) for
+details on enabling it in your environment.
+
+## Installing with the CPAN shell
+
+Alternatively, if your CPAN shell is set up, you should just be able to do:
+
+ % cpan DateTime
+
+## Manual installation
+
+As a last resort, you can manually install it. If you have not already
+downloaded the release tarball, you can find the download link on the module's
+MetaCPAN page: https://metacpan.org/pod/DateTime
+
+Untar the tarball, install configure prerequisites (see below), then build it:
+
+ % perl Makefile.PL
+ % make && make test
+
+Then install it:
+
+ % make install
+
+On Windows platforms, you should use `dmake` or `nmake`, instead of `make`.
+
+If your perl is system-managed, you can create a local::lib in your home
+directory to install modules to. For details, see the local::lib documentation:
+https://metacpan.org/pod/local::lib
+
+The prerequisites of this distribution will also have to be installed manually. The
+prerequisites are listed in one of the files: `MYMETA.yml` or `MYMETA.json` generated
+by running the manual build process described above.
+
+## Configure Prerequisites
+
+This distribution requires other modules to be installed before this
+distribution's installer can be run. They can be found under the
+"configure_requires" key of META.yml or the
+"{prereqs}{configure}{requires}" key of META.json.
+
+## Other Prerequisites
+
+This distribution may require additional modules to be installed after running
+Makefile.PL.
+Look for prerequisites in the following phases:
+
+* to run make, PHASE = build
+* to use the module code itself, PHASE = runtime
+* to run tests, PHASE = test
+
+They can all be found in the "PHASE_requires" key of MYMETA.yml or the
+"{prereqs}{PHASE}{requires}" key of MYMETA.json.
+
+## Documentation
+
+DateTime documentation is available as POD.
+You can run `perldoc` from a shell to read the documentation:
+
+ % perldoc DateTime
+
+For more information on installing Perl modules via CPAN, please see:
+https://www.cpan.org/modules/INSTALL.html
--- /dev/null
+This software is Copyright (c) 2003 - 2023 by Dave Rolsky.
+
+This is free software, licensed under:
+
+ The Artistic License 2.0 (GPL Compatible)
+
+ The Artistic License 2.0
+
+ Copyright (c) 2000-2006, The Perl Foundation.
+
+ Everyone is permitted to copy and distribute verbatim copies
+ of this license document, but changing it is not allowed.
+
+Preamble
+
+This license establishes the terms under which a given free software
+Package may be copied, modified, distributed, and/or redistributed.
+The intent is that the Copyright Holder maintains some artistic
+control over the development of that Package while still keeping the
+Package available as open source and free software.
+
+You are always permitted to make arrangements wholly outside of this
+license directly with the Copyright Holder of a given Package. If the
+terms of this license do not permit the full use that you propose to
+make of the Package, you should contact the Copyright Holder and seek
+a different licensing arrangement.
+
+Definitions
+
+ "Copyright Holder" means the individual(s) or organization(s)
+ named in the copyright notice for the entire Package.
+
+ "Contributor" means any party that has contributed code or other
+ material to the Package, in accordance with the Copyright Holder's
+ procedures.
+
+ "You" and "your" means any person who would like to copy,
+ distribute, or modify the Package.
+
+ "Package" means the collection of files distributed by the
+ Copyright Holder, and derivatives of that collection and/or of
+ those files. A given Package may consist of either the Standard
+ Version, or a Modified Version.
+
+ "Distribute" means providing a copy of the Package or making it
+ accessible to anyone else, or in the case of a company or
+ organization, to others outside of your company or organization.
+
+ "Distributor Fee" means any fee that you charge for Distributing
+ this Package or providing support for this Package to another
+ party. It does not mean licensing fees.
+
+ "Standard Version" refers to the Package if it has not been
+ modified, or has been modified only in ways explicitly requested
+ by the Copyright Holder.
+
+ "Modified Version" means the Package, if it has been changed, and
+ such changes were not explicitly requested by the Copyright
+ Holder.
+
+ "Original License" means this Artistic License as Distributed with
+ the Standard Version of the Package, in its current version or as
+ it may be modified by The Perl Foundation in the future.
+
+ "Source" form means the source code, documentation source, and
+ configuration files for the Package.
+
+ "Compiled" form means the compiled bytecode, object code, binary,
+ or any other form resulting from mechanical transformation or
+ translation of the Source form.
+
+
+Permission for Use and Modification Without Distribution
+
+(1) You are permitted to use the Standard Version and create and use
+Modified Versions for any purpose without restriction, provided that
+you do not Distribute the Modified Version.
+
+
+Permissions for Redistribution of the Standard Version
+
+(2) You may Distribute verbatim copies of the Source form of the
+Standard Version of this Package in any medium without restriction,
+either gratis or for a Distributor Fee, provided that you duplicate
+all of the original copyright notices and associated disclaimers. At
+your discretion, such verbatim copies may or may not include a
+Compiled form of the Package.
+
+(3) You may apply any bug fixes, portability changes, and other
+modifications made available from the Copyright Holder. The resulting
+Package will still be considered the Standard Version, and as such
+will be subject to the Original License.
+
+
+Distribution of Modified Versions of the Package as Source
+
+(4) You may Distribute your Modified Version as Source (either gratis
+or for a Distributor Fee, and with or without a Compiled form of the
+Modified Version) provided that you clearly document how it differs
+from the Standard Version, including, but not limited to, documenting
+any non-standard features, executables, or modules, and provided that
+you do at least ONE of the following:
+
+ (a) make the Modified Version available to the Copyright Holder
+ of the Standard Version, under the Original License, so that the
+ Copyright Holder may include your modifications in the Standard
+ Version.
+
+ (b) ensure that installation of your Modified Version does not
+ prevent the user installing or running the Standard Version. In
+ addition, the Modified Version must bear a name that is different
+ from the name of the Standard Version.
+
+ (c) allow anyone who receives a copy of the Modified Version to
+ make the Source form of the Modified Version available to others
+ under
+
+ (i) the Original License or
+
+ (ii) a license that permits the licensee to freely copy,
+ modify and redistribute the Modified Version using the same
+ licensing terms that apply to the copy that the licensee
+ received, and requires that the Source form of the Modified
+ Version, and of any works derived from it, be made freely
+ available in that license fees are prohibited but Distributor
+ Fees are allowed.
+
+
+Distribution of Compiled Forms of the Standard Version
+or Modified Versions without the Source
+
+(5) You may Distribute Compiled forms of the Standard Version without
+the Source, provided that you include complete instructions on how to
+get the Source of the Standard Version. Such instructions must be
+valid at the time of your distribution. If these instructions, at any
+time while you are carrying out such distribution, become invalid, you
+must provide new instructions on demand or cease further distribution.
+If you provide valid instructions or cease distribution within thirty
+days after you become aware that the instructions are invalid, then
+you do not forfeit any of your rights under this license.
+
+(6) You may Distribute a Modified Version in Compiled form without
+the Source, provided that you comply with Section 4 with respect to
+the Source of the Modified Version.
+
+
+Aggregating or Linking the Package
+
+(7) You may aggregate the Package (either the Standard Version or
+Modified Version) with other packages and Distribute the resulting
+aggregation provided that you do not charge a licensing fee for the
+Package. Distributor Fees are permitted, and licensing fees for other
+components in the aggregation are permitted. The terms of this license
+apply to the use and Distribution of the Standard or Modified Versions
+as included in the aggregation.
+
+(8) You are permitted to link Modified and Standard Versions with
+other works, to embed the Package in a larger work of your own, or to
+build stand-alone binary or bytecode versions of applications that
+include the Package, and Distribute the result without restriction,
+provided the result does not expose a direct interface to the Package.
+
+
+Items That are Not Considered Part of a Modified Version
+
+(9) Works (including, but not limited to, modules and scripts) that
+merely extend or make use of the Package, do not, by themselves, cause
+the Package to be a Modified Version. In addition, such works are not
+considered parts of the Package itself, and are not subject to the
+terms of this license.
+
+
+General Provisions
+
+(10) Any use, modification, and distribution of the Standard or
+Modified Versions is governed by this Artistic License. By using,
+modifying or distributing the Package, you accept this license. Do not
+use, modify, or distribute the Package, if you do not accept this
+license.
+
+(11) If your Modified Version has been derived from a Modified
+Version made by someone other than you, you are nevertheless required
+to ensure that your Modified Version complies with the requirements of
+this license.
+
+(12) This license does not grant you the right to use any trademark,
+service mark, tradename, or logo of the Copyright Holder.
+
+(13) This license includes the non-exclusive, worldwide,
+free-of-charge patent license to make, have made, use, offer to sell,
+sell, import and otherwise transfer the Package with respect to any
+patent claims licensable by the Copyright Holder that are necessarily
+infringed by the Package. If you institute patent litigation
+(including a cross-claim or counterclaim) against any party alleging
+that the Package constitutes direct or contributory patent
+infringement, then this Artistic License to you shall terminate on the
+date that such litigation is filed.
+
+(14) Disclaimer of Warranty:
+THE PACKAGE IS PROVIDED BY THE COPYRIGHT HOLDER AND CONTRIBUTORS "AS
+IS" AND WITHOUT ANY EXPRESS OR IMPLIED WARRANTIES. THE IMPLIED
+WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE, OR
+NON-INFRINGEMENT ARE DISCLAIMED TO THE EXTENT PERMITTED BY YOUR LOCAL
+LAW. UNLESS REQUIRED BY LAW, NO COPYRIGHT HOLDER OR CONTRIBUTOR WILL
+BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, OR CONSEQUENTIAL
+DAMAGES ARISING IN ANY WAY OUT OF THE USE OF THE PACKAGE, EVEN IF
+ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
--- /dev/null
+# This file was automatically generated by Dist::Zilla::Plugin::Manifest v6.030.
+CODE_OF_CONDUCT.md
+CONTRIBUTING.md
+CREDITS
+Changes
+DateTime.xs
+INSTALL
+LICENSE
+MANIFEST
+META.json
+META.yml
+Makefile.PL
+README.md
+TODO
+azure-pipelines.yml
+cpanfile
+dev-bin/install-xt-tools.sh
+dist.ini
+git/hooks/pre-commit.sh
+git/setup.pl
+inc/LeapSecondsHeader.pm
+leap_seconds.h
+leaptab.txt
+lib/DateTime.pm
+lib/DateTime/Conflicts.pm
+lib/DateTime/Duration.pm
+lib/DateTime/Helpers.pm
+lib/DateTime/Infinite.pm
+lib/DateTime/LeapSecond.pm
+lib/DateTime/PP.pm
+lib/DateTime/PPExtra.pm
+lib/DateTime/Types.pm
+perlcriticrc
+perltidyrc
+ppport.h
+precious.toml
+t/00-report-prereqs.dd
+t/00-report-prereqs.t
+t/00load.t
+t/01sanity.t
+t/02last-day.t
+t/03components.t
+t/04epoch.t
+t/05set.t
+t/06add.t
+t/07compare.t
+t/09greg.t
+t/10subtract.t
+t/11duration.t
+t/12week.t
+t/13strftime.t
+t/14locale.t
+t/15jd.t
+t/16truncate.t
+t/17set-return.t
+t/18today.t
+t/19leap-second.t
+t/20infinite.t
+t/21bad-params.t
+t/22from-doy.t
+t/23storable.t
+t/24from-object.t
+t/25add-subtract.t
+t/26dt-leapsecond-pm.t
+t/27delta.t
+t/28dow.t
+t/29overload.t
+t/30future-tz.t
+t/31formatter.t
+t/32leap-second2.t
+t/33seconds-offset.t
+t/34set-tz.t
+t/35rd-values.t
+t/36invalid-local.t
+t/37local-add.t
+t/38local-subtract.t
+t/39no-so.t
+t/40leap-years.t
+t/41cldr-format.t
+t/42duration-class.t
+t/43new-params.t
+t/44set-formatter.t
+t/45core-time.t
+t/46warnings.t
+t/47default-time-zone.t
+t/48rt-115983.t
+t/49-without-sub-util.t
+t/zzz-check-breaks.t
+xt/author/clean-namespaces.t
+xt/author/eol.t
+xt/author/mojibake.t
+xt/author/no-tabs.t
+xt/author/pod-coverage.t
+xt/author/pod-spell.t
+xt/author/pod-syntax.t
+xt/author/portability.t
+xt/author/pp-00load.t
+xt/author/pp-01sanity.t
+xt/author/pp-02last-day.t
+xt/author/pp-03components.t
+xt/author/pp-04epoch.t
+xt/author/pp-05set.t
+xt/author/pp-06add.t
+xt/author/pp-07compare.t
+xt/author/pp-09greg.t
+xt/author/pp-10subtract.t
+xt/author/pp-11duration.t
+xt/author/pp-12week.t
+xt/author/pp-13strftime.t
+xt/author/pp-14locale.t
+xt/author/pp-15jd.t
+xt/author/pp-16truncate.t
+xt/author/pp-17set-return.t
+xt/author/pp-18today.t
+xt/author/pp-19leap-second.t
+xt/author/pp-20infinite.t
+xt/author/pp-21bad-params.t
+xt/author/pp-22from-doy.t
+xt/author/pp-23storable.t
+xt/author/pp-24from-object.t
+xt/author/pp-25add-subtract.t
+xt/author/pp-27delta.t
+xt/author/pp-28dow.t
+xt/author/pp-29overload.t
+xt/author/pp-30future-tz.t
+xt/author/pp-31formatter.t
+xt/author/pp-32leap-second2.t
+xt/author/pp-33seconds-offset.t
+xt/author/pp-34set-tz.t
+xt/author/pp-35rd-values.t
+xt/author/pp-36invalid-local.t
+xt/author/pp-37local-add.t
+xt/author/pp-38local-subtract.t
+xt/author/pp-40leap-years.t
+xt/author/pp-41cldr-format.t
+xt/author/pp-42duration-class.t
+xt/author/pp-43new-params.t
+xt/author/pp-44set-formatter.t
+xt/author/pp-45core-time.t
+xt/author/pp-46warnings.t
+xt/author/pp-47default-time-zone.t
+xt/author/pp-48rt-115983.t
+xt/author/pp-49-without-sub-util.t
+xt/author/precious.t
+xt/author/test-version.t
+xt/extra/pp-is-loaded.t
+xt/extra/test-all-my-deps.t
+xt/extra/test-ignores-env-vars.t
+xt/extra/xs-is-loaded.t
+xt/release/cpan-changes.t
+xt/release/meta-json.t
--- /dev/null
+{
+ "abstract" : "A date and time object for Perl",
+ "author" : [
+ "Dave Rolsky <autarch@urth.org>"
+ ],
+ "dynamic_config" : 0,
+ "generated_by" : "Dist::Zilla version 6.030, CPAN::Meta::Converter version 2.150010",
+ "license" : [
+ "artistic_2"
+ ],
+ "meta-spec" : {
+ "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec",
+ "version" : 2
+ },
+ "name" : "DateTime",
+ "prereqs" : {
+ "configure" : {
+ "requires" : {
+ "Dist::CheckConflicts" : "0.02",
+ "ExtUtils::MakeMaker" : "0"
+ },
+ "suggests" : {
+ "JSON::PP" : "2.27300"
+ }
+ },
+ "develop" : {
+ "requires" : {
+ "Capture::Tiny" : "0",
+ "Cwd" : "0",
+ "Devel::PPPort" : "3.23",
+ "Encode" : "0",
+ "File::Basename" : "0",
+ "File::Spec" : "0",
+ "FindBin" : "0",
+ "Perl::Critic" : "1.138",
+ "Perl::Critic::Moose" : "1.05",
+ "Perl::Tidy" : "20210111",
+ "Pod::Checker" : "1.74",
+ "Pod::Coverage::TrustPod" : "0",
+ "Pod::Tidy" : "0.10",
+ "Pod::Wordlist" : "0",
+ "Storable" : "0",
+ "Test::CPAN::Changes" : "0.19",
+ "Test::CPAN::Meta::JSON" : "0.16",
+ "Test::CleanNamespaces" : "0.15",
+ "Test::DependentModules" : "0",
+ "Test::EOL" : "0",
+ "Test::Fatal" : "0",
+ "Test::Mojibake" : "0",
+ "Test::More" : "0.96",
+ "Test::NoTabs" : "0",
+ "Test::Pod" : "1.41",
+ "Test::Pod::Coverage" : "1.08",
+ "Test::Portability::Files" : "0",
+ "Test::Spelling" : "0.12",
+ "Test::Version" : "2.05",
+ "Test::Warnings" : "0.005",
+ "Test::Without::Module" : "0",
+ "autodie" : "0",
+ "utf8" : "0"
+ }
+ },
+ "runtime" : {
+ "requires" : {
+ "Carp" : "0",
+ "DateTime::Locale" : "1.06",
+ "DateTime::TimeZone" : "2.44",
+ "Dist::CheckConflicts" : "0.02",
+ "POSIX" : "0",
+ "Params::ValidationCompiler" : "0.26",
+ "Scalar::Util" : "0",
+ "Specio" : "0.18",
+ "Specio::Declare" : "0",
+ "Specio::Exporter" : "0",
+ "Specio::Library::Builtins" : "0",
+ "Specio::Library::Numeric" : "0",
+ "Specio::Library::String" : "0",
+ "Specio::Subs" : "0",
+ "Try::Tiny" : "0",
+ "XSLoader" : "0",
+ "integer" : "0",
+ "namespace::autoclean" : "0.19",
+ "overload" : "0",
+ "parent" : "0",
+ "perl" : "5.008004",
+ "strict" : "0",
+ "warnings" : "0",
+ "warnings::register" : "0"
+ }
+ },
+ "test" : {
+ "recommends" : {
+ "CPAN::Meta" : "2.120900"
+ },
+ "requires" : {
+ "CPAN::Meta::Check" : "0.011",
+ "CPAN::Meta::Requirements" : "0",
+ "ExtUtils::MakeMaker" : "0",
+ "File::Spec" : "0",
+ "Storable" : "0",
+ "Test::Fatal" : "0",
+ "Test::More" : "0.96",
+ "Test::Warnings" : "0.005",
+ "Test::Without::Module" : "0",
+ "utf8" : "0"
+ }
+ }
+ },
+ "provides" : {
+ "DateTime" : {
+ "file" : "lib/DateTime.pm",
+ "version" : "1.65"
+ },
+ "DateTime::Duration" : {
+ "file" : "lib/DateTime/Duration.pm",
+ "version" : "1.65"
+ },
+ "DateTime::Helpers" : {
+ "file" : "lib/DateTime/Helpers.pm",
+ "version" : "1.65"
+ },
+ "DateTime::Infinite" : {
+ "file" : "lib/DateTime/Infinite.pm",
+ "version" : "1.65"
+ },
+ "DateTime::Infinite::Future" : {
+ "file" : "lib/DateTime/Infinite.pm",
+ "version" : "1.65"
+ },
+ "DateTime::Infinite::Past" : {
+ "file" : "lib/DateTime/Infinite.pm",
+ "version" : "1.65"
+ },
+ "DateTime::LeapSecond" : {
+ "file" : "lib/DateTime/LeapSecond.pm",
+ "version" : "1.65"
+ },
+ "DateTime::PP" : {
+ "file" : "lib/DateTime/PP.pm",
+ "version" : "1.65"
+ },
+ "DateTime::PPExtra" : {
+ "file" : "lib/DateTime/PPExtra.pm",
+ "version" : "1.65"
+ },
+ "DateTime::Types" : {
+ "file" : "lib/DateTime/Types.pm",
+ "version" : "1.65"
+ }
+ },
+ "release_status" : "stable",
+ "resources" : {
+ "bugtracker" : {
+ "web" : "https://github.com/houseabsolute/DateTime.pm/issues"
+ },
+ "homepage" : "https://metacpan.org/release/DateTime",
+ "repository" : {
+ "type" : "git",
+ "url" : "git://github.com/houseabsolute/DateTime.pm.git",
+ "web" : "https://github.com/houseabsolute/DateTime.pm"
+ },
+ "x_MailingList" : "datetime@perl.org"
+ },
+ "version" : "1.65",
+ "x_Dist_Zilla" : {
+ "perl" : {
+ "version" : "5.032001"
+ },
+ "plugins" : [
+ {
+ "class" : "Dist::Zilla::Plugin::PruneCruft",
+ "name" : "PruneCruft",
+ "version" : "6.030"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::DROLSKY::BundleAuthordep",
+ "name" : "@DROLSKY/DROLSKY::BundleAuthordep",
+ "version" : "1.22"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::Git::GatherDir",
+ "config" : {
+ "Dist::Zilla::Plugin::GatherDir" : {
+ "exclude_filename" : [
+ "CODE_OF_CONDUCT.md",
+ "CONTRIBUTING.md",
+ "LICENSE",
+ "Makefile.PL",
+ "README.md",
+ "cpanfile",
+ "leap_seconds.h",
+ "ppport.h"
+ ],
+ "exclude_match" : [],
+ "follow_symlinks" : 0,
+ "include_dotfiles" : 0,
+ "prefix" : "",
+ "prune_directory" : [],
+ "root" : "."
+ },
+ "Dist::Zilla::Plugin::Git::GatherDir" : {
+ "include_untracked" : 0
+ }
+ },
+ "name" : "@DROLSKY/Git::GatherDir",
+ "version" : "2.048"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::ManifestSkip",
+ "name" : "@DROLSKY/ManifestSkip",
+ "version" : "6.030"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::License",
+ "name" : "@DROLSKY/License",
+ "version" : "6.030"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::ExecDir",
+ "name" : "@DROLSKY/ExecDir",
+ "version" : "6.030"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::ShareDir",
+ "name" : "@DROLSKY/ShareDir",
+ "version" : "6.030"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::Manifest",
+ "name" : "@DROLSKY/Manifest",
+ "version" : "6.030"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::CheckVersionIncrement",
+ "name" : "@DROLSKY/CheckVersionIncrement",
+ "version" : "0.121750"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::TestRelease",
+ "name" : "@DROLSKY/TestRelease",
+ "version" : "6.030"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::ConfirmRelease",
+ "name" : "@DROLSKY/ConfirmRelease",
+ "version" : "6.030"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::UploadToCPAN",
+ "name" : "@DROLSKY/UploadToCPAN",
+ "version" : "6.030"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::VersionFromMainModule",
+ "config" : {
+ "Dist::Zilla::Role::ModuleMetadata" : {
+ "Module::Metadata" : "1.000037",
+ "version" : "0.006"
+ }
+ },
+ "name" : "@DROLSKY/VersionFromMainModule",
+ "version" : "0.04"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::Authority",
+ "name" : "@DROLSKY/Authority",
+ "version" : "1.009"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::AutoPrereqs",
+ "name" : "@DROLSKY/AutoPrereqs",
+ "version" : "6.030"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::CopyFilesFromBuild",
+ "name" : "@DROLSKY/CopyFilesFromBuild",
+ "version" : "0.170880"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::GitHub::Meta",
+ "name" : "@DROLSKY/GitHub::Meta",
+ "version" : "0.49"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::GitHub::Update",
+ "config" : {
+ "Dist::Zilla::Plugin::GitHub::Update" : {
+ "metacpan" : 1
+ }
+ },
+ "name" : "@DROLSKY/GitHub::Update",
+ "version" : "0.49"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::MetaResources",
+ "name" : "@DROLSKY/MetaResources",
+ "version" : "6.030"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::MetaProvides::Package",
+ "config" : {
+ "Dist::Zilla::Plugin::MetaProvides::Package" : {
+ "finder_objects" : [
+ {
+ "class" : "Dist::Zilla::Plugin::FinderCode",
+ "name" : "@DROLSKY/MetaProvides::Package/AUTOVIV/:InstallModulesPM",
+ "version" : "6.030"
+ }
+ ],
+ "include_underscores" : 0
+ },
+ "Dist::Zilla::Role::MetaProvider::Provider" : {
+ "$Dist::Zilla::Role::MetaProvider::Provider::VERSION" : "2.002004",
+ "inherit_missing" : 1,
+ "inherit_version" : 1,
+ "meta_noindex" : 1
+ },
+ "Dist::Zilla::Role::ModuleMetadata" : {
+ "Module::Metadata" : "1.000037",
+ "version" : "0.006"
+ }
+ },
+ "name" : "@DROLSKY/MetaProvides::Package",
+ "version" : "2.004003"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::Meta::Contributors",
+ "name" : "@DROLSKY/Meta::Contributors",
+ "version" : "0.003"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::MetaConfig",
+ "name" : "@DROLSKY/MetaConfig",
+ "version" : "6.030"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::MetaJSON",
+ "name" : "@DROLSKY/MetaJSON",
+ "version" : "6.030"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::MetaYAML",
+ "name" : "@DROLSKY/MetaYAML",
+ "version" : "6.030"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::NextRelease",
+ "name" : "@DROLSKY/NextRelease",
+ "version" : "6.030"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::Prereqs",
+ "config" : {
+ "Dist::Zilla::Plugin::Prereqs" : {
+ "phase" : "test",
+ "type" : "requires"
+ }
+ },
+ "name" : "@DROLSKY/Test::More with subtest",
+ "version" : "6.030"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::Prereqs",
+ "config" : {
+ "Dist::Zilla::Plugin::Prereqs" : {
+ "phase" : "develop",
+ "type" : "requires"
+ }
+ },
+ "name" : "@DROLSKY/Tools for use with precious",
+ "version" : "6.030"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::Prereqs",
+ "config" : {
+ "Dist::Zilla::Plugin::Prereqs" : {
+ "phase" : "develop",
+ "type" : "requires"
+ }
+ },
+ "name" : "@DROLSKY/Test::Version which fixes https://github.com/plicease/Test-Version/issues/7",
+ "version" : "6.030"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::PromptIfStale",
+ "config" : {
+ "Dist::Zilla::Plugin::PromptIfStale" : {
+ "check_all_plugins" : 0,
+ "check_all_prereqs" : 0,
+ "modules" : [
+ "Dist::Zilla::PluginBundle::DROLSKY"
+ ],
+ "phase" : "build",
+ "run_under_travis" : 0,
+ "skip" : []
+ }
+ },
+ "name" : "@DROLSKY/Dist::Zilla::PluginBundle::DROLSKY",
+ "version" : "0.058"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::PromptIfStale",
+ "config" : {
+ "Dist::Zilla::Plugin::PromptIfStale" : {
+ "check_all_plugins" : 1,
+ "check_all_prereqs" : 1,
+ "modules" : [],
+ "phase" : "release",
+ "run_under_travis" : 0,
+ "skip" : [
+ "Dist::Zilla::Plugin::DROLSKY::BundleAuthordep",
+ "Dist::Zilla::Plugin::DROLSKY::Contributors",
+ "Dist::Zilla::Plugin::DROLSKY::Git::CheckFor::CorrectBranch",
+ "Dist::Zilla::Plugin::DROLSKY::License",
+ "Dist::Zilla::Plugin::DROLSKY::MakeMaker",
+ "Dist::Zilla::Plugin::DROLSKY::PerlLinterConfigFiles",
+ "Dist::Zilla::Plugin::DROLSKY::Precious",
+ "Dist::Zilla::Plugin::DROLSKY::Test::Precious",
+ "Dist::Zilla::Plugin::DROLSKY::WeaverConfig",
+ "Pod::Weaver::PluginBundle::DROLSKY"
+ ]
+ }
+ },
+ "name" : "@DROLSKY/PromptIfStale",
+ "version" : "0.058"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::Test::Pod::Coverage::Configurable",
+ "name" : "@DROLSKY/Test::Pod::Coverage::Configurable",
+ "version" : "0.07"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::Test::PodSpelling",
+ "config" : {
+ "Dist::Zilla::Plugin::Test::PodSpelling" : {
+ "directories" : [
+ "bin",
+ "lib"
+ ],
+ "spell_cmd" : "",
+ "stopwords" : [
+ "AEST",
+ "Anno",
+ "BCE",
+ "CLDR",
+ "CPAN",
+ "DATETIME",
+ "DROLSKY",
+ "DROLSKY's",
+ "DateTime",
+ "DateTimeX",
+ "DateTimes",
+ "Domini",
+ "EEEE",
+ "EEEEE",
+ "Fl\u00e1vio",
+ "Formatters",
+ "GGGG",
+ "GGGGG",
+ "Glock",
+ "Hant",
+ "IEEE",
+ "LLL",
+ "LLLL",
+ "LLLLL",
+ "Liang",
+ "Liang's",
+ "MMM",
+ "MMMM",
+ "MMMMM",
+ "Measham",
+ "Measham's",
+ "MetaCPAN",
+ "POSIX",
+ "PayPal",
+ "PayPal",
+ "Postgres",
+ "QQQ",
+ "QQQQ",
+ "Rata",
+ "Rolsky",
+ "Rolsky's",
+ "SU",
+ "Soibelmann",
+ "Storable",
+ "TW",
+ "TZ",
+ "Tsai",
+ "UTC",
+ "VVVV",
+ "YAPCs",
+ "ZZZZ",
+ "ZZZZZ",
+ "afterwards",
+ "bian",
+ "ccc",
+ "cccc",
+ "ccccc",
+ "conformant",
+ "datetime",
+ "datetime's",
+ "datetimes",
+ "decrement",
+ "dian",
+ "drolsky",
+ "durations",
+ "eee",
+ "eeee",
+ "eeeee",
+ "env",
+ "fallback",
+ "formatter",
+ "hh",
+ "iCal",
+ "ji",
+ "mutiplication",
+ "na",
+ "namespace",
+ "ni",
+ "nitty",
+ "other's",
+ "proleptic",
+ "qqq",
+ "qqqq",
+ "sexagesimal",
+ "subclasses",
+ "tidyable",
+ "uu",
+ "vvvv",
+ "wiki",
+ "yy",
+ "yyyy",
+ "yyyyy",
+ "zh",
+ "zzzz"
+ ],
+ "wordlist" : "Pod::Wordlist"
+ }
+ },
+ "name" : "@DROLSKY/Test::PodSpelling",
+ "version" : "2.007005"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::PodSyntaxTests",
+ "name" : "@DROLSKY/PodSyntaxTests",
+ "version" : "6.030"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::MojibakeTests",
+ "name" : "@DROLSKY/MojibakeTests",
+ "version" : "0.8"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::RunExtraTests",
+ "config" : {
+ "Dist::Zilla::Role::TestRunner" : {
+ "default_jobs" : "12"
+ }
+ },
+ "name" : "@DROLSKY/RunExtraTests",
+ "version" : "0.029"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::Test::CleanNamespaces",
+ "config" : {
+ "Dist::Zilla::Plugin::Test::CleanNamespaces" : {
+ "filename" : "xt/author/clean-namespaces.t",
+ "skips" : [
+ "DateTime::Conflicts"
+ ]
+ }
+ },
+ "name" : "@DROLSKY/Test::CleanNamespaces",
+ "version" : "0.006"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::Test::CPAN::Changes",
+ "config" : {
+ "Dist::Zilla::Plugin::Test::CPAN::Changes" : {
+ "changelog" : "Changes"
+ }
+ },
+ "name" : "@DROLSKY/Test::CPAN::Changes",
+ "version" : "0.012"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::Test::CPAN::Meta::JSON",
+ "name" : "@DROLSKY/Test::CPAN::Meta::JSON",
+ "version" : "0.004"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::Test::EOL",
+ "config" : {
+ "Dist::Zilla::Plugin::Test::EOL" : {
+ "filename" : "xt/author/eol.t",
+ "finder" : [
+ ":ExecFiles",
+ ":InstallModules",
+ ":TestFiles"
+ ],
+ "trailing_whitespace" : 1
+ }
+ },
+ "name" : "@DROLSKY/Test::EOL",
+ "version" : "0.19"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::Test::NoTabs",
+ "config" : {
+ "Dist::Zilla::Plugin::Test::NoTabs" : {
+ "filename" : "xt/author/no-tabs.t",
+ "finder" : [
+ ":InstallModules",
+ ":ExecFiles",
+ ":TestFiles"
+ ]
+ }
+ },
+ "name" : "@DROLSKY/Test::NoTabs",
+ "version" : "0.15"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::Test::Portability",
+ "config" : {
+ "Dist::Zilla::Plugin::Test::Portability" : {
+ "options" : ""
+ }
+ },
+ "name" : "@DROLSKY/Test::Portability",
+ "version" : "2.001001"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::Test::ReportPrereqs",
+ "name" : "@DROLSKY/Test::ReportPrereqs",
+ "version" : "0.029"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::Test::Version",
+ "name" : "@DROLSKY/Test::Version",
+ "version" : "1.09"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::DROLSKY::Test::Precious",
+ "name" : "@DROLSKY/DROLSKY::Test::Precious",
+ "version" : "1.22"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::DROLSKY::Contributors",
+ "name" : "@DROLSKY/DROLSKY::Contributors",
+ "version" : "1.22"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::Git::Contributors",
+ "config" : {
+ "Dist::Zilla::Plugin::Git::Contributors" : {
+ "git_version" : "2.42.0",
+ "include_authors" : 0,
+ "include_releaser" : 1,
+ "order_by" : "name",
+ "paths" : []
+ }
+ },
+ "name" : "@DROLSKY/Git::Contributors",
+ "version" : "0.036"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::SurgicalPodWeaver",
+ "config" : {
+ "Dist::Zilla::Plugin::PodWeaver" : {
+ "config_plugins" : [
+ "@DROLSKY"
+ ],
+ "finder" : [
+ ":InstallModules",
+ ":ExecFiles"
+ ],
+ "plugins" : [
+ {
+ "class" : "Pod::Weaver::Plugin::EnsurePod5",
+ "name" : "@CorePrep/EnsurePod5",
+ "version" : "4.018"
+ },
+ {
+ "class" : "Pod::Weaver::Plugin::H1Nester",
+ "name" : "@CorePrep/H1Nester",
+ "version" : "4.018"
+ },
+ {
+ "class" : "Pod::Weaver::Plugin::SingleEncoding",
+ "name" : "@DROLSKY/SingleEncoding",
+ "version" : "4.018"
+ },
+ {
+ "class" : "Pod::Weaver::Plugin::Transformer",
+ "name" : "@DROLSKY/List",
+ "version" : "4.018"
+ },
+ {
+ "class" : "Pod::Weaver::Plugin::Transformer",
+ "name" : "@DROLSKY/Verbatim",
+ "version" : "4.018"
+ },
+ {
+ "class" : "Pod::Weaver::Section::Region",
+ "name" : "@DROLSKY/header",
+ "version" : "4.018"
+ },
+ {
+ "class" : "Pod::Weaver::Section::Name",
+ "name" : "@DROLSKY/Name",
+ "version" : "4.018"
+ },
+ {
+ "class" : "Pod::Weaver::Section::Version",
+ "name" : "@DROLSKY/Version",
+ "version" : "4.018"
+ },
+ {
+ "class" : "Pod::Weaver::Section::Region",
+ "name" : "@DROLSKY/prelude",
+ "version" : "4.018"
+ },
+ {
+ "class" : "Pod::Weaver::Section::Generic",
+ "name" : "SYNOPSIS",
+ "version" : "4.018"
+ },
+ {
+ "class" : "Pod::Weaver::Section::Generic",
+ "name" : "DESCRIPTION",
+ "version" : "4.018"
+ },
+ {
+ "class" : "Pod::Weaver::Section::Generic",
+ "name" : "OVERVIEW",
+ "version" : "4.018"
+ },
+ {
+ "class" : "Pod::Weaver::Section::Collect",
+ "name" : "ATTRIBUTES",
+ "version" : "4.018"
+ },
+ {
+ "class" : "Pod::Weaver::Section::Collect",
+ "name" : "METHODS",
+ "version" : "4.018"
+ },
+ {
+ "class" : "Pod::Weaver::Section::Collect",
+ "name" : "FUNCTIONS",
+ "version" : "4.018"
+ },
+ {
+ "class" : "Pod::Weaver::Section::Collect",
+ "name" : "TYPES",
+ "version" : "4.018"
+ },
+ {
+ "class" : "Pod::Weaver::Section::Leftovers",
+ "name" : "@DROLSKY/Leftovers",
+ "version" : "4.018"
+ },
+ {
+ "class" : "Pod::Weaver::Section::Region",
+ "name" : "@DROLSKY/postlude",
+ "version" : "4.018"
+ },
+ {
+ "class" : "Pod::Weaver::Section::GenerateSection",
+ "name" : "@DROLSKY/generate SUPPORT",
+ "version" : "4.018"
+ },
+ {
+ "class" : "Pod::Weaver::Section::AllowOverride",
+ "name" : "@DROLSKY/allow override SUPPORT",
+ "version" : "0.05"
+ },
+ {
+ "class" : "Pod::Weaver::Section::GenerateSection",
+ "name" : "@DROLSKY/generate SOURCE",
+ "version" : "4.018"
+ },
+ {
+ "class" : "Pod::Weaver::Section::GenerateSection",
+ "name" : "@DROLSKY/generate DONATIONS",
+ "version" : "4.018"
+ },
+ {
+ "class" : "Pod::Weaver::Section::Authors",
+ "name" : "@DROLSKY/Authors",
+ "version" : "4.018"
+ },
+ {
+ "class" : "Pod::Weaver::Section::Contributors",
+ "name" : "@DROLSKY/Contributors",
+ "version" : "0.009"
+ },
+ {
+ "class" : "Pod::Weaver::Section::Legal",
+ "name" : "@DROLSKY/Legal",
+ "version" : "4.018"
+ },
+ {
+ "class" : "Pod::Weaver::Section::AllowOverride",
+ "name" : "@DROLSKY/allow override Legal",
+ "version" : "0.05"
+ },
+ {
+ "class" : "Pod::Weaver::Section::Region",
+ "name" : "@DROLSKY/footer",
+ "version" : "4.018"
+ }
+ ]
+ }
+ },
+ "name" : "@DROLSKY/SurgicalPodWeaver",
+ "version" : "0.0023"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::DROLSKY::WeaverConfig",
+ "name" : "@DROLSKY/DROLSKY::WeaverConfig",
+ "version" : "1.22"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::ReadmeAnyFromPod",
+ "config" : {
+ "Dist::Zilla::Role::FileWatcher" : {
+ "version" : "0.006"
+ }
+ },
+ "name" : "@DROLSKY/README.md in build",
+ "version" : "0.163250"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::GenerateFile::FromShareDir",
+ "config" : {
+ "Dist::Zilla::Plugin::GenerateFile::FromShareDir" : {
+ "destination_filename" : "CONTRIBUTING.md",
+ "dist" : "Dist-Zilla-PluginBundle-DROLSKY",
+ "encoding" : "UTF-8",
+ "has_xs" : 1,
+ "location" : "build",
+ "source_filename" : "CONTRIBUTING.md"
+ },
+ "Dist::Zilla::Role::RepoFileInjector" : {
+ "allow_overwrite" : 1,
+ "repo_root" : ".",
+ "version" : "0.009"
+ }
+ },
+ "name" : "@DROLSKY/Generate CONTRIBUTING.md",
+ "version" : "0.015"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::GenerateFile::FromShareDir",
+ "config" : {
+ "Dist::Zilla::Plugin::GenerateFile::FromShareDir" : {
+ "destination_filename" : "CODE_OF_CONDUCT.md",
+ "dist" : "Dist-Zilla-PluginBundle-DROLSKY",
+ "encoding" : "UTF-8",
+ "has_xs" : 1,
+ "location" : "build",
+ "source_filename" : "CODE_OF_CONDUCT.md"
+ },
+ "Dist::Zilla::Role::RepoFileInjector" : {
+ "allow_overwrite" : 1,
+ "repo_root" : ".",
+ "version" : "0.009"
+ }
+ },
+ "name" : "@DROLSKY/Generate CODE_OF_CONDUCT.md",
+ "version" : "0.015"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::InstallGuide",
+ "config" : {
+ "Dist::Zilla::Role::ModuleMetadata" : {
+ "Module::Metadata" : "1.000037",
+ "version" : "0.006"
+ }
+ },
+ "name" : "@DROLSKY/InstallGuide",
+ "version" : "1.200014"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::CPANFile",
+ "name" : "@DROLSKY/CPANFile",
+ "version" : "6.030"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::PPPort",
+ "name" : "@DROLSKY/PPPort",
+ "version" : "0.010"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::DROLSKY::License",
+ "name" : "@DROLSKY/DROLSKY::License",
+ "version" : "1.22"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::CheckStrictVersion",
+ "name" : "@DROLSKY/CheckStrictVersion",
+ "version" : "0.001"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::CheckSelfDependency",
+ "config" : {
+ "Dist::Zilla::Plugin::CheckSelfDependency" : {
+ "finder" : [
+ ":InstallModules"
+ ]
+ },
+ "Dist::Zilla::Role::ModuleMetadata" : {
+ "Module::Metadata" : "1.000037",
+ "version" : "0.006"
+ }
+ },
+ "name" : "@DROLSKY/CheckSelfDependency",
+ "version" : "0.011"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::CheckPrereqsIndexed",
+ "name" : "@DROLSKY/CheckPrereqsIndexed",
+ "version" : "0.022"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::DROLSKY::Git::CheckFor::CorrectBranch",
+ "config" : {
+ "Dist::Zilla::Role::Git::Repo" : {
+ "git_version" : "2.42.0",
+ "repo_root" : "."
+ }
+ },
+ "name" : "@DROLSKY/DROLSKY::Git::CheckFor::CorrectBranch",
+ "version" : "1.22"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::EnsureChangesHasContent",
+ "name" : "@DROLSKY/EnsureChangesHasContent",
+ "version" : "0.02"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::Git::CheckFor::MergeConflicts",
+ "config" : {
+ "Dist::Zilla::Role::Git::Repo" : {
+ "git_version" : "2.42.0",
+ "repo_root" : "."
+ }
+ },
+ "name" : "@DROLSKY/Git::CheckFor::MergeConflicts",
+ "version" : "0.014"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::DROLSKY::PerlLinterConfigFiles",
+ "name" : "@DROLSKY/DROLSKY::PerlLinterConfigFiles",
+ "version" : "1.22"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::DROLSKY::DevTools",
+ "name" : "@DROLSKY/DROLSKY::DevTools",
+ "version" : "1.22"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::DROLSKY::Precious",
+ "name" : "@DROLSKY/DROLSKY::Precious",
+ "version" : "1.22"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::Git::Check",
+ "config" : {
+ "Dist::Zilla::Plugin::Git::Check" : {
+ "untracked_files" : "die"
+ },
+ "Dist::Zilla::Role::Git::DirtyFiles" : {
+ "allow_dirty" : [
+ "CODE_OF_CONDUCT.md",
+ "CONTRIBUTING.md",
+ "Changes",
+ "LICENSE",
+ "Makefile.PL",
+ "README.md",
+ "cpanfile",
+ "leap_seconds.h",
+ "ppport.h",
+ "precious.toml"
+ ],
+ "allow_dirty_match" : [],
+ "changelog" : "Changes"
+ },
+ "Dist::Zilla::Role::Git::Repo" : {
+ "git_version" : "2.42.0",
+ "repo_root" : "."
+ }
+ },
+ "name" : "@DROLSKY/Git::Check",
+ "version" : "2.048"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::Git::Commit",
+ "config" : {
+ "Dist::Zilla::Plugin::Git::Commit" : {
+ "add_files_in" : [],
+ "commit_msg" : "v%V%n%n%c",
+ "signoff" : 0
+ },
+ "Dist::Zilla::Role::Git::DirtyFiles" : {
+ "allow_dirty" : [
+ "CODE_OF_CONDUCT.md",
+ "CONTRIBUTING.md",
+ "Changes",
+ "LICENSE",
+ "Makefile.PL",
+ "README.md",
+ "cpanfile",
+ "leap_seconds.h",
+ "ppport.h",
+ "precious.toml"
+ ],
+ "allow_dirty_match" : [],
+ "changelog" : "Changes"
+ },
+ "Dist::Zilla::Role::Git::Repo" : {
+ "git_version" : "2.42.0",
+ "repo_root" : "."
+ },
+ "Dist::Zilla::Role::Git::StringFormatter" : {
+ "time_zone" : "local"
+ }
+ },
+ "name" : "@DROLSKY/Commit generated files",
+ "version" : "2.048"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::Git::Tag",
+ "config" : {
+ "Dist::Zilla::Plugin::Git::Tag" : {
+ "branch" : null,
+ "changelog" : "Changes",
+ "signed" : 0,
+ "tag" : "v1.65",
+ "tag_format" : "v%V",
+ "tag_message" : "v%V"
+ },
+ "Dist::Zilla::Role::Git::Repo" : {
+ "git_version" : "2.42.0",
+ "repo_root" : "."
+ },
+ "Dist::Zilla::Role::Git::StringFormatter" : {
+ "time_zone" : "local"
+ }
+ },
+ "name" : "@DROLSKY/Git::Tag",
+ "version" : "2.048"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::Git::Push",
+ "config" : {
+ "Dist::Zilla::Plugin::Git::Push" : {
+ "push_to" : [
+ "origin"
+ ],
+ "remotes_must_exist" : 1
+ },
+ "Dist::Zilla::Role::Git::Repo" : {
+ "git_version" : "2.42.0",
+ "repo_root" : "."
+ }
+ },
+ "name" : "@DROLSKY/Git::Push",
+ "version" : "2.048"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::BumpVersionAfterRelease",
+ "config" : {
+ "Dist::Zilla::Plugin::BumpVersionAfterRelease" : {
+ "finders" : [
+ ":ExecFiles",
+ ":InstallModules"
+ ],
+ "global" : 0,
+ "munge_makefile_pl" : 1
+ }
+ },
+ "name" : "@DROLSKY/BumpVersionAfterRelease",
+ "version" : "0.018"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::Git::Commit",
+ "config" : {
+ "Dist::Zilla::Plugin::Git::Commit" : {
+ "add_files_in" : [],
+ "commit_msg" : "Bump version after release",
+ "signoff" : 0
+ },
+ "Dist::Zilla::Role::Git::DirtyFiles" : {
+ "allow_dirty" : [
+ "Changes",
+ "dist.ini"
+ ],
+ "allow_dirty_match" : [
+ "(?^:.+)"
+ ],
+ "changelog" : "Changes"
+ },
+ "Dist::Zilla::Role::Git::Repo" : {
+ "git_version" : "2.42.0",
+ "repo_root" : "."
+ },
+ "Dist::Zilla::Role::Git::StringFormatter" : {
+ "time_zone" : "local"
+ }
+ },
+ "name" : "@DROLSKY/Commit version bump",
+ "version" : "2.048"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::Git::Push",
+ "config" : {
+ "Dist::Zilla::Plugin::Git::Push" : {
+ "push_to" : [
+ "origin"
+ ],
+ "remotes_must_exist" : 1
+ },
+ "Dist::Zilla::Role::Git::Repo" : {
+ "git_version" : "2.42.0",
+ "repo_root" : "."
+ }
+ },
+ "name" : "@DROLSKY/Push version bump",
+ "version" : "2.048"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::DROLSKY::MakeMaker",
+ "config" : {
+ "Dist::Zilla::Plugin::MakeMaker" : {
+ "make_path" : "make",
+ "version" : "6.030"
+ },
+ "Dist::Zilla::Plugin::MakeMaker::Awesome" : {
+ "version" : "0.49"
+ },
+ "Dist::Zilla::Role::TestRunner" : {
+ "default_jobs" : "12",
+ "version" : "6.030"
+ }
+ },
+ "name" : "@DROLSKY/DROLSKY::MakeMaker",
+ "version" : "1.22"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::lib",
+ "config" : {
+ "Dist::Zilla::Plugin::lib" : {
+ "lib" : [
+ "."
+ ]
+ }
+ },
+ "name" : "lib",
+ "version" : "0.001002"
+ },
+ {
+ "class" : "inc::LeapSecondsHeader",
+ "name" : "=inc::LeapSecondsHeader",
+ "version" : null
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::CopyFilesFromBuild",
+ "name" : "CopyFilesFromBuild",
+ "version" : "0.170880"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::MetaResources",
+ "name" : "MetaResources",
+ "version" : "6.030"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::Prereqs",
+ "config" : {
+ "Dist::Zilla::Plugin::Prereqs" : {
+ "phase" : "develop",
+ "type" : "requires"
+ }
+ },
+ "name" : "DevelopRequires",
+ "version" : "6.030"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::PurePerlTests",
+ "name" : "PurePerlTests",
+ "version" : "0.06"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::Conflicts",
+ "name" : "Conflicts",
+ "version" : "0.20"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::Test::CheckBreaks",
+ "config" : {
+ "Dist::Zilla::Plugin::Test::CheckBreaks" : {
+ "conflicts_module" : [
+ "DateTime::Conflicts"
+ ],
+ "no_forced_deps" : 0
+ },
+ "Dist::Zilla::Role::ModuleMetadata" : {
+ "Module::Metadata" : "1.000037",
+ "version" : "0.006"
+ }
+ },
+ "name" : "Test::CheckBreaks",
+ "version" : "0.019"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::FinderCode",
+ "name" : ":InstallModules",
+ "version" : "6.030"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::FinderCode",
+ "name" : ":IncModules",
+ "version" : "6.030"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::FinderCode",
+ "name" : ":TestFiles",
+ "version" : "6.030"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::FinderCode",
+ "name" : ":ExtraTestFiles",
+ "version" : "6.030"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::FinderCode",
+ "name" : ":ExecFiles",
+ "version" : "6.030"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::FinderCode",
+ "name" : ":PerlExecFiles",
+ "version" : "6.030"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::FinderCode",
+ "name" : ":ShareFiles",
+ "version" : "6.030"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::FinderCode",
+ "name" : ":MainModule",
+ "version" : "6.030"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::FinderCode",
+ "name" : ":AllFiles",
+ "version" : "6.030"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::FinderCode",
+ "name" : ":NoFiles",
+ "version" : "6.030"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::FinderCode",
+ "name" : "@DROLSKY/MetaProvides::Package/AUTOVIV/:InstallModulesPM",
+ "version" : "6.030"
+ }
+ ],
+ "zilla" : {
+ "class" : "Dist::Zilla::Dist::Builder",
+ "config" : {
+ "is_trial" : 0
+ },
+ "version" : "6.030"
+ }
+ },
+ "x_authority" : "cpan:DROLSKY",
+ "x_breaks" : {
+ "DateTime::Format::Mail" : "<= 0.402"
+ },
+ "x_contributors" : [
+ "Ben Bennett <fiji@limey.net>",
+ "Christian Hansen <chansen@cpan.org>",
+ "Daisuke Maki <dmaki@cpan.org>",
+ "Dan Book <grinnz@gmail.com>",
+ "Dan Stewart <danielandrewstewart@gmail.com>",
+ "David Dyck <david.dyck@checksum.com>",
+ "David E. Wheeler <david@justatheory.com>",
+ "David Precious <davidp@preshweb.co.uk>",
+ "Doug Bell <madcityzen@gmail.com>",
+ "Fl\u00e1vio Soibelmann Glock <fglock@gmail.com>",
+ "Gianni Ceccarelli <gianni.ceccarelli@broadbean.com>",
+ "Gregory Oschwald <oschwald@gmail.com>",
+ "Hauke D <haukex@zero-g.net>",
+ "Iain Truskett <deceased>",
+ "James Raspass <jraspass@gmail.com>",
+ "Jason McIntosh <jmac@jmac.org>",
+ "Joshua Hoblitt <jhoblitt@cpan.org>",
+ "Karen Etheridge <ether@cpan.org>",
+ "Mark Overmeer <mark@overmeer.net>",
+ "Michael Conrad <mike@nrdvana.net>",
+ "Michael R. Davis <mrdvt92@users.noreply.github.com>",
+ "Mohammad S Anwar <mohammad.anwar@yahoo.com>",
+ "M Somerville <dracos@users.noreply.github.com>",
+ "Nick Tonkin <1nickt@users.noreply.github.com>",
+ "Olaf Alders <olaf@wundersolutions.com>",
+ "Ovid <curtis_ovid_poe@yahoo.com>",
+ "Paul Howarth <paul@city-fan.org>",
+ "Philippe Bruhat (BooK) <book@cpan.org>",
+ "philip r brenan <philiprbrenan@gmail.com>",
+ "Ricardo Signes <rjbs@cpan.org>",
+ "Richard Bowen <bowen@cpan.org>",
+ "Ron Hill <rkhill@cpan.org>",
+ "Sam Kington <github@illuminated.co.uk>",
+ "viviparous <viviparous@prc>"
+ ],
+ "x_generated_by_perl" : "v5.32.1",
+ "x_serialization_backend" : "Cpanel::JSON::XS version 4.26",
+ "x_spdx_expression" : "Artistic-2.0"
+}
+
--- /dev/null
+---
+abstract: 'A date and time object for Perl'
+author:
+ - 'Dave Rolsky <autarch@urth.org>'
+build_requires:
+ CPAN::Meta::Check: '0.011'
+ CPAN::Meta::Requirements: '0'
+ ExtUtils::MakeMaker: '0'
+ File::Spec: '0'
+ Storable: '0'
+ Test::Fatal: '0'
+ Test::More: '0.96'
+ Test::Warnings: '0.005'
+ Test::Without::Module: '0'
+ utf8: '0'
+configure_requires:
+ Dist::CheckConflicts: '0.02'
+ ExtUtils::MakeMaker: '0'
+dynamic_config: 0
+generated_by: 'Dist::Zilla version 6.030, CPAN::Meta::Converter version 2.150010'
+license: artistic_2
+meta-spec:
+ url: http://module-build.sourceforge.net/META-spec-v1.4.html
+ version: '1.4'
+name: DateTime
+provides:
+ DateTime:
+ file: lib/DateTime.pm
+ version: '1.65'
+ DateTime::Duration:
+ file: lib/DateTime/Duration.pm
+ version: '1.65'
+ DateTime::Helpers:
+ file: lib/DateTime/Helpers.pm
+ version: '1.65'
+ DateTime::Infinite:
+ file: lib/DateTime/Infinite.pm
+ version: '1.65'
+ DateTime::Infinite::Future:
+ file: lib/DateTime/Infinite.pm
+ version: '1.65'
+ DateTime::Infinite::Past:
+ file: lib/DateTime/Infinite.pm
+ version: '1.65'
+ DateTime::LeapSecond:
+ file: lib/DateTime/LeapSecond.pm
+ version: '1.65'
+ DateTime::PP:
+ file: lib/DateTime/PP.pm
+ version: '1.65'
+ DateTime::PPExtra:
+ file: lib/DateTime/PPExtra.pm
+ version: '1.65'
+ DateTime::Types:
+ file: lib/DateTime/Types.pm
+ version: '1.65'
+requires:
+ Carp: '0'
+ DateTime::Locale: '1.06'
+ DateTime::TimeZone: '2.44'
+ Dist::CheckConflicts: '0.02'
+ POSIX: '0'
+ Params::ValidationCompiler: '0.26'
+ Scalar::Util: '0'
+ Specio: '0.18'
+ Specio::Declare: '0'
+ Specio::Exporter: '0'
+ Specio::Library::Builtins: '0'
+ Specio::Library::Numeric: '0'
+ Specio::Library::String: '0'
+ Specio::Subs: '0'
+ Try::Tiny: '0'
+ XSLoader: '0'
+ integer: '0'
+ namespace::autoclean: '0.19'
+ overload: '0'
+ parent: '0'
+ perl: '5.008004'
+ strict: '0'
+ warnings: '0'
+ warnings::register: '0'
+resources:
+ MailingList: datetime@perl.org
+ bugtracker: https://github.com/houseabsolute/DateTime.pm/issues
+ homepage: https://metacpan.org/release/DateTime
+ repository: git://github.com/houseabsolute/DateTime.pm.git
+version: '1.65'
+x_Dist_Zilla:
+ perl:
+ version: '5.032001'
+ plugins:
+ -
+ class: Dist::Zilla::Plugin::PruneCruft
+ name: PruneCruft
+ version: '6.030'
+ -
+ class: Dist::Zilla::Plugin::DROLSKY::BundleAuthordep
+ name: '@DROLSKY/DROLSKY::BundleAuthordep'
+ version: '1.22'
+ -
+ class: Dist::Zilla::Plugin::Git::GatherDir
+ config:
+ Dist::Zilla::Plugin::GatherDir:
+ exclude_filename:
+ - CODE_OF_CONDUCT.md
+ - CONTRIBUTING.md
+ - LICENSE
+ - Makefile.PL
+ - README.md
+ - cpanfile
+ - leap_seconds.h
+ - ppport.h
+ exclude_match: []
+ follow_symlinks: 0
+ include_dotfiles: 0
+ prefix: ''
+ prune_directory: []
+ root: .
+ Dist::Zilla::Plugin::Git::GatherDir:
+ include_untracked: 0
+ name: '@DROLSKY/Git::GatherDir'
+ version: '2.048'
+ -
+ class: Dist::Zilla::Plugin::ManifestSkip
+ name: '@DROLSKY/ManifestSkip'
+ version: '6.030'
+ -
+ class: Dist::Zilla::Plugin::License
+ name: '@DROLSKY/License'
+ version: '6.030'
+ -
+ class: Dist::Zilla::Plugin::ExecDir
+ name: '@DROLSKY/ExecDir'
+ version: '6.030'
+ -
+ class: Dist::Zilla::Plugin::ShareDir
+ name: '@DROLSKY/ShareDir'
+ version: '6.030'
+ -
+ class: Dist::Zilla::Plugin::Manifest
+ name: '@DROLSKY/Manifest'
+ version: '6.030'
+ -
+ class: Dist::Zilla::Plugin::CheckVersionIncrement
+ name: '@DROLSKY/CheckVersionIncrement'
+ version: '0.121750'
+ -
+ class: Dist::Zilla::Plugin::TestRelease
+ name: '@DROLSKY/TestRelease'
+ version: '6.030'
+ -
+ class: Dist::Zilla::Plugin::ConfirmRelease
+ name: '@DROLSKY/ConfirmRelease'
+ version: '6.030'
+ -
+ class: Dist::Zilla::Plugin::UploadToCPAN
+ name: '@DROLSKY/UploadToCPAN'
+ version: '6.030'
+ -
+ class: Dist::Zilla::Plugin::VersionFromMainModule
+ config:
+ Dist::Zilla::Role::ModuleMetadata:
+ Module::Metadata: '1.000037'
+ version: '0.006'
+ name: '@DROLSKY/VersionFromMainModule'
+ version: '0.04'
+ -
+ class: Dist::Zilla::Plugin::Authority
+ name: '@DROLSKY/Authority'
+ version: '1.009'
+ -
+ class: Dist::Zilla::Plugin::AutoPrereqs
+ name: '@DROLSKY/AutoPrereqs'
+ version: '6.030'
+ -
+ class: Dist::Zilla::Plugin::CopyFilesFromBuild
+ name: '@DROLSKY/CopyFilesFromBuild'
+ version: '0.170880'
+ -
+ class: Dist::Zilla::Plugin::GitHub::Meta
+ name: '@DROLSKY/GitHub::Meta'
+ version: '0.49'
+ -
+ class: Dist::Zilla::Plugin::GitHub::Update
+ config:
+ Dist::Zilla::Plugin::GitHub::Update:
+ metacpan: 1
+ name: '@DROLSKY/GitHub::Update'
+ version: '0.49'
+ -
+ class: Dist::Zilla::Plugin::MetaResources
+ name: '@DROLSKY/MetaResources'
+ version: '6.030'
+ -
+ class: Dist::Zilla::Plugin::MetaProvides::Package
+ config:
+ Dist::Zilla::Plugin::MetaProvides::Package:
+ finder_objects:
+ -
+ class: Dist::Zilla::Plugin::FinderCode
+ name: '@DROLSKY/MetaProvides::Package/AUTOVIV/:InstallModulesPM'
+ version: '6.030'
+ include_underscores: 0
+ Dist::Zilla::Role::MetaProvider::Provider:
+ $Dist::Zilla::Role::MetaProvider::Provider::VERSION: '2.002004'
+ inherit_missing: '1'
+ inherit_version: '1'
+ meta_noindex: '1'
+ Dist::Zilla::Role::ModuleMetadata:
+ Module::Metadata: '1.000037'
+ version: '0.006'
+ name: '@DROLSKY/MetaProvides::Package'
+ version: '2.004003'
+ -
+ class: Dist::Zilla::Plugin::Meta::Contributors
+ name: '@DROLSKY/Meta::Contributors'
+ version: '0.003'
+ -
+ class: Dist::Zilla::Plugin::MetaConfig
+ name: '@DROLSKY/MetaConfig'
+ version: '6.030'
+ -
+ class: Dist::Zilla::Plugin::MetaJSON
+ name: '@DROLSKY/MetaJSON'
+ version: '6.030'
+ -
+ class: Dist::Zilla::Plugin::MetaYAML
+ name: '@DROLSKY/MetaYAML'
+ version: '6.030'
+ -
+ class: Dist::Zilla::Plugin::NextRelease
+ name: '@DROLSKY/NextRelease'
+ version: '6.030'
+ -
+ class: Dist::Zilla::Plugin::Prereqs
+ config:
+ Dist::Zilla::Plugin::Prereqs:
+ phase: test
+ type: requires
+ name: '@DROLSKY/Test::More with subtest'
+ version: '6.030'
+ -
+ class: Dist::Zilla::Plugin::Prereqs
+ config:
+ Dist::Zilla::Plugin::Prereqs:
+ phase: develop
+ type: requires
+ name: '@DROLSKY/Tools for use with precious'
+ version: '6.030'
+ -
+ class: Dist::Zilla::Plugin::Prereqs
+ config:
+ Dist::Zilla::Plugin::Prereqs:
+ phase: develop
+ type: requires
+ name: '@DROLSKY/Test::Version which fixes https://github.com/plicease/Test-Version/issues/7'
+ version: '6.030'
+ -
+ class: Dist::Zilla::Plugin::PromptIfStale
+ config:
+ Dist::Zilla::Plugin::PromptIfStale:
+ check_all_plugins: 0
+ check_all_prereqs: 0
+ modules:
+ - Dist::Zilla::PluginBundle::DROLSKY
+ phase: build
+ run_under_travis: 0
+ skip: []
+ name: '@DROLSKY/Dist::Zilla::PluginBundle::DROLSKY'
+ version: '0.058'
+ -
+ class: Dist::Zilla::Plugin::PromptIfStale
+ config:
+ Dist::Zilla::Plugin::PromptIfStale:
+ check_all_plugins: 1
+ check_all_prereqs: 1
+ modules: []
+ phase: release
+ run_under_travis: 0
+ skip:
+ - Dist::Zilla::Plugin::DROLSKY::BundleAuthordep
+ - Dist::Zilla::Plugin::DROLSKY::Contributors
+ - Dist::Zilla::Plugin::DROLSKY::Git::CheckFor::CorrectBranch
+ - Dist::Zilla::Plugin::DROLSKY::License
+ - Dist::Zilla::Plugin::DROLSKY::MakeMaker
+ - Dist::Zilla::Plugin::DROLSKY::PerlLinterConfigFiles
+ - Dist::Zilla::Plugin::DROLSKY::Precious
+ - Dist::Zilla::Plugin::DROLSKY::Test::Precious
+ - Dist::Zilla::Plugin::DROLSKY::WeaverConfig
+ - Pod::Weaver::PluginBundle::DROLSKY
+ name: '@DROLSKY/PromptIfStale'
+ version: '0.058'
+ -
+ class: Dist::Zilla::Plugin::Test::Pod::Coverage::Configurable
+ name: '@DROLSKY/Test::Pod::Coverage::Configurable'
+ version: '0.07'
+ -
+ class: Dist::Zilla::Plugin::Test::PodSpelling
+ config:
+ Dist::Zilla::Plugin::Test::PodSpelling:
+ directories:
+ - bin
+ - lib
+ spell_cmd: ''
+ stopwords:
+ - AEST
+ - Anno
+ - BCE
+ - CLDR
+ - CPAN
+ - DATETIME
+ - DROLSKY
+ - "DROLSKY's"
+ - DateTime
+ - DateTimeX
+ - DateTimes
+ - Domini
+ - EEEE
+ - EEEEE
+ - Flávio
+ - Formatters
+ - GGGG
+ - GGGGG
+ - Glock
+ - Hant
+ - IEEE
+ - LLL
+ - LLLL
+ - LLLLL
+ - Liang
+ - "Liang's"
+ - MMM
+ - MMMM
+ - MMMMM
+ - Measham
+ - "Measham's"
+ - MetaCPAN
+ - POSIX
+ - PayPal
+ - PayPal
+ - Postgres
+ - QQQ
+ - QQQQ
+ - Rata
+ - Rolsky
+ - "Rolsky's"
+ - SU
+ - Soibelmann
+ - Storable
+ - TW
+ - TZ
+ - Tsai
+ - UTC
+ - VVVV
+ - YAPCs
+ - ZZZZ
+ - ZZZZZ
+ - afterwards
+ - bian
+ - ccc
+ - cccc
+ - ccccc
+ - conformant
+ - datetime
+ - "datetime's"
+ - datetimes
+ - decrement
+ - dian
+ - drolsky
+ - durations
+ - eee
+ - eeee
+ - eeeee
+ - env
+ - fallback
+ - formatter
+ - hh
+ - iCal
+ - ji
+ - mutiplication
+ - na
+ - namespace
+ - ni
+ - nitty
+ - "other's"
+ - proleptic
+ - qqq
+ - qqqq
+ - sexagesimal
+ - subclasses
+ - tidyable
+ - uu
+ - vvvv
+ - wiki
+ - yy
+ - yyyy
+ - yyyyy
+ - zh
+ - zzzz
+ wordlist: Pod::Wordlist
+ name: '@DROLSKY/Test::PodSpelling'
+ version: '2.007005'
+ -
+ class: Dist::Zilla::Plugin::PodSyntaxTests
+ name: '@DROLSKY/PodSyntaxTests'
+ version: '6.030'
+ -
+ class: Dist::Zilla::Plugin::MojibakeTests
+ name: '@DROLSKY/MojibakeTests'
+ version: '0.8'
+ -
+ class: Dist::Zilla::Plugin::RunExtraTests
+ config:
+ Dist::Zilla::Role::TestRunner:
+ default_jobs: '12'
+ name: '@DROLSKY/RunExtraTests'
+ version: '0.029'
+ -
+ class: Dist::Zilla::Plugin::Test::CleanNamespaces
+ config:
+ Dist::Zilla::Plugin::Test::CleanNamespaces:
+ filename: xt/author/clean-namespaces.t
+ skips:
+ - DateTime::Conflicts
+ name: '@DROLSKY/Test::CleanNamespaces'
+ version: '0.006'
+ -
+ class: Dist::Zilla::Plugin::Test::CPAN::Changes
+ config:
+ Dist::Zilla::Plugin::Test::CPAN::Changes:
+ changelog: Changes
+ name: '@DROLSKY/Test::CPAN::Changes'
+ version: '0.012'
+ -
+ class: Dist::Zilla::Plugin::Test::CPAN::Meta::JSON
+ name: '@DROLSKY/Test::CPAN::Meta::JSON'
+ version: '0.004'
+ -
+ class: Dist::Zilla::Plugin::Test::EOL
+ config:
+ Dist::Zilla::Plugin::Test::EOL:
+ filename: xt/author/eol.t
+ finder:
+ - ':ExecFiles'
+ - ':InstallModules'
+ - ':TestFiles'
+ trailing_whitespace: 1
+ name: '@DROLSKY/Test::EOL'
+ version: '0.19'
+ -
+ class: Dist::Zilla::Plugin::Test::NoTabs
+ config:
+ Dist::Zilla::Plugin::Test::NoTabs:
+ filename: xt/author/no-tabs.t
+ finder:
+ - ':InstallModules'
+ - ':ExecFiles'
+ - ':TestFiles'
+ name: '@DROLSKY/Test::NoTabs'
+ version: '0.15'
+ -
+ class: Dist::Zilla::Plugin::Test::Portability
+ config:
+ Dist::Zilla::Plugin::Test::Portability:
+ options: ''
+ name: '@DROLSKY/Test::Portability'
+ version: '2.001001'
+ -
+ class: Dist::Zilla::Plugin::Test::ReportPrereqs
+ name: '@DROLSKY/Test::ReportPrereqs'
+ version: '0.029'
+ -
+ class: Dist::Zilla::Plugin::Test::Version
+ name: '@DROLSKY/Test::Version'
+ version: '1.09'
+ -
+ class: Dist::Zilla::Plugin::DROLSKY::Test::Precious
+ name: '@DROLSKY/DROLSKY::Test::Precious'
+ version: '1.22'
+ -
+ class: Dist::Zilla::Plugin::DROLSKY::Contributors
+ name: '@DROLSKY/DROLSKY::Contributors'
+ version: '1.22'
+ -
+ class: Dist::Zilla::Plugin::Git::Contributors
+ config:
+ Dist::Zilla::Plugin::Git::Contributors:
+ git_version: 2.42.0
+ include_authors: 0
+ include_releaser: 1
+ order_by: name
+ paths: []
+ name: '@DROLSKY/Git::Contributors'
+ version: '0.036'
+ -
+ class: Dist::Zilla::Plugin::SurgicalPodWeaver
+ config:
+ Dist::Zilla::Plugin::PodWeaver:
+ config_plugins:
+ - '@DROLSKY'
+ finder:
+ - ':InstallModules'
+ - ':ExecFiles'
+ plugins:
+ -
+ class: Pod::Weaver::Plugin::EnsurePod5
+ name: '@CorePrep/EnsurePod5'
+ version: '4.018'
+ -
+ class: Pod::Weaver::Plugin::H1Nester
+ name: '@CorePrep/H1Nester'
+ version: '4.018'
+ -
+ class: Pod::Weaver::Plugin::SingleEncoding
+ name: '@DROLSKY/SingleEncoding'
+ version: '4.018'
+ -
+ class: Pod::Weaver::Plugin::Transformer
+ name: '@DROLSKY/List'
+ version: '4.018'
+ -
+ class: Pod::Weaver::Plugin::Transformer
+ name: '@DROLSKY/Verbatim'
+ version: '4.018'
+ -
+ class: Pod::Weaver::Section::Region
+ name: '@DROLSKY/header'
+ version: '4.018'
+ -
+ class: Pod::Weaver::Section::Name
+ name: '@DROLSKY/Name'
+ version: '4.018'
+ -
+ class: Pod::Weaver::Section::Version
+ name: '@DROLSKY/Version'
+ version: '4.018'
+ -
+ class: Pod::Weaver::Section::Region
+ name: '@DROLSKY/prelude'
+ version: '4.018'
+ -
+ class: Pod::Weaver::Section::Generic
+ name: SYNOPSIS
+ version: '4.018'
+ -
+ class: Pod::Weaver::Section::Generic
+ name: DESCRIPTION
+ version: '4.018'
+ -
+ class: Pod::Weaver::Section::Generic
+ name: OVERVIEW
+ version: '4.018'
+ -
+ class: Pod::Weaver::Section::Collect
+ name: ATTRIBUTES
+ version: '4.018'
+ -
+ class: Pod::Weaver::Section::Collect
+ name: METHODS
+ version: '4.018'
+ -
+ class: Pod::Weaver::Section::Collect
+ name: FUNCTIONS
+ version: '4.018'
+ -
+ class: Pod::Weaver::Section::Collect
+ name: TYPES
+ version: '4.018'
+ -
+ class: Pod::Weaver::Section::Leftovers
+ name: '@DROLSKY/Leftovers'
+ version: '4.018'
+ -
+ class: Pod::Weaver::Section::Region
+ name: '@DROLSKY/postlude'
+ version: '4.018'
+ -
+ class: Pod::Weaver::Section::GenerateSection
+ name: '@DROLSKY/generate SUPPORT'
+ version: '4.018'
+ -
+ class: Pod::Weaver::Section::AllowOverride
+ name: '@DROLSKY/allow override SUPPORT'
+ version: '0.05'
+ -
+ class: Pod::Weaver::Section::GenerateSection
+ name: '@DROLSKY/generate SOURCE'
+ version: '4.018'
+ -
+ class: Pod::Weaver::Section::GenerateSection
+ name: '@DROLSKY/generate DONATIONS'
+ version: '4.018'
+ -
+ class: Pod::Weaver::Section::Authors
+ name: '@DROLSKY/Authors'
+ version: '4.018'
+ -
+ class: Pod::Weaver::Section::Contributors
+ name: '@DROLSKY/Contributors'
+ version: '0.009'
+ -
+ class: Pod::Weaver::Section::Legal
+ name: '@DROLSKY/Legal'
+ version: '4.018'
+ -
+ class: Pod::Weaver::Section::AllowOverride
+ name: '@DROLSKY/allow override Legal'
+ version: '0.05'
+ -
+ class: Pod::Weaver::Section::Region
+ name: '@DROLSKY/footer'
+ version: '4.018'
+ name: '@DROLSKY/SurgicalPodWeaver'
+ version: '0.0023'
+ -
+ class: Dist::Zilla::Plugin::DROLSKY::WeaverConfig
+ name: '@DROLSKY/DROLSKY::WeaverConfig'
+ version: '1.22'
+ -
+ class: Dist::Zilla::Plugin::ReadmeAnyFromPod
+ config:
+ Dist::Zilla::Role::FileWatcher:
+ version: '0.006'
+ name: '@DROLSKY/README.md in build'
+ version: '0.163250'
+ -
+ class: Dist::Zilla::Plugin::GenerateFile::FromShareDir
+ config:
+ Dist::Zilla::Plugin::GenerateFile::FromShareDir:
+ destination_filename: CONTRIBUTING.md
+ dist: Dist-Zilla-PluginBundle-DROLSKY
+ encoding: UTF-8
+ has_xs: '1'
+ location: build
+ source_filename: CONTRIBUTING.md
+ Dist::Zilla::Role::RepoFileInjector:
+ allow_overwrite: 1
+ repo_root: .
+ version: '0.009'
+ name: '@DROLSKY/Generate CONTRIBUTING.md'
+ version: '0.015'
+ -
+ class: Dist::Zilla::Plugin::GenerateFile::FromShareDir
+ config:
+ Dist::Zilla::Plugin::GenerateFile::FromShareDir:
+ destination_filename: CODE_OF_CONDUCT.md
+ dist: Dist-Zilla-PluginBundle-DROLSKY
+ encoding: UTF-8
+ has_xs: '1'
+ location: build
+ source_filename: CODE_OF_CONDUCT.md
+ Dist::Zilla::Role::RepoFileInjector:
+ allow_overwrite: 1
+ repo_root: .
+ version: '0.009'
+ name: '@DROLSKY/Generate CODE_OF_CONDUCT.md'
+ version: '0.015'
+ -
+ class: Dist::Zilla::Plugin::InstallGuide
+ config:
+ Dist::Zilla::Role::ModuleMetadata:
+ Module::Metadata: '1.000037'
+ version: '0.006'
+ name: '@DROLSKY/InstallGuide'
+ version: '1.200014'
+ -
+ class: Dist::Zilla::Plugin::CPANFile
+ name: '@DROLSKY/CPANFile'
+ version: '6.030'
+ -
+ class: Dist::Zilla::Plugin::PPPort
+ name: '@DROLSKY/PPPort'
+ version: '0.010'
+ -
+ class: Dist::Zilla::Plugin::DROLSKY::License
+ name: '@DROLSKY/DROLSKY::License'
+ version: '1.22'
+ -
+ class: Dist::Zilla::Plugin::CheckStrictVersion
+ name: '@DROLSKY/CheckStrictVersion'
+ version: '0.001'
+ -
+ class: Dist::Zilla::Plugin::CheckSelfDependency
+ config:
+ Dist::Zilla::Plugin::CheckSelfDependency:
+ finder:
+ - ':InstallModules'
+ Dist::Zilla::Role::ModuleMetadata:
+ Module::Metadata: '1.000037'
+ version: '0.006'
+ name: '@DROLSKY/CheckSelfDependency'
+ version: '0.011'
+ -
+ class: Dist::Zilla::Plugin::CheckPrereqsIndexed
+ name: '@DROLSKY/CheckPrereqsIndexed'
+ version: '0.022'
+ -
+ class: Dist::Zilla::Plugin::DROLSKY::Git::CheckFor::CorrectBranch
+ config:
+ Dist::Zilla::Role::Git::Repo:
+ git_version: 2.42.0
+ repo_root: .
+ name: '@DROLSKY/DROLSKY::Git::CheckFor::CorrectBranch'
+ version: '1.22'
+ -
+ class: Dist::Zilla::Plugin::EnsureChangesHasContent
+ name: '@DROLSKY/EnsureChangesHasContent'
+ version: '0.02'
+ -
+ class: Dist::Zilla::Plugin::Git::CheckFor::MergeConflicts
+ config:
+ Dist::Zilla::Role::Git::Repo:
+ git_version: 2.42.0
+ repo_root: .
+ name: '@DROLSKY/Git::CheckFor::MergeConflicts'
+ version: '0.014'
+ -
+ class: Dist::Zilla::Plugin::DROLSKY::PerlLinterConfigFiles
+ name: '@DROLSKY/DROLSKY::PerlLinterConfigFiles'
+ version: '1.22'
+ -
+ class: Dist::Zilla::Plugin::DROLSKY::DevTools
+ name: '@DROLSKY/DROLSKY::DevTools'
+ version: '1.22'
+ -
+ class: Dist::Zilla::Plugin::DROLSKY::Precious
+ name: '@DROLSKY/DROLSKY::Precious'
+ version: '1.22'
+ -
+ class: Dist::Zilla::Plugin::Git::Check
+ config:
+ Dist::Zilla::Plugin::Git::Check:
+ untracked_files: die
+ Dist::Zilla::Role::Git::DirtyFiles:
+ allow_dirty:
+ - CODE_OF_CONDUCT.md
+ - CONTRIBUTING.md
+ - Changes
+ - LICENSE
+ - Makefile.PL
+ - README.md
+ - cpanfile
+ - leap_seconds.h
+ - ppport.h
+ - precious.toml
+ allow_dirty_match: []
+ changelog: Changes
+ Dist::Zilla::Role::Git::Repo:
+ git_version: 2.42.0
+ repo_root: .
+ name: '@DROLSKY/Git::Check'
+ version: '2.048'
+ -
+ class: Dist::Zilla::Plugin::Git::Commit
+ config:
+ Dist::Zilla::Plugin::Git::Commit:
+ add_files_in: []
+ commit_msg: v%V%n%n%c
+ signoff: 0
+ Dist::Zilla::Role::Git::DirtyFiles:
+ allow_dirty:
+ - CODE_OF_CONDUCT.md
+ - CONTRIBUTING.md
+ - Changes
+ - LICENSE
+ - Makefile.PL
+ - README.md
+ - cpanfile
+ - leap_seconds.h
+ - ppport.h
+ - precious.toml
+ allow_dirty_match: []
+ changelog: Changes
+ Dist::Zilla::Role::Git::Repo:
+ git_version: 2.42.0
+ repo_root: .
+ Dist::Zilla::Role::Git::StringFormatter:
+ time_zone: local
+ name: '@DROLSKY/Commit generated files'
+ version: '2.048'
+ -
+ class: Dist::Zilla::Plugin::Git::Tag
+ config:
+ Dist::Zilla::Plugin::Git::Tag:
+ branch: ~
+ changelog: Changes
+ signed: 0
+ tag: v1.65
+ tag_format: v%V
+ tag_message: v%V
+ Dist::Zilla::Role::Git::Repo:
+ git_version: 2.42.0
+ repo_root: .
+ Dist::Zilla::Role::Git::StringFormatter:
+ time_zone: local
+ name: '@DROLSKY/Git::Tag'
+ version: '2.048'
+ -
+ class: Dist::Zilla::Plugin::Git::Push
+ config:
+ Dist::Zilla::Plugin::Git::Push:
+ push_to:
+ - origin
+ remotes_must_exist: 1
+ Dist::Zilla::Role::Git::Repo:
+ git_version: 2.42.0
+ repo_root: .
+ name: '@DROLSKY/Git::Push'
+ version: '2.048'
+ -
+ class: Dist::Zilla::Plugin::BumpVersionAfterRelease
+ config:
+ Dist::Zilla::Plugin::BumpVersionAfterRelease:
+ finders:
+ - ':ExecFiles'
+ - ':InstallModules'
+ global: 0
+ munge_makefile_pl: 1
+ name: '@DROLSKY/BumpVersionAfterRelease'
+ version: '0.018'
+ -
+ class: Dist::Zilla::Plugin::Git::Commit
+ config:
+ Dist::Zilla::Plugin::Git::Commit:
+ add_files_in: []
+ commit_msg: 'Bump version after release'
+ signoff: 0
+ Dist::Zilla::Role::Git::DirtyFiles:
+ allow_dirty:
+ - Changes
+ - dist.ini
+ allow_dirty_match:
+ - (?^:.+)
+ changelog: Changes
+ Dist::Zilla::Role::Git::Repo:
+ git_version: 2.42.0
+ repo_root: .
+ Dist::Zilla::Role::Git::StringFormatter:
+ time_zone: local
+ name: '@DROLSKY/Commit version bump'
+ version: '2.048'
+ -
+ class: Dist::Zilla::Plugin::Git::Push
+ config:
+ Dist::Zilla::Plugin::Git::Push:
+ push_to:
+ - origin
+ remotes_must_exist: 1
+ Dist::Zilla::Role::Git::Repo:
+ git_version: 2.42.0
+ repo_root: .
+ name: '@DROLSKY/Push version bump'
+ version: '2.048'
+ -
+ class: Dist::Zilla::Plugin::DROLSKY::MakeMaker
+ config:
+ Dist::Zilla::Plugin::MakeMaker:
+ make_path: make
+ version: '6.030'
+ Dist::Zilla::Plugin::MakeMaker::Awesome:
+ version: '0.49'
+ Dist::Zilla::Role::TestRunner:
+ default_jobs: '12'
+ version: '6.030'
+ name: '@DROLSKY/DROLSKY::MakeMaker'
+ version: '1.22'
+ -
+ class: Dist::Zilla::Plugin::lib
+ config:
+ Dist::Zilla::Plugin::lib:
+ lib:
+ - .
+ name: lib
+ version: '0.001002'
+ -
+ class: inc::LeapSecondsHeader
+ name: =inc::LeapSecondsHeader
+ version: ~
+ -
+ class: Dist::Zilla::Plugin::CopyFilesFromBuild
+ name: CopyFilesFromBuild
+ version: '0.170880'
+ -
+ class: Dist::Zilla::Plugin::MetaResources
+ name: MetaResources
+ version: '6.030'
+ -
+ class: Dist::Zilla::Plugin::Prereqs
+ config:
+ Dist::Zilla::Plugin::Prereqs:
+ phase: develop
+ type: requires
+ name: DevelopRequires
+ version: '6.030'
+ -
+ class: Dist::Zilla::Plugin::PurePerlTests
+ name: PurePerlTests
+ version: '0.06'
+ -
+ class: Dist::Zilla::Plugin::Conflicts
+ name: Conflicts
+ version: '0.20'
+ -
+ class: Dist::Zilla::Plugin::Test::CheckBreaks
+ config:
+ Dist::Zilla::Plugin::Test::CheckBreaks:
+ conflicts_module:
+ - DateTime::Conflicts
+ no_forced_deps: 0
+ Dist::Zilla::Role::ModuleMetadata:
+ Module::Metadata: '1.000037'
+ version: '0.006'
+ name: Test::CheckBreaks
+ version: '0.019'
+ -
+ class: Dist::Zilla::Plugin::FinderCode
+ name: ':InstallModules'
+ version: '6.030'
+ -
+ class: Dist::Zilla::Plugin::FinderCode
+ name: ':IncModules'
+ version: '6.030'
+ -
+ class: Dist::Zilla::Plugin::FinderCode
+ name: ':TestFiles'
+ version: '6.030'
+ -
+ class: Dist::Zilla::Plugin::FinderCode
+ name: ':ExtraTestFiles'
+ version: '6.030'
+ -
+ class: Dist::Zilla::Plugin::FinderCode
+ name: ':ExecFiles'
+ version: '6.030'
+ -
+ class: Dist::Zilla::Plugin::FinderCode
+ name: ':PerlExecFiles'
+ version: '6.030'
+ -
+ class: Dist::Zilla::Plugin::FinderCode
+ name: ':ShareFiles'
+ version: '6.030'
+ -
+ class: Dist::Zilla::Plugin::FinderCode
+ name: ':MainModule'
+ version: '6.030'
+ -
+ class: Dist::Zilla::Plugin::FinderCode
+ name: ':AllFiles'
+ version: '6.030'
+ -
+ class: Dist::Zilla::Plugin::FinderCode
+ name: ':NoFiles'
+ version: '6.030'
+ -
+ class: Dist::Zilla::Plugin::FinderCode
+ name: '@DROLSKY/MetaProvides::Package/AUTOVIV/:InstallModulesPM'
+ version: '6.030'
+ zilla:
+ class: Dist::Zilla::Dist::Builder
+ config:
+ is_trial: '0'
+ version: '6.030'
+x_authority: cpan:DROLSKY
+x_breaks:
+ DateTime::Format::Mail: '<= 0.402'
+x_contributors:
+ - 'Ben Bennett <fiji@limey.net>'
+ - 'Christian Hansen <chansen@cpan.org>'
+ - 'Daisuke Maki <dmaki@cpan.org>'
+ - 'Dan Book <grinnz@gmail.com>'
+ - 'Dan Stewart <danielandrewstewart@gmail.com>'
+ - 'David Dyck <david.dyck@checksum.com>'
+ - 'David E. Wheeler <david@justatheory.com>'
+ - 'David Precious <davidp@preshweb.co.uk>'
+ - 'Doug Bell <madcityzen@gmail.com>'
+ - 'Flávio Soibelmann Glock <fglock@gmail.com>'
+ - 'Gianni Ceccarelli <gianni.ceccarelli@broadbean.com>'
+ - 'Gregory Oschwald <oschwald@gmail.com>'
+ - 'Hauke D <haukex@zero-g.net>'
+ - 'Iain Truskett <deceased>'
+ - 'James Raspass <jraspass@gmail.com>'
+ - 'Jason McIntosh <jmac@jmac.org>'
+ - 'Joshua Hoblitt <jhoblitt@cpan.org>'
+ - 'Karen Etheridge <ether@cpan.org>'
+ - 'Mark Overmeer <mark@overmeer.net>'
+ - 'Michael Conrad <mike@nrdvana.net>'
+ - 'Michael R. Davis <mrdvt92@users.noreply.github.com>'
+ - 'Mohammad S Anwar <mohammad.anwar@yahoo.com>'
+ - 'M Somerville <dracos@users.noreply.github.com>'
+ - 'Nick Tonkin <1nickt@users.noreply.github.com>'
+ - 'Olaf Alders <olaf@wundersolutions.com>'
+ - 'Ovid <curtis_ovid_poe@yahoo.com>'
+ - 'Paul Howarth <paul@city-fan.org>'
+ - 'Philippe Bruhat (BooK) <book@cpan.org>'
+ - 'philip r brenan <philiprbrenan@gmail.com>'
+ - 'Ricardo Signes <rjbs@cpan.org>'
+ - 'Richard Bowen <bowen@cpan.org>'
+ - 'Ron Hill <rkhill@cpan.org>'
+ - 'Sam Kington <github@illuminated.co.uk>'
+ - 'viviparous <viviparous@prc>'
+x_generated_by_perl: v5.32.1
+x_serialization_backend: 'YAML::Tiny version 1.73'
+x_spdx_expression: Artistic-2.0
--- /dev/null
+# This Makefile.PL for DateTime was generated by
+# Dist::Zilla::Plugin::DROLSKY::MakeMaker 1.22
+# and Dist::Zilla::Plugin::MakeMaker::Awesome 0.49.
+# Don't edit it but the dist.ini and plugins used to construct it.
+
+use strict;
+use warnings;
+
+use 5.008004;
+use ExtUtils::MakeMaker;
+check_conflicts();
+
+my %WriteMakefileArgs = (
+ "ABSTRACT" => "A date and time object for Perl",
+ "AUTHOR" => "Dave Rolsky <autarch\@urth.org>",
+ "CONFIGURE_REQUIRES" => {
+ "Dist::CheckConflicts" => "0.02",
+ "ExtUtils::MakeMaker" => 0
+ },
+ "DISTNAME" => "DateTime",
+ "LICENSE" => "artistic_2",
+ "MIN_PERL_VERSION" => "5.008004",
+ "NAME" => "DateTime",
+ "PREREQ_PM" => {
+ "Carp" => 0,
+ "DateTime::Locale" => "1.06",
+ "DateTime::TimeZone" => "2.44",
+ "Dist::CheckConflicts" => "0.02",
+ "POSIX" => 0,
+ "Params::ValidationCompiler" => "0.26",
+ "Scalar::Util" => 0,
+ "Specio" => "0.18",
+ "Specio::Declare" => 0,
+ "Specio::Exporter" => 0,
+ "Specio::Library::Builtins" => 0,
+ "Specio::Library::Numeric" => 0,
+ "Specio::Library::String" => 0,
+ "Specio::Subs" => 0,
+ "Try::Tiny" => 0,
+ "XSLoader" => 0,
+ "integer" => 0,
+ "namespace::autoclean" => "0.19",
+ "overload" => 0,
+ "parent" => 0,
+ "strict" => 0,
+ "warnings" => 0,
+ "warnings::register" => 0
+ },
+ "TEST_REQUIRES" => {
+ "CPAN::Meta::Check" => "0.011",
+ "CPAN::Meta::Requirements" => 0,
+ "ExtUtils::MakeMaker" => 0,
+ "File::Spec" => 0,
+ "Storable" => 0,
+ "Test::Fatal" => 0,
+ "Test::More" => "0.96",
+ "Test::Warnings" => "0.005",
+ "Test::Without::Module" => 0,
+ "utf8" => 0
+ },
+ "VERSION" => "1.65",
+ "test" => {
+ "TESTS" => "t/*.t"
+ }
+);
+my $gcc_warnings = $ENV{AUTHOR_TESTING} && $] >= 5.008008 ? q{ -Wall -Werror} : q{};
+$WriteMakefileArgs{DEFINE}
+ = ( $WriteMakefileArgs{DEFINE} || q{} ) . $gcc_warnings;
+
+my %FallbackPrereqs = (
+ "CPAN::Meta::Check" => "0.011",
+ "CPAN::Meta::Requirements" => 0,
+ "Carp" => 0,
+ "DateTime::Locale" => "1.06",
+ "DateTime::TimeZone" => "2.44",
+ "Dist::CheckConflicts" => "0.02",
+ "ExtUtils::MakeMaker" => 0,
+ "File::Spec" => 0,
+ "POSIX" => 0,
+ "Params::ValidationCompiler" => "0.26",
+ "Scalar::Util" => 0,
+ "Specio" => "0.18",
+ "Specio::Declare" => 0,
+ "Specio::Exporter" => 0,
+ "Specio::Library::Builtins" => 0,
+ "Specio::Library::Numeric" => 0,
+ "Specio::Library::String" => 0,
+ "Specio::Subs" => 0,
+ "Storable" => 0,
+ "Test::Fatal" => 0,
+ "Test::More" => "0.96",
+ "Test::Warnings" => "0.005",
+ "Test::Without::Module" => 0,
+ "Try::Tiny" => 0,
+ "XSLoader" => 0,
+ "integer" => 0,
+ "namespace::autoclean" => "0.19",
+ "overload" => 0,
+ "parent" => 0,
+ "strict" => 0,
+ "utf8" => 0,
+ "warnings" => 0,
+ "warnings::register" => 0
+);
+
+unless ( eval { ExtUtils::MakeMaker->VERSION('6.63_03') } ) {
+ delete $WriteMakefileArgs{TEST_REQUIRES};
+ delete $WriteMakefileArgs{BUILD_REQUIRES};
+ $WriteMakefileArgs{PREREQ_PM} = \%FallbackPrereqs;
+}
+
+delete $WriteMakefileArgs{CONFIGURE_REQUIRES}
+ unless eval { ExtUtils::MakeMaker->VERSION(6.52) };
+
+WriteMakefile(%WriteMakefileArgs);
+
+sub check_conflicts {
+ if ( eval { require './lib/DateTime/Conflicts.pm'; 1; } ) {
+ if ( eval { DateTime::Conflicts->check_conflicts; 1 } ) {
+ return;
+ }
+ else {
+ my $err = $@;
+ $err =~ s/^/ /mg;
+ warn "***\n$err***\n";
+ }
+ }
+ else {
+ print <<'EOF';
+***
+ Your toolchain doesn't support configure_requires, so Dist::CheckConflicts
+ hasn't been installed yet. You should check for conflicting modules
+ manually by examining the list of conflicts in DateTime::Conflicts once the installation
+ finishes.
+***
+EOF
+ }
+
+ return if $ENV{AUTOMATED_TESTING} || $ENV{NONINTERACTIVE_TESTING};
+
+ # More or less copied from Module::Build
+ return if $ENV{PERL_MM_USE_DEFAULT};
+ return unless -t STDIN && ( -t STDOUT || !( -f STDOUT || -c STDOUT ) );
+
+ sleep 4;
+}
--- /dev/null
+# NAME
+
+DateTime - A date and time object for Perl
+
+# VERSION
+
+version 1.65
+
+# SYNOPSIS
+
+ use DateTime;
+
+ $dt = DateTime->new(
+ year => 1964,
+ month => 10,
+ day => 16,
+ hour => 16,
+ minute => 12,
+ second => 47,
+ nanosecond => 500000000,
+ time_zone => 'Asia/Taipei',
+ );
+
+ $dt = DateTime->from_epoch( epoch => $epoch );
+ $dt = DateTime->now; # same as ( epoch => time )
+
+ $year = $dt->year;
+ $month = $dt->month; # 1-12
+
+ $day = $dt->day; # 1-31
+
+ $dow = $dt->day_of_week; # 1-7 (Monday is 1)
+
+ $hour = $dt->hour; # 0-23
+ $minute = $dt->minute; # 0-59
+
+ $second = $dt->second; # 0-61 (leap seconds!)
+
+ $doy = $dt->day_of_year; # 1-366 (leap years)
+
+ $doq = $dt->day_of_quarter; # 1..
+
+ $qtr = $dt->quarter; # 1-4
+
+ # all of the start-at-1 methods above have corresponding start-at-0
+ # methods, such as $dt->day_of_month_0, $dt->month_0 and so on
+
+ $ymd = $dt->ymd; # 2002-12-06
+ $ymd = $dt->ymd('/'); # 2002/12/06
+
+ $mdy = $dt->mdy; # 12-06-2002
+ $mdy = $dt->mdy('/'); # 12/06/2002
+
+ $dmy = $dt->dmy; # 06-12-2002
+ $dmy = $dt->dmy('/'); # 06/12/2002
+
+ $hms = $dt->hms; # 14:02:29
+ $hms = $dt->hms('!'); # 14!02!29
+
+ $is_leap = $dt->is_leap_year;
+
+ # these are localizable, see Locales section
+ $month_name = $dt->month_name; # January, February, ...
+ $month_abbr = $dt->month_abbr; # Jan, Feb, ...
+ $day_name = $dt->day_name; # Monday, Tuesday, ...
+ $day_abbr = $dt->day_abbr; # Mon, Tue, ...
+
+ # May not work for all possible datetime, see the docs on this
+ # method for more details.
+ $epoch_time = $dt->epoch;
+
+ $dt2 = $dt + $duration_object;
+
+ $dt3 = $dt - $duration_object;
+
+ $duration_object = $dt - $dt2;
+
+ $dt->set( year => 1882 );
+
+ $dt->set_time_zone('America/Chicago');
+
+ $dt->set_formatter($formatter);
+
+# DESCRIPTION
+
+DateTime is a class for the representation of date/time combinations, and is
+part of the Perl DateTime project.
+
+It represents the Gregorian calendar, extended backwards in time before its
+creation (in 1582). This is sometimes known as the "proleptic Gregorian
+calendar". In this calendar, the first day of the calendar (the epoch), is the
+first day of year 1, which corresponds to the date which was (incorrectly)
+believed to be the birth of Jesus Christ.
+
+The calendar represented does have a year 0, and in that way differs from how
+dates are often written using "BCE/CE" or "BC/AD".
+
+For infinite datetimes, please see the [DateTime::Infinite](https://metacpan.org/pod/DateTime%3A%3AInfinite)
+module.
+
+# USAGE
+
+## 0-based Versus 1-based Numbers
+
+The `DateTime` module follows a simple logic for determining whether or not a
+given number is 0-based or 1-based.
+
+Month, day of month, day of week, and day of year are 1-based. Any method that
+is 1-based also has an equivalent 0-based method ending in `_0`. So for
+example, this class provides both `day_of_week` and `day_of_week_0` methods.
+
+The `day_of_week_0` method still treats Monday as the first day of the week.
+
+All _time_-related numbers such as hour, minute, and second are 0-based.
+
+Years are neither, as they can be both positive or negative, unlike any other
+datetime component. There _is_ a year 0.
+
+There is no `quarter_0` method.
+
+## Error Handling
+
+Some errors may cause this module to die with an error string. This can only
+happen when calling constructor methods, methods that change the object, such
+as `set`, or methods that take parameters. Methods that retrieve information
+about the object, such as `year` or `epoch`, will never die.
+
+## Locales
+
+All the object methods which return names or abbreviations return data based on
+a locale. This is done by setting the locale when constructing a DateTime
+object. If this is not set, then `"en-US"` is used.
+
+## Floating DateTimes
+
+The default time zone for new DateTime objects, except where stated otherwise,
+is the "floating" time zone. This concept comes from the iCal standard. A
+floating datetime is one which is not anchored to any particular time zone. In
+addition, floating datetimes do not include leap seconds, since we cannot apply
+them without knowing the datetime's time zone.
+
+The results of date math and comparison between a floating datetime and one
+with a real time zone are not really valid, because one includes leap seconds
+and the other does not. Similarly, the results of datetime math between two
+floating datetimes and two datetimes with time zones are not really comparable.
+
+If you are planning to use any objects with a real time zone, it is strongly
+recommended that you **do not** mix these with floating datetimes.
+
+## Math
+
+If you are going to be doing date math, please read the section ["How DateTime
+Math Works"](#how-datetime-math-works).
+
+## Determining the Local Time Zone Can Be Slow
+
+If `$ENV{TZ}` is not set, it may involve reading a number of files in `/etc`
+or elsewhere. If you know that the local time zone won't change while your code
+is running, and you need to make many objects for the local time zone, it is
+strongly recommended that you retrieve the local time zone once and cache it:
+
+ my $local_time_zone = DateTime::TimeZone->new( name => 'local' );
+
+ # then everywhere else
+
+ my $dt = DateTime->new( ..., time_zone => $local_time_zone );
+
+DateTime itself does not do this internally because local time zones can
+change, and there's no good way to determine if it's changed without doing all
+the work to look it up.
+
+## Far Future DST
+
+Do not try to use named time zones (like "America/Chicago") with dates very far
+in the future (thousands of years). The current implementation of
+`DateTime::TimeZone` will use a huge amount of memory calculating all the DST
+changes from now until the future date. Use UTC or the floating time zone and
+you will be safe.
+
+## Globally Setting a Default Time Zone
+
+**Warning: This is very dangerous. Do this at your own risk!**
+
+By default, `DateTime` uses either the floating time zone or UTC for newly
+created objects, depending on the constructor.
+
+You can force `DateTime` to use a different time zone by setting the
+`PERL_DATETIME_DEFAULT_TZ` environment variable.
+
+As noted above, this is very dangerous, as it affects all code that creates a
+`DateTime` object, including modules from CPAN. If those modules expect the
+normal default, then setting this can cause confusing breakage or subtly broken
+data. Before setting this variable, you are strongly encouraged to audit your
+CPAN dependencies to see how they use `DateTime`. Try running the test suite
+for each dependency with this environment variable set before using this in
+production.
+
+## Upper and Lower Bounds
+
+Internally, dates are represented the number of days before or after
+0001-01-01. This is stored as an integer, meaning that the upper and lower
+bounds are based on your Perl's integer size (`$Config{ivsize}`).
+
+The limit on 32-bit systems is around 2^29 days, which gets you to year
+(+/-)1,469,903. On a 64-bit system you get 2^62 days, to year
+(+/-)12,626,367,463,883,278 (12.626 quadrillion).
+
+# METHODS
+
+DateTime provides many methods. The documentation breaks them down into groups
+based on what they do (constructor, accessors, modifiers, etc.).
+
+## Constructors
+
+All constructors can die when invalid parameters are given.
+
+### Warnings
+
+Currently, constructors will warn if you try to create a far future DateTime
+(year >= 5000) with any time zone besides floating or UTC. This can be very
+slow if the time zone has future DST transitions that need to be calculated. If
+the date is sufficiently far in the future this can be _really_ slow
+(minutes).
+
+All warnings from DateTime use the `DateTime` category and can be suppressed
+with:
+
+ no warnings 'DateTime';
+
+This warning may be removed in the future if [DateTime::TimeZone](https://metacpan.org/pod/DateTime%3A%3ATimeZone) is made much
+faster.
+
+### DateTime->new( ... )
+
+ my $dt = DateTime->new(
+ year => 1966,
+ month => 10,
+ day => 25,
+ hour => 7,
+ minute => 15,
+ second => 47,
+ nanosecond => 500000000,
+ time_zone => 'America/Chicago',
+ );
+
+This class method accepts the following parameters:
+
+- year
+
+ An integer year for the DateTime. This can be any integer number within the
+ valid range for your system (See ["Upper and Lower Bounds"](#upper-and-lower-bounds)). This is required.
+
+- month
+
+ An integer from 1-12. Defaults to 1.
+
+- day
+
+ An integer from 1-31. The value will be validated based on the month, to
+ prevent creating invalid dates like February 30. Defaults to 1.
+
+- hour
+
+ An integer from 0-23. Hour 0 is midnight at the beginning of the given date.
+ Defaults to 0.
+
+- minute
+
+ An integer from 0-59. Defaults to 0.
+
+- second
+
+ An integer from 0-61. Values of 60 or 61 are only allowed when the specified
+ date and time have a leap second. Defaults to 0.
+
+- nanosecond
+
+ An integer that is greater than or equal to 0. If this number is greater than 1
+ billion, it will be normalized into the second value for the DateTime object.
+ Defaults to 0
+
+- locale
+
+ A string containing a locale code, like `"en-US"` or `"zh-Hant-TW"`, or an
+ object returned by `DateTime::Locale->load`. See the [DateTime::Locale](https://metacpan.org/pod/DateTime%3A%3ALocale)
+ documentation for details. Defaults to the value of `DateTime->DefaultLocale`, or `"en-US"` if the class default has not been set.
+
+- time\_zone
+
+ A string containing a time zone name like "America/Chicago" or a
+ [DateTime::TimeZone](https://metacpan.org/pod/DateTime%3A%3ATimeZone) object. Defaults to the value of
+ `$ENV{PERL_DATETIME_DEFAULT_TZ}` or "floating" if that env var is not set. See
+ ["Globally Setting a Default Time Zone"](#globally-setting-a-default-time-zone) for more details on that env var (and
+ why you should not use it).
+
+ A string will simply be passed to the `DateTime::TimeZone->new` method as
+ its `name` parameter. This string may be an Olson DB time zone name
+ ("America/Chicago"), an offset string ("+0630"), or the words "floating" or
+ "local". See the `DateTime::TimeZone` documentation for more details.
+
+- formatter
+
+ An object or class name with a `format_datetime` method. This will be used to
+ stringify the DateTime object. This is optional. If it is not specified, then
+ stringification calls `$self->iso8601`.
+
+Invalid parameter types (like an array reference) will cause the constructor to
+die.
+
+#### Parsing Dates
+
+**This module does not parse dates!** That means there is no constructor to
+which you can pass things like "March 3, 1970 12:34".
+
+Instead, take a look at the various
+[DateTime::Format::\*](https://metacpan.org/search?q=datetime%3A%3Aformat)
+modules on CPAN. These parse all sorts of different date formats, and you're
+bound to find something that can handle your particular needs.
+
+#### Ambiguous Local Times
+
+Because of Daylight Saving Time, it is possible to specify a local time that is
+ambiguous. For example, in the US in 2003, the transition from to saving to
+standard time occurred on October 26, at 02:00:00 local time. The local clock
+changed from 01:59:59 (saving time) to 01:00:00 (standard time). This means
+that the hour from 01:00:00 through 01:59:59 actually occurs twice, though the
+UTC time continues to move forward.
+
+If you specify an ambiguous time, then the latest UTC time is always used, in
+effect always choosing standard time. In this case, you can simply subtract an
+hour from the object in order to move to saving time, for example:
+
+ # This object represent 01:30:00 standard time
+ my $dt = DateTime->new(
+ year => 2003,
+ month => 10,
+ day => 26,
+ hour => 1,
+ minute => 30,
+ second => 0,
+ time_zone => 'America/Chicago',
+ );
+
+ print $dt->hms; # prints 01:30:00
+
+ # Now the object represent 01:30:00 saving time
+ $dt->subtract( hours => 1 );
+
+ print $dt->hms; # still prints 01:30:00
+
+Alternately, you could create the object with the UTC time zone and then call
+the `set_time_zone` method to change the time zone. This is a good way to
+ensure that the time is not ambiguous.
+
+#### Invalid Local Times
+
+Another problem introduced by Daylight Saving Time is that certain local times
+just do not exist. For example, in the US in 2003, the transition from standard
+to saving time occurred on April 6, at the change to 2:00:00 local time. The
+local clock changed from 01:59:59 (standard time) to 03:00:00 (saving time).
+This means that there is no 02:00:00 through 02:59:59 on April 6!
+
+Attempting to create an invalid time currently causes a fatal error.
+
+### DateTime->from\_epoch( epoch => $epoch, ... )
+
+This class method can be used to construct a new DateTime object from an epoch
+time instead of components. Just as with the `new` method, it accepts
+`time_zone`, `locale`, and `formatter` parameters.
+
+You can also call it with a single unnamed argument, which will be treated as
+the epoch value.
+
+If the epoch value is a non-integral value, it will be rounded to nearest
+microsecond.
+
+By default, the returned object will be in the UTC time zone.
+
+If you pass a `time_zone`, then this time zone will be applied _after_ the
+object is constructed. In other words, the epoch value is always interpreted as
+being in the UTC time zone. Here's an example:
+
+ my $dt = DateTime->from_epoch(
+ epoch => 0,
+ time_zone => 'Asia/Tokyo'
+ );
+ say $dt; # Prints 1970-01-01T09:00:00 as Asia/Tokyo is +09:00 from UTC.
+ $dt->set_time_zone('UTC');
+ say $dt; # Prints 1970-01-01T00:00:00
+
+### DateTime->now( ... )
+
+This class method is equivalent to calling `from_epoch` with the value
+returned from Perl's `time` function. Just as with the `new` method, it
+accepts `time_zone` and `locale` parameters.
+
+By default, the returned object will be in the UTC time zone.
+
+If you want sub-second resolution, use the [DateTime::HiRes](https://metacpan.org/pod/DateTime%3A%3AHiRes) module's `DateTime::HiRes->now` method instead.
+
+### DateTime->today( ... )
+
+This class method is equivalent to:
+
+ DateTime->now(@_)->truncate( to => 'day' );
+
+### DateTime->last\_day\_of\_month( ... )
+
+This constructor takes the same arguments as can be given to the `new` method,
+except for `day`. Additionally, both `year` and `month` are required.
+
+### DateTime->from\_day\_of\_year( ... )
+
+This constructor takes the same arguments as can be given to the `new` method,
+except that it does not accept a `month` or `day` argument. Instead, it
+requires both `year` and `day_of_year`. The day of year must be between 1 and
+366, and 366 is only allowed for leap years.
+
+### DateTime->from\_object( object => $object, ... )
+
+This class method can be used to construct a new DateTime object from any
+object that implements the `utc_rd_values` method. All `DateTime::Calendar`
+modules must implement this method in order to provide cross-calendar
+compatibility. This method accepts a `locale` and `formatter` parameter
+
+If the object passed to this method has a `time_zone` method, that is used to
+set the time zone of the newly created `DateTime` object.
+
+Otherwise, the returned object will be in the floating time zone.
+
+### $dt->clone
+
+This object method returns a new object that is replica of the object upon
+which the method is called.
+
+## "Get" Methods
+
+This class has many methods for retrieving information about an object.
+
+### $dt->year
+
+Returns the year.
+
+### $dt->ce\_year
+
+Returns the year according to the BCE/CE numbering system. The year before year
+1 in this system is year -1, aka "1 BCE".
+
+### $dt->era\_name
+
+Returns the long name of the current era, something like "Before Christ". See
+the ["Locales"](#locales) section for more details.
+
+### $dt->era\_abbr
+
+Returns the abbreviated name of the current era, something like "BC". See the
+["Locales"](#locales) section for more details.
+
+### $dt->christian\_era
+
+Returns a string, either "BC" or "AD", according to the year.
+
+### $dt->secular\_era
+
+Returns a string, either "BCE" or "CE", according to the year.
+
+### $dt->year\_with\_era
+
+Returns a string containing the year immediately followed by the appropriate
+era abbreviation, based on the object's locale. The year is the absolute value
+of `ce_year`, so that year 1 is "1" and year 0 is "1BC". See the ["Locales"](#locales)
+section for more details.
+
+### $dt->year\_with\_christian\_era
+
+Like `year_with_era`, but uses the `christian_era` method to get the era
+name.
+
+### $dt->year\_with\_secular\_era
+
+Like `year_with_era`, but uses the `secular_era` method to get the era name.
+
+### $dt->month
+
+Returns the month of the year, from 1..12.
+
+Also available as `$dt->mon`.
+
+### $dt->month\_name
+
+Returns the name of the current month. See the ["Locales"](#locales) section for more
+details.
+
+### $dt->month\_abbr
+
+Returns the abbreviated name of the current month. See the ["Locales"](#locales) section
+for more details.
+
+### $dt->day
+
+Returns the day of the month, from 1..31.
+
+Also available as `$dt->mday` and `$dt->day_of_month`.
+
+### $dt->day\_of\_week
+
+Returns the day of the week as a number, from 1..7, with 1 being Monday and 7
+being Sunday.
+
+Also available as `$dt->wday` and `$dt->dow`.
+
+### $dt->local\_day\_of\_week
+
+Returns the day of the week as a number, from 1..7. The day corresponding to 1
+will vary based on the locale. See the ["Locales"](#locales) section for more details.
+
+### $dt->day\_name
+
+Returns the name of the current day of the week. See the ["Locales"](#locales) section
+for more details.
+
+### $dt->day\_abbr
+
+Returns the abbreviated name of the current day of the week. See the
+["Locales"](#locales) section for more details.
+
+### $dt->day\_of\_year
+
+Returns the day of the year.
+
+Also available as `$dt->doy`.
+
+### $dt->quarter
+
+Returns the quarter of the year, from 1..4.
+
+### $dt->quarter\_name
+
+Returns the name of the current quarter. See the ["Locales"](#locales) section for more
+details.
+
+### $dt->quarter\_abbr
+
+Returns the abbreviated name of the current quarter. See the ["Locales"](#locales)
+section for more details.
+
+### $dt->day\_of\_quarter
+
+Returns the day of the quarter.
+
+Also available as `$dt->doq`.
+
+### $dt->weekday\_of\_month
+
+Returns a number from 1..5 indicating which week day of the month this is. For
+example, June 9, 2003 is the second Monday of the month, and so this method
+returns 2 for that date.
+
+### $dt->ymd($optional\_separator), $dt->mdy(...), $dt->dmy(...)
+
+Each method returns the year, month, and day, in the order indicated by the
+method name. Years are zero-padded to four digits. Months and days are 0-padded
+to two digits.
+
+By default, the values are separated by a dash (-), but this can be overridden
+by passing a value to the method.
+
+The `$dt->ymd` method is also available as `$dt->date`.
+
+### $dt->hour
+
+Returns the hour of the day, from 0..23.
+
+### $dt->hour\_1
+
+Returns the hour of the day, from 1..24.
+
+### $dt->hour\_12
+
+Returns the hour of the day, from 1..12.
+
+### $dt->hour\_12\_0
+
+Returns the hour of the day, from 0..11.
+
+### $dt->am\_or\_pm
+
+Returns the appropriate localized abbreviation, depending on the current hour.
+
+### $dt->minute
+
+Returns the minute of the hour, from 0..59.
+
+Also available as `$dt->min`.
+
+### $dt->second
+
+Returns the second, from 0..61. The values 60 and 61 are used for leap seconds.
+
+Also available as `$dt->sec`.
+
+### $dt->fractional\_second
+
+Returns the second, as a real number from 0.0 until 61.999999999
+
+The values 60 and 61 are used for leap seconds.
+
+### $dt->millisecond
+
+Returns the fractional part of the second as milliseconds (1E-3 seconds).
+
+Half a second is 500 milliseconds.
+
+This value will always be rounded down to the nearest integer.
+
+### $dt->microsecond
+
+Returns the fractional part of the second as microseconds (1E-6 seconds).
+
+Half a second is 500,000 microseconds.
+
+This value will always be rounded down to the nearest integer.
+
+### $dt->nanosecond
+
+Returns the fractional part of the second as nanoseconds (1E-9 seconds).
+
+ Half a second is 500,000,000 nanoseconds.
+
+### $dt->hms($optional\_separator)
+
+Returns the hour, minute, and second, all zero-padded to two digits. If no
+separator is specified, a colon (:) is used by default.
+
+Also available as `$dt->time`.
+
+### $dt->datetime($optional\_separator)
+
+This method is equivalent to:
+
+ $dt->ymd('-') . 'T' . $dt->hms(':')
+
+The `$optional_separator` parameter allows you to override the separator
+between the date and time, for e.g. `$dt->datetime(q{ })`.
+
+This method is also available as `$dt->iso8601`, but it's not really a
+very good ISO8601 format, as it lacks a time zone. If called as `$dt->iso8601` you cannot change the separator, as ISO8601 specifies that "T"
+must be used to separate them.
+
+### $dt->rfc3339
+
+This formats a datetime in RFC3339 format. This is the same as `$dt->datetime` with an added offset at the end of the string except if the
+time zone is the floating time zone.
+
+If the offset is '+00:00' then this is represented as 'Z'. Otherwise the offset
+is formatted with a leading sign (+/-) and a colon separated numeric offset
+with hours and minutes. If the offset has a non-zero seconds component, that is
+also included.
+
+### $dt->stringify
+
+This method returns a stringified version of the object. It is also how
+stringification overloading is implemented. If the object has a formatter, then
+its `format_datetime` method is used to produce a string. Otherwise, this
+method calls `$dt->iso8601` to produce a string. See ["Formatters And
+Stringification"](#formatters-and-stringification) for details.
+
+### $dt->is\_leap\_year
+
+This method returns a boolean value indicating whether or not the datetime
+object is in a leap year.
+
+### $dt->is\_last\_day\_of\_month
+
+This method returns a boolean value indicating whether or not the datetime
+object is the last day of the month.
+
+### $dt->is\_last\_day\_of\_quarter
+
+This method returns a boolean value indicating whether or not the datetime
+object is the last day of the quarter.
+
+### $dt->is\_last\_day\_of\_year
+
+This method returns a boolean value indicating whether or not the datetime
+object is the last day of the year.
+
+### $dt->month\_length
+
+This method returns the number of days in the current month.
+
+### $dt->quarter\_length
+
+This method returns the number of days in the current quarter.
+
+### $dt->year\_length
+
+This method returns the number of days in the current year.
+
+### $dt->week
+
+ my ( $week_year, $week_number ) = $dt->week;
+
+Returns information about the calendar week for the date. The values returned
+by this method are also available separately through the `$dt->week_year`
+and `$dt->week_number` methods.
+
+The first week of the year is defined by ISO as the one which contains the
+fourth day of January, which is equivalent to saying that it's the first week
+to overlap the new year by at least four days.
+
+Typically the week year will be the same as the year that the object is in, but
+dates at the very beginning of a calendar year often end up in the last week of
+the prior year, and similarly, the final few days of the year may be placed in
+the first week of the next year.
+
+### $dt->week\_year
+
+Returns the year of the week. See `$dt->week` for details.
+
+### $dt->week\_number
+
+Returns the week of the year, from 1..53. See `$dt->week` for details.
+
+### $dt->week\_of\_month
+
+The week of the month, from 0..5. The first week of the month is the first week
+that contains a Thursday. This is based on the ICU definition of week of month,
+and correlates to the ISO8601 week of year definition. A day in the week
+_before_ the week with the first Thursday will be week 0.
+
+### $dt->jd, $dt->mjd
+
+These return the Julian Day and Modified Julian Day, respectively. The value
+returned is a floating point number. The fractional portion of the number
+represents the time portion of the datetime.
+
+The Julian Day is a count of days since the beginning of the Julian Period,
+which starts with day 0 at noon on January 1, -4712.
+
+The Modified Julian Day is a count of days since midnight on November 17, 1858.
+
+These methods always refer to the local time, so the Julian Day is the same for
+a given datetime regardless of its time zone. Or in other words,
+2020-12-04T13:01:57 in "America/Chicago" has the same Julian Day as
+2020-12-04T13:01:57 in "Asia/Taipei".
+
+### $dt->time\_zone
+
+This returns the [DateTime::TimeZone](https://metacpan.org/pod/DateTime%3A%3ATimeZone) object for the datetime object.
+
+### $dt->offset
+
+This returns the offset from UTC, in seconds, of the datetime object's time
+zone.
+
+### $dt->is\_dst
+
+Returns a boolean indicating whether or not the datetime's time zone is
+currently in Daylight Saving Time or not.
+
+### $dt->time\_zone\_long\_name
+
+This is a shortcut for `$dt->time_zone->name`. It's provided so that one
+can use "%{time\_zone\_long\_name}" as a strftime format specifier.
+
+### $dt->time\_zone\_short\_name
+
+This method returns the time zone abbreviation for the current time zone, such
+as "PST" or "GMT". These names are **not** definitive, and should not be used in
+any application intended for general use by users around the world. That's
+because it's possible for multiple time zones to have the same abbreviation.
+
+### $dt->strftime( $format, ... )
+
+This method implements functionality similar to the `strftime` method in C.
+However, if given multiple format strings, then it will return multiple
+scalars, one for each format string.
+
+See the ["strftime Patterns"](#strftime-patterns) section for a list of all possible strftime
+patterns.
+
+If you give a pattern that doesn't exist, then it is simply treated as text.
+
+Note that any deviation from the POSIX standard is probably a bug. DateTime
+should match the output of `POSIX::strftime` for any given pattern.
+
+### $dt->format\_cldr( $format, ... )
+
+This method implements formatting based on the CLDR date patterns. If given
+multiple format strings, then it will return multiple scalars, one for each
+format string.
+
+See the ["CLDR Patterns"](#cldr-patterns) section for a list of all possible CLDR patterns.
+
+If you give a pattern that doesn't exist, then it is simply treated as text.
+
+### $dt->epoch
+
+Returns the UTC epoch value for the datetime object. Datetimes before the start
+of the epoch will be returned as a negative number.
+
+The return value from this method is always an integer number of seconds.
+
+Since the epoch does not account for leap seconds, the epoch time for
+1972-12-31T23:59:60 (UTC) is exactly the same as that for 1973-01-01T00:00:00.
+
+### $dt->hires\_epoch
+
+Returns the epoch as a floating point number. The floating point portion of the
+value represents the nanosecond value of the object. This method is provided
+for compatibility with the `Time::HiRes` module.
+
+Note that this method suffers from the imprecision of floating point numbers,
+and the result may end up rounded to an arbitrary degree depending on your
+platform.
+
+ my $dt = DateTime->new( year => 2012, nanosecond => 4 );
+ say $dt->hires_epoch;
+
+On my system, this simply prints `1325376000` because adding `0.000000004` to
+`1325376000` returns `1325376000`.
+
+### $dt->is\_finite, $dt->is\_infinite
+
+These methods allow you to distinguish normal datetime objects from infinite
+ones. Infinite datetime objects are documented in [DateTime::Infinite](https://metacpan.org/pod/DateTime%3A%3AInfinite).
+
+### $dt->utc\_rd\_values
+
+Returns the current UTC Rata Die days, seconds, and nanoseconds as a three
+element list. This exists primarily to allow other calendar modules to create
+objects based on the values provided by this object.
+
+### $dt->local\_rd\_values
+
+Returns the current local Rata Die days, seconds, and nanoseconds as a three
+element list. This exists for the benefit of other modules which might want to
+use this information for date math, such as [DateTime::Event::Recurrence](https://metacpan.org/pod/DateTime%3A%3AEvent%3A%3ARecurrence).
+
+### $dt->leap\_seconds
+
+Returns the number of leap seconds that have happened up to the datetime
+represented by the object. For floating datetimes, this always returns 0.
+
+### $dt->utc\_rd\_as\_seconds
+
+Returns the current UTC Rata Die days and seconds purely as seconds. This
+number ignores any fractional seconds stored in the object, as well as leap
+seconds.
+
+### $dt->locale
+
+Returns the datetime's [DateTime::Locale](https://metacpan.org/pod/DateTime%3A%3ALocale) object.
+
+### $dt->formatter
+
+Returns the current formatter object or class. See ["Formatters And
+Stringification"](#formatters-and-stringification) for details.
+
+## "Set" Methods
+
+The remaining methods provided by `DateTime`, except where otherwise
+specified, return the object itself, thus making method chaining possible. For
+example:
+
+ my $dt = DateTime->now->set_time_zone( 'Australia/Sydney' );
+
+ my $first = DateTime
+ ->last_day_of_month( year => 2003, month => 3 )
+ ->add( days => 1 )
+ ->subtract( seconds => 1 );
+
+### $dt->set( .. )
+
+This method can be used to change the local components of a date time. This
+method accepts any parameter allowed by the `new` method except for `locale`
+or `time_zone`. Use `set_locale` and `set_time_zone` for those instead.
+
+This method performs parameter validation just like the `new` method.
+
+**Do not use this method to do date math. Use the `add` and `subtract`
+methods instead.**
+
+### $dt->set\_year, $dt->set\_month, etc.
+
+DateTime has a `set_*` method for every item that can be passed to the
+constructor:
+
+- $dt->set\_year
+- $dt->set\_month
+- $dt->set\_day
+- $dt->set\_hour
+- $dt->set\_minute
+- $dt->set\_second
+- $dt->set\_nanosecond
+
+These are shortcuts to calling `set` with a single key. They all take a single
+parameter.
+
+### $dt->truncate( to => ... )
+
+This method allows you to reset some of the local time components in the object
+to their "zero" values. The `to` parameter is used to specify which values to
+truncate, and it may be one of `"year"`, `"quarter"`, `"month"`, `"week"`,
+`"local_week"`, `"day"`, `"hour"`, `"minute"`, or `"second"`.
+
+For example, if `"month"` is specified, then the local day becomes 1, and the
+hour, minute, and second all become 0.
+
+If `"week"` is given, then the datetime is set to the Monday of the week in
+which it occurs, and the time components are all set to 0. If you truncate to
+`"local_week"`, then the first day of the week is locale-dependent. For
+example, in the `"en-US"` locale, the first day of the week is Sunday.
+
+### $dt->set\_locale($locale)
+
+Sets the object's locale. You can provide either a locale code like `"en-US"`
+or an object returned by `DateTime::Locale->load`.
+
+### $dt->set\_time\_zone($tz)
+
+This method accepts either a time zone object or a string that can be passed as
+the `name` parameter to `DateTime::TimeZone->new`. If the new time zone's
+offset is different from the old time zone, then the _local_ time is adjusted
+accordingly.
+
+For example:
+
+ my $dt = DateTime->new(
+ year => 2000,
+ month => 5,
+ day => 10,
+ hour => 15,
+ minute => 15,
+ time_zone => 'America/Los_Angeles',
+ );
+
+ print $dt->hour; # prints 15
+
+ $dt->set_time_zone('America/Chicago');
+
+ print $dt->hour; # prints 17
+
+If the old time zone was a floating time zone, then no adjustments to the local
+time are made, except to account for leap seconds. If the new time zone is
+floating, then the _UTC_ time is adjusted in order to leave the local time
+untouched.
+
+Fans of Tsai Ming-Liang's films will be happy to know that this does work:
+
+ my $dt = DateTime->now( time_zone => 'Asia/Taipei' );
+ $dt->set_time_zone('Europe/Paris');
+
+Yes, now we can know "ni3 na4 bian1 ji2 dian3?"
+
+### $dt->set\_formatter($formatter)
+
+Sets the formatter for the object. See ["Formatters And Stringification"](#formatters-and-stringification) for
+details.
+
+You can set this to `undef` to revert to the default formatter.
+
+## Math Methods
+
+Like the set methods, math related methods always return the object itself, to
+allow for chaining:
+
+ $dt->add( days => 1 )->subtract( seconds => 1 );
+
+### $dt->duration\_class
+
+This returns [`"DateTime::Duration"`](https://metacpan.org/pod/DateTime%3A%3ADuration), but exists so that
+a subclass of `DateTime` can provide a different value.
+
+### $dt->add\_duration($duration\_object)
+
+This method adds a [DateTime::Duration](https://metacpan.org/pod/DateTime%3A%3ADuration) to the current datetime. See the
+[DateTime::Duration](https://metacpan.org/pod/DateTime%3A%3ADuration) docs for more details.
+
+### $dt->add( parameters for DateTime::Duration )
+
+This method is syntactic sugar around the `$dt->add_duration` method. It
+simply creates a new [DateTime::Duration](https://metacpan.org/pod/DateTime%3A%3ADuration) object using the parameters given,
+and then calls the `$dt->add_duration` method.
+
+### $dt->add($duration\_object)
+
+A synonym of `$dt->add_duration($duration_object)`.
+
+### $dt->subtract\_duration($duration\_object)
+
+When given a [DateTime::Duration](https://metacpan.org/pod/DateTime%3A%3ADuration) object, this method simply calls `$dur->inverse` on that object and passes that new duration to the `$self->add_duration` method.
+
+### $dt->subtract( DateTime::Duration->new parameters )
+
+Like `$dt->add`, this is syntactic sugar for the `$dt->subtract_duration` method.
+
+### $dt->subtract($duration\_object)
+
+A synonym of `$dt->subtract_duration($duration_object)`.
+
+### $dt->subtract\_datetime($datetime)
+
+This method returns a new [DateTime::Duration](https://metacpan.org/pod/DateTime%3A%3ADuration) object representing the
+difference between the two dates. The duration is **relative** to the object
+from which `$datetime` is subtracted. For example:
+
+ 2003-03-15 00:00:00.00000000
+ - 2003-02-15 00:00:00.00000000
+ -------------------------------
+ = 1 month
+
+Note that this duration is not an absolute measure of the amount of time
+between the two datetimes, because the length of a month varies, as well as due
+to the presence of leap seconds.
+
+The returned duration may have deltas for months, days, minutes, seconds, and
+nanoseconds.
+
+### $dt->delta\_md($datetime), $dt->delta\_days($datetime)
+
+Each of these methods returns a new [DateTime::Duration](https://metacpan.org/pod/DateTime%3A%3ADuration) object representing
+some portion of the difference between two datetimes. The `$dt->delta_md`
+method returns a duration which contains only the month and day portions of the
+duration is represented. The `$dt->delta_days` method returns a duration
+which contains only days.
+
+The `$dt->delta_md` and `$dt->delta_days` methods truncate the
+duration so that any fractional portion of a day is ignored. Both of these
+methods operate on the date portion of a datetime only, and so effectively
+ignore the time zone.
+
+Unlike the subtraction methods, **these methods always return a positive (or
+zero) duration**.
+
+### $dt->delta\_ms($datetime)
+
+Returns a duration which contains only minutes and seconds. Any day and month
+differences are converted to minutes and seconds. This method **always returns
+a positive (or zero) duration**.
+
+### $dt->subtract\_datetime\_absolute($datetime)
+
+This method returns a new [DateTime::Duration](https://metacpan.org/pod/DateTime%3A%3ADuration) object representing the
+difference between the two dates in seconds and nanoseconds. This is the only
+way to accurately measure the absolute amount of time between two datetimes,
+since units larger than a second do not represent a fixed number of seconds.
+
+Note that because of leap seconds, this may not return the same result as doing
+this math based on the value returned by `$dt->epoch`.
+
+### $dt->is\_between( $lower, $upper )
+
+Checks whether `$dt` is strictly between two other DateTime objects.
+
+"Strictly" means that `$dt` must be greater than `$lower` and less than
+`$upper`. If it is _equal_ to either object then this method returns false.
+
+## Class Methods
+
+### DateTime->DefaultLocale($locale)
+
+This can be used to specify the default locale to be used when creating
+DateTime objects. If unset, then `"en-US"` is used.
+
+This exists for backwards compatibility, but is probably best avoided. This
+will change the default locale for every `DateTime` object created in your
+application, even those created by third party libraries which also use
+`DateTime`.
+
+### DateTime->compare( $dt1, $dt2 ), DateTime->compare\_ignore\_floating( $dt1, $dt2 )
+
+ $cmp = DateTime->compare( $dt1, $dt2 );
+
+ $cmp = DateTime->compare_ignore_floating( $dt1, $dt2 );
+
+This method compare two DateTime objects. The semantics are compatible with
+Perl's `sort` function; it returns `-1` if `$dt1 < $dt2`, `0` if `$dt1
+== $dt2`, `1` if `$dt1 > $dt2`.
+
+If one of the two DateTime objects has a floating time zone, it will first be
+converted to the time zone of the other object. This is what you want most of
+the time, but it can lead to inconsistent results when you compare a number of
+DateTime objects, some of which are floating, and some of which are in other
+time zones.
+
+If you want to have consistent results (because you want to sort an array of
+objects, for example), you can use the `compare_ignore_floating` method:
+
+ @dates = sort { DateTime->compare_ignore_floating( $a, $b ) } @dates;
+
+In this case, objects with a floating time zone will be sorted as if they were
+UTC times.
+
+Since DateTime objects overload comparison operators, this:
+
+ @dates = sort @dates;
+
+is equivalent to this:
+
+ @dates = sort { DateTime->compare( $a, $b ) } @dates;
+
+DateTime objects can be compared to any other calendar class that implements
+the `utc_rd_values` method.
+
+## Testing Code That Uses DateTime
+
+If you are trying to test code that calls uses DateTime, you may want to be to
+explicitly set the value returned by Perl's `time` builtin. This builtin is
+called by `DateTime->now` and `DateTime->today`.
+
+You can override `CORE::GLOBAL::time`, but this will only work if you do this
+**before** loading DateTime. If doing this is inconvenient, you can also
+override `DateTime::_core_time`:
+
+ no warnings 'redefine';
+ local *DateTime::_core_time = sub { return 42 };
+
+DateTime is guaranteed to call this subroutine to get the current `time`
+value. You can also override the `_core_time` sub in a subclass of DateTime
+and use that.
+
+## How DateTime Math Works
+
+It's important to have some understanding of how datetime math is implemented
+in order to effectively use this module and [DateTime::Duration](https://metacpan.org/pod/DateTime%3A%3ADuration).
+
+### Making Things Simple
+
+If you want to simplify your life and not have to think too hard about the
+nitty-gritty of datetime math, I have several recommendations:
+
+- use the floating time zone
+
+ If you do not care about time zones or leap seconds, use the "floating"
+ timezone:
+
+ my $dt = DateTime->now( time_zone => 'floating' );
+
+ Math done on two objects in the floating time zone produces very predictable
+ results.
+
+ Note that in most cases you will want to start by creating an object in a
+ specific zone and _then_ convert it to the floating time zone. When an object
+ goes from a real zone to the floating zone, the time for the object remains the
+ same.
+
+ This means that passing the floating zone to a constructor may not do what you
+ want.
+
+ my $dt = DateTime->now( time_zone => 'floating' );
+
+ is equivalent to
+
+ my $dt = DateTime->now( time_zone => 'UTC' )->set_time_zone('floating');
+
+ This might not be what you wanted. Instead, you may prefer to do this:
+
+ my $dt = DateTime->now( time_zone => 'local' )->set_time_zone('floating');
+
+- use UTC for all calculations
+
+ If you do care about time zones (particularly DST) or leap seconds, try to use
+ non-UTC time zones for presentation and user input only. Convert to UTC
+ immediately and convert back to the local time zone for presentation:
+
+ my $dt = DateTime->new( %user_input, time_zone => $user_tz );
+ $dt->set_time_zone('UTC');
+
+ # do various operations - store it, retrieve it, add, subtract, etc.
+
+ $dt->set_time_zone($user_tz);
+ print $dt->datetime;
+
+- math on non-UTC time zones
+
+ If you need to do date math on objects with non-UTC time zones, please read the
+ caveats below carefully. The results `DateTime` produces are predictable,
+ correct, and mostly intuitive, but datetime math gets very ugly when time zones
+ are involved, and there are a few strange corner cases involving subtraction of
+ two datetimes across a DST change.
+
+ If you can always use the floating or UTC time zones, you can skip ahead to
+ ["Leap Seconds and Date Math"](#leap-seconds-and-date-math)
+
+- date vs datetime math
+
+ If you only care about the date (calendar) portion of a datetime, you should
+ use either `$dt->delta_md` or `$dt->delta_days`, not `$dt->subtract_datetime`. This will give predictable, unsurprising results,
+ free from DST-related complications.
+
+- $dt->subtract\_datetime and $dt->add\_duration
+
+ You must convert your datetime objects to the UTC time zone before doing date
+ math if you want to make sure that the following formulas are always true:
+
+ $dt2 - $dt1 = $dur
+ $dt1 + $dur = $dt2
+ $dt2 - $dur = $dt1
+
+ Note that using `$dt->delta_days` ensures that this formula always works,
+ regardless of the time zones of the objects involved, as does using `$dt->subtract_datetime_absolute`. Other methods of subtraction are not always
+ reversible.
+
+- never do math on two objects where only one is in the floating time zone
+
+ The date math code accounts for leap seconds whenever the `DateTime` object is
+ not in the floating time zone. If you try to do math where one object is in the
+ floating zone and the other isn't, the results will be confusing and wrong.
+
+### Adding a Duration to a DateTime
+
+The parts of a duration can be broken down into five parts. These are months,
+days, minutes, seconds, and nanoseconds. Adding one month to a date is
+different than adding 4 weeks or 28, 29, 30, or 31 days. Similarly, due to DST
+and leap seconds, adding a day can be different than adding 86,400 seconds, and
+adding a minute is not exactly the same as 60 seconds.
+
+We cannot convert between these units, except for seconds and nanoseconds,
+because there is no fixed conversion between most pairs of units. That is
+because of things like leap seconds, DST changes, etc.
+
+`DateTime` always adds (or subtracts) days, then months, minutes, and then
+seconds and nanoseconds. If there are any boundary overflows, these are
+normalized at each step. For the days and months the local (not UTC) values are
+used. For minutes and seconds, the local values are used. This generally just
+works.
+
+This means that adding one month and one day to February 28, 2003 will produce
+the date April 1, 2003, not March 29, 2003.
+
+ my $dt = DateTime->new( year => 2003, month => 2, day => 28 );
+
+ $dt->add( months => 1, days => 1 );
+
+ # 2003-04-01 - the result
+
+On the other hand, if we add months first, and then separately add days, we end
+up with March 29, 2003:
+
+ $dt->add( months => 1 )->add( days => 1 );
+
+ # 2003-03-29
+
+We see similar strangeness when math crosses a DST boundary:
+
+ my $dt = DateTime->new(
+ year => 2003,
+ month => 4,
+ day => 5,
+ hour => 1,
+ minute => 58,
+ time_zone => "America/Chicago",
+ );
+
+ $dt->add( days => 1, minutes => 3 );
+ # 2003-04-06 02:01:00
+
+ $dt->add( minutes => 3 )->add( days => 1 );
+ # 2003-04-06 03:01:00
+
+Note that if you converted the datetime object to UTC first you would get
+predictable results.
+
+If you want to know how many seconds a [DateTime::Duration](https://metacpan.org/pod/DateTime%3A%3ADuration) object represents,
+you have to add it to a datetime to find out, so you could do:
+
+ my $now = DateTime->now( time_zone => 'UTC' );
+ my $later = $now->clone->add_duration($duration);
+
+ my $seconds_dur = $later->subtract_datetime_absolute($now);
+
+This returns a [DateTime::Duration](https://metacpan.org/pod/DateTime%3A%3ADuration) which only contains seconds and
+nanoseconds.
+
+If we were add the duration to a different `DateTime` object we might get a
+different number of seconds.
+
+[DateTime::Duration](https://metacpan.org/pod/DateTime%3A%3ADuration) supports three different end-of-month algorithms for
+adding months. This comes into play when an addition results in a day past the
+end of the following month (for example, adding one month to January 30).
+
+ # 2010-08-31 + 1 month = 2010-10-01
+ $dt->add( months => 1, end_of_month => 'wrap' );
+
+ # 2010-01-30 + 1 month = 2010-02-28
+ $dt->add( months => 1, end_of_month => 'limit' );
+
+ # 2010-04-30 + 1 month = 2010-05-31
+ $dt->add( months => 1, end_of_month => 'preserve' );
+
+By default, it uses `"wrap"` for positive durations and `"preserve"` for
+negative durations. See [DateTime::Duration](https://metacpan.org/pod/DateTime%3A%3ADuration) for a detailed explanation of
+these algorithms.
+
+If you need to do lots of work with durations, take a look at the
+[DateTime::Format::Duration](https://metacpan.org/pod/DateTime%3A%3AFormat%3A%3ADuration) module, which lets you present information from
+durations in many useful ways.
+
+There are other subtract/delta methods in `DateTime` to generate different
+types of durations. These methods are `$dt->subtract_datetime`, `$dt->subtract_datetime_absolute`, `$dt->delta_md`, `$dt->delta_days`, and `$dt->delta_ms`.
+
+### DateTime Subtraction
+
+Date subtraction is done based solely on the two object's local datetimes, with
+one exception to handle DST changes. Also, if the two datetime objects are in
+different time zones, one of them is converted to the other's time zone first
+before subtraction. This is best explained through examples:
+
+The first of these probably makes the most sense:
+
+ # not DST
+ my $dt1 = DateTime->new(
+ year => 2003,
+ month => 5,
+ day => 6,
+ time_zone => 'America/Chicago',
+ );
+
+ # is DST
+ my $dt2 = DateTime->new(
+ year => 2003,
+ month => 11,
+ day => 6,
+ time_zone => 'America/Chicago',
+ );
+
+ # 6 months
+ my $dur = $dt2->subtract_datetime($dt1);
+
+Nice and simple.
+
+This one is a little trickier, but still fairly logical:
+
+ # is DST
+ my $dt1 = DateTime->new(
+ year => 2003,
+ month => 4,
+ day => 5,
+ hour => 1,
+ minute => 58,
+ time_zone => "America/Chicago",
+ );
+
+ # not DST
+ my $dt2 = DateTime->new(
+ year => 2003,
+ month => 4,
+ day => 7,
+ hour => 2,
+ minute => 1,
+ time_zone => "America/Chicago",
+ );
+
+ # 2 days and 3 minutes
+ my $dur = $dt2->subtract_datetime($dt1);
+
+Which contradicts the result this one gives, even though they both make sense:
+
+ # is DST
+ my $dt1 = DateTime->new(
+ year => 2003,
+ month => 4,
+ day => 5,
+ hour => 1,
+ minute => 58,
+ time_zone => "America/Chicago",
+ );
+
+ # not DST
+ my $dt2 = DateTime->new(
+ year => 2003,
+ month => 4,
+ day => 6,
+ hour => 3,
+ minute => 1,
+ time_zone => "America/Chicago",
+ );
+
+ # 1 day and 3 minutes
+ my $dur = $dt2->subtract_datetime($dt1);
+
+This last example illustrates the "DST" exception mentioned earlier. The
+exception accounts for the fact 2003-04-06 only lasts 23 hours.
+
+And finally:
+
+ my $dt2 = DateTime->new(
+ year => 2003,
+ month => 10,
+ day => 26,
+ hour => 1,
+ time_zone => 'America/Chicago',
+ );
+
+ my $dt1 = $dt2->clone->subtract( hours => 1 );
+
+ # 60 minutes
+ my $dur = $dt2->subtract_datetime($dt1);
+
+This seems obvious until you realize that subtracting 60 minutes from `$dt2`
+in the above example still leaves the clock time at "01:00:00". This time we
+are accounting for a 25 hour day.
+
+### Reversibility
+
+Date math operations are not always reversible. This is because of the way that
+addition operations are ordered. As was discussed earlier, adding 1 day and 3
+minutes in one call to `$dt->add` is not the same as first adding 3
+minutes and 1 day in two separate calls.
+
+If we take a duration returned from `$dt->subtract_datetime` and then try
+to add or subtract that duration from one of the datetimes we just used, we
+sometimes get interesting results:
+
+ my $dt1 = DateTime->new(
+ year => 2003,
+ month => 4,
+ day => 5,
+ hour => 1,
+ minute => 58,
+ time_zone => "America/Chicago",
+ );
+
+ my $dt2 = DateTime->new(
+ year => 2003,
+ month => 4,
+ day => 6,
+ hour => 3,
+ minute => 1,
+ time_zone => "America/Chicago",
+ );
+
+ # 1 day and 3 minutes
+ my $dur = $dt2->subtract_datetime($dt1);
+
+ # gives us $dt2
+ $dt1->add_duration($dur);
+
+ # gives us 2003-04-05 02:58:00 - 1 hour later than $dt1
+ $dt2->subtract_duration($dur);
+
+The `$dt->subtract_duration` operation gives us a (perhaps) unexpected
+answer because it first subtracts one day to get 2003-04-05T03:01:00 and then
+subtracts 3 minutes to get the final result.
+
+If we explicitly reverse the order we can get the original value of `$dt1`.
+This can be facilitated by the [DateTime::Duration](https://metacpan.org/pod/DateTime%3A%3ADuration) class's `$dur->calendar_duration` and `$dur->clock_duration` methods:
+
+ $dt2->subtract_duration( $dur->clock_duration )
+ ->subtract_duration( $dur->calendar_duration );
+
+### Leap Seconds and Date Math
+
+The presence of leap seconds can cause even more anomalies in date math. For
+example, the following is a legal datetime:
+
+ my $dt = DateTime->new(
+ year => 1972,
+ month => 12,
+ day => 31,
+ hour => 23,
+ minute => 59,
+ second => 60,
+ time_zone => 'UTC'
+ );
+
+If we add one month ...
+
+ $dt->add( months => 1 );
+
+... the datetime is now "1973-02-01 00:00:00", because there is no 23:59:60 on
+1973-01-31.
+
+Leap seconds also force us to distinguish between minutes and seconds during
+date math. Given the following datetime ...
+
+ my $dt = DateTime->new(
+ year => 1972,
+ month => 12,
+ day => 31,
+ hour => 23,
+ minute => 59,
+ second => 30,
+ time_zone => 'UTC'
+ );
+
+... we will get different results when adding 1 minute than we get if we add 60
+seconds. This is because in this case, the last minute of the day, beginning at
+23:59:00, actually contains 61 seconds.
+
+Here are the results we get:
+
+ # 1972-12-31 23:59:30 - our starting datetime
+ my $dt = DateTime->new(
+ year => 1972,
+ month => 12,
+ day => 31,
+ hour => 23,
+ minute => 59,
+ second => 30,
+ time_zone => 'UTC'
+ );
+
+ # 1973-01-01 00:00:30 - one minute later
+ $dt->clone->add( minutes => 1 );
+
+ # 1973-01-01 00:00:29 - 60 seconds later
+ $dt->clone->add( seconds => 60 );
+
+ # 1973-01-01 00:00:30 - 61 seconds later
+ $dt->clone->add( seconds => 61 );
+
+### Local vs. UTC and 24 hours vs. 1 day
+
+When math crosses a daylight saving boundary, a single day may have more or
+less than 24 hours.
+
+For example, if you do this ...
+
+ my $dt = DateTime->new(
+ year => 2003,
+ month => 4,
+ day => 5,
+ hour => 2,
+ time_zone => 'America/Chicago',
+ );
+
+ $dt->add( days => 1 );
+
+... then you will produce an _invalid_ local time, and therefore an exception
+will be thrown.
+
+However, this works ...
+
+ my $dt = DateTime->new(
+ year => 2003,
+ month => 4,
+ day => 5,
+ hour => 2,
+ time_zone => 'America/Chicago',
+ );
+
+ $dt->add( hours => 24 );
+
+... and produces a datetime with the local time of "03:00".
+
+If all this makes your head hurt, there is a simple alternative. Just convert
+your datetime object to the "UTC" time zone before doing date math on it, and
+switch it back to the local time zone afterwards. This avoids the possibility
+of having date math throw an exception, and makes sure that 1 day equals 24
+hours. Of course, this may not always be desirable, so caveat user!
+
+## Overloading
+
+This module explicitly overloads the addition (+), subtraction (-), string and
+numeric comparison operators. This means that the following all do sensible
+things:
+
+ my $new_dt = $dt + $duration_obj;
+
+ my $new_dt = $dt - $duration_obj;
+
+ my $duration_obj = $dt - $new_dt;
+
+ for my $dt ( sort @dts ) {...}
+
+Additionally, the fallback parameter is set to true, so other derivable
+operators (+=, -=, etc.) will work properly. Do not expect increment (++) or
+decrement (--) to do anything useful.
+
+The string comparison operators, `eq` or `ne`, will use the string value to
+compare with non-DateTime objects.
+
+DateTime objects do not have a numeric value, using `==` or `<=>` to
+compare a DateTime object with a non-DateTime object will result in an
+exception. To safely sort mixed DateTime and non-DateTime objects, use `sort {
+$a cmp $b } @dates`.
+
+The module also overloads stringification using the object's formatter,
+defaulting to `iso8601` method. See ["Formatters And Stringification"](#formatters-and-stringification) for
+details.
+
+## Formatters And Stringification
+
+You can optionally specify a `formatter`, which is usually a
+`DateTime::Format::*` object or class, to control the stringification of the
+DateTime object.
+
+Any of the constructor methods can accept a formatter argument:
+
+ my $formatter = DateTime::Format::Strptime->new(...);
+ my $dt = DateTime->new( year => 2004, formatter => $formatter );
+
+Or, you can set it afterwards:
+
+ $dt->set_formatter($formatter);
+ $formatter = $dt->formatter;
+
+Once you set the formatter, the overloaded stringification method will use the
+formatter. If unspecified, the `iso8601` method is used.
+
+A formatter can be handy when you know that in your application you want to
+stringify your DateTime objects into a special format all the time, for example
+in Postgres format.
+
+If you provide a formatter class name or object, it must implement a
+`format_datetime` method. This method will be called with just the `DateTime`
+object as its argument.
+
+## CLDR Patterns
+
+The CLDR pattern language is both more powerful and more complex than strftime.
+Unlike strftime patterns, you often have to explicitly escape text that you do
+not want formatted, as the patterns are simply letters without any prefix.
+
+For example, `"yyyy-MM-dd"` is a valid CLDR pattern. If you want to include
+any lower or upper case ASCII characters as-is, you can surround them with
+single quotes ('). If you want to include a single quote, you must escape it as
+two single quotes ('').
+
+ my $pattern1 = q{'Today is ' EEEE};
+ my $pattern2 = q{'It is now' h 'o''clock' a};
+
+Spaces and any non-letter text will always be passed through as-is.
+
+Many CLDR patterns which produce numbers will pad the number with leading
+zeroes depending on the length of the format specifier. For example, `"h"`
+represents the current hour from 1-12. If you specify `"hh"` then hours 1-9
+will have a leading zero prepended.
+
+However, CLDR often uses five of a letter to represent the narrow form of a
+pattern. This inconsistency is necessary for backwards compatibility.
+
+There are many cases where CLDR patterns distinguish between the "format" and
+"stand-alone" forms of a pattern. The format pattern is used when the thing in
+question is being placed into a larger string. The stand-alone form is used
+when displaying that item by itself, for example in a calendar.
+
+There are also many cases where CLDR provides three sizes for each item, wide
+(the full name), abbreviated, and narrow. The narrow form is often just a
+single character, for example "T" for "Tuesday", and may not be unique.
+
+CLDR provides a fairly complex system for localizing time zones that we ignore
+entirely. The time zone patterns just use the information provided by
+`DateTime::TimeZone`, and _do not follow the CLDR spec_.
+
+The output of a CLDR pattern is always localized, when applicable.
+
+CLDR provides the following patterns:
+
+- G{1,3}
+
+ The abbreviated era (BC, AD).
+
+- GGGG
+
+ The wide era (Before Christ, Anno Domini).
+
+- GGGGG
+
+ The narrow era, if it exists (but it mostly doesn't).
+
+- y and y{3,}
+
+ The year, zero-prefixed as needed. Negative years will start with a "-", and
+ this will be included in the length calculation.
+
+ In other, words the "yyyyy" pattern will format year -1234 as "-1234", not
+ "-01234".
+
+- yy
+
+ This is a special case. It always produces a two-digit year, so "1976" becomes
+ "76". Negative years will start with a "-", making them one character longer.
+
+- Y{1,}
+
+ The year in "week of the year" calendars, from `$dt->week_year`.
+
+- u{1,}
+
+ Same as "y" except that "uu" is not a special case.
+
+- Q{1,2}
+
+ The quarter as a number (1..4).
+
+- QQQ
+
+ The abbreviated format form for the quarter.
+
+- QQQQ
+
+ The wide format form for the quarter.
+
+- q{1,2}
+
+ The quarter as a number (1..4).
+
+- qqq
+
+ The abbreviated stand-alone form for the quarter.
+
+- qqqq
+
+ The wide stand-alone form for the quarter.
+
+- M{1,2}
+
+ The numerical month.
+
+- MMM
+
+ The abbreviated format form for the month.
+
+- MMMM
+
+ The wide format form for the month.
+
+- MMMMM
+
+ The narrow format form for the month.
+
+- L{1,2}
+
+ The numerical month.
+
+- LLL
+
+ The abbreviated stand-alone form for the month.
+
+- LLLL
+
+ The wide stand-alone form for the month.
+
+- LLLLL
+
+ The narrow stand-alone form for the month.
+
+- w{1,2}
+
+ The week of the year, from `$dt->week_number`.
+
+- W
+
+ The week of the month, from `$dt->week_of_month`.
+
+- d{1,2}
+
+ The numeric day of the month.
+
+- D{1,3}
+
+ The numeric day of the year.
+
+- F
+
+ The day of the week in the month, from `$dt->weekday_of_month`.
+
+- g{1,}
+
+ The modified Julian day, from `$dt->mjd`.
+
+- E{1,3} and eee
+
+ The abbreviated format form for the day of the week.
+
+- EEEE and eeee
+
+ The wide format form for the day of the week.
+
+- EEEEE and eeeee
+
+ The narrow format form for the day of the week.
+
+- e{1,2}
+
+ The _local_ numeric day of the week, from 1 to 7. This number depends on what
+ day is considered the first day of the week, which varies by locale. For
+ example, in the US, Sunday is the first day of the week, so this returns 2 for
+ Monday.
+
+- c
+
+ The numeric day of the week from 1 to 7, treating Monday as the first of the
+ week, regardless of locale.
+
+- ccc
+
+ The abbreviated stand-alone form for the day of the week.
+
+- cccc
+
+ The wide stand-alone form for the day of the week.
+
+- ccccc
+
+ The narrow format form for the day of the week.
+
+- a
+
+ The localized form of AM or PM for the time.
+
+- h{1,2}
+
+ The hour from 1-12.
+
+- H{1,2}
+
+ The hour from 0-23.
+
+- K{1,2}
+
+ The hour from 0-11.
+
+- k{1,2}
+
+ The hour from 1-24.
+
+- j{1,2}
+
+ The hour, in 12 or 24 hour form, based on the preferred form for the locale. In
+ other words, this is equivalent to either "h{1,2}" or "H{1,2}".
+
+- m{1,2}
+
+ The minute.
+
+- s{1,2}
+
+ The second.
+
+- S{1,}
+
+ The fractional portion of the seconds, rounded based on the length of the
+ specifier. This returned _without_ a leading decimal point, but may have
+ leading or trailing zeroes.
+
+- A{1,}
+
+ The millisecond of the day, based on the current time. In other words, if it is
+ 12:00:00.00, this returns 43200000.
+
+- z{1,3}
+
+ The time zone short name.
+
+- zzzz
+
+ The time zone long name.
+
+- Z{1,3}
+
+ The time zone offset.
+
+- ZZZZ
+
+ The time zone short name and the offset as one string, so something like
+ "CDT-0500".
+
+- ZZZZZ
+
+ The time zone offset as a sexagesimal number, so something like "-05:00". (This
+ is useful for W3C format.)
+
+- v{1,3}
+
+ The time zone short name.
+
+- vvvv
+
+ The time zone long name.
+
+- V{1,3}
+
+ The time zone short name.
+
+- VVVV
+
+ The time zone long name.
+
+### CLDR "Available Formats"
+
+The CLDR data includes pre-defined formats for various patterns such as "month
+and day" or "time of day". Using these formats lets you render information
+about a datetime in the most natural way for users from a given locale.
+
+These formats are indexed by a key that is itself a CLDR pattern. When you look
+these up, you get back a different CLDR pattern suitable for the locale.
+
+Let's look at some example We'll use `2008-02-05T18:30:30` as our example
+datetime value, and see how this is rendered for the `"en-US"` and `"fr-FR"`
+locales.
+
+- `MMMd`
+
+ The abbreviated month and day as number. For `en-US`, we get the pattern `MMM
+ d`, which renders as `Feb 5`. For `fr-FR`, we get the pattern `d MMM`, which
+ renders as `5 févr.`.
+
+- `yQQQ`
+
+ The year and abbreviated quarter of year. For `en-US`, we get the pattern
+ `QQQ y`, which renders as `Q1 2008`. For `fr-FR`, we get the same pattern,
+ `QQQ y`, which renders as `T1 2008`.
+
+- `hm`
+
+ The 12-hour time of day without seconds. For `en-US`, we get the pattern
+ `h:mm a`, which renders as `6:30 PM`. For `fr-FR`, we get the exact same
+ pattern and rendering.
+
+The available formats for each locale are documented in the POD for that
+locale. To get back the format, you use the `$locale->format_for` method.
+For example:
+
+ say $dt->format_cldr( $dt->locale->format_for('MMMd') );
+
+## strftime Patterns
+
+The following patterns are allowed in the format string given to the `$dt->strftime` method:
+
+- %a
+
+ The abbreviated weekday name.
+
+- %A
+
+ The full weekday name.
+
+- %b
+
+ The abbreviated month name.
+
+- %B
+
+ The full month name.
+
+- %c
+
+ The default datetime format for the object's locale.
+
+- %C
+
+ The century number (year/100) as a 2-digit integer.
+
+- %d
+
+ The day of the month as a decimal number (range 01 to 31).
+
+- %D
+
+ Equivalent to %m/%d/%y. This is not a good standard format if you want folks
+ from both the United States and the rest of the world to understand the date!
+
+- %e
+
+ Like %d, the day of the month as a decimal number, but a leading zero is
+ replaced by a space.
+
+- %F
+
+ Equivalent to %Y-%m-%d (the ISO 8601 date format)
+
+- %G
+
+ The ISO 8601 year with century as a decimal number. The 4-digit year
+ corresponding to the ISO week number (see %V). This has the same format and
+ value as %Y, except that if the ISO week number belongs to the previous or next
+ year, that year is used instead. (TZ)
+
+- %g
+
+ Like %G, but without century, i.e., with a 2-digit year (00-99).
+
+- %h
+
+ Equivalent to %b.
+
+- %H
+
+ The hour as a decimal number using a 24-hour clock (range 00 to 23).
+
+- %I
+
+ The hour as a decimal number using a 12-hour clock (range 01 to 12).
+
+- %j
+
+ The day of the year as a decimal number (range 001 to 366).
+
+- %k
+
+ The hour (24-hour clock) as a decimal number (range 0 to 23); single digits are
+ preceded by a blank. (See also %H.)
+
+- %l
+
+ The hour (12-hour clock) as a decimal number (range 1 to 12); single digits are
+ preceded by a blank. (See also %I.)
+
+- %m
+
+ The month as a decimal number (range 01 to 12).
+
+- %M
+
+ The minute as a decimal number (range 00 to 59).
+
+- %n
+
+ A newline character.
+
+- %N
+
+ The fractional seconds digits. Default is 9 digits (nanoseconds).
+
+ %3N milliseconds (3 digits)
+ %6N microseconds (6 digits)
+ %9N nanoseconds (9 digits)
+
+ This value will always be rounded down to the nearest integer.
+
+- %p
+
+ Either \`AM' or \`PM' according to the given time value, or the corresponding
+ strings for the current locale. Noon is treated as \`pm' and midnight as \`am'.
+
+- %P
+
+ Like %p but in lowercase: \`am' or \`pm' or a corresponding string for the
+ current locale.
+
+- %r
+
+ The time in a.m. or p.m. notation. In the POSIX locale this is equivalent to
+ \`%I:%M:%S %p'.
+
+- %R
+
+ The time in 24-hour notation (%H:%M). (SU) For a version including the seconds,
+ see %T below.
+
+- %s
+
+ The number of seconds since the epoch.
+
+- %S
+
+ The second as a decimal number (range 00 to 61).
+
+- %t
+
+ A tab character.
+
+- %T
+
+ The time in 24-hour notation (%H:%M:%S).
+
+- %u
+
+ The day of the week as a decimal, range 1 to 7, Monday being 1. See also %w.
+
+- %U
+
+ The week number of the current year as a decimal number, range 00 to 53,
+ starting with the first Sunday as the first day of week 01. See also %V and %W.
+
+- %V
+
+ The ISO 8601:1988 week number of the current year as a decimal number, range 01
+ to 53, where week 1 is the first week that has at least 4 days in the current
+ year, and with Monday as the first day of the week. See also %U and %W.
+
+- %w
+
+ The day of the week as a decimal, range 0 to 6, Sunday being 0. See also %u.
+
+- %W
+
+ The week number of the current year as a decimal number, range 00 to 53,
+ starting with the first Monday as the first day of week 01.
+
+- %x
+
+ The default date format for the object's locale.
+
+- %X
+
+ The default time format for the object's locale.
+
+- %y
+
+ The year as a decimal number without a century (range 00 to 99).
+
+- %Y
+
+ The year as a decimal number including the century.
+
+- %z
+
+ The time-zone as hour offset from UTC. Required to emit RFC822-conformant dates
+ (using "%a, %d %b %Y %H:%M:%S %z").
+
+- %Z
+
+ The short name for the time zone, typically an abbreviation like "EST" or
+ "AEST".
+
+- %%
+
+ A literal \`%' character.
+
+- %{method}
+
+ Any method name may be specified using the format `%{method}` name where
+ "method" is a valid `DateTime` object method.
+
+## DateTime and Storable
+
+`DateTime` implements [Storable](https://metacpan.org/pod/Storable) hooks in order to reduce the size of a
+serialized `DateTime` object.
+
+# DEVELOPMENT TOOLS
+
+If you're working on the `DateTIme` code base, there are a few extra non-Perl
+tools that you may find useful, notably
+[precious](https://github.com/houseabsolute/precious), a meta-linter/tidier.
+You can install all the necessary tools in `$HOME/bin` by running
+`./dev-bin/install-dev-tools.sh`.
+
+Try running `precious tidy -a` to tidy all the tidyable files in the repo, and
+`precious lint -a` to run all the lint checks.
+
+You can enable a git pre-commit hook for linting by running `./git/setup.pl`.
+
+Note that linting will be checked in CI, and it's okay to submit a PR which
+fails the linting check, but it's extra nice to fix these yourself.
+
+# THE DATETIME PROJECT ECOSYSTEM
+
+This module is part of a larger ecosystem of modules in the DateTime family.
+
+## [DateTime::Set](https://metacpan.org/pod/DateTime%3A%3ASet)
+
+The [DateTime::Set](https://metacpan.org/pod/DateTime%3A%3ASet) module represents sets (including recurrences) of
+datetimes. Many modules return sets or recurrences.
+
+## Format Modules
+
+The various format modules exist to parse and format datetimes. For example,
+[DateTime::Format::HTTP](https://metacpan.org/pod/DateTime%3A%3AFormat%3A%3AHTTP) parses dates according to the RFC 1123 format:
+
+ my $datetime
+ = DateTime::Format::HTTP->parse_datetime(
+ 'Thu Feb 3 17:03:55 GMT 1994');
+
+ print DateTime::Format::HTTP->format_datetime($datetime);
+
+Most format modules are suitable for use as a `formatter` with a DateTime
+object.
+
+All format modules start with
+[DateTime::Format::](https://metacpan.org/search?q=datetime%3A%3Aformat).
+
+## Calendar Modules
+
+There are a number of modules on CPAN that implement non-Gregorian calendars,
+such as the Chinese, Mayan, and Julian calendars.
+
+All calendar modules start with
+[DateTime::Calendar::](https://metacpan.org/search?q=datetime%3A%3Acalendar).
+
+## Event Modules
+
+There are a number of modules that calculate the dates for events, such as
+Easter, Sunrise, etc.
+
+All event modules start with
+[DateTime::Event::](https://metacpan.org/search?q=datetime%3A%3Aevent).
+
+## Others
+
+There are many other modules that work with DateTime, including modules in the
+[DateTimeX namespace](https://metacpan.org/search?q=datetimex) namespace, as
+well as others.
+
+See [MetaCPAN](https://metacpan.org/search?q=datetime) for more modules.
+
+# KNOWN BUGS
+
+The tests in `20infinite.t` seem to fail on some machines, particularly on
+Win32. This appears to be related to Perl's internal handling of IEEE infinity
+and NaN, and seems to be highly platform/compiler/phase of moon dependent.
+
+If you don't plan to use infinite datetimes you can probably ignore this. This
+will be fixed (perhaps) in future versions.
+
+# SEE ALSO
+
+[A Date with Perl](http://presentations.houseabsolute.com/a-date-with-perl/) -
+a talk I've given at a few YAPCs.
+
+[datetime@perl.org mailing list](http://lists.perl.org/list/datetime.html)
+
+# SUPPORT
+
+Bugs may be submitted at [https://github.com/houseabsolute/DateTime.pm/issues](https://github.com/houseabsolute/DateTime.pm/issues).
+
+There is a mailing list available for users of this distribution,
+[mailto:datetime@perl.org](mailto:datetime@perl.org).
+
+# SOURCE
+
+The source code repository for DateTime can be found at [https://github.com/houseabsolute/DateTime.pm](https://github.com/houseabsolute/DateTime.pm).
+
+# DONATIONS
+
+If you'd like to thank me for the work I've done on this module, please
+consider making a "donation" to me via PayPal. I spend a lot of free time
+creating free software, and would appreciate any support you'd care to offer.
+
+Please note that **I am not suggesting that you must do this** in order for me
+to continue working on this particular software. I will continue to do so,
+inasmuch as I have in the past, for as long as it interests me.
+
+Similarly, a donation made in this way will probably not make me work on this
+software much more, unless I get so many donations that I can consider working
+on free software full time (let's all have a chuckle at that together).
+
+To donate, log into PayPal and send money to autarch@urth.org, or use the
+button at [https://houseabsolute.com/foss-donations/](https://houseabsolute.com/foss-donations/).
+
+# AUTHOR
+
+Dave Rolsky <autarch@urth.org>
+
+# CONTRIBUTORS
+
+- Ben Bennett <fiji@limey.net>
+- Christian Hansen <chansen@cpan.org>
+- Daisuke Maki <dmaki@cpan.org>
+- Dan Book <grinnz@gmail.com>
+- Dan Stewart <danielandrewstewart@gmail.com>
+- David Dyck <david.dyck@checksum.com>
+- David E. Wheeler <david@justatheory.com>
+- David Precious <davidp@preshweb.co.uk>
+- Doug Bell <madcityzen@gmail.com>
+- Flávio Soibelmann Glock <fglock@gmail.com>
+- Gianni Ceccarelli <gianni.ceccarelli@broadbean.com>
+- Gregory Oschwald <oschwald@gmail.com>
+- Hauke D <haukex@zero-g.net>
+- Iain Truskett <deceased>
+- James Raspass <jraspass@gmail.com>
+- Jason McIntosh <jmac@jmac.org>
+- Joshua Hoblitt <jhoblitt@cpan.org>
+- Karen Etheridge <ether@cpan.org>
+- Mark Overmeer <mark@overmeer.net>
+- Michael Conrad <mike@nrdvana.net>
+- Michael R. Davis <mrdvt92@users.noreply.github.com>
+- Mohammad S Anwar <mohammad.anwar@yahoo.com>
+- M Somerville <dracos@users.noreply.github.com>
+- Nick Tonkin <1nickt@users.noreply.github.com>
+- Olaf Alders <olaf@wundersolutions.com>
+- Ovid <curtis\_ovid\_poe@yahoo.com>
+- Paul Howarth <paul@city-fan.org>
+- Philippe Bruhat (BooK) <book@cpan.org>
+- philip r brenan <philiprbrenan@gmail.com>
+- Ricardo Signes <rjbs@cpan.org>
+- Richard Bowen <bowen@cpan.org>
+- Ron Hill <rkhill@cpan.org>
+- Sam Kington <github@illuminated.co.uk>
+- viviparous <viviparous@prc>
+
+# COPYRIGHT AND LICENSE
+
+This software is Copyright (c) 2003 - 2023 by Dave Rolsky.
+
+This is free software, licensed under:
+
+ The Artistic License 2.0 (GPL Compatible)
+
+The full text of the license can be found in the
+`LICENSE` file included with this distribution.
--- /dev/null
+TODO list for Perl module DateTime
+
+- what's the relation between UT1 and MJD/JD ?
+ see: http://hpiers.obspm.fr/eop-pc/earthor/utc/leapsecond.html
+
+* strftime method
+
+- more tests for other languages
+
+* sub-second resolution
+
+- more tests: add/subtract/compare
+
+
+* Other
+
+- document RD days/seconds(/nanosecs?) in a separate document that
+will be the reference for DateTime.pm internals, as well as being
+useful for other calendar implementors.
+
+- thorough tests for subtraction & addition overloading
+
+
+NOTE TO FUTURE DEVELOPERS:
+
+Attempting to implement add_duration in XS actually seemed to slow
+date math operations down. Sad but true.
--- /dev/null
+resources:
+ repositories:
+ - repository: ci-perl-helpers
+ type: github
+ name: houseabsolute/ci-perl-helpers
+ endpoint: houseabsolute
+
+stages:
+ - template: templates/helpers/build.yml@ci-perl-helpers
+ parameters:
+ debug: true
+
+ - template: templates/helpers/linux.yml@ci-perl-helpers
+ parameters:
+ coverage: codecov
+ debug: true
+ include_threads: true
+ test_xt: true
+ use_default_perls: true
+
+ - template: templates/helpers/macos.yml@ci-perl-helpers
+ parameters:
+ debug: true
+ include_threads: true
+ use_default_perls: true
+
+ - template: templates/helpers/windows.yml@ci-perl-helpers
+ parameters:
+ debug: true
+ use_default_perls: true
+
--- /dev/null
+# This file is generated by Dist::Zilla::Plugin::CPANFile v6.030
+# Do not edit this file directly. To change prereqs, edit the `dist.ini` file.
+
+requires "Carp" => "0";
+requires "DateTime::Locale" => "1.06";
+requires "DateTime::TimeZone" => "2.44";
+requires "Dist::CheckConflicts" => "0.02";
+requires "POSIX" => "0";
+requires "Params::ValidationCompiler" => "0.26";
+requires "Scalar::Util" => "0";
+requires "Specio" => "0.18";
+requires "Specio::Declare" => "0";
+requires "Specio::Exporter" => "0";
+requires "Specio::Library::Builtins" => "0";
+requires "Specio::Library::Numeric" => "0";
+requires "Specio::Library::String" => "0";
+requires "Specio::Subs" => "0";
+requires "Try::Tiny" => "0";
+requires "XSLoader" => "0";
+requires "integer" => "0";
+requires "namespace::autoclean" => "0.19";
+requires "overload" => "0";
+requires "parent" => "0";
+requires "perl" => "5.008004";
+requires "strict" => "0";
+requires "warnings" => "0";
+requires "warnings::register" => "0";
+
+on 'test' => sub {
+ requires "CPAN::Meta::Check" => "0.011";
+ requires "CPAN::Meta::Requirements" => "0";
+ requires "ExtUtils::MakeMaker" => "0";
+ requires "File::Spec" => "0";
+ requires "Storable" => "0";
+ requires "Test::Fatal" => "0";
+ requires "Test::More" => "0.96";
+ requires "Test::Warnings" => "0.005";
+ requires "Test::Without::Module" => "0";
+ requires "utf8" => "0";
+};
+
+on 'test' => sub {
+ recommends "CPAN::Meta" => "2.120900";
+};
+
+on 'configure' => sub {
+ requires "Dist::CheckConflicts" => "0.02";
+ requires "ExtUtils::MakeMaker" => "0";
+};
+
+on 'configure' => sub {
+ suggests "JSON::PP" => "2.27300";
+};
+
+on 'develop' => sub {
+ requires "Capture::Tiny" => "0";
+ requires "Cwd" => "0";
+ requires "Devel::PPPort" => "3.23";
+ requires "Encode" => "0";
+ requires "File::Basename" => "0";
+ requires "File::Spec" => "0";
+ requires "FindBin" => "0";
+ requires "Perl::Critic" => "1.138";
+ requires "Perl::Critic::Moose" => "1.05";
+ requires "Perl::Tidy" => "20210111";
+ requires "Pod::Checker" => "1.74";
+ requires "Pod::Coverage::TrustPod" => "0";
+ requires "Pod::Tidy" => "0.10";
+ requires "Pod::Wordlist" => "0";
+ requires "Storable" => "0";
+ requires "Test::CPAN::Changes" => "0.19";
+ requires "Test::CPAN::Meta::JSON" => "0.16";
+ requires "Test::CleanNamespaces" => "0.15";
+ requires "Test::DependentModules" => "0";
+ requires "Test::EOL" => "0";
+ requires "Test::Fatal" => "0";
+ requires "Test::Mojibake" => "0";
+ requires "Test::More" => "0.96";
+ requires "Test::NoTabs" => "0";
+ requires "Test::Pod" => "1.41";
+ requires "Test::Pod::Coverage" => "1.08";
+ requires "Test::Portability::Files" => "0";
+ requires "Test::Spelling" => "0.12";
+ requires "Test::Version" => "2.05";
+ requires "Test::Warnings" => "0.005";
+ requires "Test::Without::Module" => "0";
+ requires "autodie" => "0";
+ requires "utf8" => "0";
+};
--- /dev/null
+#!/bin/sh
+
+set -e
+
+TARGET="$HOME/bin"
+if [ $(id -u) -eq 0 ]; then
+ TARGET="/usr/local/bin"
+fi
+echo "Installing dev tools to $TARGET"
+
+mkdir -p $TARGET
+curl --silent --location \
+ https://raw.githubusercontent.com/houseabsolute/ubi/master/bootstrap/bootstrap-ubi.sh |
+ sh
+
+"$TARGET/ubi" --project houseabsolute/precious --in "$TARGET"
+"$TARGET/ubi" --project houseabsolute/omegasort --in "$TARGET"
+
+echo "Add $TARGET to your PATH in order to use precious for linting and tidying"
--- /dev/null
+name = DateTime
+author = Dave Rolsky <autarch@urth.org>
+license = Artistic_2_0
+copyright_holder = Dave Rolsky
+copyright_year = 2003
+
+[PruneCruft]
+
+; authordep Dist::Zilla::PluginBundle::DROLSKY = 1.22
+[@DROLSKY]
+dist = DateTime
+exclude_files = leap_seconds.h
+next_release_width = 6
+pod_coverage_skip = DateTime::Conflicts
+pod_coverage_skip = DateTime::Helpers
+pod_coverage_skip = DateTime::PP
+pod_coverage_skip = DateTime::PPExtra
+pod_coverage_trustme = DateTime => qr/^[A-Z_]+$/
+pod_coverage_trustme = DateTime => qr/0$/
+pod_coverage_trustme = DateTime => qr/^STORABLE/
+pod_coverage_trustme = DateTime => qr/^utc_year$/
+pod_coverage_trustme = DateTime => qr/^timegm$/
+pod_coverage_trustme = DateTime => qr/^day_of_month$/
+pod_coverage_trustme = DateTime => qr/^doq$/
+pod_coverage_trustme = DateTime => qr/^dow$/
+pod_coverage_trustme = DateTime => qr/^doy$/
+pod_coverage_trustme = DateTime => qr/^iso8601$/
+pod_coverage_trustme = DateTime => qr/^local_rd_as_seconds$/
+pod_coverage_trustme = DateTime => qr/^mday$/
+pod_coverage_trustme = DateTime => qr/^min$/
+pod_coverage_trustme = DateTime => qr/^mon$/
+pod_coverage_trustme = DateTime => qr/^sec$/
+pod_coverage_trustme = DateTime => qr/^wday$/
+pod_coverage_trustme = DateTime::Duration => qr/^[A-Z_]+$/
+pod_coverage_trustme = DateTime::Infinite => qr/^.+$/
+; deprecated methods
+pod_coverage_trustme = DateTime => qr/^DefaultLanguage$/
+pod_coverage_trustme = DateTime => qr/^era$/
+pod_coverage_trustme = DateTime => qr/^language$/
+stopwords_file = .stopwords
+Test::CleanNamespaces.skip = DateTime::Conflicts
+use_github_issues = 1
+-remove = Test::Compile
+-remove = Test::Pod::No404s
+-remove = Test::Synopsis
+
+[lib]
+lib = .
+
+[=inc::LeapSecondsHeader]
+
+[CopyFilesFromBuild]
+copy = leap_seconds.h
+
+[MetaResources]
+x_MailingList = datetime@perl.org
+
+[Prereqs / DevelopRequires]
+autodie = 0
+
+[PurePerlTests]
+:version = 0.06
+env_var = PERL_DATETIME_PP
+
+[Conflicts]
+:version = 0.18
+DateTime::Format::Mail = 0.402
+
+[Test::CheckBreaks]
+conflicts_module = DateTime::Conflicts
--- /dev/null
+#!/bin/bash
+
+status=0
+
+PRECIOUS=$(which precious)
+if [[ -z $PRECIOUS ]]; then
+ PRECIOUS=./bin/precious
+fi
+
+"$PRECIOUS" lint -s
+if (( $? != 0 )); then
+ status+=1
+fi
+
+exit $status
--- /dev/null
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+
+use Cwd qw( abs_path );
+
+symlink_hook('pre-commit');
+
+sub symlink_hook {
+ my $hook = shift;
+
+ my $dot = ".git/hooks/$hook";
+ my $file = "git/hooks/$hook.sh";
+ my $link = "../../$file";
+
+ if ( -e $dot ) {
+ if ( -l $dot ) {
+ return if readlink $dot eq $link;
+ }
+ warn "You already have a hook at $dot!\n";
+ return;
+ }
+
+ symlink $link, $dot
+ or die "Could not link $dot => $link: $!";
+}
--- /dev/null
+package inc::LeapSecondsHeader;
+
+use strict;
+use warnings;
+use namespace::autoclean;
+use autodie;
+
+my $VERSION = 0.04;
+
+use Dist::Zilla::File::InMemory;
+
+use Moose;
+
+has _leap_second_data => (
+ traits => ['Array'],
+ is => 'bare',
+ isa => 'ArrayRef',
+ lazy => 1,
+ builder => '_build_leap_second_data',
+ handles => { _leap_second_data => 'elements' },
+);
+
+with 'Dist::Zilla::Role::FileGatherer';
+
+sub gather_files {
+ my $self = shift;
+
+ $self->add_file(
+ Dist::Zilla::File::InMemory->new(
+ name => 'leap_seconds.h',
+ encoding => 'bytes',
+ content => $self->_header,
+ ),
+ );
+}
+
+my $x = 1;
+my %months = map { $_ => $x++ }
+ qw( Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec );
+
+sub _build_leap_second_data {
+ my $self = shift;
+ my @steps;
+
+ open my $fh, '<', 'leaptab.txt' or die $!;
+ while (<$fh>) {
+ my ( $year, $mon, $day, $leap_seconds ) = split /\s+/;
+
+ $mon =~ s/\W//;
+ my $utc_epoch = _ymd2rd( $year, $months{$mon}, $day );
+
+ push @steps, [ $utc_epoch => $leap_seconds ];
+ }
+ close $fh;
+
+ return \@steps;
+}
+
+sub _macro_lines {
+ join "\n", map { sprintf( ' %-37s\\', $_ ) } @_;
+}
+
+sub set_leap_seconds {
+ my $self = shift;
+
+ # The most recent leaps have a higher chance to match
+ my $count = 0;
+ my @checks = "$count;";
+ foreach my $step ( $self->_leap_second_data ) {
+ $count += $step->[1];
+ unshift @checks, "utc_rd >= $step->[0] ? $count :";
+ }
+ my $checks = _macro_lines(@checks);
+
+ return <<"__LEAP";
+
+/* utc_rd must be a simple variable */
+#define SET_LEAP_SECONDS(utc_rd, leaps) \\
+ (leaps) = \\
+$checks\
+__LEAP
+}
+
+sub set_extra_seconds {
+ my $self = shift;
+
+ my @checks;
+ foreach my $step ( $self->_leap_second_data ) {
+ push @checks, "case $step->[0]: es = $step->[1]; break;";
+ }
+
+ my $checks = _macro_lines(@checks);
+
+ return <<"__EXTRA_SECONDS";
+#define SET_EXTRA_SECONDS(utc_rd, es) \\
+ switch (utc_rd +1) { \\
+$checks\
+ default: es = 0; \\
+ }
+__EXTRA_SECONDS
+}
+
+sub set_day_length {
+ my $self = shift;
+
+ my @checks;
+ foreach my $step ( $self->_leap_second_data ) {
+ push @checks, "case $step->[0]: dl = 86400 + $step->[1]; break;";
+ }
+ my $checks = _macro_lines(@checks);
+
+ return <<"__DAY_LENGTH";
+#define SET_DAY_LENGTH(utc_rd, dl) \\
+ switch (utc_rd +1) { \\
+$checks\
+ default: dl = 86400; \\
+ }
+__DAY_LENGTH
+}
+
+sub _header {
+ my $self = shift;
+
+ my $generator = ref $self;
+ my $header = <<"__HEADER";
+/*
+
+This file is auto-generated by the leap second code generator ($VERSION). This
+code generator comes with the DateTime.pm module distribution in the tools/
+directory
+
+Generated $generator.
+
+Do not edit this file directly.
+
+*/
+__HEADER
+
+ return join "\n",
+ $header,
+ $self->set_leap_seconds,
+ $self->set_extra_seconds,
+ $self->set_day_length;
+}
+
+# from lib/DateTimePP.pm
+sub _ymd2rd {
+ use integer;
+ my ( $y, $m, $d ) = @_;
+ my $adj;
+
+ # make month in range 3..14 (treat Jan & Feb as months 13..14 of
+ # prev year)
+ if ( $m <= 2 ) {
+ $y -= ( $adj = ( 14 - $m ) / 12 );
+ $m += 12 * $adj;
+ }
+ elsif ( $m > 14 ) {
+ $y += ( $adj = ( $m - 3 ) / 12 );
+ $m -= 12 * $adj;
+ }
+
+ # make year positive (oh, for a use integer 'sane_div'!)
+ if ( $y < 0 ) {
+ $d -= 146097 * ( $adj = ( 399 - $y ) / 400 );
+ $y += 400 * $adj;
+ }
+
+ # add: day of month, days of previous 0-11 month period that began
+ # w/March, days of previous 0-399 year period that began w/March
+ # of a 400-multiple year), days of any 400-year periods before
+ # that, and 306 days to adjust from Mar 1, year 0-relative to Jan
+ # 1, year 1-relative (whew)
+
+ $d
+ += ( $m * 367 - 1094 ) / 12
+ + $y % 100 * 1461 / 4
+ + ( $y / 100 * 36524 + $y / 400 )
+ - 306;
+}
+
+__PACKAGE__->meta->make_immutable;
+
+1;
--- /dev/null
+/*
+
+This file is auto-generated by the leap second code generator (0.04). This
+code generator comes with the DateTime.pm module distribution in the tools/
+directory
+
+Generated inc::LeapSecondsHeader.
+
+Do not edit this file directly.
+
+*/
+
+
+/* utc_rd must be a simple variable */
+#define SET_LEAP_SECONDS(utc_rd, leaps) \
+ (leaps) = \
+ utc_rd >= 736330 ? 27 : \
+ utc_rd >= 735780 ? 26 : \
+ utc_rd >= 734685 ? 25 : \
+ utc_rd >= 733408 ? 24 : \
+ utc_rd >= 732312 ? 23 : \
+ utc_rd >= 729755 ? 22 : \
+ utc_rd >= 729206 ? 21 : \
+ utc_rd >= 728659 ? 20 : \
+ utc_rd >= 728110 ? 19 : \
+ utc_rd >= 727745 ? 18 : \
+ utc_rd >= 727380 ? 17 : \
+ utc_rd >= 726833 ? 16 : \
+ utc_rd >= 726468 ? 15 : \
+ utc_rd >= 725737 ? 14 : \
+ utc_rd >= 724823 ? 13 : \
+ utc_rd >= 724092 ? 12 : \
+ utc_rd >= 723727 ? 11 : \
+ utc_rd >= 723362 ? 10 : \
+ utc_rd >= 722815 ? 9 : \
+ utc_rd >= 722450 ? 8 : \
+ utc_rd >= 722085 ? 7 : \
+ utc_rd >= 721720 ? 6 : \
+ utc_rd >= 721354 ? 5 : \
+ utc_rd >= 720989 ? 4 : \
+ utc_rd >= 720624 ? 3 : \
+ utc_rd >= 720259 ? 2 : \
+ utc_rd >= 720075 ? 1 : \
+ 0; \
+
+#define SET_EXTRA_SECONDS(utc_rd, es) \
+ switch (utc_rd +1) { \
+ case 720075: es = +1; break; \
+ case 720259: es = +1; break; \
+ case 720624: es = +1; break; \
+ case 720989: es = +1; break; \
+ case 721354: es = +1; break; \
+ case 721720: es = +1; break; \
+ case 722085: es = +1; break; \
+ case 722450: es = +1; break; \
+ case 722815: es = +1; break; \
+ case 723362: es = +1; break; \
+ case 723727: es = +1; break; \
+ case 724092: es = +1; break; \
+ case 724823: es = +1; break; \
+ case 725737: es = +1; break; \
+ case 726468: es = +1; break; \
+ case 726833: es = +1; break; \
+ case 727380: es = +1; break; \
+ case 727745: es = +1; break; \
+ case 728110: es = +1; break; \
+ case 728659: es = +1; break; \
+ case 729206: es = +1; break; \
+ case 729755: es = +1; break; \
+ case 732312: es = +1; break; \
+ case 733408: es = +1; break; \
+ case 734685: es = +1; break; \
+ case 735780: es = +1; break; \
+ case 736330: es = +1; break; \
+ default: es = 0; \
+ }
+
+#define SET_DAY_LENGTH(utc_rd, dl) \
+ switch (utc_rd +1) { \
+ case 720075: dl = 86400 + +1; break; \
+ case 720259: dl = 86400 + +1; break; \
+ case 720624: dl = 86400 + +1; break; \
+ case 720989: dl = 86400 + +1; break; \
+ case 721354: dl = 86400 + +1; break; \
+ case 721720: dl = 86400 + +1; break; \
+ case 722085: dl = 86400 + +1; break; \
+ case 722450: dl = 86400 + +1; break; \
+ case 722815: dl = 86400 + +1; break; \
+ case 723362: dl = 86400 + +1; break; \
+ case 723727: dl = 86400 + +1; break; \
+ case 724092: dl = 86400 + +1; break; \
+ case 724823: dl = 86400 + +1; break; \
+ case 725737: dl = 86400 + +1; break; \
+ case 726468: dl = 86400 + +1; break; \
+ case 726833: dl = 86400 + +1; break; \
+ case 727380: dl = 86400 + +1; break; \
+ case 727745: dl = 86400 + +1; break; \
+ case 728110: dl = 86400 + +1; break; \
+ case 728659: dl = 86400 + +1; break; \
+ case 729206: dl = 86400 + +1; break; \
+ case 729755: dl = 86400 + +1; break; \
+ case 732312: dl = 86400 + +1; break; \
+ case 733408: dl = 86400 + +1; break; \
+ case 734685: dl = 86400 + +1; break; \
+ case 735780: dl = 86400 + +1; break; \
+ case 736330: dl = 86400 + +1; break; \
+ default: dl = 86400; \
+ }
--- /dev/null
+1972 Jul. 1 +1
+1973 Jan. 1 +1
+1974 Jan. 1 +1
+1975 Jan. 1 +1
+1976 Jan. 1 +1
+1977 Jan. 1 +1
+1978 Jan. 1 +1
+1979 Jan. 1 +1
+1980 Jan. 1 +1
+1981 Jul. 1 +1
+1982 Jul. 1 +1
+1983 Jul. 1 +1
+1985 Jul. 1 +1
+1988 Jan. 1 +1
+1990 Jan. 1 +1
+1991 Jan. 1 +1
+1992 Jul. 1 +1
+1993 Jul. 1 +1
+1994 Jul. 1 +1
+1996 Jan. 1 +1
+1997 Jul. 1 +1
+1999 Jan. 1 +1
+2006 Jan. 1 +1
+2009 Jan. 1 +1
+2012 Jul. 1 +1
+2015 Jul. 1 +1
+2017 Jan. 1 +1
--- /dev/null
+## no critic (Modules::ProhibitExcessMainComplexity)
+package DateTime;
+
+use 5.008004;
+
+use strict;
+use warnings;
+use warnings::register;
+use namespace::autoclean 0.19;
+
+our $VERSION = '1.65';
+
+use Carp;
+use DateTime::Duration;
+use DateTime::Helpers;
+use DateTime::Locale 1.06;
+use DateTime::TimeZone 2.44;
+use DateTime::Types;
+use POSIX qw( floor fmod );
+use Params::ValidationCompiler 0.26 qw( validation_for );
+use Scalar::Util qw( blessed );
+use Specio::Subs qw( Specio::Library::Builtins );
+use Try::Tiny;
+
+## no critic (Variables::ProhibitPackageVars)
+our $IsPurePerl;
+
+{
+ my $loaded = 0;
+
+ unless ( $ENV{PERL_DATETIME_PP} ) {
+ try {
+ require XSLoader;
+ XSLoader::load(
+ __PACKAGE__,
+ exists $DateTime::{VERSION} && ${ $DateTime::{VERSION} }
+ ? ${ $DateTime::{VERSION} }
+ : 42
+ );
+
+ $loaded = 1;
+ $IsPurePerl = 0;
+ }
+ catch {
+ die $_ if $_ && $_ !~ /object version|loadable object/;
+ };
+ }
+
+ if ($loaded) {
+ ## no critic (Variables::ProtectPrivateVars)
+ require DateTime::PPExtra
+ unless defined &DateTime::_normalize_tai_seconds;
+ }
+ else {
+ require DateTime::PP;
+ }
+}
+
+# for some reason, overloading doesn't work unless fallback is listed
+# early.
+#
+# 3rd parameter ( $_[2] ) means the parameters are 'reversed'.
+# see: "Calling conventions for binary operations" in overload docs.
+#
+use overload (
+ fallback => 1,
+ '<=>' => '_compare_overload',
+ 'cmp' => '_string_compare_overload',
+ q{""} => 'stringify',
+ bool => sub {1},
+ '-' => '_subtract_overload',
+ '+' => '_add_overload',
+ 'eq' => '_string_equals_overload',
+ 'ne' => '_string_not_equals_overload',
+);
+
+# Have to load this after overloading is defined, after BEGIN blocks
+# or else weird crashes ensue
+require DateTime::Infinite;
+
+sub MAX_NANOSECONDS () {1_000_000_000} # 1E9 = almost 32 bits
+sub INFINITY () { 100**100**100**100 }
+sub NEG_INFINITY () { -1 * ( 100**100**100**100 ) }
+sub NAN () { INFINITY - INFINITY }
+
+sub SECONDS_PER_DAY () {86400}
+
+sub duration_class () {'DateTime::Duration'}
+
+my (
+ @MonthLengths,
+ @LeapYearMonthLengths,
+ @QuarterLengths,
+ @LeapYearQuarterLengths,
+);
+
+BEGIN {
+ @MonthLengths = ( 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 );
+
+ @LeapYearMonthLengths = @MonthLengths;
+ $LeapYearMonthLengths[1]++;
+
+ @QuarterLengths = ( 90, 91, 92, 92 );
+
+ @LeapYearQuarterLengths = @QuarterLengths;
+ $LeapYearQuarterLengths[0]++;
+}
+
+{
+
+ # I'd rather use Class::Data::Inheritable for this, but there's no
+ # way to add the module-loading behavior to an accessor it
+ # creates, despite what its docs say!
+ my $DefaultLocale;
+
+ sub DefaultLocale {
+ shift;
+
+ if (@_) {
+ my $lang = shift;
+
+ $DefaultLocale = DateTime::Locale->load($lang);
+ }
+
+ return $DefaultLocale;
+ }
+}
+__PACKAGE__->DefaultLocale('en-US');
+
+{
+ my $validator = validation_for(
+ name => '_check_new_params',
+ name_is_optional => 1,
+ params => {
+ year => { type => t('Year') },
+ month => {
+ type => t('Month'),
+ default => 1,
+ },
+ day => {
+ type => t('DayOfMonth'),
+ default => 1,
+ },
+ hour => {
+ type => t('Hour'),
+ default => 0,
+ },
+ minute => {
+ type => t('Minute'),
+ default => 0,
+ },
+ second => {
+ type => t('Second'),
+ default => 0,
+ },
+ nanosecond => {
+ type => t('Nanosecond'),
+ default => 0,
+ },
+ locale => {
+ type => t('Locale'),
+ optional => 1,
+ },
+ formatter => {
+ type => t('Formatter'),
+ optional => 1,
+ },
+ time_zone => {
+ type => t('TimeZone'),
+ optional => 1,
+ },
+ },
+ );
+
+ sub new {
+ my $class = shift;
+ my %p = $validator->(@_);
+
+ Carp::croak(
+ "Invalid day of month (day = $p{day} - month = $p{month} - year = $p{year})\n"
+ )
+ if $p{day} > 28
+ && $p{day} > $class->_month_length( $p{year}, $p{month} );
+
+ return $class->_new(%p);
+ }
+}
+
+sub _new {
+ my $class = shift;
+ my %p = @_;
+
+ Carp::croak('Constructor called with reference, we expected a package')
+ if ref $class;
+
+ # If this method is called from somewhere other than new(), then some of
+ # these defaults may not get applied.
+ $p{month} = 1 unless exists $p{month};
+ $p{day} = 1 unless exists $p{day};
+ $p{hour} = 0 unless exists $p{hour};
+ $p{minute} = 0 unless exists $p{minute};
+ $p{second} = 0 unless exists $p{second};
+ $p{nanosecond} = 0 unless exists $p{nanosecond};
+ $p{time_zone} = $class->_default_time_zone unless exists $p{time_zone};
+
+ my $self = bless {}, $class;
+
+ $self->_set_locale( $p{locale} );
+
+ $self->{tz} = (
+ ref $p{time_zone}
+ ? $p{time_zone}
+ : DateTime::TimeZone->new( name => $p{time_zone} )
+ );
+
+ $self->{local_rd_days} = $class->_ymd2rd( @p{qw( year month day )} );
+
+ $self->{local_rd_secs}
+ = $class->_time_as_seconds( @p{qw( hour minute second )} );
+
+ $self->{offset_modifier} = 0;
+
+ $self->{rd_nanosecs} = $p{nanosecond};
+ $self->{formatter} = $p{formatter};
+
+ $self->_normalize_nanoseconds(
+ $self->{local_rd_secs},
+ $self->{rd_nanosecs}
+ );
+
+ # Set this explicitly since it can't be calculated accurately
+ # without knowing our time zone offset, and it's possible that the
+ # offset can't be calculated without having at least a rough guess
+ # of the datetime's year. This year need not be correct, as long
+ # as its equal or greater to the correct number, so we fudge by
+ # adding one to the local year given to the constructor.
+ $self->{utc_year} = $p{year} + 1;
+
+ $self->_maybe_future_dst_warning( $p{year}, $p{time_zone} );
+
+ $self->_calc_utc_rd;
+
+ $self->_handle_offset_modifier( $p{second} );
+
+ $self->_calc_local_rd;
+
+ if ( $p{second} > 59 ) {
+ if (
+ $self->{tz}->is_floating
+ ||
+
+ # If true, this means that the actual calculated leap
+ # second does not occur in the second given to new()
+ ( $self->{utc_rd_secs} - 86399 < $p{second} - 59 )
+ ) {
+ Carp::croak("Invalid second value ($p{second})\n");
+ }
+ }
+
+ return $self;
+}
+
+# Warning: do not use this environment variable unless you have no choice in
+# the matter.
+sub _default_time_zone {
+ return $ENV{PERL_DATETIME_DEFAULT_TZ} || 'floating';
+}
+
+sub _set_locale {
+ my $self = shift;
+ my $locale = shift;
+
+ if ( defined $locale && ref $locale ) {
+ $self->{locale} = $locale;
+ }
+ else {
+ $self->{locale}
+ = $locale
+ ? DateTime::Locale->load($locale)
+ : $self->DefaultLocale;
+ }
+
+ return;
+}
+
+# This method exists for the benefit of internal methods which create
+# a new object based on the current object, like set() and truncate().
+sub _new_from_self {
+ my $self = shift;
+ my %p = @_;
+
+ my %old = map { $_ => $self->$_() } qw(
+ year month day
+ hour minute second
+ nanosecond
+ locale time_zone
+ );
+ $old{formatter} = $self->formatter
+ if defined $self->formatter;
+
+ my $method = delete $p{_skip_validation} ? '_new' : 'new';
+
+ return ( ref $self )->$method( %old, %p );
+}
+
+sub _handle_offset_modifier {
+ my $self = shift;
+
+ $self->{offset_modifier} = 0;
+
+ return if $self->{tz}->is_floating;
+
+ my $second = shift;
+ my $utc_is_valid = shift;
+
+ my $utc_rd_days = $self->{utc_rd_days};
+
+ my $offset
+ = $utc_is_valid ? $self->offset : $self->_offset_for_local_datetime;
+
+ if ( $offset >= 0
+ && $self->{local_rd_secs} >= $offset ) {
+ if ( $second < 60 && $offset > 0 ) {
+ $self->{offset_modifier}
+ = $self->_day_length( $utc_rd_days - 1 ) - SECONDS_PER_DAY;
+
+ $self->{local_rd_secs} += $self->{offset_modifier};
+ }
+ elsif (
+ $second == 60
+ && (
+ ( $self->{local_rd_secs} == $offset && $offset > 0 )
+ || ( $offset == 0
+ && $self->{local_rd_secs} > 86399 )
+ )
+ ) {
+ my $mod
+ = $self->_day_length( $utc_rd_days - 1 ) - SECONDS_PER_DAY;
+
+ unless ( $mod == 0 ) {
+ $self->{utc_rd_secs} -= $mod;
+
+ $self->_normalize_seconds;
+ }
+ }
+ }
+ elsif ($offset < 0
+ && $self->{local_rd_secs} >= SECONDS_PER_DAY + $offset ) {
+ if ( $second < 60 ) {
+ $self->{offset_modifier}
+ = $self->_day_length( $utc_rd_days - 1 ) - SECONDS_PER_DAY;
+
+ $self->{local_rd_secs} += $self->{offset_modifier};
+ }
+ elsif ($second == 60
+ && $self->{local_rd_secs} == SECONDS_PER_DAY + $offset ) {
+ my $mod
+ = $self->_day_length( $utc_rd_days - 1 ) - SECONDS_PER_DAY;
+
+ unless ( $mod == 0 ) {
+ $self->{utc_rd_secs} -= $mod;
+
+ $self->_normalize_seconds;
+ }
+ }
+ }
+}
+
+sub _calc_utc_rd {
+ my $self = shift;
+
+ delete $self->{utc_c};
+
+ if ( $self->{tz}->is_utc || $self->{tz}->is_floating ) {
+ $self->{utc_rd_days} = $self->{local_rd_days};
+ $self->{utc_rd_secs} = $self->{local_rd_secs};
+ }
+ else {
+ my $offset = $self->_offset_for_local_datetime;
+
+ $offset += $self->{offset_modifier};
+
+ $self->{utc_rd_days} = $self->{local_rd_days};
+ $self->{utc_rd_secs} = $self->{local_rd_secs} - $offset;
+ }
+
+ # We account for leap seconds in the new() method and nowhere else
+ # except date math.
+ $self->_normalize_tai_seconds(
+ $self->{utc_rd_days},
+ $self->{utc_rd_secs}
+ );
+}
+
+sub _normalize_seconds {
+ my $self = shift;
+
+ return if $self->{utc_rd_secs} >= 0 && $self->{utc_rd_secs} <= 86399;
+
+ if ( $self->{tz}->is_floating ) {
+ $self->_normalize_tai_seconds(
+ $self->{utc_rd_days},
+ $self->{utc_rd_secs}
+ );
+ }
+ else {
+ $self->_normalize_leap_seconds(
+ $self->{utc_rd_days},
+ $self->{utc_rd_secs}
+ );
+ }
+}
+
+sub _calc_local_rd {
+ my $self = shift;
+
+ delete $self->{local_c};
+
+ # We must short circuit for UTC times or else we could end up with
+ # loops between DateTime.pm and DateTime::TimeZone
+ if ( $self->{tz}->is_utc || $self->{tz}->is_floating ) {
+ $self->{local_rd_days} = $self->{utc_rd_days};
+ $self->{local_rd_secs} = $self->{utc_rd_secs};
+ }
+ else {
+ my $offset = $self->offset;
+
+ $self->{local_rd_days} = $self->{utc_rd_days};
+ $self->{local_rd_secs} = $self->{utc_rd_secs} + $offset;
+
+ # intentionally ignore leap seconds here
+ $self->_normalize_tai_seconds(
+ $self->{local_rd_days},
+ $self->{local_rd_secs}
+ );
+
+ $self->{local_rd_secs} += $self->{offset_modifier};
+ }
+
+ $self->_calc_local_components;
+}
+
+sub _calc_local_components {
+ my $self = shift;
+
+ @{ $self->{local_c} }{
+ qw( year month day day_of_week
+ day_of_year quarter day_of_quarter)
+ }
+ = $self->_rd2ymd( $self->{local_rd_days}, 1 );
+
+ @{ $self->{local_c} }{qw( hour minute second )}
+ = $self->_seconds_as_components(
+ $self->{local_rd_secs},
+ $self->{utc_rd_secs}, $self->{offset_modifier}
+ );
+}
+
+{
+ my $named_validator = validation_for(
+ name => '_check_named_from_epoch_params',
+ name_is_optional => 1,
+ params => {
+ epoch => { type => t('Num') },
+ formatter => {
+ type => t('Formatter'),
+ optional => 1
+ },
+ locale => {
+ type => t('Locale'),
+ optional => 1
+ },
+ time_zone => {
+ type => t('TimeZone'),
+ optional => 1
+ },
+ },
+ );
+
+ my $one_param_validator = validation_for(
+ name => '_check_one_from_epoch_param',
+ name_is_optional => 1,
+ params => [ { type => t('Num') } ],
+ );
+
+ sub from_epoch {
+ my $class = shift;
+ my %p;
+ if ( @_ == 1 && !is_HashRef( $_[0] ) ) {
+ ( $p{epoch} ) = $one_param_validator->(@_);
+ }
+ else {
+ %p = $named_validator->(@_);
+ }
+
+ my %args;
+
+ # This does two things. First, if given a negative non-integer epoch,
+ # it will round the epoch _down_ to the next second and then adjust
+ # the nanoseconds to be positive. In other words, -0.5 corresponds to
+ # a second of -1 and a nanosecond value of 500,000. Before this code
+ # was implemented our handling of negative non-integer epochs was
+ # quite broken, and would end up rounding some values up, so that -0.5
+ # become 0.5 (which is obviously wrong!).
+ #
+ # Second, it rounds any decimal values to the nearest microsecond
+ # (1E6). Here's what Christian Hansen, who wrote this patch, says:
+ #
+ # Perl is typically compiled with NV as a double. A double with a
+ # significand precision of 53 bits can only represent a nanosecond
+ # epoch without loss of precision if the duration from zero epoch
+ # is less than ≈ ±104 days. With microseconds the duration is
+ # ±104,000 days, which is ≈ ±285 years.
+ if ( int $p{epoch} != $p{epoch} ) {
+ my ( $floor, $nano, $second );
+
+ $floor = $nano = fmod( $p{epoch}, 1.0 );
+ $second = floor( $p{epoch} - $floor );
+ if ( $nano < 0 ) {
+ $nano += 1;
+ }
+ $p{epoch} = $second + floor( $floor - $nano );
+ $args{nanosecond} = floor( $nano * 1E6 + 0.5 ) * 1E3;
+ }
+
+ # Note, for very large negative values this may give a
+ # blatantly wrong answer.
+ @args{qw( second minute hour day month year )}
+ = ( gmtime( $p{epoch} ) )[ 0 .. 5 ];
+ $args{year} += 1900;
+ $args{month}++;
+
+ my $self = $class->_new( %p, %args, time_zone => 'UTC' );
+
+ $self->_maybe_future_dst_warning( $self->year, $p{time_zone} );
+
+ $self->set_time_zone( $p{time_zone} ) if exists $p{time_zone};
+
+ return $self;
+ }
+}
+
+sub now {
+ my $class = shift;
+ return $class->from_epoch( epoch => $class->_core_time, @_ );
+}
+
+sub _maybe_future_dst_warning {
+ shift;
+ my $year = shift;
+ my $tz = shift;
+
+ return unless $year >= 5000 && $tz;
+
+ my $tz_name = ref $tz ? $tz->name : $tz;
+ return if $tz_name eq 'floating' || $tz_name eq 'UTC';
+
+ warnings::warnif(
+ "You are creating a DateTime object with a far future year ($year) and a time zone ($tz_name)."
+ . ' If the time zone you specified has future DST changes this will be very slow.'
+ );
+}
+
+# use scalar time in case someone's loaded Time::Piece
+sub _core_time {
+ return scalar time;
+}
+
+sub today { shift->now(@_)->truncate( to => 'day' ) }
+
+{
+ my $validator = validation_for(
+ name => '_check_from_object_params',
+ name_is_optional => 1,
+ params => {
+ object => { type => t('ConvertibleObject') },
+ locale => {
+ type => t('Locale'),
+ optional => 1,
+ },
+ formatter => {
+ type => t('Formatter'),
+ optional => 1,
+ },
+ },
+ );
+
+ sub from_object {
+ my $class = shift;
+ my %p = $validator->(@_);
+
+ my $object = delete $p{object};
+
+ if ( $object->isa('DateTime::Infinite') ) {
+ return $object->clone;
+ }
+
+ my ( $rd_days, $rd_secs, $rd_nanosecs ) = $object->utc_rd_values;
+
+ # A kludge because until all calendars are updated to return all
+ # three values, $rd_nanosecs could be undef
+ $rd_nanosecs ||= 0;
+
+ # This is a big hack to let _seconds_as_components operate naively
+ # on the given value. If the object _is_ on a leap second, we'll
+ # add that to the generated seconds value later.
+ my $leap_seconds = 0;
+ if ( $object->can('time_zone')
+ && !$object->time_zone->is_floating
+ && $rd_secs > 86399
+ && $rd_secs <= $class->_day_length($rd_days) ) {
+ $leap_seconds = $rd_secs - 86399;
+ $rd_secs -= $leap_seconds;
+ }
+
+ my %args;
+ @args{qw( year month day )} = $class->_rd2ymd($rd_days);
+ @args{qw( hour minute second )}
+ = $class->_seconds_as_components($rd_secs);
+ $args{nanosecond} = $rd_nanosecs;
+
+ $args{second} += $leap_seconds;
+
+ my $new = $class->new( %p, %args, time_zone => 'UTC' );
+
+ if ( $object->can('time_zone') ) {
+ $new->set_time_zone( $object->time_zone );
+ }
+ else {
+ $new->set_time_zone( $class->_default_time_zone );
+ }
+
+ return $new;
+ }
+}
+
+{
+ my $validator = validation_for(
+ name => '_check_last_day_of_month_params',
+ name_is_optional => 1,
+ params => {
+ year => { type => t('Year') },
+ month => { type => t('Month') },
+ day => {
+ type => t('DayOfMonth'),
+ default => 1,
+ },
+ hour => {
+ type => t('Hour'),
+ default => 0,
+ },
+ minute => {
+ type => t('Minute'),
+ default => 0,
+ },
+ second => {
+ type => t('Second'),
+ default => 0,
+ },
+ nanosecond => {
+ type => t('Nanosecond'),
+ default => 0,
+ },
+ locale => {
+ type => t('Locale'),
+ optional => 1,
+ },
+ formatter => {
+ type => t('Formatter'),
+ optional => 1,
+ },
+ time_zone => {
+ type => t('TimeZone'),
+ optional => 1,
+ },
+ },
+ );
+
+ sub last_day_of_month {
+ my $class = shift;
+ my %p = $validator->(@_);
+
+ my $day = $class->_month_length( $p{year}, $p{month} );
+
+ return $class->_new( %p, day => $day );
+ }
+}
+
+sub _month_length {
+ return (
+ $_[0]->_is_leap_year( $_[1] )
+ ? $LeapYearMonthLengths[ $_[2] - 1 ]
+ : $MonthLengths[ $_[2] - 1 ]
+ );
+}
+
+{
+ my $validator = validation_for(
+ name => '_check_from_day_of_year_params',
+ name_is_optional => 1,
+ params => {
+ year => { type => t('Year') },
+ day_of_year => { type => t('DayOfYear') },
+ hour => {
+ type => t('Hour'),
+ default => 0,
+ },
+ minute => {
+ type => t('Minute'),
+ default => 0,
+ },
+ second => {
+ type => t('Second'),
+ default => 0,
+ },
+ nanosecond => {
+ type => t('Nanosecond'),
+ default => 0,
+ },
+ locale => {
+ type => t('Locale'),
+ optional => 1,
+ },
+ formatter => {
+ type => t('Formatter'),
+ optional => 1,
+ },
+ time_zone => {
+ type => t('TimeZone'),
+ optional => 1,
+ },
+ },
+ );
+
+ sub from_day_of_year {
+ my $class = shift;
+ my %p = $validator->(@_);
+
+ Carp::croak("$p{year} is not a leap year.\n")
+ if $p{day_of_year} == 366 && !$class->_is_leap_year( $p{year} );
+
+ my $month = 1;
+ my $day = delete $p{day_of_year};
+
+ if ( $day > 31 ) {
+ my $length = $class->_month_length( $p{year}, $month );
+
+ while ( $day > $length ) {
+ $day -= $length;
+ $month++;
+ $length = $class->_month_length( $p{year}, $month );
+ }
+ }
+
+ return $class->_new(
+ %p,
+ month => $month,
+ day => $day,
+ );
+ }
+}
+
+sub formatter { $_[0]->{formatter} }
+
+sub clone { bless { %{ $_[0] } }, ref $_[0] }
+
+sub year {
+ Carp::carp('year() is a read-only accessor') if @_ > 1;
+ return $_[0]->{local_c}{year};
+}
+
+sub ce_year {
+ $_[0]->{local_c}{year} <= 0
+ ? $_[0]->{local_c}{year} - 1
+ : $_[0]->{local_c}{year};
+}
+
+sub era_name { $_[0]->{locale}->era_wide->[ $_[0]->_era_index ] }
+
+sub era_abbr { $_[0]->{locale}->era_abbreviated->[ $_[0]->_era_index ] }
+
+# deprecated
+*era = \&era_abbr;
+
+sub _era_index { $_[0]->{local_c}{year} <= 0 ? 0 : 1 }
+
+sub christian_era { $_[0]->ce_year > 0 ? 'AD' : 'BC' }
+sub secular_era { $_[0]->ce_year > 0 ? 'CE' : 'BCE' }
+
+sub year_with_era { ( abs $_[0]->ce_year ) . $_[0]->era_abbr }
+sub year_with_christian_era { ( abs $_[0]->ce_year ) . $_[0]->christian_era }
+sub year_with_secular_era { ( abs $_[0]->ce_year ) . $_[0]->secular_era }
+
+sub month {
+ Carp::carp('month() is a read-only accessor') if @_ > 1;
+ return $_[0]->{local_c}{month};
+}
+*mon = \&month;
+
+sub month_0 { $_[0]->{local_c}{month} - 1 }
+*mon_0 = \&month_0;
+
+sub month_name { $_[0]->{locale}->month_format_wide->[ $_[0]->month_0 ] }
+
+sub month_abbr {
+ $_[0]->{locale}->month_format_abbreviated->[ $_[0]->month_0 ];
+}
+
+sub day_of_month {
+ Carp::carp('day_of_month() is a read-only accessor') if @_ > 1;
+ $_[0]->{local_c}{day};
+}
+*day = \&day_of_month;
+*mday = \&day_of_month;
+
+sub weekday_of_month { use integer; ( ( $_[0]->day - 1 ) / 7 ) + 1 }
+
+sub quarter { $_[0]->{local_c}{quarter} }
+
+sub quarter_name {
+ $_[0]->{locale}->quarter_format_wide->[ $_[0]->quarter_0 ];
+}
+
+sub quarter_abbr {
+ $_[0]->{locale}->quarter_format_abbreviated->[ $_[0]->quarter_0 ];
+}
+
+sub quarter_0 { $_[0]->{local_c}{quarter} - 1 }
+
+sub day_of_month_0 { $_[0]->{local_c}{day} - 1 }
+*day_0 = \&day_of_month_0;
+*mday_0 = \&day_of_month_0;
+
+sub day_of_week { $_[0]->{local_c}{day_of_week} }
+*wday = \&day_of_week;
+*dow = \&day_of_week;
+
+sub day_of_week_0 { $_[0]->{local_c}{day_of_week} - 1 }
+*wday_0 = \&day_of_week_0;
+*dow_0 = \&day_of_week_0;
+
+sub local_day_of_week {
+ my $self = shift;
+ return 1
+ + ( $self->day_of_week - $self->{locale}->first_day_of_week ) % 7;
+}
+
+sub day_name { $_[0]->{locale}->day_format_wide->[ $_[0]->day_of_week_0 ] }
+
+sub day_abbr {
+ $_[0]->{locale}->day_format_abbreviated->[ $_[0]->day_of_week_0 ];
+}
+
+sub day_of_quarter { $_[0]->{local_c}{day_of_quarter} }
+*doq = \&day_of_quarter;
+
+sub day_of_quarter_0 { $_[0]->day_of_quarter - 1 }
+*doq_0 = \&day_of_quarter_0;
+
+sub day_of_year { $_[0]->{local_c}{day_of_year} }
+*doy = \&day_of_year;
+
+sub day_of_year_0 { $_[0]->{local_c}{day_of_year} - 1 }
+*doy_0 = \&day_of_year_0;
+
+sub am_or_pm {
+ $_[0]->{locale}->am_pm_abbreviated->[ $_[0]->hour < 12 ? 0 : 1 ];
+}
+
+sub ymd {
+ my ( $self, $sep ) = @_;
+ $sep = '-' unless defined $sep;
+
+ return sprintf(
+ '%0.4d%s%0.2d%s%0.2d',
+ $self->year, $sep,
+ $self->{local_c}{month}, $sep,
+ $self->{local_c}{day}
+ );
+}
+*date = sub { shift->ymd(@_) };
+
+sub mdy {
+ my ( $self, $sep ) = @_;
+ $sep = '-' unless defined $sep;
+
+ return sprintf(
+ '%0.2d%s%0.2d%s%0.4d',
+ $self->{local_c}{month}, $sep,
+ $self->{local_c}{day}, $sep,
+ $self->year
+ );
+}
+
+sub dmy {
+ my ( $self, $sep ) = @_;
+ $sep = '-' unless defined $sep;
+
+ return sprintf(
+ '%0.2d%s%0.2d%s%0.4d',
+ $self->{local_c}{day}, $sep,
+ $self->{local_c}{month}, $sep,
+ $self->year
+ );
+}
+
+sub hour {
+ Carp::carp('hour() is a read-only accessor') if @_ > 1;
+ return $_[0]->{local_c}{hour};
+}
+sub hour_1 { $_[0]->{local_c}{hour} == 0 ? 24 : $_[0]->{local_c}{hour} }
+
+sub hour_12 { my $h = $_[0]->hour % 12; return $h ? $h : 12 }
+sub hour_12_0 { $_[0]->hour % 12 }
+
+sub minute {
+ Carp::carp('minute() is a read-only accessor') if @_ > 1;
+ return $_[0]->{local_c}{minute};
+}
+*min = \&minute;
+
+sub second {
+ Carp::carp('second() is a read-only accessor') if @_ > 1;
+ return $_[0]->{local_c}{second};
+}
+*sec = \&second;
+
+sub fractional_second { $_[0]->second + $_[0]->nanosecond / MAX_NANOSECONDS }
+
+sub nanosecond {
+ Carp::carp('nanosecond() is a read-only accessor') if @_ > 1;
+ return $_[0]->{rd_nanosecs};
+}
+
+sub millisecond { floor( $_[0]->{rd_nanosecs} / 1000000 ) }
+
+sub microsecond { floor( $_[0]->{rd_nanosecs} / 1000 ) }
+
+sub leap_seconds {
+ my $self = shift;
+
+ return 0 if $self->{tz}->is_floating;
+
+ return $self->_accumulated_leap_seconds( $self->{utc_rd_days} );
+}
+
+sub stringify {
+ my $self = shift;
+
+ return $self->iso8601 unless $self->{formatter};
+ return $self->{formatter}->format_datetime($self);
+}
+
+sub hms {
+ my ( $self, $sep ) = @_;
+ $sep = ':' unless defined $sep;
+
+ return sprintf(
+ '%0.2d%s%0.2d%s%0.2d',
+ $self->{local_c}{hour}, $sep,
+ $self->{local_c}{minute}, $sep,
+ $self->{local_c}{second}
+ );
+}
+
+# don't want to override CORE::time()
+*DateTime::time = sub { shift->hms(@_) };
+
+sub iso8601 { $_[0]->datetime('T') }
+
+sub rfc3339 {
+ my $self = shift;
+
+ return $self->datetime('T')
+ if $self->{tz}->is_floating;
+
+ my $secs = $self->offset;
+ my $offset
+ = $secs
+ ? DateTime::TimeZone->offset_as_string( $secs, q{:} )
+ : 'Z';
+
+ return $self->datetime('T') . $offset;
+}
+
+sub datetime {
+ my ( $self, $sep ) = @_;
+ $sep = 'T' unless defined $sep;
+ return join $sep, $self->ymd('-'), $self->hms(':');
+}
+
+sub is_leap_year { $_[0]->_is_leap_year( $_[0]->year ) }
+
+sub month_length {
+ $_[0]->_month_length( $_[0]->year, $_[0]->month );
+}
+
+sub quarter_length {
+ return (
+ $_[0]->_is_leap_year( $_[0]->year )
+ ? $LeapYearQuarterLengths[ $_[0]->quarter - 1 ]
+ : $QuarterLengths[ $_[0]->quarter - 1 ]
+ );
+}
+
+sub year_length {
+ $_[0]->_is_leap_year( $_[0]->year ) ? 366 : 365;
+}
+
+sub is_last_day_of_month {
+ $_[0]->day == $_[0]->_month_length( $_[0]->year, $_[0]->month );
+}
+
+sub is_last_day_of_quarter {
+ $_[0]->day_of_quarter == $_[0]->quarter_length;
+}
+
+sub is_last_day_of_year {
+ $_[0]->day_of_year == $_[0]->year_length;
+}
+
+sub week {
+ my $self = shift;
+
+ $self->{utc_c}{week_year} ||= $self->_week_values;
+
+ return @{ $self->{utc_c}{week_year} }[ 0, 1 ];
+}
+
+# This algorithm comes from
+# https://en.wikipedia.org/wiki/ISO_week_date#Calculating_the_week_number_of_a_given_date
+sub _week_values {
+ my $self = shift;
+
+ my $week
+ = int( ( ( $self->day_of_year - $self->day_of_week ) + 10 ) / 7 );
+
+ my $year = $self->year;
+ if ( $week == 0 ) {
+ $year--;
+ return [ $year, $self->_weeks_in_year($year) ];
+ }
+ elsif ( $week == 53 && $self->_weeks_in_year($year) == 52 ) {
+ return [ $year + 1, 1 ];
+ }
+
+ return [ $year, $week ];
+}
+
+sub _weeks_in_year {
+ my $self = shift;
+ my $year = shift;
+
+ my $dow = $self->_ymd2rd( $year, 1, 1 ) % 7;
+
+ # Years starting with a Thursday and leap years starting with a Wednesday
+ # have 53 weeks.
+ return ( $dow == 4 || ( $dow == 3 && $self->_is_leap_year($year) ) )
+ ? 53
+ : 52;
+}
+
+sub week_year { ( $_[0]->week )[0] }
+sub week_number { ( $_[0]->week )[1] }
+
+# ISO says that the first week of a year is the first week containing
+# a Thursday. Extending that says that the first week of the month is
+# the first week containing a Thursday. ICU agrees.
+sub week_of_month {
+ my $self = shift;
+ my $thu = $self->day + 4 - $self->day_of_week;
+ return int( ( $thu + 6 ) / 7 );
+}
+
+sub time_zone {
+ Carp::carp('time_zone() is a read-only accessor') if @_ > 1;
+ return $_[0]->{tz};
+}
+
+sub offset { $_[0]->{tz}->offset_for_datetime( $_[0] ) }
+
+sub _offset_for_local_datetime {
+ $_[0]->{tz}->offset_for_local_datetime( $_[0] );
+}
+
+sub is_dst { $_[0]->{tz}->is_dst_for_datetime( $_[0] ) }
+
+sub time_zone_long_name { $_[0]->{tz}->name }
+sub time_zone_short_name { $_[0]->{tz}->short_name_for_datetime( $_[0] ) }
+
+sub locale {
+ Carp::carp('locale() is a read-only accessor') if @_ > 1;
+ return $_[0]->{locale};
+}
+
+sub utc_rd_values {
+ @{ $_[0] }{ 'utc_rd_days', 'utc_rd_secs', 'rd_nanosecs' };
+}
+
+sub local_rd_values {
+ @{ $_[0] }{ 'local_rd_days', 'local_rd_secs', 'rd_nanosecs' };
+}
+
+# NOTE: no nanoseconds, no leap seconds
+sub utc_rd_as_seconds {
+ ( $_[0]->{utc_rd_days} * SECONDS_PER_DAY ) + $_[0]->{utc_rd_secs};
+}
+
+# NOTE: no nanoseconds, no leap seconds
+sub local_rd_as_seconds {
+ ( $_[0]->{local_rd_days} * SECONDS_PER_DAY ) + $_[0]->{local_rd_secs};
+}
+
+# RD 1 is MJD 678,576 - a simple offset
+sub mjd {
+ my $self = shift;
+
+ my $mjd = $self->{utc_rd_days} - 678_576;
+
+ my $day_length = $self->_day_length( $self->{utc_rd_days} );
+
+ return ( $mjd
+ + ( $self->{utc_rd_secs} / $day_length )
+ + ( $self->{rd_nanosecs} / $day_length / MAX_NANOSECONDS ) );
+}
+
+sub jd { $_[0]->mjd + 2_400_000.5 }
+
+{
+ my %strftime_patterns = (
+ 'a' => sub { $_[0]->day_abbr },
+ 'A' => sub { $_[0]->day_name },
+ 'b' => sub { $_[0]->month_abbr },
+ 'B' => sub { $_[0]->month_name },
+ 'c' => sub {
+ $_[0]->format_cldr( $_[0]->{locale}->datetime_format_default );
+ },
+ 'C' => sub { int( $_[0]->year / 100 ) },
+ 'd' => sub { sprintf( '%02d', $_[0]->day_of_month ) },
+ 'D' => sub { $_[0]->strftime('%m/%d/%y') },
+ 'e' => sub { sprintf( '%2d', $_[0]->day_of_month ) },
+ 'F' => sub { $_[0]->strftime('%Y-%m-%d') },
+ 'g' => sub { substr( $_[0]->week_year, -2 ) },
+ 'G' => sub { $_[0]->week_year },
+ 'H' => sub { sprintf( '%02d', $_[0]->hour ) },
+ 'I' => sub { sprintf( '%02d', $_[0]->hour_12 ) },
+ 'j' => sub { sprintf( '%03d', $_[0]->day_of_year ) },
+ 'k' => sub { sprintf( '%2d', $_[0]->hour ) },
+ 'l' => sub { sprintf( '%2d', $_[0]->hour_12 ) },
+ 'm' => sub { sprintf( '%02d', $_[0]->month ) },
+ 'M' => sub { sprintf( '%02d', $_[0]->minute ) },
+ 'n' => sub {"\n"}, # should this be OS-sensitive?
+ 'N' => \&_format_nanosecs,
+ 'p' => sub { $_[0]->am_or_pm },
+ 'P' => sub { lc $_[0]->am_or_pm },
+ 'r' => sub { $_[0]->strftime('%I:%M:%S %p') },
+ 'R' => sub { $_[0]->strftime('%H:%M') },
+ 's' => sub { $_[0]->epoch },
+ 'S' => sub { sprintf( '%02d', $_[0]->second ) },
+ 't' => sub {"\t"},
+ 'T' => sub { $_[0]->strftime('%H:%M:%S') },
+ 'u' => sub { $_[0]->day_of_week },
+ 'U' => sub {
+ my $sun = $_[0]->day_of_year - ( $_[0]->day_of_week + 7 ) % 7;
+ return sprintf( '%02d', int( ( $sun + 6 ) / 7 ) );
+ },
+ 'V' => sub { sprintf( '%02d', $_[0]->week_number ) },
+ 'w' => sub {
+ my $dow = $_[0]->day_of_week;
+ return $dow % 7;
+ },
+ 'W' => sub {
+ my $mon = $_[0]->day_of_year - ( $_[0]->day_of_week + 6 ) % 7;
+ return sprintf( '%02d', int( ( $mon + 6 ) / 7 ) );
+ },
+ 'x' => sub {
+ $_[0]->format_cldr( $_[0]->{locale}->date_format_default );
+ },
+ 'X' => sub {
+ $_[0]->format_cldr( $_[0]->{locale}->time_format_default );
+ },
+ 'y' => sub { sprintf( '%02d', substr( $_[0]->year, -2 ) ) },
+ 'Y' => sub { return $_[0]->year },
+ 'z' => sub { DateTime::TimeZone->offset_as_string( $_[0]->offset ) },
+ 'Z' => sub { $_[0]->{tz}->short_name_for_datetime( $_[0] ) },
+ '%' => sub {'%'},
+ );
+
+ $strftime_patterns{h} = $strftime_patterns{b};
+
+ sub strftime {
+ my $self = shift;
+
+ # make a copy or caller's scalars get munged
+ my @patterns = @_;
+
+ my @r;
+ for my $p (@patterns) {
+ $p =~ s/
+ (?:
+ %\{(\w+)\} # method name like %{day_name}
+ |
+ %([%a-zA-Z]) # single character specifier like %d
+ |
+ %(\d+)N # special case for %N
+ )
+ /
+ ( $1
+ ? ( $self->can($1) ? $self->$1() : "\%{$1}" )
+ : $2
+ ? ( $strftime_patterns{$2} ? $strftime_patterns{$2}->($self) : "\%$2" )
+ : $3
+ ? $strftime_patterns{N}->($self, $3)
+ : '' # this won't happen
+ )
+ /sgex;
+
+ return $p unless wantarray;
+
+ push @r, $p;
+ }
+
+ return @r;
+ }
+}
+
+{
+
+ # It's an array because the order in which the regexes are checked
+ # is important. These patterns are similar to the ones Java uses,
+ # but not quite the same. See
+ # http://www.unicode.org/reports/tr35/tr35-9.html#Date_Format_Patterns.
+ my @patterns = (
+ qr/GGGGG/ =>
+ sub { $_[0]->{locale}->era_narrow->[ $_[0]->_era_index ] },
+ qr/GGGG/ => 'era_name',
+ qr/G{1,3}/ => 'era_abbr',
+
+ qr/(y{3,5})/ => sub { $_[0]->_zero_padded_number( $1, $_[0]->year ) },
+
+ # yy is a weird special case, where it must be exactly 2 digits
+ qr/yy/ => sub {
+ my $year = $_[0]->year;
+ my $y2 = length $year > 2 ? substr( $year, -2, 2 ) : $year;
+ $y2 *= -1 if $year < 0;
+ $_[0]->_zero_padded_number( 'yy', $y2 );
+ },
+ qr/y/ => 'year',
+ qr/(u+)/ => sub { $_[0]->_zero_padded_number( $1, $_[0]->year ) },
+ qr/(Y+)/ =>
+ sub { $_[0]->_zero_padded_number( $1, $_[0]->week_year ) },
+
+ qr/QQQQ/ => 'quarter_name',
+ qr/QQQ/ => 'quarter_abbr',
+ qr/(QQ?)/ => sub { $_[0]->_zero_padded_number( $1, $_[0]->quarter ) },
+
+ qr/qqqq/ => sub {
+ $_[0]->{locale}->quarter_stand_alone_wide->[ $_[0]->quarter_0 ];
+ },
+ qr/qqq/ => sub {
+ $_[0]->{locale}
+ ->quarter_stand_alone_abbreviated->[ $_[0]->quarter_0 ];
+ },
+ qr/(qq?)/ => sub { $_[0]->_zero_padded_number( $1, $_[0]->quarter ) },
+
+ qr/MMMMM/ =>
+ sub { $_[0]->{locale}->month_format_narrow->[ $_[0]->month_0 ] },
+ qr/MMMM/ => 'month_name',
+ qr/MMM/ => 'month_abbr',
+ qr/(MM?)/ => sub { $_[0]->_zero_padded_number( $1, $_[0]->month ) },
+
+ qr/LLLLL/ => sub {
+ $_[0]->{locale}->month_stand_alone_narrow->[ $_[0]->month_0 ];
+ },
+ qr/LLLL/ => sub {
+ $_[0]->{locale}->month_stand_alone_wide->[ $_[0]->month_0 ];
+ },
+ qr/LLL/ => sub {
+ $_[0]->{locale}
+ ->month_stand_alone_abbreviated->[ $_[0]->month_0 ];
+ },
+ qr/(LL?)/ => sub { $_[0]->_zero_padded_number( $1, $_[0]->month ) },
+
+ qr/(ww?)/ =>
+ sub { $_[0]->_zero_padded_number( $1, $_[0]->week_number ) },
+ qr/W/ => 'week_of_month',
+
+ qr/(dd?)/ =>
+ sub { $_[0]->_zero_padded_number( $1, $_[0]->day_of_month ) },
+ qr/(D{1,3})/ =>
+ sub { $_[0]->_zero_padded_number( $1, $_[0]->day_of_year ) },
+
+ qr/F/ => 'weekday_of_month',
+ qr/(g+)/ => sub { $_[0]->_zero_padded_number( $1, $_[0]->mjd ) },
+
+ qr/EEEEE/ => sub {
+ $_[0]->{locale}->day_format_narrow->[ $_[0]->day_of_week_0 ];
+ },
+ qr/EEEE/ => 'day_name',
+ qr/E{1,3}/ => 'day_abbr',
+
+ qr/eeeee/ => sub {
+ $_[0]->{locale}->day_format_narrow->[ $_[0]->day_of_week_0 ];
+ },
+ qr/eeee/ => 'day_name',
+ qr/eee/ => 'day_abbr',
+ qr/(ee?)/ => sub {
+ $_[0]->_zero_padded_number( $1, $_[0]->local_day_of_week );
+ },
+
+ qr/ccccc/ => sub {
+ $_[0]->{locale}->day_stand_alone_narrow->[ $_[0]->day_of_week_0 ];
+ },
+ qr/cccc/ => sub {
+ $_[0]->{locale}->day_stand_alone_wide->[ $_[0]->day_of_week_0 ];
+ },
+ qr/ccc/ => sub {
+ $_[0]->{locale}
+ ->day_stand_alone_abbreviated->[ $_[0]->day_of_week_0 ];
+ },
+ qr/(cc?)/ =>
+ sub { $_[0]->_zero_padded_number( $1, $_[0]->day_of_week ) },
+
+ qr/a/ => 'am_or_pm',
+
+ qr/(hh?)/ => sub { $_[0]->_zero_padded_number( $1, $_[0]->hour_12 ) },
+ qr/(HH?)/ => sub { $_[0]->_zero_padded_number( $1, $_[0]->hour ) },
+ qr/(KK?)/ =>
+ sub { $_[0]->_zero_padded_number( $1, $_[0]->hour_12_0 ) },
+ qr/(kk?)/ => sub { $_[0]->_zero_padded_number( $1, $_[0]->hour_1 ) },
+ qr/(jj?)/ => sub {
+ my $h
+ = $_[0]->{locale}->prefers_24_hour_time
+ ? $_[0]->hour
+ : $_[0]->hour_12;
+ $_[0]->_zero_padded_number( $1, $h );
+ },
+
+ qr/(mm?)/ => sub { $_[0]->_zero_padded_number( $1, $_[0]->minute ) },
+
+ qr/(ss?)/ => sub { $_[0]->_zero_padded_number( $1, $_[0]->second ) },
+
+ # The LDML spec is not 100% clear on how to truncate this field, but
+ # this way seems as good as anything.
+ qr/(S+)/ => sub { $_[0]->_format_nanosecs( length($1) ) },
+ qr/A+/ =>
+ sub { ( $_[0]->{local_rd_secs} * 1000 ) + $_[0]->millisecond },
+
+ qr/zzzz/ => 'time_zone_long_name',
+ qr/z{1,3}/ => 'time_zone_short_name',
+ qr/ZZZZZ/ => sub {
+ DateTime::TimeZone->offset_as_string( $_[0]->offset, q{:} );
+ },
+ qr/ZZZZ/ => sub {
+ $_[0]->time_zone_short_name
+ . DateTime::TimeZone->offset_as_string( $_[0]->offset );
+ },
+ qr/Z{1,3}/ =>
+ sub { DateTime::TimeZone->offset_as_string( $_[0]->offset ) },
+ qr/vvvv/ => 'time_zone_long_name',
+ qr/v{1,3}/ => 'time_zone_short_name',
+ qr/VVVV/ => 'time_zone_long_name',
+ qr/V{1,3}/ => 'time_zone_short_name',
+ );
+
+ sub _zero_padded_number {
+ my $self = shift;
+ my $size = length shift;
+ my $val = shift;
+
+ return sprintf( "%0${size}d", $val );
+ }
+
+ sub format_cldr {
+ my $self = shift;
+
+ # make a copy or caller's scalars get munged
+ my @p = @_;
+
+ my @r;
+ for my $p (@p) {
+ $p =~ s/\G
+ (?:
+ '((?:[^']|'')*)' # quote escaped bit of text
+ # it needs to end with one
+ # quote not followed by
+ # another
+ |
+ (([a-zA-Z])\3*) # could be a pattern
+ |
+ (.) # anything else
+ )
+ /
+ defined $1
+ ? $1
+ : defined $2
+ ? $self->_cldr_pattern($2)
+ : defined $4
+ ? $4
+ : undef # should never get here
+ /sgex;
+
+ $p =~ s/\'\'/\'/g;
+
+ return $p unless wantarray;
+
+ push @r, $p;
+ }
+
+ return @r;
+ }
+
+ sub _cldr_pattern {
+ my $self = shift;
+ my $pattern = shift;
+
+ ## no critic (ControlStructures::ProhibitCStyleForLoops)
+ for ( my $i = 0; $i < @patterns; $i += 2 ) {
+ if ( $pattern =~ /$patterns[$i]/ ) {
+ my $sub = $patterns[ $i + 1 ];
+
+ return $self->$sub();
+ }
+ }
+
+ return $pattern;
+ }
+}
+
+sub _format_nanosecs {
+ my $self = shift;
+ my $precision = @_ ? shift : 9;
+
+ my $exponent = 9 - $precision;
+ my $formatted_ns = floor(
+ (
+ $exponent < 0
+ ? $self->{rd_nanosecs} * 10**-$exponent
+ : $self->{rd_nanosecs} / 10**$exponent
+ )
+ );
+
+ return sprintf(
+ '%0' . $precision . 'u',
+ $formatted_ns
+ );
+}
+
+sub epoch {
+ my $self = shift;
+
+ return $self->{utc_c}{epoch}
+ if exists $self->{utc_c}{epoch};
+
+ return $self->{utc_c}{epoch}
+ = ( $self->{utc_rd_days} - 719163 ) * SECONDS_PER_DAY
+ + $self->{utc_rd_secs};
+}
+
+sub hires_epoch {
+ my $self = shift;
+
+ my $epoch = $self->epoch;
+
+ return undef unless defined $epoch;
+
+ my $nano = $self->{rd_nanosecs} / MAX_NANOSECONDS;
+
+ return $epoch + $nano;
+}
+
+sub is_finite {1}
+sub is_infinite {0}
+
+# added for benefit of DateTime::TimeZone
+sub utc_year { $_[0]->{utc_year} }
+
+# returns a result that is relative to the first datetime
+sub subtract_datetime {
+ my $dt1 = shift;
+ my $dt2 = shift;
+
+ $dt2 = $dt2->clone->set_time_zone( $dt1->time_zone )
+ unless $dt1->time_zone eq $dt2->time_zone;
+
+ # We only want a negative duration if $dt2 > $dt1 ($self)
+ my ( $bigger, $smaller, $negative ) = (
+ $dt1 >= $dt2
+ ? ( $dt1, $dt2, 0 )
+ : ( $dt2, $dt1, 1 )
+ );
+
+ my $is_floating = $dt1->time_zone->is_floating
+ && $dt2->time_zone->is_floating;
+
+ my $minute_length = 60;
+ unless ($is_floating) {
+ my ( $utc_rd_days, $utc_rd_secs ) = $smaller->utc_rd_values;
+
+ if ( $utc_rd_secs >= 86340 && !$is_floating ) {
+
+ # If the smaller of the two datetimes occurs in the last
+ # UTC minute of the UTC day, then that minute may not be
+ # 60 seconds long. If we need to subtract a minute from
+ # the larger datetime's minutes count in order to adjust
+ # the seconds difference to be positive, we need to know
+ # how long that minute was. If one of the datetimes is
+ # floating, we just assume a minute is 60 seconds.
+
+ $minute_length = $dt1->_day_length($utc_rd_days) - 86340;
+ }
+ }
+
+ # This is a gross hack that basically figures out if the bigger of
+ # the two datetimes is the day of a DST change. If it's a 23 hour
+ # day (switching _to_ DST) then we subtract 60 minutes from the
+ # local time. If it's a 25 hour day then we add 60 minutes to the
+ # local time.
+ #
+ # This produces the most "intuitive" results, though there are
+ # still reversibility problems with the resultant duration.
+ #
+ # However, if the two objects are on the same (local) date, and we
+ # are not crossing a DST change, we don't want to invoke the hack
+ # - see 38local-subtract.t
+ my $bigger_min = $bigger->hour * 60 + $bigger->minute;
+ if ( $bigger->time_zone->has_dst_changes
+ && $bigger->is_dst != $smaller->is_dst ) {
+
+ $bigger_min -= 60
+
+ # it's a 23 hour (local) day
+ if (
+ $bigger->is_dst
+ && do {
+ my $prev_day = try { $bigger->clone->subtract( days => 1 ) };
+ $prev_day && !$prev_day->is_dst ? 1 : 0;
+ }
+ );
+
+ $bigger_min += 60
+
+ # it's a 25 hour (local) day
+ if (
+ !$bigger->is_dst
+ && do {
+ my $prev_day = try { $bigger->clone->subtract( days => 1 ) };
+ $prev_day && $prev_day->is_dst ? 1 : 0;
+ }
+ );
+ }
+
+ my ( $months, $days, $minutes, $seconds, $nanoseconds )
+ = $dt1->_adjust_for_positive_difference(
+ $bigger->year * 12 + $bigger->month,
+ $smaller->year * 12 + $smaller->month,
+
+ $bigger->day, $smaller->day,
+
+ $bigger_min, $smaller->hour * 60 + $smaller->minute,
+
+ $bigger->second, $smaller->second,
+
+ $bigger->nanosecond, $smaller->nanosecond,
+
+ $minute_length,
+
+ # XXX - using the smaller as the month length is
+ # somewhat arbitrary, we could also use the bigger -
+ # either way we have reversibility problems
+ $dt1->_month_length( $smaller->year, $smaller->month ),
+ );
+
+ if ($negative) {
+ for ( $months, $days, $minutes, $seconds, $nanoseconds ) {
+
+ # Some versions of Perl can end up with -0 if we do "0 * -1"!!
+ $_ *= -1 if $_;
+ }
+ }
+
+ return $dt1->duration_class->new(
+ months => $months,
+ days => $days,
+ minutes => $minutes,
+ seconds => $seconds,
+ nanoseconds => $nanoseconds,
+ );
+}
+
+## no critic (Subroutines::ProhibitManyArgs)
+sub _adjust_for_positive_difference {
+ my (
+ $self,
+ $month1, $month2,
+ $day1, $day2,
+ $min1, $min2,
+ $sec1, $sec2,
+ $nano1, $nano2,
+ $minute_length,
+ $month_length,
+ ) = @_;
+
+ if ( $nano1 < $nano2 ) {
+ $sec1--;
+ $nano1 += MAX_NANOSECONDS;
+ }
+
+ if ( $sec1 < $sec2 ) {
+ $min1--;
+ $sec1 += $minute_length;
+ }
+
+ # A day always has 24 * 60 minutes, though the minutes may vary in
+ # length.
+ if ( $min1 < $min2 ) {
+ $day1--;
+ $min1 += 24 * 60;
+ }
+
+ if ( $day1 < $day2 ) {
+ $month1--;
+ $day1 += $month_length;
+ }
+
+ return (
+ $month1 - $month2,
+ $day1 - $day2,
+ $min1 - $min2,
+ $sec1 - $sec2,
+ $nano1 - $nano2,
+ );
+}
+
+sub subtract_datetime_absolute {
+ my $self = shift;
+ my $dt = shift;
+
+ my $utc_rd_secs1 = $self->utc_rd_as_seconds;
+ $utc_rd_secs1 += $self->_accumulated_leap_seconds( $self->{utc_rd_days} )
+ if !$self->time_zone->is_floating;
+
+ my $utc_rd_secs2 = $dt->utc_rd_as_seconds;
+ $utc_rd_secs2 += $self->_accumulated_leap_seconds( $dt->{utc_rd_days} )
+ if !$dt->time_zone->is_floating;
+
+ my $seconds = $utc_rd_secs1 - $utc_rd_secs2;
+ my $nanoseconds = $self->nanosecond - $dt->nanosecond;
+
+ if ( $nanoseconds < 0 ) {
+ $seconds--;
+ $nanoseconds += MAX_NANOSECONDS;
+ }
+
+ return $self->duration_class->new(
+ seconds => $seconds,
+ nanoseconds => $nanoseconds,
+ );
+}
+
+sub delta_md {
+ my $self = shift;
+ my $dt = shift;
+
+ my ( $smaller, $bigger ) = sort $self, $dt;
+
+ my ( $months, $days, undef, undef, undef )
+ = $dt->_adjust_for_positive_difference(
+ $bigger->year * 12 + $bigger->month,
+ $smaller->year * 12 + $smaller->month,
+
+ $bigger->day, $smaller->day,
+
+ 0, 0,
+
+ 0, 0,
+
+ 0, 0,
+
+ 60,
+
+ $smaller->_month_length( $smaller->year, $smaller->month ),
+ );
+
+ return $self->duration_class->new(
+ months => $months,
+ days => $days
+ );
+}
+
+sub delta_days {
+ my $self = shift;
+ my $dt = shift;
+
+ my $days
+ = abs( ( $self->local_rd_values )[0] - ( $dt->local_rd_values )[0] );
+
+ $self->duration_class->new( days => $days );
+}
+
+sub delta_ms {
+ my $self = shift;
+ my $dt = shift;
+
+ my ( $smaller, $greater ) = sort $self, $dt;
+
+ my $days = int( $greater->jd - $smaller->jd );
+
+ my $dur = $greater->subtract_datetime($smaller);
+
+ my %p;
+ $p{hours} = $dur->hours + ( $days * 24 );
+ $p{minutes} = $dur->minutes;
+ $p{seconds} = $dur->seconds;
+
+ return $self->duration_class->new(%p);
+}
+
+sub _add_overload {
+ my ( $dt, $dur, $reversed ) = @_;
+
+ if ($reversed) {
+ ( $dur, $dt ) = ( $dt, $dur );
+ }
+
+ unless ( DateTime::Helpers::isa( $dur, 'DateTime::Duration' ) ) {
+ my $class = ref $dt;
+ my $dt_string = overload::StrVal($dt);
+
+ Carp::croak( "Cannot add $dur to a $class object ($dt_string).\n"
+ . ' Only a DateTime::Duration object can '
+ . " be added to a $class object." );
+ }
+
+ return $dt->clone->add_duration($dur);
+}
+
+sub _subtract_overload {
+ my ( $date1, $date2, $reversed ) = @_;
+
+ if ($reversed) {
+ ( $date2, $date1 ) = ( $date1, $date2 );
+ }
+
+ if ( DateTime::Helpers::isa( $date2, 'DateTime::Duration' ) ) {
+ my $new = $date1->clone;
+ $new->add_duration( $date2->inverse );
+ return $new;
+ }
+ elsif ( DateTime::Helpers::isa( $date2, 'DateTime' ) ) {
+ return $date1->subtract_datetime($date2);
+ }
+ else {
+ my $class = ref $date1;
+ my $dt_string = overload::StrVal($date1);
+
+ Carp::croak(
+ "Cannot subtract $date2 from a $class object ($dt_string).\n"
+ . ' Only a DateTime::Duration or DateTime object can '
+ . " be subtracted from a $class object." );
+ }
+}
+
+sub add {
+ my $self = shift;
+
+ return $self->add_duration( $self->_duration_object_from_args(@_) );
+}
+
+sub subtract {
+ my $self = shift;
+
+ my %eom;
+ if ( @_ % 2 == 0 ) {
+ my %p = @_;
+
+ $eom{end_of_month} = delete $p{end_of_month}
+ if exists $p{end_of_month};
+ }
+
+ my $dur = $self->_duration_object_from_args(@_)->inverse(%eom);
+
+ return $self->add_duration($dur);
+}
+
+# Syntactic sugar for add and subtract: use a duration object if it's
+# supplied, otherwise build a new one from the arguments.
+
+sub _duration_object_from_args {
+ my $self = shift;
+
+ return $_[0]
+ if @_ == 1 && blessed( $_[0] ) && $_[0]->isa( $self->duration_class );
+
+ return $self->duration_class->new(@_);
+}
+
+sub subtract_duration { return $_[0]->add_duration( $_[1]->inverse ) }
+
+{
+ my $validator = validation_for(
+ name => '_check_add_duration_params',
+ name_is_optional => 1,
+ params => [
+ { type => t('Duration') },
+ ],
+ );
+
+ ## no critic (Subroutines::ProhibitExcessComplexity)
+ sub add_duration {
+ my $self = shift;
+ my ($dur) = $validator->(@_);
+
+ # simple optimization
+ return $self if $dur->is_zero;
+
+ my %deltas = $dur->deltas;
+
+ # This bit isn't quite right since DateTime::Infinite::Future -
+ # infinite duration should NaN
+ for my $val ( values %deltas ) {
+ my $inf;
+ if ( $val == INFINITY ) {
+ $inf = DateTime::Infinite::Future->new;
+ }
+ elsif ( $val == NEG_INFINITY ) {
+ $inf = DateTime::Infinite::Past->new;
+ }
+
+ if ($inf) {
+ %$self = %$inf;
+ bless $self, ref $inf;
+
+ return $self;
+ }
+ }
+
+ return $self if $self->is_infinite;
+
+ my %orig = %{$self};
+ try {
+ $self->_add_duration($dur);
+ }
+ catch {
+ %{$self} = %orig;
+ die $_;
+ };
+ }
+}
+
+sub _add_duration {
+ my $self = shift;
+ my $dur = shift;
+
+ my %deltas = $dur->deltas;
+
+ if ( $deltas{days} ) {
+ $self->{local_rd_days} += $deltas{days};
+
+ $self->{utc_year} += int( $deltas{days} / 365 ) + 1;
+ }
+
+ if ( $deltas{months} ) {
+
+ # For preserve mode, if it is the last day of the month, make
+ # it the 0th day of the following month (which then will
+ # normalize back to the last day of the new month).
+ my ( $y, $m, $d ) = (
+ $dur->is_preserve_mode
+ ? $self->_rd2ymd( $self->{local_rd_days} + 1 )
+ : $self->_rd2ymd( $self->{local_rd_days} )
+ );
+
+ $d -= 1 if $dur->is_preserve_mode;
+
+ if ( !$dur->is_wrap_mode && $d > 28 ) {
+
+ # find the rd for the last day of our target month
+ $self->{local_rd_days}
+ = $self->_ymd2rd( $y, $m + $deltas{months} + 1, 0 );
+
+ # what day of the month is it? (discard year and month)
+ my $last_day
+ = ( $self->_rd2ymd( $self->{local_rd_days} ) )[2];
+
+ # if our original day was less than the last day,
+ # use that instead
+ $self->{local_rd_days} -= $last_day - $d if $last_day > $d;
+ }
+ else {
+ $self->{local_rd_days}
+ = $self->_ymd2rd( $y, $m + $deltas{months}, $d );
+ }
+
+ $self->{utc_year} += int( $deltas{months} / 12 ) + 1;
+ }
+
+ if ( $deltas{days} || $deltas{months} ) {
+ $self->_calc_utc_rd;
+
+ $self->_handle_offset_modifier( $self->second );
+ }
+
+ if ( $deltas{minutes} ) {
+ $self->{utc_rd_secs} += $deltas{minutes} * 60;
+
+ # This intentionally ignores leap seconds
+ $self->_normalize_tai_seconds(
+ $self->{utc_rd_days},
+ $self->{utc_rd_secs}
+ );
+ }
+
+ if ( $deltas{seconds} || $deltas{nanoseconds} ) {
+ $self->{utc_rd_secs} += $deltas{seconds};
+
+ if ( $deltas{nanoseconds} ) {
+ $self->{rd_nanosecs} += $deltas{nanoseconds};
+ $self->_normalize_nanoseconds(
+ $self->{utc_rd_secs},
+ $self->{rd_nanosecs}
+ );
+ }
+
+ $self->_normalize_seconds;
+
+ # This might be some big number much bigger than 60, but
+ # that's ok (there are tests in 19leap_second.t to confirm
+ # that)
+ $self->_handle_offset_modifier( $self->second + $deltas{seconds} );
+ }
+
+ my $new = ( ref $self )->from_object(
+ object => $self,
+ locale => $self->{locale},
+ ( $self->{formatter} ? ( formatter => $self->{formatter} ) : () ),
+ );
+
+ %$self = %$new;
+
+ return $self;
+}
+
+sub _compare_overload {
+
+ # note: $_[1]->compare( $_[0] ) is an error when $_[1] is not a
+ # DateTime (such as the INFINITY value)
+
+ return undef unless defined $_[1];
+
+ return $_[2] ? -$_[0]->compare( $_[1] ) : $_[0]->compare( $_[1] );
+}
+
+sub _string_compare_overload {
+ my ( $dt1, $dt2, $flip ) = @_;
+
+ # One is a DateTime object, one isn't. Just stringify and compare.
+ if ( !DateTime::Helpers::can( $dt2, 'utc_rd_values' ) ) {
+ my $sign = $flip ? -1 : 1;
+ return $sign * ( "$dt1" cmp "$dt2" );
+ }
+ else {
+ my $meth = $dt1->can('_compare_overload');
+ goto $meth;
+ }
+}
+
+sub compare {
+ shift->_compare( @_, 0 );
+}
+
+sub compare_ignore_floating {
+ shift->_compare( @_, 1 );
+}
+
+sub _compare {
+ my ( undef, $dt1, $dt2, $consistent ) = ref $_[0] ? ( undef, @_ ) : @_;
+
+ return undef unless defined $dt2;
+
+ if ( !ref $dt2 && ( $dt2 == INFINITY || $dt2 == NEG_INFINITY ) ) {
+ return $dt1->{utc_rd_days} <=> $dt2;
+ }
+
+ unless ( DateTime::Helpers::can( $dt1, 'utc_rd_values' )
+ && DateTime::Helpers::can( $dt2, 'utc_rd_values' ) ) {
+ my $dt1_string = overload::StrVal($dt1);
+ my $dt2_string = overload::StrVal($dt2);
+
+ Carp::croak( 'A DateTime object can only be compared to'
+ . " another DateTime object ($dt1_string, $dt2_string)." );
+ }
+
+ if ( !$consistent
+ && DateTime::Helpers::can( $dt1, 'time_zone' )
+ && DateTime::Helpers::can( $dt2, 'time_zone' ) ) {
+ my $is_floating1 = $dt1->time_zone->is_floating;
+ my $is_floating2 = $dt2->time_zone->is_floating;
+
+ if ( $is_floating1 && !$is_floating2 ) {
+ $dt1 = $dt1->clone->set_time_zone( $dt2->time_zone );
+ }
+ elsif ( $is_floating2 && !$is_floating1 ) {
+ $dt2 = $dt2->clone->set_time_zone( $dt1->time_zone );
+ }
+ }
+
+ my @dt1_components = $dt1->utc_rd_values;
+ my @dt2_components = $dt2->utc_rd_values;
+
+ for my $i ( 0 .. 2 ) {
+ return $dt1_components[$i] <=> $dt2_components[$i]
+ if $dt1_components[$i] != $dt2_components[$i];
+ }
+
+ return 0;
+}
+
+sub is_between {
+ my $self = shift;
+ my $lower = shift;
+ my $upper = shift;
+
+ return $self->compare($lower) > 0 && $self->compare($upper) < 0;
+}
+
+sub _string_equals_overload {
+ my ( $class, $dt1, $dt2 ) = ref $_[0] ? ( undef, @_ ) : @_;
+
+ if ( !DateTime::Helpers::can( $dt2, 'utc_rd_values' ) ) {
+ return "$dt1" eq "$dt2";
+ }
+
+ $class ||= ref $dt1;
+ return !$class->compare( $dt1, $dt2 );
+}
+
+sub _string_not_equals_overload {
+ return !_string_equals_overload(@_);
+}
+
+sub _normalize_nanoseconds {
+ use integer;
+
+ # seconds, nanoseconds
+ if ( $_[2] < 0 ) {
+ my $overflow = 1 + $_[2] / MAX_NANOSECONDS;
+ $_[2] += $overflow * MAX_NANOSECONDS;
+ $_[1] -= $overflow;
+ }
+ elsif ( $_[2] >= MAX_NANOSECONDS ) {
+ my $overflow = $_[2] / MAX_NANOSECONDS;
+ $_[2] -= $overflow * MAX_NANOSECONDS;
+ $_[1] += $overflow;
+ }
+}
+
+{
+ my $validator = validation_for(
+ name => '_check_set_params',
+ name_is_optional => 1,
+ params => {
+ year => {
+ type => t('Year'),
+ optional => 1,
+ },
+ month => {
+ type => t('Month'),
+ optional => 1,
+ },
+ day => {
+ type => t('DayOfMonth'),
+ optional => 1,
+ },
+ hour => {
+ type => t('Hour'),
+ optional => 1,
+ },
+ minute => {
+ type => t('Minute'),
+ optional => 1,
+ },
+ second => {
+ type => t('Second'),
+ optional => 1,
+ },
+ nanosecond => {
+ type => t('Nanosecond'),
+ optional => 1,
+ },
+ locale => {
+ type => t('Locale'),
+ optional => 1,
+ },
+ },
+ );
+
+ ## no critic (NamingConventions::ProhibitAmbiguousNames)
+ sub set {
+ my $self = shift;
+ my %p = $validator->(@_);
+
+ if ( $p{locale} ) {
+ carp 'You passed a locale to the set() method.'
+ . ' You should use set_locale() instead, as using set() may alter the local time near a DST boundary.';
+ }
+
+ my $new_dt = $self->_new_from_self(%p);
+
+ %$self = %$new_dt;
+
+ return $self;
+ }
+}
+
+sub set_year { $_[0]->set( year => $_[1] ) }
+sub set_month { $_[0]->set( month => $_[1] ) }
+sub set_day { $_[0]->set( day => $_[1] ) }
+sub set_hour { $_[0]->set( hour => $_[1] ) }
+sub set_minute { $_[0]->set( minute => $_[1] ) }
+sub set_second { $_[0]->set( second => $_[1] ) }
+sub set_nanosecond { $_[0]->set( nanosecond => $_[1] ) }
+
+# These two are special cased because ... if the local time is the hour of a
+# DST change where the same local time occurs twice then passing it through
+# _new() can actually change the underlying UTC time, which is bad.
+
+{
+ my $validator = validation_for(
+ name => '_check_set_locale_params',
+ name_is_optional => 1,
+ params => [
+ { type => t( 'Maybe', of => t('Locale') ) },
+ ],
+ );
+
+ sub set_locale {
+ my $self = shift;
+ my ($locale) = $validator->(@_);
+
+ $self->_set_locale($locale);
+
+ return $self;
+ }
+}
+
+{
+ my $validator = validation_for(
+ name => '_check_set_formatter_params',
+ name_is_optional => 1,
+ params => [
+ { type => t( 'Maybe', of => t('Formatter') ) },
+ ],
+ );
+
+ sub set_formatter {
+ my $self = shift;
+ my ($formatter) = $validator->(@_);
+
+ $self->{formatter} = $formatter;
+
+ return $self;
+ }
+}
+
+{
+ my %TruncateDefault = (
+ month => 1,
+ day => 1,
+ hour => 0,
+ minute => 0,
+ second => 0,
+ nanosecond => 0,
+ );
+
+ my $validator = validation_for(
+ name => '_check_truncate_params',
+ name_is_optional => 1,
+ params => {
+ to => { type => t('TruncationLevel') },
+ },
+ );
+
+ my $re = join '|', 'year', 'week', 'local_week', 'quarter',
+ grep { $_ ne 'nanosecond' } keys %TruncateDefault;
+ my $spec = { to => { regex => qr/^(?:$re)$/ } };
+
+ ## no critic (Subroutines::ProhibitBuiltinHomonyms)
+ sub truncate {
+ my $self = shift;
+ my %p = $validator->(@_);
+
+ my %new;
+ if ( $p{to} eq 'week' || $p{to} eq 'local_week' ) {
+ my $first_day_of_week
+ = ( $p{to} eq 'local_week' )
+ ? $self->{locale}->first_day_of_week
+ : 1;
+
+ my $day_diff = ( $self->day_of_week - $first_day_of_week ) % 7;
+
+ if ($day_diff) {
+ $self->add( days => -1 * $day_diff );
+ }
+
+ # This can fail if the truncate ends up giving us an invalid local
+ # date time. If that happens we need to reverse the addition we
+ # just did. See https://rt.cpan.org/Ticket/Display.html?id=93347.
+ try {
+ $self->truncate( to => 'day' );
+ }
+ catch {
+ $self->add( days => $day_diff );
+ die $_;
+ };
+ }
+ elsif ( $p{to} eq 'quarter' ) {
+ %new = (
+ year => $self->year,
+ month => int( ( $self->month - 1 ) / 3 ) * 3 + 1,
+ day => 1,
+ hour => 0,
+ minute => 0,
+ second => 0,
+ nanosecond => 0,
+ );
+ }
+ else {
+ my $truncate;
+ for my $f (qw( year month day hour minute second nanosecond )) {
+ $new{$f} = $truncate ? $TruncateDefault{$f} : $self->$f();
+
+ $truncate = 1 if $p{to} eq $f;
+ }
+ }
+
+ my $new_dt = $self->_new_from_self( %new, _skip_validation => 1 );
+
+ %$self = %$new_dt;
+
+ return $self;
+ }
+}
+
+sub set_time_zone {
+ my ( $self, $tz ) = @_;
+
+ if ( ref $tz ) {
+
+ # This is a bit of a hack but it works because time zone objects
+ # are singletons, and if it doesn't work all we lose is a little
+ # bit of speed.
+ return $self if $self->{tz} eq $tz;
+ }
+ else {
+ return $self if $self->{tz}->name eq $tz;
+ }
+
+ my $was_floating = $self->{tz}->is_floating;
+
+ my $old_tz = $self->{tz};
+ $self->{tz} = ref $tz ? $tz : DateTime::TimeZone->new( name => $tz );
+
+ $self->_handle_offset_modifier( $self->second, 1 );
+
+ my $e;
+ try {
+ # if it either was or now is floating (but not both)
+ if ( $self->{tz}->is_floating xor $was_floating ) {
+ $self->_calc_utc_rd;
+ }
+ elsif ( !$was_floating ) {
+ $self->_calc_local_rd;
+ }
+ }
+ catch {
+ $e = $_;
+ };
+
+ # If we can't recalc the RD values then we shouldn't keep the new TZ. RT
+ # #83940
+ if ($e) {
+ $self->{tz} = $old_tz;
+ die $e;
+ }
+
+ return $self;
+}
+
+sub STORABLE_freeze {
+ my $self = shift;
+
+ my $serialized = q{};
+ for my $key (
+ qw( utc_rd_days
+ utc_rd_secs
+ rd_nanosecs )
+ ) {
+ $serialized .= "$key:$self->{$key}|";
+ }
+
+ # not used yet, but may be handy in the future.
+ $serialized .= 'version:' . ( $DateTime::VERSION || 'git' );
+
+ # Formatter needs to be returned as a reference since it may be
+ # undef or a class name, and Storable will complain if extra
+ # return values aren't refs
+ return $serialized, $self->{locale}, $self->{tz}, \$self->{formatter};
+}
+
+sub STORABLE_thaw {
+ my $self = shift;
+ shift;
+ my $serialized = shift;
+
+ my %serialized = map { split /:/ } split /\|/, $serialized;
+
+ my ( $locale, $tz, $formatter );
+
+ # more recent code version
+ if (@_) {
+ ( $locale, $tz, $formatter ) = @_;
+ }
+ else {
+ $tz = DateTime::TimeZone->new( name => delete $serialized{tz} );
+
+ $locale = DateTime::Locale->load( delete $serialized{locale} );
+ }
+
+ delete $serialized{version};
+
+ my $object = bless {
+ utc_vals => [
+ $serialized{utc_rd_days},
+ $serialized{utc_rd_secs},
+ $serialized{rd_nanosecs},
+ ],
+ tz => $tz,
+ },
+ 'DateTime::_Thawed';
+
+ my %formatter = defined $$formatter ? ( formatter => $$formatter ) : ();
+ my $new = ( ref $self )->from_object(
+ object => $object,
+ locale => $locale,
+ %formatter,
+ );
+
+ %$self = %$new;
+
+ return $self;
+}
+
+## no critic (Modules::ProhibitMultiplePackages)
+package # hide from PAUSE
+ DateTime::_Thawed;
+
+sub utc_rd_values { @{ $_[0]->{utc_vals} } }
+
+sub time_zone { $_[0]->{tz} }
+
+1;
+
+# ABSTRACT: A date and time object for Perl
+
+__END__
+
+=pod
+
+=encoding UTF-8
+
+=head1 NAME
+
+DateTime - A date and time object for Perl
+
+=head1 VERSION
+
+version 1.65
+
+=head1 SYNOPSIS
+
+ use DateTime;
+
+ $dt = DateTime->new(
+ year => 1964,
+ month => 10,
+ day => 16,
+ hour => 16,
+ minute => 12,
+ second => 47,
+ nanosecond => 500000000,
+ time_zone => 'Asia/Taipei',
+ );
+
+ $dt = DateTime->from_epoch( epoch => $epoch );
+ $dt = DateTime->now; # same as ( epoch => time )
+
+ $year = $dt->year;
+ $month = $dt->month; # 1-12
+
+ $day = $dt->day; # 1-31
+
+ $dow = $dt->day_of_week; # 1-7 (Monday is 1)
+
+ $hour = $dt->hour; # 0-23
+ $minute = $dt->minute; # 0-59
+
+ $second = $dt->second; # 0-61 (leap seconds!)
+
+ $doy = $dt->day_of_year; # 1-366 (leap years)
+
+ $doq = $dt->day_of_quarter; # 1..
+
+ $qtr = $dt->quarter; # 1-4
+
+ # all of the start-at-1 methods above have corresponding start-at-0
+ # methods, such as $dt->day_of_month_0, $dt->month_0 and so on
+
+ $ymd = $dt->ymd; # 2002-12-06
+ $ymd = $dt->ymd('/'); # 2002/12/06
+
+ $mdy = $dt->mdy; # 12-06-2002
+ $mdy = $dt->mdy('/'); # 12/06/2002
+
+ $dmy = $dt->dmy; # 06-12-2002
+ $dmy = $dt->dmy('/'); # 06/12/2002
+
+ $hms = $dt->hms; # 14:02:29
+ $hms = $dt->hms('!'); # 14!02!29
+
+ $is_leap = $dt->is_leap_year;
+
+ # these are localizable, see Locales section
+ $month_name = $dt->month_name; # January, February, ...
+ $month_abbr = $dt->month_abbr; # Jan, Feb, ...
+ $day_name = $dt->day_name; # Monday, Tuesday, ...
+ $day_abbr = $dt->day_abbr; # Mon, Tue, ...
+
+ # May not work for all possible datetime, see the docs on this
+ # method for more details.
+ $epoch_time = $dt->epoch;
+
+ $dt2 = $dt + $duration_object;
+
+ $dt3 = $dt - $duration_object;
+
+ $duration_object = $dt - $dt2;
+
+ $dt->set( year => 1882 );
+
+ $dt->set_time_zone('America/Chicago');
+
+ $dt->set_formatter($formatter);
+
+=head1 DESCRIPTION
+
+DateTime is a class for the representation of date/time combinations, and is
+part of the Perl DateTime project.
+
+It represents the Gregorian calendar, extended backwards in time before its
+creation (in 1582). This is sometimes known as the "proleptic Gregorian
+calendar". In this calendar, the first day of the calendar (the epoch), is the
+first day of year 1, which corresponds to the date which was (incorrectly)
+believed to be the birth of Jesus Christ.
+
+The calendar represented does have a year 0, and in that way differs from how
+dates are often written using "BCE/CE" or "BC/AD".
+
+For infinite datetimes, please see the L<DateTime::Infinite|DateTime::Infinite>
+module.
+
+=head1 USAGE
+
+=head2 0-based Versus 1-based Numbers
+
+The C<DateTime> module follows a simple logic for determining whether or not a
+given number is 0-based or 1-based.
+
+Month, day of month, day of week, and day of year are 1-based. Any method that
+is 1-based also has an equivalent 0-based method ending in C<_0>. So for
+example, this class provides both C<day_of_week> and C<day_of_week_0> methods.
+
+The C<day_of_week_0> method still treats Monday as the first day of the week.
+
+All I<time>-related numbers such as hour, minute, and second are 0-based.
+
+Years are neither, as they can be both positive or negative, unlike any other
+datetime component. There I<is> a year 0.
+
+There is no C<quarter_0> method.
+
+=head2 Error Handling
+
+Some errors may cause this module to die with an error string. This can only
+happen when calling constructor methods, methods that change the object, such
+as C<set>, or methods that take parameters. Methods that retrieve information
+about the object, such as C<year> or C<epoch>, will never die.
+
+=head2 Locales
+
+All the object methods which return names or abbreviations return data based on
+a locale. This is done by setting the locale when constructing a DateTime
+object. If this is not set, then C<"en-US"> is used.
+
+=head2 Floating DateTimes
+
+The default time zone for new DateTime objects, except where stated otherwise,
+is the "floating" time zone. This concept comes from the iCal standard. A
+floating datetime is one which is not anchored to any particular time zone. In
+addition, floating datetimes do not include leap seconds, since we cannot apply
+them without knowing the datetime's time zone.
+
+The results of date math and comparison between a floating datetime and one
+with a real time zone are not really valid, because one includes leap seconds
+and the other does not. Similarly, the results of datetime math between two
+floating datetimes and two datetimes with time zones are not really comparable.
+
+If you are planning to use any objects with a real time zone, it is strongly
+recommended that you B<do not> mix these with floating datetimes.
+
+=head2 Math
+
+If you are going to be doing date math, please read the section L<How DateTime
+Math Works>.
+
+=head2 Determining the Local Time Zone Can Be Slow
+
+If C<$ENV{TZ}> is not set, it may involve reading a number of files in F</etc>
+or elsewhere. If you know that the local time zone won't change while your code
+is running, and you need to make many objects for the local time zone, it is
+strongly recommended that you retrieve the local time zone once and cache it:
+
+ my $local_time_zone = DateTime::TimeZone->new( name => 'local' );
+
+ # then everywhere else
+
+ my $dt = DateTime->new( ..., time_zone => $local_time_zone );
+
+DateTime itself does not do this internally because local time zones can
+change, and there's no good way to determine if it's changed without doing all
+the work to look it up.
+
+=head2 Far Future DST
+
+Do not try to use named time zones (like "America/Chicago") with dates very far
+in the future (thousands of years). The current implementation of
+C<DateTime::TimeZone> will use a huge amount of memory calculating all the DST
+changes from now until the future date. Use UTC or the floating time zone and
+you will be safe.
+
+=head2 Globally Setting a Default Time Zone
+
+B<Warning: This is very dangerous. Do this at your own risk!>
+
+By default, C<DateTime> uses either the floating time zone or UTC for newly
+created objects, depending on the constructor.
+
+You can force C<DateTime> to use a different time zone by setting the
+C<PERL_DATETIME_DEFAULT_TZ> environment variable.
+
+As noted above, this is very dangerous, as it affects all code that creates a
+C<DateTime> object, including modules from CPAN. If those modules expect the
+normal default, then setting this can cause confusing breakage or subtly broken
+data. Before setting this variable, you are strongly encouraged to audit your
+CPAN dependencies to see how they use C<DateTime>. Try running the test suite
+for each dependency with this environment variable set before using this in
+production.
+
+=head2 Upper and Lower Bounds
+
+Internally, dates are represented the number of days before or after
+0001-01-01. This is stored as an integer, meaning that the upper and lower
+bounds are based on your Perl's integer size (C<$Config{ivsize}>).
+
+The limit on 32-bit systems is around 2^29 days, which gets you to year
+(+/-)1,469,903. On a 64-bit system you get 2^62 days, to year
+(+/-)12,626,367,463,883,278 (12.626 quadrillion).
+
+=head1 METHODS
+
+DateTime provides many methods. The documentation breaks them down into groups
+based on what they do (constructor, accessors, modifiers, etc.).
+
+=head2 Constructors
+
+All constructors can die when invalid parameters are given.
+
+=head3 Warnings
+
+Currently, constructors will warn if you try to create a far future DateTime
+(year >= 5000) with any time zone besides floating or UTC. This can be very
+slow if the time zone has future DST transitions that need to be calculated. If
+the date is sufficiently far in the future this can be I<really> slow
+(minutes).
+
+All warnings from DateTime use the C<DateTime> category and can be suppressed
+with:
+
+ no warnings 'DateTime';
+
+This warning may be removed in the future if L<DateTime::TimeZone> is made much
+faster.
+
+=head3 DateTime->new( ... )
+
+ my $dt = DateTime->new(
+ year => 1966,
+ month => 10,
+ day => 25,
+ hour => 7,
+ minute => 15,
+ second => 47,
+ nanosecond => 500000000,
+ time_zone => 'America/Chicago',
+ );
+
+This class method accepts the following parameters:
+
+=over 4
+
+=item * year
+
+An integer year for the DateTime. This can be any integer number within the
+valid range for your system (See L</Upper and Lower Bounds>). This is required.
+
+=item * month
+
+An integer from 1-12. Defaults to 1.
+
+=item * day
+
+An integer from 1-31. The value will be validated based on the month, to
+prevent creating invalid dates like February 30. Defaults to 1.
+
+=item * hour
+
+An integer from 0-23. Hour 0 is midnight at the beginning of the given date.
+Defaults to 0.
+
+=item * minute
+
+An integer from 0-59. Defaults to 0.
+
+=item * second
+
+An integer from 0-61. Values of 60 or 61 are only allowed when the specified
+date and time have a leap second. Defaults to 0.
+
+=item * nanosecond
+
+An integer that is greater than or equal to 0. If this number is greater than 1
+billion, it will be normalized into the second value for the DateTime object.
+Defaults to 0
+
+=item * locale
+
+A string containing a locale code, like C<"en-US"> or C<"zh-Hant-TW">, or an
+object returned by C<< DateTime::Locale->load >>. See the L<DateTime::Locale>
+documentation for details. Defaults to the value of C<< DateTime->DefaultLocale
+>>, or C<"en-US"> if the class default has not been set.
+
+=item * time_zone
+
+A string containing a time zone name like "America/Chicago" or a
+L<DateTime::TimeZone> object. Defaults to the value of
+C<$ENV{PERL_DATETIME_DEFAULT_TZ}> or "floating" if that env var is not set. See
+L</Globally Setting a Default Time Zone> for more details on that env var (and
+why you should not use it).
+
+A string will simply be passed to the C<< DateTime::TimeZone->new >> method as
+its C<name> parameter. This string may be an Olson DB time zone name
+("America/Chicago"), an offset string ("+0630"), or the words "floating" or
+"local". See the C<DateTime::TimeZone> documentation for more details.
+
+=item * formatter
+
+An object or class name with a C<format_datetime> method. This will be used to
+stringify the DateTime object. This is optional. If it is not specified, then
+stringification calls C<< $self->iso8601 >>.
+
+=back
+
+Invalid parameter types (like an array reference) will cause the constructor to
+die.
+
+=head4 Parsing Dates
+
+B<This module does not parse dates!> That means there is no constructor to
+which you can pass things like "March 3, 1970 12:34".
+
+Instead, take a look at the various
+L<DateTime::Format::*|https://metacpan.org/search?q=datetime%3A%3Aformat>
+modules on CPAN. These parse all sorts of different date formats, and you're
+bound to find something that can handle your particular needs.
+
+=head4 Ambiguous Local Times
+
+Because of Daylight Saving Time, it is possible to specify a local time that is
+ambiguous. For example, in the US in 2003, the transition from to saving to
+standard time occurred on October 26, at 02:00:00 local time. The local clock
+changed from 01:59:59 (saving time) to 01:00:00 (standard time). This means
+that the hour from 01:00:00 through 01:59:59 actually occurs twice, though the
+UTC time continues to move forward.
+
+If you specify an ambiguous time, then the latest UTC time is always used, in
+effect always choosing standard time. In this case, you can simply subtract an
+hour from the object in order to move to saving time, for example:
+
+ # This object represent 01:30:00 standard time
+ my $dt = DateTime->new(
+ year => 2003,
+ month => 10,
+ day => 26,
+ hour => 1,
+ minute => 30,
+ second => 0,
+ time_zone => 'America/Chicago',
+ );
+
+ print $dt->hms; # prints 01:30:00
+
+ # Now the object represent 01:30:00 saving time
+ $dt->subtract( hours => 1 );
+
+ print $dt->hms; # still prints 01:30:00
+
+Alternately, you could create the object with the UTC time zone and then call
+the C<set_time_zone> method to change the time zone. This is a good way to
+ensure that the time is not ambiguous.
+
+=head4 Invalid Local Times
+
+Another problem introduced by Daylight Saving Time is that certain local times
+just do not exist. For example, in the US in 2003, the transition from standard
+to saving time occurred on April 6, at the change to 2:00:00 local time. The
+local clock changed from 01:59:59 (standard time) to 03:00:00 (saving time).
+This means that there is no 02:00:00 through 02:59:59 on April 6!
+
+Attempting to create an invalid time currently causes a fatal error.
+
+=head3 DateTime->from_epoch( epoch => $epoch, ... )
+
+This class method can be used to construct a new DateTime object from an epoch
+time instead of components. Just as with the C<new> method, it accepts
+C<time_zone>, C<locale>, and C<formatter> parameters.
+
+You can also call it with a single unnamed argument, which will be treated as
+the epoch value.
+
+If the epoch value is a non-integral value, it will be rounded to nearest
+microsecond.
+
+By default, the returned object will be in the UTC time zone.
+
+If you pass a C<time_zone>, then this time zone will be applied I<after> the
+object is constructed. In other words, the epoch value is always interpreted as
+being in the UTC time zone. Here's an example:
+
+ my $dt = DateTime->from_epoch(
+ epoch => 0,
+ time_zone => 'Asia/Tokyo'
+ );
+ say $dt; # Prints 1970-01-01T09:00:00 as Asia/Tokyo is +09:00 from UTC.
+ $dt->set_time_zone('UTC');
+ say $dt; # Prints 1970-01-01T00:00:00
+
+=head3 DateTime->now( ... )
+
+This class method is equivalent to calling C<from_epoch> with the value
+returned from Perl's C<time> function. Just as with the C<new> method, it
+accepts C<time_zone> and C<locale> parameters.
+
+By default, the returned object will be in the UTC time zone.
+
+If you want sub-second resolution, use the L<DateTime::HiRes> module's C<<
+DateTime::HiRes->now >> method instead.
+
+=head3 DateTime->today( ... )
+
+This class method is equivalent to:
+
+ DateTime->now(@_)->truncate( to => 'day' );
+
+=head3 DateTime->last_day_of_month( ... )
+
+This constructor takes the same arguments as can be given to the C<new> method,
+except for C<day>. Additionally, both C<year> and C<month> are required.
+
+=head3 DateTime->from_day_of_year( ... )
+
+This constructor takes the same arguments as can be given to the C<new> method,
+except that it does not accept a C<month> or C<day> argument. Instead, it
+requires both C<year> and C<day_of_year>. The day of year must be between 1 and
+366, and 366 is only allowed for leap years.
+
+=head3 DateTime->from_object( object => $object, ... )
+
+This class method can be used to construct a new DateTime object from any
+object that implements the C<utc_rd_values> method. All C<DateTime::Calendar>
+modules must implement this method in order to provide cross-calendar
+compatibility. This method accepts a C<locale> and C<formatter> parameter
+
+If the object passed to this method has a C<time_zone> method, that is used to
+set the time zone of the newly created C<DateTime> object.
+
+Otherwise, the returned object will be in the floating time zone.
+
+=head3 $dt->clone
+
+This object method returns a new object that is replica of the object upon
+which the method is called.
+
+=head2 "Get" Methods
+
+This class has many methods for retrieving information about an object.
+
+=head3 $dt->year
+
+Returns the year.
+
+=head3 $dt->ce_year
+
+Returns the year according to the BCE/CE numbering system. The year before year
+1 in this system is year -1, aka "1 BCE".
+
+=head3 $dt->era_name
+
+Returns the long name of the current era, something like "Before Christ". See
+the L</Locales> section for more details.
+
+=head3 $dt->era_abbr
+
+Returns the abbreviated name of the current era, something like "BC". See the
+L</Locales> section for more details.
+
+=head3 $dt->christian_era
+
+Returns a string, either "BC" or "AD", according to the year.
+
+=head3 $dt->secular_era
+
+Returns a string, either "BCE" or "CE", according to the year.
+
+=head3 $dt->year_with_era
+
+Returns a string containing the year immediately followed by the appropriate
+era abbreviation, based on the object's locale. The year is the absolute value
+of C<ce_year>, so that year 1 is "1" and year 0 is "1BC". See the L</Locales>
+section for more details.
+
+=head3 $dt->year_with_christian_era
+
+Like C<year_with_era>, but uses the C<christian_era> method to get the era
+name.
+
+=head3 $dt->year_with_secular_era
+
+Like C<year_with_era>, but uses the C<secular_era> method to get the era name.
+
+=head3 $dt->month
+
+Returns the month of the year, from 1..12.
+
+Also available as C<< $dt->mon >>.
+
+=head3 $dt->month_name
+
+Returns the name of the current month. See the L</Locales> section for more
+details.
+
+=head3 $dt->month_abbr
+
+Returns the abbreviated name of the current month. See the L</Locales> section
+for more details.
+
+=head3 $dt->day
+
+Returns the day of the month, from 1..31.
+
+Also available as C<< $dt->mday >> and C<< $dt->day_of_month >>.
+
+=head3 $dt->day_of_week
+
+Returns the day of the week as a number, from 1..7, with 1 being Monday and 7
+being Sunday.
+
+Also available as C<< $dt->wday >> and C<< $dt->dow >>.
+
+=head3 $dt->local_day_of_week
+
+Returns the day of the week as a number, from 1..7. The day corresponding to 1
+will vary based on the locale. See the L</Locales> section for more details.
+
+=head3 $dt->day_name
+
+Returns the name of the current day of the week. See the L</Locales> section
+for more details.
+
+=head3 $dt->day_abbr
+
+Returns the abbreviated name of the current day of the week. See the
+L</Locales> section for more details.
+
+=head3 $dt->day_of_year
+
+Returns the day of the year.
+
+Also available as C<< $dt->doy >>.
+
+=head3 $dt->quarter
+
+Returns the quarter of the year, from 1..4.
+
+=head3 $dt->quarter_name
+
+Returns the name of the current quarter. See the L</Locales> section for more
+details.
+
+=head3 $dt->quarter_abbr
+
+Returns the abbreviated name of the current quarter. See the L</Locales>
+section for more details.
+
+=head3 $dt->day_of_quarter
+
+Returns the day of the quarter.
+
+Also available as C<< $dt->doq >>.
+
+=head3 $dt->weekday_of_month
+
+Returns a number from 1..5 indicating which week day of the month this is. For
+example, June 9, 2003 is the second Monday of the month, and so this method
+returns 2 for that date.
+
+=head3 $dt->ymd($optional_separator), $dt->mdy(...), $dt->dmy(...)
+
+Each method returns the year, month, and day, in the order indicated by the
+method name. Years are zero-padded to four digits. Months and days are 0-padded
+to two digits.
+
+By default, the values are separated by a dash (-), but this can be overridden
+by passing a value to the method.
+
+The C<< $dt->ymd >> method is also available as C<< $dt->date >>.
+
+=head3 $dt->hour
+
+Returns the hour of the day, from 0..23.
+
+=head3 $dt->hour_1
+
+Returns the hour of the day, from 1..24.
+
+=head3 $dt->hour_12
+
+Returns the hour of the day, from 1..12.
+
+=head3 $dt->hour_12_0
+
+Returns the hour of the day, from 0..11.
+
+=head3 $dt->am_or_pm
+
+Returns the appropriate localized abbreviation, depending on the current hour.
+
+=head3 $dt->minute
+
+Returns the minute of the hour, from 0..59.
+
+Also available as C<< $dt->min >>.
+
+=head3 $dt->second
+
+Returns the second, from 0..61. The values 60 and 61 are used for leap seconds.
+
+Also available as C<< $dt->sec >>.
+
+=head3 $dt->fractional_second
+
+Returns the second, as a real number from 0.0 until 61.999999999
+
+The values 60 and 61 are used for leap seconds.
+
+=head3 $dt->millisecond
+
+Returns the fractional part of the second as milliseconds (1E-3 seconds).
+
+Half a second is 500 milliseconds.
+
+This value will always be rounded down to the nearest integer.
+
+=head3 $dt->microsecond
+
+Returns the fractional part of the second as microseconds (1E-6 seconds).
+
+Half a second is 500,000 microseconds.
+
+This value will always be rounded down to the nearest integer.
+
+=head3 $dt->nanosecond
+
+Returns the fractional part of the second as nanoseconds (1E-9 seconds).
+
+ Half a second is 500,000,000 nanoseconds.
+
+=head3 $dt->hms($optional_separator)
+
+Returns the hour, minute, and second, all zero-padded to two digits. If no
+separator is specified, a colon (:) is used by default.
+
+Also available as C<< $dt->time >>.
+
+=head3 $dt->datetime($optional_separator)
+
+This method is equivalent to:
+
+ $dt->ymd('-') . 'T' . $dt->hms(':')
+
+The C<$optional_separator> parameter allows you to override the separator
+between the date and time, for e.g. C<< $dt->datetime(q{ }) >>.
+
+This method is also available as C<< $dt->iso8601 >>, but it's not really a
+very good ISO8601 format, as it lacks a time zone. If called as C<<
+$dt->iso8601 >> you cannot change the separator, as ISO8601 specifies that "T"
+must be used to separate them.
+
+=head3 $dt->rfc3339
+
+This formats a datetime in RFC3339 format. This is the same as C<<
+$dt->datetime >> with an added offset at the end of the string except if the
+time zone is the floating time zone.
+
+If the offset is '+00:00' then this is represented as 'Z'. Otherwise the offset
+is formatted with a leading sign (+/-) and a colon separated numeric offset
+with hours and minutes. If the offset has a non-zero seconds component, that is
+also included.
+
+=head3 $dt->stringify
+
+This method returns a stringified version of the object. It is also how
+stringification overloading is implemented. If the object has a formatter, then
+its C<format_datetime> method is used to produce a string. Otherwise, this
+method calls C<< $dt->iso8601 >> to produce a string. See L</Formatters And
+Stringification> for details.
+
+=head3 $dt->is_leap_year
+
+This method returns a boolean value indicating whether or not the datetime
+object is in a leap year.
+
+=head3 $dt->is_last_day_of_month
+
+This method returns a boolean value indicating whether or not the datetime
+object is the last day of the month.
+
+=head3 $dt->is_last_day_of_quarter
+
+This method returns a boolean value indicating whether or not the datetime
+object is the last day of the quarter.
+
+=head3 $dt->is_last_day_of_year
+
+This method returns a boolean value indicating whether or not the datetime
+object is the last day of the year.
+
+=head3 $dt->month_length
+
+This method returns the number of days in the current month.
+
+=head3 $dt->quarter_length
+
+This method returns the number of days in the current quarter.
+
+=head3 $dt->year_length
+
+This method returns the number of days in the current year.
+
+=head3 $dt->week
+
+ my ( $week_year, $week_number ) = $dt->week;
+
+Returns information about the calendar week for the date. The values returned
+by this method are also available separately through the C<< $dt->week_year >>
+and C<< $dt->week_number >> methods.
+
+The first week of the year is defined by ISO as the one which contains the
+fourth day of January, which is equivalent to saying that it's the first week
+to overlap the new year by at least four days.
+
+Typically the week year will be the same as the year that the object is in, but
+dates at the very beginning of a calendar year often end up in the last week of
+the prior year, and similarly, the final few days of the year may be placed in
+the first week of the next year.
+
+=head3 $dt->week_year
+
+Returns the year of the week. See C<< $dt->week >> for details.
+
+=head3 $dt->week_number
+
+Returns the week of the year, from 1..53. See C<< $dt->week >> for details.
+
+=head3 $dt->week_of_month
+
+The week of the month, from 0..5. The first week of the month is the first week
+that contains a Thursday. This is based on the ICU definition of week of month,
+and correlates to the ISO8601 week of year definition. A day in the week
+I<before> the week with the first Thursday will be week 0.
+
+=head3 $dt->jd, $dt->mjd
+
+These return the Julian Day and Modified Julian Day, respectively. The value
+returned is a floating point number. The fractional portion of the number
+represents the time portion of the datetime.
+
+The Julian Day is a count of days since the beginning of the Julian Period,
+which starts with day 0 at noon on January 1, -4712.
+
+The Modified Julian Day is a count of days since midnight on November 17, 1858.
+
+These methods always refer to the local time, so the Julian Day is the same for
+a given datetime regardless of its time zone. Or in other words,
+2020-12-04T13:01:57 in "America/Chicago" has the same Julian Day as
+2020-12-04T13:01:57 in "Asia/Taipei".
+
+=head3 $dt->time_zone
+
+This returns the L<DateTime::TimeZone> object for the datetime object.
+
+=head3 $dt->offset
+
+This returns the offset from UTC, in seconds, of the datetime object's time
+zone.
+
+=head3 $dt->is_dst
+
+Returns a boolean indicating whether or not the datetime's time zone is
+currently in Daylight Saving Time or not.
+
+=head3 $dt->time_zone_long_name
+
+This is a shortcut for C<< $dt->time_zone->name >>. It's provided so that one
+can use "%{time_zone_long_name}" as a strftime format specifier.
+
+=head3 $dt->time_zone_short_name
+
+This method returns the time zone abbreviation for the current time zone, such
+as "PST" or "GMT". These names are B<not> definitive, and should not be used in
+any application intended for general use by users around the world. That's
+because it's possible for multiple time zones to have the same abbreviation.
+
+=head3 $dt->strftime( $format, ... )
+
+This method implements functionality similar to the C<strftime> method in C.
+However, if given multiple format strings, then it will return multiple
+scalars, one for each format string.
+
+See the L<strftime Patterns> section for a list of all possible strftime
+patterns.
+
+If you give a pattern that doesn't exist, then it is simply treated as text.
+
+Note that any deviation from the POSIX standard is probably a bug. DateTime
+should match the output of C<POSIX::strftime> for any given pattern.
+
+=head3 $dt->format_cldr( $format, ... )
+
+This method implements formatting based on the CLDR date patterns. If given
+multiple format strings, then it will return multiple scalars, one for each
+format string.
+
+See the L<CLDR Patterns> section for a list of all possible CLDR patterns.
+
+If you give a pattern that doesn't exist, then it is simply treated as text.
+
+=head3 $dt->epoch
+
+Returns the UTC epoch value for the datetime object. Datetimes before the start
+of the epoch will be returned as a negative number.
+
+The return value from this method is always an integer number of seconds.
+
+Since the epoch does not account for leap seconds, the epoch time for
+1972-12-31T23:59:60 (UTC) is exactly the same as that for 1973-01-01T00:00:00.
+
+=head3 $dt->hires_epoch
+
+Returns the epoch as a floating point number. The floating point portion of the
+value represents the nanosecond value of the object. This method is provided
+for compatibility with the C<Time::HiRes> module.
+
+Note that this method suffers from the imprecision of floating point numbers,
+and the result may end up rounded to an arbitrary degree depending on your
+platform.
+
+ my $dt = DateTime->new( year => 2012, nanosecond => 4 );
+ say $dt->hires_epoch;
+
+On my system, this simply prints C<1325376000> because adding C<0.000000004> to
+C<1325376000> returns C<1325376000>.
+
+=head3 $dt->is_finite, $dt->is_infinite
+
+These methods allow you to distinguish normal datetime objects from infinite
+ones. Infinite datetime objects are documented in L<DateTime::Infinite>.
+
+=head3 $dt->utc_rd_values
+
+Returns the current UTC Rata Die days, seconds, and nanoseconds as a three
+element list. This exists primarily to allow other calendar modules to create
+objects based on the values provided by this object.
+
+=head3 $dt->local_rd_values
+
+Returns the current local Rata Die days, seconds, and nanoseconds as a three
+element list. This exists for the benefit of other modules which might want to
+use this information for date math, such as L<DateTime::Event::Recurrence>.
+
+=head3 $dt->leap_seconds
+
+Returns the number of leap seconds that have happened up to the datetime
+represented by the object. For floating datetimes, this always returns 0.
+
+=head3 $dt->utc_rd_as_seconds
+
+Returns the current UTC Rata Die days and seconds purely as seconds. This
+number ignores any fractional seconds stored in the object, as well as leap
+seconds.
+
+=head3 $dt->locale
+
+Returns the datetime's L<DateTime::Locale> object.
+
+=head3 $dt->formatter
+
+Returns the current formatter object or class. See L<Formatters And
+Stringification> for details.
+
+=head2 "Set" Methods
+
+The remaining methods provided by C<DateTime>, except where otherwise
+specified, return the object itself, thus making method chaining possible. For
+example:
+
+ my $dt = DateTime->now->set_time_zone( 'Australia/Sydney' );
+
+ my $first = DateTime
+ ->last_day_of_month( year => 2003, month => 3 )
+ ->add( days => 1 )
+ ->subtract( seconds => 1 );
+
+=head3 $dt->set( .. )
+
+This method can be used to change the local components of a date time. This
+method accepts any parameter allowed by the C<new> method except for C<locale>
+or C<time_zone>. Use C<set_locale> and C<set_time_zone> for those instead.
+
+This method performs parameter validation just like the C<new> method.
+
+B<Do not use this method to do date math. Use the C<add> and C<subtract>
+methods instead.>
+
+=head3 $dt->set_year, $dt->set_month, etc.
+
+DateTime has a C<set_*> method for every item that can be passed to the
+constructor:
+
+=over 4
+
+=item * $dt->set_year
+
+=item * $dt->set_month
+
+=item * $dt->set_day
+
+=item * $dt->set_hour
+
+=item * $dt->set_minute
+
+=item * $dt->set_second
+
+=item * $dt->set_nanosecond
+
+=back
+
+These are shortcuts to calling C<set> with a single key. They all take a single
+parameter.
+
+=head3 $dt->truncate( to => ... )
+
+This method allows you to reset some of the local time components in the object
+to their "zero" values. The C<to> parameter is used to specify which values to
+truncate, and it may be one of C<"year">, C<"quarter">, C<"month">, C<"week">,
+C<"local_week">, C<"day">, C<"hour">, C<"minute">, or C<"second">.
+
+For example, if C<"month"> is specified, then the local day becomes 1, and the
+hour, minute, and second all become 0.
+
+If C<"week"> is given, then the datetime is set to the Monday of the week in
+which it occurs, and the time components are all set to 0. If you truncate to
+C<"local_week">, then the first day of the week is locale-dependent. For
+example, in the C<"en-US"> locale, the first day of the week is Sunday.
+
+=head3 $dt->set_locale($locale)
+
+Sets the object's locale. You can provide either a locale code like C<"en-US">
+or an object returned by C<< DateTime::Locale->load >>.
+
+=head3 $dt->set_time_zone($tz)
+
+This method accepts either a time zone object or a string that can be passed as
+the C<name> parameter to C<< DateTime::TimeZone->new >>. If the new time zone's
+offset is different from the old time zone, then the I<local> time is adjusted
+accordingly.
+
+For example:
+
+ my $dt = DateTime->new(
+ year => 2000,
+ month => 5,
+ day => 10,
+ hour => 15,
+ minute => 15,
+ time_zone => 'America/Los_Angeles',
+ );
+
+ print $dt->hour; # prints 15
+
+ $dt->set_time_zone('America/Chicago');
+
+ print $dt->hour; # prints 17
+
+If the old time zone was a floating time zone, then no adjustments to the local
+time are made, except to account for leap seconds. If the new time zone is
+floating, then the I<UTC> time is adjusted in order to leave the local time
+untouched.
+
+Fans of Tsai Ming-Liang's films will be happy to know that this does work:
+
+ my $dt = DateTime->now( time_zone => 'Asia/Taipei' );
+ $dt->set_time_zone('Europe/Paris');
+
+Yes, now we can know "ni3 na4 bian1 ji2 dian3?"
+
+=head3 $dt->set_formatter($formatter)
+
+Sets the formatter for the object. See L<Formatters And Stringification> for
+details.
+
+You can set this to C<undef> to revert to the default formatter.
+
+=head2 Math Methods
+
+Like the set methods, math related methods always return the object itself, to
+allow for chaining:
+
+ $dt->add( days => 1 )->subtract( seconds => 1 );
+
+=head3 $dt->duration_class
+
+This returns L<C<"DateTime::Duration">|DateTime::Duration>, but exists so that
+a subclass of C<DateTime> can provide a different value.
+
+=head3 $dt->add_duration($duration_object)
+
+This method adds a L<DateTime::Duration> to the current datetime. See the
+L<DateTime::Duration> docs for more details.
+
+=head3 $dt->add( parameters for DateTime::Duration )
+
+This method is syntactic sugar around the C<< $dt->add_duration >> method. It
+simply creates a new L<DateTime::Duration> object using the parameters given,
+and then calls the C<< $dt->add_duration >> method.
+
+=head3 $dt->add($duration_object)
+
+A synonym of C<< $dt->add_duration($duration_object) >>.
+
+=head3 $dt->subtract_duration($duration_object)
+
+When given a L<DateTime::Duration> object, this method simply calls C<<
+$dur->inverse >> on that object and passes that new duration to the C<<
+$self->add_duration >> method.
+
+=head3 $dt->subtract( DateTime::Duration->new parameters )
+
+Like C<< $dt->add >>, this is syntactic sugar for the C<<
+$dt->subtract_duration >> method.
+
+=head3 $dt->subtract($duration_object)
+
+A synonym of C<< $dt->subtract_duration($duration_object) >>.
+
+=head3 $dt->subtract_datetime($datetime)
+
+This method returns a new L<DateTime::Duration> object representing the
+difference between the two dates. The duration is B<relative> to the object
+from which C<$datetime> is subtracted. For example:
+
+ 2003-03-15 00:00:00.00000000
+ - 2003-02-15 00:00:00.00000000
+ -------------------------------
+ = 1 month
+
+Note that this duration is not an absolute measure of the amount of time
+between the two datetimes, because the length of a month varies, as well as due
+to the presence of leap seconds.
+
+The returned duration may have deltas for months, days, minutes, seconds, and
+nanoseconds.
+
+=head3 $dt->delta_md($datetime), $dt->delta_days($datetime)
+
+Each of these methods returns a new L<DateTime::Duration> object representing
+some portion of the difference between two datetimes. The C<< $dt->delta_md >>
+method returns a duration which contains only the month and day portions of the
+duration is represented. The C<< $dt->delta_days >> method returns a duration
+which contains only days.
+
+The C<< $dt->delta_md >> and C<< $dt->delta_days >> methods truncate the
+duration so that any fractional portion of a day is ignored. Both of these
+methods operate on the date portion of a datetime only, and so effectively
+ignore the time zone.
+
+Unlike the subtraction methods, B<these methods always return a positive (or
+zero) duration>.
+
+=head3 $dt->delta_ms($datetime)
+
+Returns a duration which contains only minutes and seconds. Any day and month
+differences are converted to minutes and seconds. This method B<always returns
+a positive (or zero) duration>.
+
+=head3 $dt->subtract_datetime_absolute($datetime)
+
+This method returns a new L<DateTime::Duration> object representing the
+difference between the two dates in seconds and nanoseconds. This is the only
+way to accurately measure the absolute amount of time between two datetimes,
+since units larger than a second do not represent a fixed number of seconds.
+
+Note that because of leap seconds, this may not return the same result as doing
+this math based on the value returned by C<< $dt->epoch >>.
+
+=head3 $dt->is_between( $lower, $upper )
+
+Checks whether C<$dt> is strictly between two other DateTime objects.
+
+"Strictly" means that C<$dt> must be greater than C<$lower> and less than
+C<$upper>. If it is I<equal> to either object then this method returns false.
+
+=head2 Class Methods
+
+=head3 DateTime->DefaultLocale($locale)
+
+This can be used to specify the default locale to be used when creating
+DateTime objects. If unset, then C<"en-US"> is used.
+
+This exists for backwards compatibility, but is probably best avoided. This
+will change the default locale for every C<DateTime> object created in your
+application, even those created by third party libraries which also use
+C<DateTime>.
+
+=head3 DateTime->compare( $dt1, $dt2 ), DateTime->compare_ignore_floating( $dt1, $dt2 )
+
+ $cmp = DateTime->compare( $dt1, $dt2 );
+
+ $cmp = DateTime->compare_ignore_floating( $dt1, $dt2 );
+
+This method compare two DateTime objects. The semantics are compatible with
+Perl's C<sort> function; it returns C<-1> if C<< $dt1 < $dt2 >>, C<0> if C<$dt1
+== $dt2>, C<1> if C<< $dt1 > $dt2 >>.
+
+If one of the two DateTime objects has a floating time zone, it will first be
+converted to the time zone of the other object. This is what you want most of
+the time, but it can lead to inconsistent results when you compare a number of
+DateTime objects, some of which are floating, and some of which are in other
+time zones.
+
+If you want to have consistent results (because you want to sort an array of
+objects, for example), you can use the C<compare_ignore_floating> method:
+
+ @dates = sort { DateTime->compare_ignore_floating( $a, $b ) } @dates;
+
+In this case, objects with a floating time zone will be sorted as if they were
+UTC times.
+
+Since DateTime objects overload comparison operators, this:
+
+ @dates = sort @dates;
+
+is equivalent to this:
+
+ @dates = sort { DateTime->compare( $a, $b ) } @dates;
+
+DateTime objects can be compared to any other calendar class that implements
+the C<utc_rd_values> method.
+
+=head2 Testing Code That Uses DateTime
+
+If you are trying to test code that calls uses DateTime, you may want to be to
+explicitly set the value returned by Perl's C<time> builtin. This builtin is
+called by C<< DateTime->now >> and C<< DateTime->today >>.
+
+You can override C<CORE::GLOBAL::time>, but this will only work if you do this
+B<before> loading DateTime. If doing this is inconvenient, you can also
+override C<DateTime::_core_time>:
+
+ no warnings 'redefine';
+ local *DateTime::_core_time = sub { return 42 };
+
+DateTime is guaranteed to call this subroutine to get the current C<time>
+value. You can also override the C<_core_time> sub in a subclass of DateTime
+and use that.
+
+=head2 How DateTime Math Works
+
+It's important to have some understanding of how datetime math is implemented
+in order to effectively use this module and L<DateTime::Duration>.
+
+=head3 Making Things Simple
+
+If you want to simplify your life and not have to think too hard about the
+nitty-gritty of datetime math, I have several recommendations:
+
+=over 4
+
+=item * use the floating time zone
+
+If you do not care about time zones or leap seconds, use the "floating"
+timezone:
+
+ my $dt = DateTime->now( time_zone => 'floating' );
+
+Math done on two objects in the floating time zone produces very predictable
+results.
+
+Note that in most cases you will want to start by creating an object in a
+specific zone and I<then> convert it to the floating time zone. When an object
+goes from a real zone to the floating zone, the time for the object remains the
+same.
+
+This means that passing the floating zone to a constructor may not do what you
+want.
+
+ my $dt = DateTime->now( time_zone => 'floating' );
+
+is equivalent to
+
+ my $dt = DateTime->now( time_zone => 'UTC' )->set_time_zone('floating');
+
+This might not be what you wanted. Instead, you may prefer to do this:
+
+ my $dt = DateTime->now( time_zone => 'local' )->set_time_zone('floating');
+
+=item * use UTC for all calculations
+
+If you do care about time zones (particularly DST) or leap seconds, try to use
+non-UTC time zones for presentation and user input only. Convert to UTC
+immediately and convert back to the local time zone for presentation:
+
+ my $dt = DateTime->new( %user_input, time_zone => $user_tz );
+ $dt->set_time_zone('UTC');
+
+ # do various operations - store it, retrieve it, add, subtract, etc.
+
+ $dt->set_time_zone($user_tz);
+ print $dt->datetime;
+
+=item * math on non-UTC time zones
+
+If you need to do date math on objects with non-UTC time zones, please read the
+caveats below carefully. The results C<DateTime> produces are predictable,
+correct, and mostly intuitive, but datetime math gets very ugly when time zones
+are involved, and there are a few strange corner cases involving subtraction of
+two datetimes across a DST change.
+
+If you can always use the floating or UTC time zones, you can skip ahead to
+L<Leap Seconds and Date Math>
+
+=item * date vs datetime math
+
+If you only care about the date (calendar) portion of a datetime, you should
+use either C<< $dt->delta_md >> or C<< $dt->delta_days >>, not C<<
+$dt->subtract_datetime >>. This will give predictable, unsurprising results,
+free from DST-related complications.
+
+=item * $dt->subtract_datetime and $dt->add_duration
+
+You must convert your datetime objects to the UTC time zone before doing date
+math if you want to make sure that the following formulas are always true:
+
+ $dt2 - $dt1 = $dur
+ $dt1 + $dur = $dt2
+ $dt2 - $dur = $dt1
+
+Note that using C<< $dt->delta_days >> ensures that this formula always works,
+regardless of the time zones of the objects involved, as does using C<<
+$dt->subtract_datetime_absolute >>. Other methods of subtraction are not always
+reversible.
+
+=item * never do math on two objects where only one is in the floating time zone
+
+The date math code accounts for leap seconds whenever the C<DateTime> object is
+not in the floating time zone. If you try to do math where one object is in the
+floating zone and the other isn't, the results will be confusing and wrong.
+
+=back
+
+=head3 Adding a Duration to a DateTime
+
+The parts of a duration can be broken down into five parts. These are months,
+days, minutes, seconds, and nanoseconds. Adding one month to a date is
+different than adding 4 weeks or 28, 29, 30, or 31 days. Similarly, due to DST
+and leap seconds, adding a day can be different than adding 86,400 seconds, and
+adding a minute is not exactly the same as 60 seconds.
+
+We cannot convert between these units, except for seconds and nanoseconds,
+because there is no fixed conversion between most pairs of units. That is
+because of things like leap seconds, DST changes, etc.
+
+C<DateTime> always adds (or subtracts) days, then months, minutes, and then
+seconds and nanoseconds. If there are any boundary overflows, these are
+normalized at each step. For the days and months the local (not UTC) values are
+used. For minutes and seconds, the local values are used. This generally just
+works.
+
+This means that adding one month and one day to February 28, 2003 will produce
+the date April 1, 2003, not March 29, 2003.
+
+ my $dt = DateTime->new( year => 2003, month => 2, day => 28 );
+
+ $dt->add( months => 1, days => 1 );
+
+ # 2003-04-01 - the result
+
+On the other hand, if we add months first, and then separately add days, we end
+up with March 29, 2003:
+
+ $dt->add( months => 1 )->add( days => 1 );
+
+ # 2003-03-29
+
+We see similar strangeness when math crosses a DST boundary:
+
+ my $dt = DateTime->new(
+ year => 2003,
+ month => 4,
+ day => 5,
+ hour => 1,
+ minute => 58,
+ time_zone => "America/Chicago",
+ );
+
+ $dt->add( days => 1, minutes => 3 );
+ # 2003-04-06 02:01:00
+
+ $dt->add( minutes => 3 )->add( days => 1 );
+ # 2003-04-06 03:01:00
+
+Note that if you converted the datetime object to UTC first you would get
+predictable results.
+
+If you want to know how many seconds a L<DateTime::Duration> object represents,
+you have to add it to a datetime to find out, so you could do:
+
+ my $now = DateTime->now( time_zone => 'UTC' );
+ my $later = $now->clone->add_duration($duration);
+
+ my $seconds_dur = $later->subtract_datetime_absolute($now);
+
+This returns a L<DateTime::Duration> which only contains seconds and
+nanoseconds.
+
+If we were add the duration to a different C<DateTime> object we might get a
+different number of seconds.
+
+L<DateTime::Duration> supports three different end-of-month algorithms for
+adding months. This comes into play when an addition results in a day past the
+end of the following month (for example, adding one month to January 30).
+
+ # 2010-08-31 + 1 month = 2010-10-01
+ $dt->add( months => 1, end_of_month => 'wrap' );
+
+ # 2010-01-30 + 1 month = 2010-02-28
+ $dt->add( months => 1, end_of_month => 'limit' );
+
+ # 2010-04-30 + 1 month = 2010-05-31
+ $dt->add( months => 1, end_of_month => 'preserve' );
+
+By default, it uses C<"wrap"> for positive durations and C<"preserve"> for
+negative durations. See L<DateTime::Duration> for a detailed explanation of
+these algorithms.
+
+If you need to do lots of work with durations, take a look at the
+L<DateTime::Format::Duration> module, which lets you present information from
+durations in many useful ways.
+
+There are other subtract/delta methods in C<DateTime> to generate different
+types of durations. These methods are C<< $dt->subtract_datetime >>, C<<
+$dt->subtract_datetime_absolute >>, C<< $dt->delta_md >>, C<< $dt->delta_days
+>>, and C<< $dt->delta_ms >>.
+
+=head3 DateTime Subtraction
+
+Date subtraction is done based solely on the two object's local datetimes, with
+one exception to handle DST changes. Also, if the two datetime objects are in
+different time zones, one of them is converted to the other's time zone first
+before subtraction. This is best explained through examples:
+
+The first of these probably makes the most sense:
+
+ # not DST
+ my $dt1 = DateTime->new(
+ year => 2003,
+ month => 5,
+ day => 6,
+ time_zone => 'America/Chicago',
+ );
+
+ # is DST
+ my $dt2 = DateTime->new(
+ year => 2003,
+ month => 11,
+ day => 6,
+ time_zone => 'America/Chicago',
+ );
+
+ # 6 months
+ my $dur = $dt2->subtract_datetime($dt1);
+
+Nice and simple.
+
+This one is a little trickier, but still fairly logical:
+
+ # is DST
+ my $dt1 = DateTime->new(
+ year => 2003,
+ month => 4,
+ day => 5,
+ hour => 1,
+ minute => 58,
+ time_zone => "America/Chicago",
+ );
+
+ # not DST
+ my $dt2 = DateTime->new(
+ year => 2003,
+ month => 4,
+ day => 7,
+ hour => 2,
+ minute => 1,
+ time_zone => "America/Chicago",
+ );
+
+ # 2 days and 3 minutes
+ my $dur = $dt2->subtract_datetime($dt1);
+
+Which contradicts the result this one gives, even though they both make sense:
+
+ # is DST
+ my $dt1 = DateTime->new(
+ year => 2003,
+ month => 4,
+ day => 5,
+ hour => 1,
+ minute => 58,
+ time_zone => "America/Chicago",
+ );
+
+ # not DST
+ my $dt2 = DateTime->new(
+ year => 2003,
+ month => 4,
+ day => 6,
+ hour => 3,
+ minute => 1,
+ time_zone => "America/Chicago",
+ );
+
+ # 1 day and 3 minutes
+ my $dur = $dt2->subtract_datetime($dt1);
+
+This last example illustrates the "DST" exception mentioned earlier. The
+exception accounts for the fact 2003-04-06 only lasts 23 hours.
+
+And finally:
+
+ my $dt2 = DateTime->new(
+ year => 2003,
+ month => 10,
+ day => 26,
+ hour => 1,
+ time_zone => 'America/Chicago',
+ );
+
+ my $dt1 = $dt2->clone->subtract( hours => 1 );
+
+ # 60 minutes
+ my $dur = $dt2->subtract_datetime($dt1);
+
+This seems obvious until you realize that subtracting 60 minutes from C<$dt2>
+in the above example still leaves the clock time at "01:00:00". This time we
+are accounting for a 25 hour day.
+
+=head3 Reversibility
+
+Date math operations are not always reversible. This is because of the way that
+addition operations are ordered. As was discussed earlier, adding 1 day and 3
+minutes in one call to C<< $dt->add >> is not the same as first adding 3
+minutes and 1 day in two separate calls.
+
+If we take a duration returned from C<< $dt->subtract_datetime >> and then try
+to add or subtract that duration from one of the datetimes we just used, we
+sometimes get interesting results:
+
+ my $dt1 = DateTime->new(
+ year => 2003,
+ month => 4,
+ day => 5,
+ hour => 1,
+ minute => 58,
+ time_zone => "America/Chicago",
+ );
+
+ my $dt2 = DateTime->new(
+ year => 2003,
+ month => 4,
+ day => 6,
+ hour => 3,
+ minute => 1,
+ time_zone => "America/Chicago",
+ );
+
+ # 1 day and 3 minutes
+ my $dur = $dt2->subtract_datetime($dt1);
+
+ # gives us $dt2
+ $dt1->add_duration($dur);
+
+ # gives us 2003-04-05 02:58:00 - 1 hour later than $dt1
+ $dt2->subtract_duration($dur);
+
+The C<< $dt->subtract_duration >> operation gives us a (perhaps) unexpected
+answer because it first subtracts one day to get 2003-04-05T03:01:00 and then
+subtracts 3 minutes to get the final result.
+
+If we explicitly reverse the order we can get the original value of C<$dt1>.
+This can be facilitated by the L<DateTime::Duration> class's C<<
+$dur->calendar_duration >> and C<< $dur->clock_duration >> methods:
+
+ $dt2->subtract_duration( $dur->clock_duration )
+ ->subtract_duration( $dur->calendar_duration );
+
+=head3 Leap Seconds and Date Math
+
+The presence of leap seconds can cause even more anomalies in date math. For
+example, the following is a legal datetime:
+
+ my $dt = DateTime->new(
+ year => 1972,
+ month => 12,
+ day => 31,
+ hour => 23,
+ minute => 59,
+ second => 60,
+ time_zone => 'UTC'
+ );
+
+If we add one month ...
+
+ $dt->add( months => 1 );
+
+... the datetime is now "1973-02-01 00:00:00", because there is no 23:59:60 on
+1973-01-31.
+
+Leap seconds also force us to distinguish between minutes and seconds during
+date math. Given the following datetime ...
+
+ my $dt = DateTime->new(
+ year => 1972,
+ month => 12,
+ day => 31,
+ hour => 23,
+ minute => 59,
+ second => 30,
+ time_zone => 'UTC'
+ );
+
+... we will get different results when adding 1 minute than we get if we add 60
+seconds. This is because in this case, the last minute of the day, beginning at
+23:59:00, actually contains 61 seconds.
+
+Here are the results we get:
+
+ # 1972-12-31 23:59:30 - our starting datetime
+ my $dt = DateTime->new(
+ year => 1972,
+ month => 12,
+ day => 31,
+ hour => 23,
+ minute => 59,
+ second => 30,
+ time_zone => 'UTC'
+ );
+
+ # 1973-01-01 00:00:30 - one minute later
+ $dt->clone->add( minutes => 1 );
+
+ # 1973-01-01 00:00:29 - 60 seconds later
+ $dt->clone->add( seconds => 60 );
+
+ # 1973-01-01 00:00:30 - 61 seconds later
+ $dt->clone->add( seconds => 61 );
+
+=head3 Local vs. UTC and 24 hours vs. 1 day
+
+When math crosses a daylight saving boundary, a single day may have more or
+less than 24 hours.
+
+For example, if you do this ...
+
+ my $dt = DateTime->new(
+ year => 2003,
+ month => 4,
+ day => 5,
+ hour => 2,
+ time_zone => 'America/Chicago',
+ );
+
+ $dt->add( days => 1 );
+
+... then you will produce an I<invalid> local time, and therefore an exception
+will be thrown.
+
+However, this works ...
+
+ my $dt = DateTime->new(
+ year => 2003,
+ month => 4,
+ day => 5,
+ hour => 2,
+ time_zone => 'America/Chicago',
+ );
+
+ $dt->add( hours => 24 );
+
+... and produces a datetime with the local time of "03:00".
+
+If all this makes your head hurt, there is a simple alternative. Just convert
+your datetime object to the "UTC" time zone before doing date math on it, and
+switch it back to the local time zone afterwards. This avoids the possibility
+of having date math throw an exception, and makes sure that 1 day equals 24
+hours. Of course, this may not always be desirable, so caveat user!
+
+=head2 Overloading
+
+This module explicitly overloads the addition (+), subtraction (-), string and
+numeric comparison operators. This means that the following all do sensible
+things:
+
+ my $new_dt = $dt + $duration_obj;
+
+ my $new_dt = $dt - $duration_obj;
+
+ my $duration_obj = $dt - $new_dt;
+
+ for my $dt ( sort @dts ) {...}
+
+Additionally, the fallback parameter is set to true, so other derivable
+operators (+=, -=, etc.) will work properly. Do not expect increment (++) or
+decrement (--) to do anything useful.
+
+The string comparison operators, C<eq> or C<ne>, will use the string value to
+compare with non-DateTime objects.
+
+DateTime objects do not have a numeric value, using C<==> or C<< <=> >> to
+compare a DateTime object with a non-DateTime object will result in an
+exception. To safely sort mixed DateTime and non-DateTime objects, use C<sort {
+$a cmp $b } @dates>.
+
+The module also overloads stringification using the object's formatter,
+defaulting to C<iso8601> method. See L<Formatters And Stringification> for
+details.
+
+=head2 Formatters And Stringification
+
+You can optionally specify a C<formatter>, which is usually a
+C<DateTime::Format::*> object or class, to control the stringification of the
+DateTime object.
+
+Any of the constructor methods can accept a formatter argument:
+
+ my $formatter = DateTime::Format::Strptime->new(...);
+ my $dt = DateTime->new( year => 2004, formatter => $formatter );
+
+Or, you can set it afterwards:
+
+ $dt->set_formatter($formatter);
+ $formatter = $dt->formatter;
+
+Once you set the formatter, the overloaded stringification method will use the
+formatter. If unspecified, the C<iso8601> method is used.
+
+A formatter can be handy when you know that in your application you want to
+stringify your DateTime objects into a special format all the time, for example
+in Postgres format.
+
+If you provide a formatter class name or object, it must implement a
+C<format_datetime> method. This method will be called with just the C<DateTime>
+object as its argument.
+
+=head2 CLDR Patterns
+
+The CLDR pattern language is both more powerful and more complex than strftime.
+Unlike strftime patterns, you often have to explicitly escape text that you do
+not want formatted, as the patterns are simply letters without any prefix.
+
+For example, C<"yyyy-MM-dd"> is a valid CLDR pattern. If you want to include
+any lower or upper case ASCII characters as-is, you can surround them with
+single quotes ('). If you want to include a single quote, you must escape it as
+two single quotes ('').
+
+ my $pattern1 = q{'Today is ' EEEE};
+ my $pattern2 = q{'It is now' h 'o''clock' a};
+
+Spaces and any non-letter text will always be passed through as-is.
+
+Many CLDR patterns which produce numbers will pad the number with leading
+zeroes depending on the length of the format specifier. For example, C<"h">
+represents the current hour from 1-12. If you specify C<"hh"> then hours 1-9
+will have a leading zero prepended.
+
+However, CLDR often uses five of a letter to represent the narrow form of a
+pattern. This inconsistency is necessary for backwards compatibility.
+
+There are many cases where CLDR patterns distinguish between the "format" and
+"stand-alone" forms of a pattern. The format pattern is used when the thing in
+question is being placed into a larger string. The stand-alone form is used
+when displaying that item by itself, for example in a calendar.
+
+There are also many cases where CLDR provides three sizes for each item, wide
+(the full name), abbreviated, and narrow. The narrow form is often just a
+single character, for example "T" for "Tuesday", and may not be unique.
+
+CLDR provides a fairly complex system for localizing time zones that we ignore
+entirely. The time zone patterns just use the information provided by
+C<DateTime::TimeZone>, and I<do not follow the CLDR spec>.
+
+The output of a CLDR pattern is always localized, when applicable.
+
+CLDR provides the following patterns:
+
+=over 4
+
+=item * G{1,3}
+
+The abbreviated era (BC, AD).
+
+=item * GGGG
+
+The wide era (Before Christ, Anno Domini).
+
+=item * GGGGG
+
+The narrow era, if it exists (but it mostly doesn't).
+
+=item * y and y{3,}
+
+The year, zero-prefixed as needed. Negative years will start with a "-", and
+this will be included in the length calculation.
+
+In other, words the "yyyyy" pattern will format year -1234 as "-1234", not
+"-01234".
+
+=item * yy
+
+This is a special case. It always produces a two-digit year, so "1976" becomes
+"76". Negative years will start with a "-", making them one character longer.
+
+=item * Y{1,}
+
+The year in "week of the year" calendars, from C<< $dt->week_year >>.
+
+=item * u{1,}
+
+Same as "y" except that "uu" is not a special case.
+
+=item * Q{1,2}
+
+The quarter as a number (1..4).
+
+=item * QQQ
+
+The abbreviated format form for the quarter.
+
+=item * QQQQ
+
+The wide format form for the quarter.
+
+=item * q{1,2}
+
+The quarter as a number (1..4).
+
+=item * qqq
+
+The abbreviated stand-alone form for the quarter.
+
+=item * qqqq
+
+The wide stand-alone form for the quarter.
+
+=item * M{1,2}
+
+The numerical month.
+
+=item * MMM
+
+The abbreviated format form for the month.
+
+=item * MMMM
+
+The wide format form for the month.
+
+=item * MMMMM
+
+The narrow format form for the month.
+
+=item * L{1,2}
+
+The numerical month.
+
+=item * LLL
+
+The abbreviated stand-alone form for the month.
+
+=item * LLLL
+
+The wide stand-alone form for the month.
+
+=item * LLLLL
+
+The narrow stand-alone form for the month.
+
+=item * w{1,2}
+
+The week of the year, from C<< $dt->week_number >>.
+
+=item * W
+
+The week of the month, from C<< $dt->week_of_month >>.
+
+=item * d{1,2}
+
+The numeric day of the month.
+
+=item * D{1,3}
+
+The numeric day of the year.
+
+=item * F
+
+The day of the week in the month, from C<< $dt->weekday_of_month >>.
+
+=item * g{1,}
+
+The modified Julian day, from C<< $dt->mjd >>.
+
+=item * E{1,3} and eee
+
+The abbreviated format form for the day of the week.
+
+=item * EEEE and eeee
+
+The wide format form for the day of the week.
+
+=item * EEEEE and eeeee
+
+The narrow format form for the day of the week.
+
+=item * e{1,2}
+
+The I<local> numeric day of the week, from 1 to 7. This number depends on what
+day is considered the first day of the week, which varies by locale. For
+example, in the US, Sunday is the first day of the week, so this returns 2 for
+Monday.
+
+=item * c
+
+The numeric day of the week from 1 to 7, treating Monday as the first of the
+week, regardless of locale.
+
+=item * ccc
+
+The abbreviated stand-alone form for the day of the week.
+
+=item * cccc
+
+The wide stand-alone form for the day of the week.
+
+=item * ccccc
+
+The narrow format form for the day of the week.
+
+=item * a
+
+The localized form of AM or PM for the time.
+
+=item * h{1,2}
+
+The hour from 1-12.
+
+=item * H{1,2}
+
+The hour from 0-23.
+
+=item * K{1,2}
+
+The hour from 0-11.
+
+=item * k{1,2}
+
+The hour from 1-24.
+
+=item * j{1,2}
+
+The hour, in 12 or 24 hour form, based on the preferred form for the locale. In
+other words, this is equivalent to either "h{1,2}" or "H{1,2}".
+
+=item * m{1,2}
+
+The minute.
+
+=item * s{1,2}
+
+The second.
+
+=item * S{1,}
+
+The fractional portion of the seconds, rounded based on the length of the
+specifier. This returned I<without> a leading decimal point, but may have
+leading or trailing zeroes.
+
+=item * A{1,}
+
+The millisecond of the day, based on the current time. In other words, if it is
+12:00:00.00, this returns 43200000.
+
+=item * z{1,3}
+
+The time zone short name.
+
+=item * zzzz
+
+The time zone long name.
+
+=item * Z{1,3}
+
+The time zone offset.
+
+=item * ZZZZ
+
+The time zone short name and the offset as one string, so something like
+"CDT-0500".
+
+=item * ZZZZZ
+
+The time zone offset as a sexagesimal number, so something like "-05:00". (This
+is useful for W3C format.)
+
+=item * v{1,3}
+
+The time zone short name.
+
+=item * vvvv
+
+The time zone long name.
+
+=item * V{1,3}
+
+The time zone short name.
+
+=item * VVVV
+
+The time zone long name.
+
+=back
+
+=head3 CLDR "Available Formats"
+
+The CLDR data includes pre-defined formats for various patterns such as "month
+and day" or "time of day". Using these formats lets you render information
+about a datetime in the most natural way for users from a given locale.
+
+These formats are indexed by a key that is itself a CLDR pattern. When you look
+these up, you get back a different CLDR pattern suitable for the locale.
+
+Let's look at some example We'll use C<2008-02-05T18:30:30> as our example
+datetime value, and see how this is rendered for the C<"en-US"> and C<"fr-FR">
+locales.
+
+=over 4
+
+=item * C<MMMd>
+
+The abbreviated month and day as number. For C<en-US>, we get the pattern C<MMM
+d>, which renders as C<Feb 5>. For C<fr-FR>, we get the pattern C<d MMM>, which
+renders as C<5 févr.>.
+
+=item * C<yQQQ>
+
+The year and abbreviated quarter of year. For C<en-US>, we get the pattern
+C<QQQ y>, which renders as C<Q1 2008>. For C<fr-FR>, we get the same pattern,
+C<QQQ y>, which renders as C<T1 2008>.
+
+=item * C<hm>
+
+The 12-hour time of day without seconds. For C<en-US>, we get the pattern
+C<h:mm a>, which renders as C<6:30 PM>. For C<fr-FR>, we get the exact same
+pattern and rendering.
+
+=back
+
+The available formats for each locale are documented in the POD for that
+locale. To get back the format, you use the C<< $locale->format_for >> method.
+For example:
+
+ say $dt->format_cldr( $dt->locale->format_for('MMMd') );
+
+=head2 strftime Patterns
+
+The following patterns are allowed in the format string given to the C<<
+$dt->strftime >> method:
+
+=over 4
+
+=item * %a
+
+The abbreviated weekday name.
+
+=item * %A
+
+The full weekday name.
+
+=item * %b
+
+The abbreviated month name.
+
+=item * %B
+
+The full month name.
+
+=item * %c
+
+The default datetime format for the object's locale.
+
+=item * %C
+
+The century number (year/100) as a 2-digit integer.
+
+=item * %d
+
+The day of the month as a decimal number (range 01 to 31).
+
+=item * %D
+
+Equivalent to %m/%d/%y. This is not a good standard format if you want folks
+from both the United States and the rest of the world to understand the date!
+
+=item * %e
+
+Like %d, the day of the month as a decimal number, but a leading zero is
+replaced by a space.
+
+=item * %F
+
+Equivalent to %Y-%m-%d (the ISO 8601 date format)
+
+=item * %G
+
+The ISO 8601 year with century as a decimal number. The 4-digit year
+corresponding to the ISO week number (see %V). This has the same format and
+value as %Y, except that if the ISO week number belongs to the previous or next
+year, that year is used instead. (TZ)
+
+=item * %g
+
+Like %G, but without century, i.e., with a 2-digit year (00-99).
+
+=item * %h
+
+Equivalent to %b.
+
+=item * %H
+
+The hour as a decimal number using a 24-hour clock (range 00 to 23).
+
+=item * %I
+
+The hour as a decimal number using a 12-hour clock (range 01 to 12).
+
+=item * %j
+
+The day of the year as a decimal number (range 001 to 366).
+
+=item * %k
+
+The hour (24-hour clock) as a decimal number (range 0 to 23); single digits are
+preceded by a blank. (See also %H.)
+
+=item * %l
+
+The hour (12-hour clock) as a decimal number (range 1 to 12); single digits are
+preceded by a blank. (See also %I.)
+
+=item * %m
+
+The month as a decimal number (range 01 to 12).
+
+=item * %M
+
+The minute as a decimal number (range 00 to 59).
+
+=item * %n
+
+A newline character.
+
+=item * %N
+
+The fractional seconds digits. Default is 9 digits (nanoseconds).
+
+ %3N milliseconds (3 digits)
+ %6N microseconds (6 digits)
+ %9N nanoseconds (9 digits)
+
+This value will always be rounded down to the nearest integer.
+
+=item * %p
+
+Either `AM' or `PM' according to the given time value, or the corresponding
+strings for the current locale. Noon is treated as `pm' and midnight as `am'.
+
+=item * %P
+
+Like %p but in lowercase: `am' or `pm' or a corresponding string for the
+current locale.
+
+=item * %r
+
+The time in a.m. or p.m. notation. In the POSIX locale this is equivalent to
+`%I:%M:%S %p'.
+
+=item * %R
+
+The time in 24-hour notation (%H:%M). (SU) For a version including the seconds,
+see %T below.
+
+=item * %s
+
+The number of seconds since the epoch.
+
+=item * %S
+
+The second as a decimal number (range 00 to 61).
+
+=item * %t
+
+A tab character.
+
+=item * %T
+
+The time in 24-hour notation (%H:%M:%S).
+
+=item * %u
+
+The day of the week as a decimal, range 1 to 7, Monday being 1. See also %w.
+
+=item * %U
+
+The week number of the current year as a decimal number, range 00 to 53,
+starting with the first Sunday as the first day of week 01. See also %V and %W.
+
+=item * %V
+
+The ISO 8601:1988 week number of the current year as a decimal number, range 01
+to 53, where week 1 is the first week that has at least 4 days in the current
+year, and with Monday as the first day of the week. See also %U and %W.
+
+=item * %w
+
+The day of the week as a decimal, range 0 to 6, Sunday being 0. See also %u.
+
+=item * %W
+
+The week number of the current year as a decimal number, range 00 to 53,
+starting with the first Monday as the first day of week 01.
+
+=item * %x
+
+The default date format for the object's locale.
+
+=item * %X
+
+The default time format for the object's locale.
+
+=item * %y
+
+The year as a decimal number without a century (range 00 to 99).
+
+=item * %Y
+
+The year as a decimal number including the century.
+
+=item * %z
+
+The time-zone as hour offset from UTC. Required to emit RFC822-conformant dates
+(using "%a, %d %b %Y %H:%M:%S %z").
+
+=item * %Z
+
+The short name for the time zone, typically an abbreviation like "EST" or
+"AEST".
+
+=item * %%
+
+A literal `%' character.
+
+=item * %{method}
+
+Any method name may be specified using the format C<%{method}> name where
+"method" is a valid C<DateTime> object method.
+
+=back
+
+=head2 DateTime and Storable
+
+C<DateTime> implements L<Storable> hooks in order to reduce the size of a
+serialized C<DateTime> object.
+
+=head1 DEVELOPMENT TOOLS
+
+If you're working on the C<DateTIme> code base, there are a few extra non-Perl
+tools that you may find useful, notably
+L<precious|https://github.com/houseabsolute/precious>, a meta-linter/tidier.
+You can install all the necessary tools in C<$HOME/bin> by running
+F<./dev-bin/install-dev-tools.sh>.
+
+Try running C<precious tidy -a> to tidy all the tidyable files in the repo, and
+C<precious lint -a> to run all the lint checks.
+
+You can enable a git pre-commit hook for linting by running F<./git/setup.pl>.
+
+Note that linting will be checked in CI, and it's okay to submit a PR which
+fails the linting check, but it's extra nice to fix these yourself.
+
+=head1 THE DATETIME PROJECT ECOSYSTEM
+
+This module is part of a larger ecosystem of modules in the DateTime family.
+
+=head2 L<DateTime::Set>
+
+The L<DateTime::Set> module represents sets (including recurrences) of
+datetimes. Many modules return sets or recurrences.
+
+=head2 Format Modules
+
+The various format modules exist to parse and format datetimes. For example,
+L<DateTime::Format::HTTP> parses dates according to the RFC 1123 format:
+
+ my $datetime
+ = DateTime::Format::HTTP->parse_datetime(
+ 'Thu Feb 3 17:03:55 GMT 1994');
+
+ print DateTime::Format::HTTP->format_datetime($datetime);
+
+Most format modules are suitable for use as a C<formatter> with a DateTime
+object.
+
+All format modules start with
+L<DateTime::Format::|https://metacpan.org/search?q=datetime%3A%3Aformat>.
+
+=head2 Calendar Modules
+
+There are a number of modules on CPAN that implement non-Gregorian calendars,
+such as the Chinese, Mayan, and Julian calendars.
+
+All calendar modules start with
+L<DateTime::Calendar::|https://metacpan.org/search?q=datetime%3A%3Acalendar>.
+
+=head2 Event Modules
+
+There are a number of modules that calculate the dates for events, such as
+Easter, Sunrise, etc.
+
+All event modules start with
+L<DateTime::Event::|https://metacpan.org/search?q=datetime%3A%3Aevent>.
+
+=head2 Others
+
+There are many other modules that work with DateTime, including modules in the
+L<DateTimeX namespace|https://metacpan.org/search?q=datetimex> namespace, as
+well as others.
+
+See L<MetaCPAN|https://metacpan.org/search?q=datetime> for more modules.
+
+=head1 KNOWN BUGS
+
+The tests in F<20infinite.t> seem to fail on some machines, particularly on
+Win32. This appears to be related to Perl's internal handling of IEEE infinity
+and NaN, and seems to be highly platform/compiler/phase of moon dependent.
+
+If you don't plan to use infinite datetimes you can probably ignore this. This
+will be fixed (perhaps) in future versions.
+
+=head1 SEE ALSO
+
+L<A Date with Perl|http://presentations.houseabsolute.com/a-date-with-perl/> -
+a talk I've given at a few YAPCs.
+
+L<datetime@perl.org mailing list|http://lists.perl.org/list/datetime.html>
+
+=head1 SUPPORT
+
+Bugs may be submitted at L<https://github.com/houseabsolute/DateTime.pm/issues>.
+
+There is a mailing list available for users of this distribution,
+L<mailto:datetime@perl.org>.
+
+=head1 SOURCE
+
+The source code repository for DateTime can be found at L<https://github.com/houseabsolute/DateTime.pm>.
+
+=head1 DONATIONS
+
+If you'd like to thank me for the work I've done on this module, please
+consider making a "donation" to me via PayPal. I spend a lot of free time
+creating free software, and would appreciate any support you'd care to offer.
+
+Please note that B<I am not suggesting that you must do this> in order for me
+to continue working on this particular software. I will continue to do so,
+inasmuch as I have in the past, for as long as it interests me.
+
+Similarly, a donation made in this way will probably not make me work on this
+software much more, unless I get so many donations that I can consider working
+on free software full time (let's all have a chuckle at that together).
+
+To donate, log into PayPal and send money to autarch@urth.org, or use the
+button at L<https://houseabsolute.com/foss-donations/>.
+
+=head1 AUTHOR
+
+Dave Rolsky <autarch@urth.org>
+
+=head1 CONTRIBUTORS
+
+=for stopwords Ben Bennett Christian Hansen Daisuke Maki Dan Book Stewart David Dyck E. Wheeler Precious Doug Bell Flávio Soibelmann Glock Gianni Ceccarelli Gregory Oschwald Hauke D Iain Truskett James Raspass Jason McIntosh Joshua Hoblitt Karen Etheridge Mark Overmeer Michael Conrad R. Davis Mohammad S Anwar M Somerville Nick Tonkin Olaf Alders Ovid Paul Howarth Philippe Bruhat (BooK) philip r brenan Ricardo Signes Richard Bowen Ron Hill Sam Kington viviparous
+
+=over 4
+
+=item *
+
+Ben Bennett <fiji@limey.net>
+
+=item *
+
+Christian Hansen <chansen@cpan.org>
+
+=item *
+
+Daisuke Maki <dmaki@cpan.org>
+
+=item *
+
+Dan Book <grinnz@gmail.com>
+
+=item *
+
+Dan Stewart <danielandrewstewart@gmail.com>
+
+=item *
+
+David Dyck <david.dyck@checksum.com>
+
+=item *
+
+David E. Wheeler <david@justatheory.com>
+
+=item *
+
+David Precious <davidp@preshweb.co.uk>
+
+=item *
+
+Doug Bell <madcityzen@gmail.com>
+
+=item *
+
+Flávio Soibelmann Glock <fglock@gmail.com>
+
+=item *
+
+Gianni Ceccarelli <gianni.ceccarelli@broadbean.com>
+
+=item *
+
+Gregory Oschwald <oschwald@gmail.com>
+
+=item *
+
+Hauke D <haukex@zero-g.net>
+
+=item *
+
+Iain Truskett <deceased>
+
+=item *
+
+James Raspass <jraspass@gmail.com>
+
+=item *
+
+Jason McIntosh <jmac@jmac.org>
+
+=item *
+
+Joshua Hoblitt <jhoblitt@cpan.org>
+
+=item *
+
+Karen Etheridge <ether@cpan.org>
+
+=item *
+
+Mark Overmeer <mark@overmeer.net>
+
+=item *
+
+Michael Conrad <mike@nrdvana.net>
+
+=item *
+
+Michael R. Davis <mrdvt92@users.noreply.github.com>
+
+=item *
+
+Mohammad S Anwar <mohammad.anwar@yahoo.com>
+
+=item *
+
+M Somerville <dracos@users.noreply.github.com>
+
+=item *
+
+Nick Tonkin <1nickt@users.noreply.github.com>
+
+=item *
+
+Olaf Alders <olaf@wundersolutions.com>
+
+=item *
+
+Ovid <curtis_ovid_poe@yahoo.com>
+
+=item *
+
+Paul Howarth <paul@city-fan.org>
+
+=item *
+
+Philippe Bruhat (BooK) <book@cpan.org>
+
+=item *
+
+philip r brenan <philiprbrenan@gmail.com>
+
+=item *
+
+Ricardo Signes <rjbs@cpan.org>
+
+=item *
+
+Richard Bowen <bowen@cpan.org>
+
+=item *
+
+Ron Hill <rkhill@cpan.org>
+
+=item *
+
+Sam Kington <github@illuminated.co.uk>
+
+=item *
+
+viviparous <viviparous@prc>
+
+=back
+
+=head1 COPYRIGHT AND LICENSE
+
+This software is Copyright (c) 2003 - 2023 by Dave Rolsky.
+
+This is free software, licensed under:
+
+ The Artistic License 2.0 (GPL Compatible)
+
+The full text of the license can be found in the
+F<LICENSE> file included with this distribution.
+
+=cut
--- /dev/null
+package # hide from PAUSE
+ DateTime::Conflicts;
+
+use strict;
+use warnings;
+
+# this module was generated with Dist::Zilla::Plugin::Conflicts 0.20
+
+use Dist::CheckConflicts
+ -dist => 'DateTime',
+ -conflicts => {
+ 'DateTime::Format::Mail' => '0.402',
+ },
+ -also => [ qw(
+ Carp
+ DateTime::Locale
+ DateTime::TimeZone
+ Dist::CheckConflicts
+ POSIX
+ Params::ValidationCompiler
+ Scalar::Util
+ Specio
+ Specio::Declare
+ Specio::Exporter
+ Specio::Library::Builtins
+ Specio::Library::Numeric
+ Specio::Library::String
+ Specio::Subs
+ Try::Tiny
+ XSLoader
+ integer
+ namespace::autoclean
+ overload
+ parent
+ strict
+ warnings
+ warnings::register
+ ) ],
+
+;
+
+1;
+
+# ABSTRACT: Check for conflicts between DateTime and installed packages
+# Dist::Zilla: -PodWeaver
+
+__END__
+
+=pod
+
+=for Pod::Coverage *EVERYTHING*
+
+=head1 NAME
+
+DateTime::Conflicts - Check for conflicts between DateTime and installed packages
+
+=head1 DESCRIPTION
+
+This module contains information about conflicts between this distribution and
+other CPAN distributions. It does not have any user-facing parts.
+
+This module was generated by Dist::Zilla::Plugin::Conflicts 0.20.
+
+=cut
--- /dev/null
+package DateTime::Duration;
+
+use strict;
+use warnings;
+use namespace::autoclean;
+
+our $VERSION = '1.65';
+
+use Carp ();
+use DateTime;
+use DateTime::Helpers;
+use DateTime::Types;
+use Params::ValidationCompiler 0.26 qw( validation_for );
+use Scalar::Util qw( blessed );
+
+use overload (
+ fallback => 1,
+ '+' => '_add_overload',
+ '-' => '_subtract_overload',
+ '*' => '_multiply_overload',
+ '<=>' => '_compare_overload',
+ 'cmp' => '_compare_overload',
+);
+
+sub MAX_NANOSECONDS () {1_000_000_000} # 1E9 = almost 32 bits
+
+my @all_units = qw( months days minutes seconds nanoseconds );
+
+{
+ my %units = map {
+ $_ => {
+
+ # XXX - what we really want is to accept an integer, Inf, -Inf,
+ # and NaN, but I can't figure out how to accept NaN since it never
+ # compares to anything.
+ type => t('Defined'),
+ default => 0,
+ }
+ } qw(
+ years
+ months
+ weeks
+ days
+ hours
+ minutes
+ seconds
+ nanoseconds
+ );
+
+ my $check = validation_for(
+ name => '_check_new_params',
+ name_is_optional => 1,
+ params => {
+ %units,
+ end_of_month => {
+ type => t('EndOfMonthMode'),
+ optional => 1,
+ },
+ },
+ );
+
+ sub new {
+ my $class = shift;
+ my %p = $check->(@_);
+
+ my $self = bless {}, $class;
+
+ $self->{months} = ( $p{years} * 12 ) + $p{months};
+
+ $self->{days} = ( $p{weeks} * 7 ) + $p{days};
+
+ $self->{minutes} = ( $p{hours} * 60 ) + $p{minutes};
+
+ $self->{seconds} = $p{seconds};
+
+ if ( $p{nanoseconds} ) {
+ $self->{nanoseconds} = $p{nanoseconds};
+ $self->_normalize_nanoseconds;
+ }
+ else {
+
+ # shortcut - if they don't need nanoseconds
+ $self->{nanoseconds} = 0;
+ }
+
+ $self->{end_of_month} = (
+ defined $p{end_of_month} ? $p{end_of_month}
+ : $self->{months} < 0 ? 'preserve'
+ : 'wrap'
+ );
+
+ return $self;
+ }
+}
+
+# make the signs of seconds, nanos the same; 0 < abs(nanos) < MAX_NANOS
+# NB this requires nanoseconds != 0 (callers check this already)
+sub _normalize_nanoseconds {
+ my $self = shift;
+
+ return
+ if ( $self->{nanoseconds} == DateTime::INFINITY()
+ || $self->{nanoseconds} == DateTime::NEG_INFINITY()
+ || $self->{nanoseconds} eq DateTime::NAN() );
+
+ my $seconds = $self->{seconds} + $self->{nanoseconds} / MAX_NANOSECONDS;
+ $self->{seconds} = int($seconds);
+ $self->{nanoseconds} = $self->{nanoseconds} % MAX_NANOSECONDS;
+ $self->{nanoseconds} -= MAX_NANOSECONDS if $seconds < 0;
+}
+
+sub clone { bless { %{ $_[0] } }, ref $_[0] }
+
+sub years { abs( $_[0]->in_units('years') ) }
+sub months { abs( $_[0]->in_units( 'months', 'years' ) ) }
+sub weeks { abs( $_[0]->in_units('weeks') ) }
+sub days { abs( $_[0]->in_units( 'days', 'weeks' ) ) }
+sub hours { abs( $_[0]->in_units('hours') ) }
+sub minutes { abs( $_[0]->in_units( 'minutes', 'hours' ) ) }
+sub seconds { abs( $_[0]->in_units('seconds') ) }
+sub nanoseconds { abs( $_[0]->in_units( 'nanoseconds', 'seconds' ) ) }
+
+sub is_positive { $_[0]->_has_positive && !$_[0]->_has_negative }
+sub is_negative { !$_[0]->_has_positive && $_[0]->_has_negative }
+
+sub _has_positive {
+ ( grep { $_ > 0 } @{ $_[0] }{@all_units} ) ? 1 : 0;
+}
+
+sub _has_negative {
+ ( grep { $_ < 0 } @{ $_[0] }{@all_units} ) ? 1 : 0;
+}
+
+sub is_zero {
+ return 0 if grep { $_ != 0 } @{ $_[0] }{@all_units};
+ return 1;
+}
+
+sub delta_months { $_[0]->{months} }
+sub delta_days { $_[0]->{days} }
+sub delta_minutes { $_[0]->{minutes} }
+sub delta_seconds { $_[0]->{seconds} }
+sub delta_nanoseconds { $_[0]->{nanoseconds} }
+
+sub deltas {
+ map { $_ => $_[0]->{$_} } @all_units;
+}
+
+sub in_units {
+ my $self = shift;
+ my @units = @_;
+
+ my %units = map { $_ => 1 } @units;
+
+ my %ret;
+
+ my ( $months, $days, $minutes, $seconds )
+ = @{$self}{qw( months days minutes seconds )};
+
+ if ( $units{years} ) {
+ $ret{years} = int( $months / 12 );
+ $months -= $ret{years} * 12;
+ }
+
+ if ( $units{months} ) {
+ $ret{months} = $months;
+ }
+
+ if ( $units{weeks} ) {
+ $ret{weeks} = int( $days / 7 );
+ $days -= $ret{weeks} * 7;
+ }
+
+ if ( $units{days} ) {
+ $ret{days} = $days;
+ }
+
+ if ( $units{hours} ) {
+ $ret{hours} = int( $minutes / 60 );
+ $minutes -= $ret{hours} * 60;
+ }
+
+ if ( $units{minutes} ) {
+ $ret{minutes} = $minutes;
+ }
+
+ if ( $units{seconds} ) {
+ $ret{seconds} = $seconds;
+ $seconds = 0;
+ }
+
+ if ( $units{nanoseconds} ) {
+ $ret{nanoseconds} = $seconds * MAX_NANOSECONDS + $self->{nanoseconds};
+ }
+
+ wantarray ? @ret{@units} : $ret{ $units[0] };
+}
+
+sub is_wrap_mode { $_[0]->{end_of_month} eq 'wrap' ? 1 : 0 }
+sub is_limit_mode { $_[0]->{end_of_month} eq 'limit' ? 1 : 0 }
+sub is_preserve_mode { $_[0]->{end_of_month} eq 'preserve' ? 1 : 0 }
+
+sub end_of_month_mode { $_[0]->{end_of_month} }
+
+sub calendar_duration {
+ my $self = shift;
+
+ return ( ref $self )
+ ->new( map { $_ => $self->{$_} } qw( months days end_of_month ) );
+}
+
+sub clock_duration {
+ my $self = shift;
+
+ return ( ref $self )
+ ->new( map { $_ => $self->{$_} }
+ qw( minutes seconds nanoseconds end_of_month ) );
+}
+
+sub inverse {
+ my $self = shift;
+ my %p = @_;
+
+ my %new;
+ foreach my $u (@all_units) {
+ $new{$u} = $self->{$u};
+
+ # avoid -0 bug
+ $new{$u} *= -1 if $new{$u};
+ }
+
+ $new{end_of_month} = $p{end_of_month}
+ if exists $p{end_of_month};
+
+ return ( ref $self )->new(%new);
+}
+
+sub add_duration {
+ my ( $self, $dur ) = @_;
+
+ foreach my $u (@all_units) {
+ $self->{$u} += $dur->{$u};
+ }
+
+ $self->_normalize_nanoseconds if $self->{nanoseconds};
+
+ return $self;
+}
+
+sub add {
+ my $self = shift;
+
+ return $self->add_duration( $self->_duration_object_from_args(@_) );
+}
+
+sub subtract {
+ my $self = shift;
+
+ return $self->subtract_duration( $self->_duration_object_from_args(@_) );
+}
+
+# Syntactic sugar for add and subtract: use a duration object if it's
+# supplied, otherwise build a new one from the arguments.
+sub _duration_object_from_args {
+ my $self = shift;
+
+ return $_[0]
+ if @_ == 1 && blessed( $_[0] ) && $_[0]->isa(__PACKAGE__);
+
+ return __PACKAGE__->new(@_);
+}
+
+sub subtract_duration { return $_[0]->add_duration( $_[1]->inverse ) }
+
+{
+ my $check = validation_for(
+ name => '_check_multiply_params',
+ name_is_optional => 1,
+ params => [
+ { type => t('Int') },
+ ],
+ );
+
+ sub multiply {
+ my $self = shift;
+ my ($multiplier) = $check->(@_);
+
+ foreach my $u (@all_units) {
+ $self->{$u} *= $multiplier;
+ }
+
+ $self->_normalize_nanoseconds if $self->{nanoseconds};
+
+ return $self;
+ }
+}
+
+sub compare {
+ my ( undef, $dur1, $dur2, $dt ) = @_;
+
+ $dt ||= DateTime->now;
+
+ return DateTime->compare(
+ $dt->clone->add_duration($dur1),
+ $dt->clone->add_duration($dur2)
+ );
+}
+
+sub _add_overload {
+ my ( $d1, $d2, $rev ) = @_;
+
+ ( $d1, $d2 ) = ( $d2, $d1 ) if $rev;
+
+ if ( DateTime::Helpers::isa( $d2, 'DateTime' ) ) {
+ $d2->add_duration($d1);
+ return;
+ }
+
+ # will also work if $d1 is a DateTime.pm object
+ return $d1->clone->add_duration($d2);
+}
+
+sub _subtract_overload {
+ my ( $d1, $d2, $rev ) = @_;
+
+ ( $d1, $d2 ) = ( $d2, $d1 ) if $rev;
+
+ Carp::croak(
+ 'Cannot subtract a DateTime object from a DateTime::Duration object')
+ if DateTime::Helpers::isa( $d2, 'DateTime' );
+
+ return $d1->clone->subtract_duration($d2);
+}
+
+sub _multiply_overload {
+ my $self = shift;
+
+ my $new = $self->clone;
+
+ return $new->multiply(shift);
+}
+
+sub _compare_overload {
+ Carp::croak( 'DateTime::Duration does not overload comparison.'
+ . ' See the documentation on the compare() method for details.'
+ );
+}
+
+1;
+
+# ABSTRACT: Duration objects for date math
+
+__END__
+
+=pod
+
+=encoding UTF-8
+
+=head1 NAME
+
+DateTime::Duration - Duration objects for date math
+
+=head1 VERSION
+
+version 1.65
+
+=head1 SYNOPSIS
+
+ use DateTime::Duration;
+
+ $dur = DateTime::Duration->new(
+ years => 3,
+ months => 5,
+ weeks => 1,
+ days => 1,
+ hours => 6,
+ minutes => 15,
+ seconds => 45,
+ nanoseconds => 12000,
+ end_of_month => 'limit',
+ );
+
+ my ( $days, $hours, $seconds )
+ = $dur->in_units( 'days', 'hours', 'seconds' );
+
+ # Human-readable accessors, always positive, but consider using
+ # DateTime::Format::Duration instead
+ $dur->years;
+ $dur->months;
+ $dur->weeks;
+ $dur->days;
+ $dur->hours;
+ $dur->minutes;
+ $dur->seconds;
+ $dur->nanoseconds;
+
+ $dur->is_wrap_mode;
+ $dur->is_limit_mode;
+ $dur->is_preserve_mode;
+
+ print $dur->end_of_month_mode;
+
+ # Multiply all values by -1
+ my $opposite = $dur->inverse;
+
+ my $bigger = $dur1 + $dur2;
+ my $smaller = $dur1 - $dur2; # the result could be negative
+ my $bigger = $dur1 * 3;
+
+ my $base_dt = DateTime->new( year => 2000 );
+ my @sorted
+ = sort { DateTime::Duration->compare( $a, $b, $base_dt ) } @durations;
+
+ if ( $dur->is_positive ) {...}
+ if ( $dur->is_zero ) {...}
+ if ( $dur->is_negative ) {...}
+
+=head1 DESCRIPTION
+
+This is a simple class for representing duration objects. These objects are
+used whenever you do date math with L<DateTime>.
+
+See the L<How DateTime Math Works|DateTime/"How DateTime Math Works"> section
+of the L<DateTime> documentation for more details. The short course: One cannot
+in general convert between seconds, minutes, days, and months, so this class
+will never do so. Instead, create the duration with the desired units to begin
+with, for example by calling the appropriate subtraction/delta method on a
+L<DateTime> object.
+
+=head1 METHODS
+
+Like L<DateTime> itself, C<DateTime::Duration> returns the object from mutator
+methods in order to make method chaining possible.
+
+C<DateTime::Duration> has the following methods:
+
+=head2 DateTime::Duration->new( ... )
+
+This class method accepts the following parameters:
+
+=over 4
+
+=item * years
+
+An integer containing the number of years in the duration. This is optional.
+
+=item * months
+
+An integer containing the number of months in the duration. This is optional.
+
+=item * weeks
+
+An integer containing the number of weeks in the duration. This is optional.
+
+=item * days
+
+An integer containing the number of days in the duration. This is optional.
+
+=item * hours
+
+An integer containing the number of hours in the duration. This is optional.
+
+=item * minutes
+
+An integer containing the number of minutes in the duration. This is optional.
+
+=item * seconds
+
+An integer containing the number of seconds in the duration. This is optional.
+
+=item * nanoseconds
+
+An integer containing the number of nanoseconds in the duration. This is
+optional.
+
+=item * end_of_month
+
+This must be either C<"wrap">, C<"limit">, or C<"preserve">. This parameter
+specifies how date math that crosses the end of a month is handled.
+
+In C<"wrap"> mode, adding months or years that result in days beyond the end of
+the new month will roll over into the following month. For instance, adding one
+year to Feb 29 will result in Mar 1.
+
+If you specify C<"limit">, the end of the month is never crossed. Thus, adding
+one year to Feb 29, 2000 will result in Feb 28, 2001. If you were to then add
+three more years this will result in Feb 28, 2004.
+
+If you specify C<"preserve">, the same calculation is done as for C<"limit">
+except that if the original date is at the end of the month the new date will
+also be. For instance, adding one month to Feb 29, 2000 will result in Mar 31,
+2000.
+
+For positive durations, this parameter defaults to C<"wrap">. For negative
+durations, the default is C<"preserve">. This should match how most people
+"intuitively" expect datetime math to work.
+
+=back
+
+All of the duration units can be positive or negative. However, if any of the
+numbers are negative, the entire duration is negative.
+
+All of the numbers B<must be integers>.
+
+Internally, years as just treated as 12 months. Similarly, weeks are treated as
+7 days, and hours are converted to minutes. Seconds and nanoseconds are both
+treated separately.
+
+=head2 $dur->clone
+
+Returns a new object with the same properties as the object on which this
+method was called.
+
+=head2 $dur->in_units( ... )
+
+Returns the length of the duration in the units (any of those that can be
+passed to C<< DateTime::Duration->new >>) given as arguments. All lengths are
+integral, but may be negative. Smaller units are computed from what remains
+after taking away the larger units given, so for example:
+
+ my $dur = DateTime::Duration->new( years => 1, months => 15 );
+
+ $dur->in_units('years'); # 2
+ $dur->in_units('months'); # 27
+ $dur->in_units( 'years', 'months' ); # (2, 3)
+ $dur->in_units( 'weeks', 'days' ); # (0, 0) !
+
+The last example demonstrates that there will not be any conversion between
+units which don't have a fixed conversion rate. The only conversions possible
+are:
+
+=over 4
+
+=item * years <=> months
+
+=item * weeks <=> days
+
+=item * hours <=> minutes
+
+=item * seconds <=> nanoseconds
+
+=back
+
+For the explanation of why this is the case, please see the L<How DateTime Math
+Works|DateTime/"How DateTime Math Works"> section of the DateTime documentation
+
+Note that the numbers returned by this method may not match the values given to
+the constructor.
+
+In list context, C<< $dur->in_units >> returns the lengths in the order of the
+units given. In scalar context, it returns the length in the first unit (but
+still computes in terms of all given units).
+
+If you need more flexibility in presenting information about durations, please
+take a look a L<DateTime::Format::Duration>.
+
+=head2 $dur->is_positive, $dur->is_zero, $dur->is_negative
+
+Indicates whether or not the duration is positive, zero, or negative.
+
+If the duration contains both positive and negative units, then it will return
+false for B<all> of these methods.
+
+=head2 $dur->is_wrap_mode, $dur->is_limit_mode, $dur->is_preserve_mode
+
+Indicates what mode is used for end of month wrapping.
+
+=head2 $dur->end_of_month_mode
+
+Returns one of C<"wrap">, C<"limit">, or C<"preserve">.
+
+=head2 $dur->calendar_duration
+
+Returns a new object with the same I<calendar> delta (months and days only) and
+end of month mode as the current object.
+
+=head2 $dur->clock_duration
+
+Returns a new object with the same I<clock> deltas (minutes, seconds, and
+nanoseconds) and end of month mode as the current object.
+
+=head2 $dur->inverse( ... )
+
+Returns a new object with the same deltas as the current object, but multiplied
+by -1. The end of month mode for the new object will be the default end of
+month mode, which depends on whether the new duration is positive or negative.
+
+You can set the end of month mode in the inverted duration explicitly by
+passing an C<end_of_month> parameter to the C<< $dur->inverse >> method.
+
+=head2 $dur->add_duration($duration_object), $dur->subtract_duration($duration_object)
+
+Adds or subtracts one duration from another.
+
+=head2 $dur->add( ... ), $dur->subtract( ... )
+
+These accept either constructor parameters for a new C<DateTime::Duration>
+object or an already-constructed duration object.
+
+=head2 $dur->multiply($number)
+
+Multiplies each unit in the C<DateTime::Duration> object by the specified
+integer number.
+
+=head2 DateTime::Duration->compare( $duration1, $duration2, $base_datetime )
+
+This is a class method that can be used to compare or sort durations.
+Comparison is done by adding each duration to the specified L<DateTime> object
+and comparing the resulting datetimes. This is necessary because without a
+base, many durations are not comparable. For example, 1 month may or may not be
+longer than 29 days, depending on what datetime it is added to.
+
+If no base datetime is given, then the result of C<< DateTime->now >> is used
+instead. Using this default will give non-repeatable results if used to compare
+two duration objects containing different units. It will also give
+non-repeatable results if the durations contain multiple types of units, such
+as months and days.
+
+However, if you know that both objects only consist of one type of unit (months
+I<or> days I<or> hours, etc.), and each duration contains the same type of
+unit, then the results of the comparison will be repeatable.
+
+=head2 $dur->delta_months, $dur->delta_days, $dur->delta_minutes, $dur->delta_seconds, $dur->delta_nanoseconds
+
+These methods provide the information L<DateTime> needs for doing date math.
+The numbers returned may be positive or negative. This is mostly useful for
+doing date math in L<DateTime>.
+
+=head2 $dur->deltas
+
+Returns a hash with the keys "months", "days", "minutes", "seconds", and
+"nanoseconds", containing all the delta information for the object. This is
+mostly useful for doing date math in L<DateTime>.
+
+=head2 $dur->years, $dur->months, $dur->weeks, $dur->days, $dur->hours, $dur->minutes, $dur->seconds, $dur->nanoseconds
+
+These methods return numbers indicating how many of the given unit the object
+represents, after having done a conversion to any larger units. For example,
+days are first converted to weeks, and then the remainder is returned. These
+numbers are always positive.
+
+Here's what each method returns:
+
+ $dur->years == abs( $dur->in_units('years') )
+ $dur->months == abs( ( $dur->in_units( 'months', 'years' ) )[0] )
+ $dur->weeks == abs( $dur->in_units( 'weeks' ) )
+ $dur->days == abs( ( $dur->in_units( 'days', 'weeks' ) )[0] )
+ $dur->hours == abs( $dur->in_units( 'hours' ) )
+ $dur->minutes == abs( ( $dur->in_units( 'minutes', 'hours' ) )[0] )
+ $dur->seconds == abs( $dur->in_units( 'seconds' ) )
+ $dur->nanoseconds == abs( ( $dur->in_units( 'nanoseconds', 'seconds' ) )[0] )
+
+If this seems confusing, remember that you can always use the C<<
+$dur->in_units >> method to specify exactly what you want.
+
+Better yet, if you are trying to generate output suitable for humans, use the
+C<DateTime::Format::Duration> module.
+
+=head2 Overloading
+
+This class overloads addition, subtraction, and mutiplication.
+
+Comparison is B<not> overloaded. If you attempt to compare durations using C<<
+<=> >> or C<cmp>, then an exception will be thrown! Use the C<compare> class
+method instead.
+
+=head1 SEE ALSO
+
+datetime@perl.org mailing list
+
+=head1 SUPPORT
+
+Support for this module is provided via the datetime@perl.org email list. See
+http://lists.perl.org/ for more details.
+
+Bugs may be submitted at L<https://github.com/houseabsolute/DateTime.pm/issues>.
+
+There is a mailing list available for users of this distribution,
+L<mailto:datetime@perl.org>.
+
+=head1 SOURCE
+
+The source code repository for DateTime can be found at L<https://github.com/houseabsolute/DateTime.pm>.
+
+=head1 AUTHOR
+
+Dave Rolsky <autarch@urth.org>
+
+=head1 COPYRIGHT AND LICENSE
+
+This software is Copyright (c) 2003 - 2023 by Dave Rolsky.
+
+This is free software, licensed under:
+
+ The Artistic License 2.0 (GPL Compatible)
+
+The full text of the license can be found in the
+F<LICENSE> file included with this distribution.
+
+=cut
--- /dev/null
+package DateTime::Helpers;
+
+use strict;
+use warnings;
+
+our $VERSION = '1.65';
+
+use Scalar::Util ();
+
+## no critic (Subroutines::ProhibitBuiltinHomonyms)
+sub can {
+ my $object = shift;
+ my $method = shift;
+
+ return unless Scalar::Util::blessed($object);
+ return $object->can($method);
+}
+
+sub isa {
+ my $object = shift;
+ my $method = shift;
+
+ return unless Scalar::Util::blessed($object);
+ return $object->isa($method);
+}
+
+1;
--- /dev/null
+## no critic (Modules::ProhibitMultiplePackages)
+package DateTime::Infinite;
+
+use strict;
+use warnings;
+use namespace::autoclean;
+
+our $VERSION = '1.65';
+
+use DateTime;
+use DateTime::TimeZone;
+
+use parent qw(DateTime);
+
+foreach my $m (qw( set set_time_zone truncate )) {
+ ## no critic (TestingAndDebugging::ProhibitNoStrict)
+ no strict 'refs';
+ *{"DateTime::Infinite::$m"} = sub { return $_[0] };
+}
+
+sub is_finite {0}
+sub is_infinite {1}
+
+## no critic (Subroutines::ProhibitUnusedPrivateSubroutines)
+sub _rd2ymd {
+ return $_[2] ? ( $_[1] ) x 7 : ( $_[1] ) x 3;
+}
+
+sub _seconds_as_components {
+ return ( $_[1] ) x 3;
+}
+
+sub ymd {
+ return $_[0]->iso8601;
+}
+
+sub mdy {
+ return $_[0]->iso8601;
+}
+
+sub dmy {
+ return $_[0]->iso8601;
+}
+
+sub hms {
+ return $_[0]->iso8601;
+}
+
+sub hour_12 {
+ return $_[0]->_infinity_string;
+}
+
+sub hour_12_0 {
+ return $_[0]->_infinity_string;
+}
+
+sub datetime {
+ return $_[0]->_infinity_string;
+}
+
+sub stringify {
+ return $_[0]->_infinity_string;
+}
+
+sub _infinity_string {
+ return $_[0]->{utc_rd_days} == DateTime::INFINITY
+ ? DateTime::INFINITY . q{}
+ : DateTime::NEG_INFINITY . q{};
+}
+
+sub _week_values { [ $_[0]->{utc_rd_days}, $_[0]->{utc_rd_days} ] }
+
+sub STORABLE_freeze {return}
+sub STORABLE_thaw {return}
+
+package DateTime::Infinite::Future;
+
+use strict;
+use warnings;
+
+use parent qw(DateTime::Infinite);
+
+{
+ my $Pos = bless {
+ utc_rd_days => DateTime::INFINITY,
+ utc_rd_secs => DateTime::INFINITY,
+ local_rd_days => DateTime::INFINITY,
+ local_rd_secs => DateTime::INFINITY,
+ rd_nanosecs => DateTime::INFINITY,
+ tz => DateTime::TimeZone->new( name => 'floating' ),
+ locale => FakeLocale->instance,
+ },
+ __PACKAGE__;
+
+ $Pos->_calc_utc_rd;
+ $Pos->_calc_local_rd;
+
+ sub new {$Pos}
+}
+
+package DateTime::Infinite::Past;
+
+use strict;
+use warnings;
+
+use parent qw(DateTime::Infinite);
+
+{
+ my $Neg = bless {
+ utc_rd_days => DateTime::NEG_INFINITY,
+ utc_rd_secs => DateTime::NEG_INFINITY,
+ local_rd_days => DateTime::NEG_INFINITY,
+ local_rd_secs => DateTime::NEG_INFINITY,
+ rd_nanosecs => DateTime::NEG_INFINITY,
+ tz => DateTime::TimeZone->new( name => 'floating' ),
+ locale => FakeLocale->instance,
+ },
+ __PACKAGE__;
+
+ $Neg->_calc_utc_rd;
+ $Neg->_calc_local_rd;
+
+ sub new {$Neg}
+}
+
+package # hide from PAUSE
+ FakeLocale;
+
+use strict;
+use warnings;
+
+use DateTime::Locale;
+
+my $Instance;
+
+sub instance {
+ return $Instance ||= bless { locale => DateTime::Locale->load('en_US') },
+ __PACKAGE__;
+}
+
+sub id {
+ return 'infinite';
+}
+
+sub language_id {
+ return 'infinite';
+}
+
+sub name {
+ 'Fake locale for Infinite DateTime objects';
+}
+
+sub language {
+ 'Fake locale for Infinite DateTime objects';
+}
+
+my @methods = qw(
+ script_id
+ territory_id
+ variant_id
+ script
+ territory
+ variant
+ native_name
+ native_language
+ native_script
+ native_territory
+ native_variant
+);
+
+for my $meth (@methods) {
+ ## no critic (TestingAndDebugging::ProhibitNoStrict)
+ no strict 'refs';
+ *{$meth} = sub {undef};
+}
+
+# Totally arbitrary
+sub first_day_of_week {
+ return 1;
+}
+
+sub prefers_24_hour_time {
+ return 0;
+}
+
+our $AUTOLOAD;
+
+## no critic (ClassHierarchies::ProhibitAutoloading)
+sub AUTOLOAD {
+ my $self = shift;
+
+ my ($meth) = $AUTOLOAD =~ /::(\w+)$/;
+
+ if ( $meth =~ /format/ && $meth !~ /^(?:day|month|quarter)/ ) {
+ return $self->{locale}->$meth(@_);
+ }
+
+ return [];
+}
+
+1;
+
+# ABSTRACT: Infinite past and future DateTime objects
+
+__END__
+
+=pod
+
+=encoding UTF-8
+
+=head1 NAME
+
+DateTime::Infinite - Infinite past and future DateTime objects
+
+=head1 VERSION
+
+version 1.65
+
+=head1 SYNOPSIS
+
+ my $future = DateTime::Infinite::Future->new;
+ my $past = DateTime::Infinite::Past->new;
+
+=head1 DESCRIPTION
+
+This module provides two L<DateTime> subclasses, C<DateTime::Infinite::Future>
+and C<DateTime::Infinite::Past>.
+
+The objects are always in the "floating" timezone, and this cannot be changed.
+
+=head1 METHODS
+
+The only constructor for these two classes is the C<new> method, as shown in
+the L</SYNOPSIS>. This method takes no parameters.
+
+All "get" methods in this module simply return infinity, positive or negative.
+If the method is expected to return a string, it returns the string
+representation of positive or negative infinity used by your system. For
+example, on my system calling C<< $dt->year >>> returns a number which when
+printed appears either "Inf" or "-Inf".
+
+This also applies to methods that are compound stringifications, which return
+the same strings even for things like C<< $dt->ymd >> or C<< $dt->iso8601 >>
+
+The object is not mutable, so the C<< $dt->set >>, C<< $dt->set_time_zone >>,
+and C<< $dt->truncate >> methods are all do-nothing methods that simply return
+the object they are called with.
+
+Obviously, the C<< $dt->is_finite >> method returns false and the C<<
+$dt->is_infinite >> method returns true.
+
+=head1 SEE ALSO
+
+datetime@perl.org mailing list
+
+=head1 BUGS
+
+There seem to be lots of problems when dealing with infinite numbers on Win32.
+This may be a problem with this code, Perl, or Win32's IEEE math
+implementation. Either way, the module may not be well-behaved on Win32
+operating systems.
+
+Bugs may be submitted at L<https://github.com/houseabsolute/DateTime.pm/issues>.
+
+There is a mailing list available for users of this distribution,
+L<mailto:datetime@perl.org>.
+
+=head1 SOURCE
+
+The source code repository for DateTime can be found at L<https://github.com/houseabsolute/DateTime.pm>.
+
+=head1 AUTHOR
+
+Dave Rolsky <autarch@urth.org>
+
+=head1 COPYRIGHT AND LICENSE
+
+This software is Copyright (c) 2003 - 2023 by Dave Rolsky.
+
+This is free software, licensed under:
+
+ The Artistic License 2.0 (GPL Compatible)
+
+The full text of the license can be found in the
+F<LICENSE> file included with this distribution.
+
+=cut
--- /dev/null
+package DateTime::LeapSecond;
+
+use strict;
+use warnings;
+use namespace::autoclean;
+
+our $VERSION = '1.65';
+
+our ( @RD, @LEAP_SECONDS, %RD_LENGTH );
+
+use DateTime;
+
+# Generates a Perl binary decision tree
+sub _make_utx {
+ my ( $beg, $end, $tab, $op ) = @_;
+ my $step = int( ( $end - $beg ) / 2 );
+ my $tmp;
+ if ( $step <= 0 ) {
+ $tmp = "${tab}return $LEAP_SECONDS[$beg + 1];\n";
+ return $tmp;
+ }
+ $tmp = "${tab}if (\$val < " . $RD[ $beg + $step ] . ") {\n";
+ $tmp .= _make_utx( $beg, $beg + $step, $tab . q{ }, $op );
+ $tmp .= "${tab}}\n";
+ $tmp .= "${tab}else {\n";
+ $tmp .= _make_utx( $beg + $step, $end, $tab . q{ }, $op );
+ $tmp .= "${tab}}\n";
+ return $tmp;
+}
+
+# Process BEGIN data and write binary tree decision table
+sub _init {
+ my $value = -1;
+ while (@_) {
+ my ( $year, $mon, $mday, $leap_seconds )
+ = ( shift, shift, shift, shift );
+
+ # print "$year,$mon,$mday\n";
+
+ ## no critic (Subroutines::ProtectPrivateSubs)
+ my $utc_epoch
+ = DateTime->_ymd2rd( $year, ( $mon =~ /Jan/i ? 1 : 7 ), $mday );
+
+ $value++;
+ push @LEAP_SECONDS, $value;
+ push @RD, $utc_epoch;
+
+ $RD_LENGTH{ $utc_epoch - 1 } = $leap_seconds;
+
+ # warn "$year,$mon,$mday = $utc_epoch +$value";
+ }
+
+ push @LEAP_SECONDS, ++$value;
+
+ my $tmp;
+
+ # write binary tree decision table
+
+ $tmp = "sub leap_seconds {\n";
+ $tmp .= " my \$val = shift;\n";
+ $tmp .= _make_utx( -1, 1 + $#RD, q{ }, '+' );
+ $tmp .= "}; 1\n";
+
+ # NOTE: uncomment the line below to see the code:
+ #warn $tmp;
+
+ ## no critic (BuiltinFunctions::ProhibitStringyEval)
+ eval $tmp or die $@;
+}
+
+sub extra_seconds {
+ exists $RD_LENGTH{ $_[0] } ? $RD_LENGTH{ $_[0] } : 0;
+}
+
+sub day_length {
+ exists $RD_LENGTH{ $_[0] } ? 86400 + $RD_LENGTH{ $_[0] } : 86400;
+}
+
+sub _initialize {
+
+ # There are no leap seconds before 1972, because that's the
+ # year this system was implemented.
+ #
+ # year month day number-of-leapseconds
+ #
+ _init(
+ qw(
+ 1972 Jul. 1 +1
+ 1973 Jan. 1 +1
+ 1974 Jan. 1 +1
+ 1975 Jan. 1 +1
+ 1976 Jan. 1 +1
+ 1977 Jan. 1 +1
+ 1978 Jan. 1 +1
+ 1979 Jan. 1 +1
+ 1980 Jan. 1 +1
+ 1981 Jul. 1 +1
+ 1982 Jul. 1 +1
+ 1983 Jul. 1 +1
+ 1985 Jul. 1 +1
+ 1988 Jan. 1 +1
+ 1990 Jan. 1 +1
+ 1991 Jan. 1 +1
+ 1992 Jul. 1 +1
+ 1993 Jul. 1 +1
+ 1994 Jul. 1 +1
+ 1996 Jan. 1 +1
+ 1997 Jul. 1 +1
+ 1999 Jan. 1 +1
+ 2006 Jan. 1 +1
+ 2009 Jan. 1 +1
+ 2012 Jul. 1 +1
+ 2015 Jul. 1 +1
+ 2017 Jan. 1 +1
+ )
+ );
+}
+
+__PACKAGE__->_initialize();
+
+1;
+
+# ABSTRACT: leap seconds table and utilities
+
+__END__
+
+=pod
+
+=encoding UTF-8
+
+=head1 NAME
+
+DateTime::LeapSecond - leap seconds table and utilities
+
+=head1 VERSION
+
+version 1.65
+
+=head1 SYNOPSIS
+
+ use DateTime;
+ use DateTime::LeapSecond;
+
+ print "Leap seconds between years 1990 and 2000 are ";
+ print DateTime::Leapsecond::leap_seconds($utc_rd_2000)
+ - DateTime::Leapsecond::leap_seconds($utc_rd_1990);
+
+=head1 DESCRIPTION
+
+This module is used to calculate leap seconds for a given Rata Die day. It is
+used when L<DateTime> cannot compile the XS version of this code.
+
+This library is known to be accurate for dates until Jun 2020.
+
+There are no leap seconds before 1972, because that's the year this system was
+implemented.
+
+=over 4
+
+=item * leap_seconds($rd)
+
+Returns the number of accumulated leap seconds for a given day.
+
+=item * extra_seconds($rd)
+
+Returns the number of leap seconds for a given day, in the range -2 .. 2.
+
+=item * day_length($rd)
+
+Returns the number of seconds for a given day, in the range 86398 .. 86402.
+
+=back
+
+=head1 SEE ALSO
+
+L<http://hpiers.obspm.fr/eop-pc/earthor/utc/leapsecond.html>
+
+=head1 SUPPORT
+
+Bugs may be submitted at L<https://github.com/houseabsolute/DateTime.pm/issues>.
+
+There is a mailing list available for users of this distribution,
+L<mailto:datetime@perl.org>.
+
+=head1 SOURCE
+
+The source code repository for DateTime can be found at L<https://github.com/houseabsolute/DateTime.pm>.
+
+=head1 AUTHOR
+
+Dave Rolsky <autarch@urth.org>
+
+=head1 COPYRIGHT AND LICENSE
+
+This software is Copyright (c) 2003 - 2023 by Dave Rolsky.
+
+This is free software, licensed under:
+
+ The Artistic License 2.0 (GPL Compatible)
+
+The full text of the license can be found in the
+F<LICENSE> file included with this distribution.
+
+=cut
--- /dev/null
+package DateTime::PP;
+
+use strict;
+use warnings;
+
+our $VERSION = '1.65';
+
+## no critic (Variables::ProhibitPackageVars)
+$DateTime::IsPurePerl = 1;
+## use critic
+
+my @MonthLengths = ( 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 );
+
+my @LeapYearMonthLengths = @MonthLengths;
+$LeapYearMonthLengths[1]++;
+
+my @EndOfLastMonthDayOfYear;
+{
+ my $x = 0;
+ foreach my $length (@MonthLengths) {
+ push @EndOfLastMonthDayOfYear, $x;
+ $x += $length;
+ }
+}
+
+my @EndOfLastMonthDayOfLeapYear = @EndOfLastMonthDayOfYear;
+$EndOfLastMonthDayOfLeapYear[$_]++ for 2 .. 11;
+
+## no critic (Subroutines::ProhibitUnusedPrivateSubroutines)
+sub _time_as_seconds {
+ shift;
+ my ( $hour, $min, $sec ) = @_;
+
+ $hour ||= 0;
+ $min ||= 0;
+ $sec ||= 0;
+
+ my $secs = $hour * 3600 + $min * 60 + $sec;
+ return $secs;
+}
+
+sub _rd2ymd {
+ my $class = shift;
+
+ use integer;
+ my $d = shift;
+ my $rd = $d;
+
+ my $yadj = 0;
+ my ( $c, $y, $m );
+
+ # add 306 days to make relative to Mar 1, 0
+ if ( ( $d += 306 ) <= 0 ) {
+
+ # avoid ambiguity in C division of negatives
+ $yadj = -( -$d / 146097 + 1 );
+ $d -= $yadj * 146097;
+ }
+
+ $c = ( $d * 4 - 1 )
+ / 146097; # calc # of centuries $d is after 29 Feb of yr 0
+ $d -= $c * 146097 / 4; # (4 centuries = 146097 days)
+ $y = ( $d * 4 - 1 ) / 1461; # calc number of years into the century,
+ $d -= $y * 1461 / 4; # again March-based (4 yrs =~ 146[01] days)
+ $m = ( $d * 12 + 1093 )
+ / 367; # get the month (3..14 represent March through
+ $d -= ( $m * 367 - 1094 ) / 12; # February of following year)
+ $y += $c * 100 + $yadj * 400; # get the real year, which is off by
+ # one if month is January or February
+
+ if ( $m > 12 ) {
+ ++$y;
+ $m -= 12;
+ }
+
+ if ( $_[0] ) {
+ my $dow;
+
+ if ( $rd < -6 ) {
+ $dow = ( $rd + 6 ) % 7;
+ $dow += $dow ? 8 : 1;
+ }
+ else {
+ $dow = ( ( $rd + 6 ) % 7 ) + 1;
+ }
+
+ my $doy = $class->_end_of_last_month_day_of_year( $y, $m );
+
+ $doy += $d;
+
+ my $quarter;
+ {
+ no integer;
+ $quarter = int( ( 1 / 3.1 ) * $m ) + 1;
+ }
+
+ my $qm = ( 3 * $quarter ) - 2;
+
+ my $doq
+ = ( $doy - $class->_end_of_last_month_day_of_year( $y, $qm ) );
+
+ return ( $y, $m, $d, $dow, $doy, $quarter, $doq );
+ }
+
+ return ( $y, $m, $d );
+}
+
+sub _ymd2rd {
+ shift; # ignore class
+
+ use integer;
+ my ( $y, $m, $d ) = @_;
+ my $adj;
+
+ # make month in range 3..14 (treat Jan & Feb as months 13..14 of
+ # prev year)
+ if ( $m <= 2 ) {
+ $y -= ( $adj = ( 14 - $m ) / 12 );
+ $m += 12 * $adj;
+ }
+ elsif ( $m > 14 ) {
+ $y += ( $adj = ( $m - 3 ) / 12 );
+ $m -= 12 * $adj;
+ }
+
+ # make year positive (oh, for a use integer 'sane_div'!)
+ if ( $y < 0 ) {
+ $d -= 146097 * ( $adj = ( 399 - $y ) / 400 );
+ $y += 400 * $adj;
+ }
+
+ # add: day of month, days of previous 0-11 month period that began
+ # w/March, days of previous 0-399 year period that began w/March
+ # of a 400-multiple year), days of any 400-year periods before
+ # that, and finally subtract 306 days to adjust from Mar 1, year
+ # 0-relative to Jan 1, year 1-relative (whew)
+
+ $d
+ += ( $m * 367 - 1094 ) / 12
+ + $y % 100 * 1461 / 4
+ + ( $y / 100 * 36524 + $y / 400 )
+ - 306;
+}
+
+sub _seconds_as_components {
+ shift;
+ my $secs = shift;
+ my $utc_secs = shift;
+ my $modifier = shift || 0;
+
+ use integer;
+
+ $secs -= $modifier;
+
+ my $hour = $secs / 3600;
+ $secs -= $hour * 3600;
+
+ my $minute = $secs / 60;
+
+ my $second = $secs - ( $minute * 60 );
+
+ if ( $utc_secs && $utc_secs >= 86400 ) {
+
+ # there is no such thing as +3 or more leap seconds!
+ die "Invalid UTC RD seconds value: $utc_secs"
+ if $utc_secs > 86401;
+
+ $second += $utc_secs - 86400 + 60;
+
+ $minute = 59;
+
+ $hour--;
+ $hour = 23 if $hour < 0;
+ }
+
+ return ( $hour, $minute, $second );
+}
+
+sub _end_of_last_month_day_of_year {
+ my $class = shift;
+
+ my ( $y, $m ) = @_;
+ $m--;
+ return (
+ $class->_is_leap_year($y)
+ ? $EndOfLastMonthDayOfLeapYear[$m]
+ : $EndOfLastMonthDayOfYear[$m]
+ );
+}
+
+sub _is_leap_year {
+ shift;
+ my $year = shift;
+
+ # According to Bjorn Tackmann, this line prevents an infinite loop
+ # when running the tests under Qemu. I cannot reproduce this on
+ # Ubuntu or with Strawberry Perl on Win2K.
+ return 0
+ if $year == DateTime::INFINITY() || $year == DateTime::NEG_INFINITY();
+ return 0 if $year % 4;
+ return 1 if $year % 100;
+ return 0 if $year % 400;
+
+ return 1;
+}
+
+sub _day_length { DateTime::LeapSecond::day_length( $_[1] ) }
+
+sub _accumulated_leap_seconds { DateTime::LeapSecond::leap_seconds( $_[1] ) }
+
+my @subs = qw(
+ _time_as_seconds
+ _rd2ymd
+ _ymd2rd
+ _seconds_as_components
+ _end_of_last_month_day_of_year
+ _is_leap_year
+ _day_length
+ _accumulated_leap_seconds
+);
+
+for my $sub (@subs) {
+ ## no critic (TestingAndDebugging::ProhibitNoStrict)
+ no strict 'refs';
+ *{ 'DateTime::' . $sub } = __PACKAGE__->can($sub);
+}
+
+# This is down here so that _ymd2rd is available when it loads,
+# because it will load DateTime::LeapSecond, which needs
+# DateTime->_ymd2rd to be available when it is loading
+require DateTime::PPExtra;
+
+1;
--- /dev/null
+package DateTime::PPExtra;
+
+use strict;
+use warnings;
+
+our $VERSION = '1.65';
+
+use DateTime::LeapSecond;
+
+## no critic (Subroutines::ProhibitUnusedPrivateSubroutines)
+sub _normalize_tai_seconds {
+ return
+ if
+ grep { $_ == DateTime::INFINITY() || $_ == DateTime::NEG_INFINITY() }
+ @_[ 1, 2 ];
+
+ # This must be after checking for infinity, because it breaks in
+ # presence of use integer !
+ use integer;
+
+ my $adj;
+
+ if ( $_[2] < 0 ) {
+ $adj = ( $_[2] - 86399 ) / 86400;
+ }
+ else {
+ $adj = $_[2] / 86400;
+ }
+
+ $_[1] += $adj;
+
+ $_[2] -= $adj * 86400;
+}
+
+sub _normalize_leap_seconds {
+
+ # args: 0 => days, 1 => seconds
+ my $delta_days;
+
+ use integer;
+
+ # rough adjust - can adjust many days
+ if ( $_[2] < 0 ) {
+ $delta_days = ( $_[2] - 86399 ) / 86400;
+ }
+ else {
+ $delta_days = $_[2] / 86400;
+ }
+
+ my $new_day = $_[1] + $delta_days;
+ my $delta_seconds
+ = ( 86400 * $delta_days )
+ + DateTime::LeapSecond::leap_seconds($new_day)
+ - DateTime::LeapSecond::leap_seconds( $_[1] );
+
+ $_[2] -= $delta_seconds;
+ $_[1] = $new_day;
+
+ # fine adjust - up to 1 day
+ my $day_length = DateTime::LeapSecond::day_length($new_day);
+ if ( $_[2] >= $day_length ) {
+ $_[2] -= $day_length;
+ $_[1]++;
+ }
+ elsif ( $_[2] < 0 ) {
+ $day_length = DateTime::LeapSecond::day_length( $new_day - 1 );
+ $_[2] += $day_length;
+ $_[1]--;
+ }
+}
+
+my @subs = qw(
+ _normalize_tai_seconds
+ _normalize_leap_seconds
+);
+
+for my $sub (@subs) {
+ ## no critic (TestingAndDebugging::ProhibitNoStrict)
+ no strict 'refs';
+ *{ 'DateTime::' . $sub } = __PACKAGE__->can($sub);
+}
+
+1;
--- /dev/null
+package DateTime::Types;
+
+use strict;
+use warnings;
+use namespace::autoclean;
+
+our $VERSION = '1.65';
+
+use parent 'Specio::Exporter';
+
+use Specio 0.18;
+use Specio::Declare;
+use Specio::Library::Builtins -reexport;
+use Specio::Library::Numeric -reexport;
+use Specio::Library::String;
+
+any_can_type(
+ 'ConvertibleObject',
+ methods => ['utc_rd_values'],
+);
+
+declare(
+ 'DayOfMonth',
+ parent => t('Int'),
+ inline => sub {
+ $_[0]->parent->inline_check( $_[1] )
+ . " && $_[1] >= 1 && $_[1] <= 31";
+ },
+);
+
+declare(
+ 'DayOfYear',
+ parent => t('Int'),
+ inline => sub {
+ $_[0]->parent->inline_check( $_[1] )
+ . " && $_[1] >= 1 && $_[1] <= 366";
+ },
+);
+
+object_isa_type(
+ 'Duration',
+ class => 'DateTime::Duration',
+);
+
+enum(
+ 'EndOfMonthMode',
+ values => [qw( wrap limit preserve )],
+);
+
+any_can_type(
+ 'Formatter',
+ methods => ['format_datetime'],
+);
+
+my $locale_object = declare(
+ 'LocaleObject',
+ parent => t('Object'),
+ inline => sub {
+
+ # Can't use $_[1] directly because 5.8 gives very weird errors
+ my $var = $_[1];
+ <<"EOF";
+(
+ $var->isa('DateTime::Locale::FromData')
+ || $var->isa('DateTime::Locale::Base')
+)
+EOF
+ },
+);
+
+union(
+ 'Locale',
+ of => [ t('NonEmptySimpleStr'), $locale_object ],
+);
+
+my $time_zone_object = object_can_type(
+ 'TZObject',
+ methods => [
+ qw(
+ is_floating
+ is_utc
+ name
+ offset_for_datetime
+ short_name_for_datetime
+ )
+ ],
+);
+
+declare(
+ 'TimeZone',
+ of => [ t('NonEmptySimpleStr'), $time_zone_object ],
+);
+
+declare(
+ 'Hour',
+ parent => t('PositiveOrZeroInt'),
+ inline => sub {
+ $_[0]->parent->inline_check( $_[1] )
+ . " && $_[1] >= 0 && $_[1] <= 23";
+ },
+);
+
+declare(
+ 'Minute',
+ parent => t('PositiveOrZeroInt'),
+ inline => sub {
+ $_[0]->parent->inline_check( $_[1] )
+ . " && $_[1] >= 0 && $_[1] <= 59";
+ },
+);
+
+declare(
+ 'Month',
+ parent => t('PositiveInt'),
+ inline => sub {
+ $_[0]->parent->inline_check( $_[1] )
+ . " && $_[1] >= 1 && $_[1] <= 12";
+ },
+);
+
+declare(
+ 'Nanosecond',
+ parent => t('PositiveOrZeroInt'),
+);
+
+declare(
+ 'Second',
+ parent => t('PositiveOrZeroInt'),
+ inline => sub {
+ $_[0]->parent->inline_check( $_[1] )
+ . " && $_[1] >= 0 && $_[1] <= 61";
+ },
+);
+
+enum(
+ 'TruncationLevel',
+ values => [
+ qw(
+ year
+ quarter
+ month
+ day hour
+ minute
+ second
+ nanosecond
+ week
+ local_week
+ )
+ ],
+);
+
+declare(
+ 'Year',
+ parent => t('Int'),
+);
+
+1;
+
+# ABSTRACT: Types used for parameter checking in DateTime
+
+__END__
+
+=pod
+
+=encoding UTF-8
+
+=head1 NAME
+
+DateTime::Types - Types used for parameter checking in DateTime
+
+=head1 VERSION
+
+version 1.65
+
+=head1 DESCRIPTION
+
+This module has no user-facing parts.
+
+=for Pod::Coverage .*
+
+=head1 SUPPORT
+
+Bugs may be submitted at L<https://github.com/houseabsolute/DateTime.pm/issues>.
+
+There is a mailing list available for users of this distribution,
+L<mailto:datetime@perl.org>.
+
+=head1 SOURCE
+
+The source code repository for DateTime can be found at L<https://github.com/houseabsolute/DateTime.pm>.
+
+=head1 AUTHOR
+
+Dave Rolsky <autarch@urth.org>
+
+=head1 COPYRIGHT AND LICENSE
+
+This software is Copyright (c) 2003 - 2023 by Dave Rolsky.
+
+This is free software, licensed under:
+
+ The Artistic License 2.0 (GPL Compatible)
+
+The full text of the license can be found in the
+F<LICENSE> file included with this distribution.
+
+=cut
--- /dev/null
+severity = 3
+verbose = 11
+theme = (core && (pbp || bugs || maintenance || cosmetic || complexity || security || tests)) || moose
+program-extensions = pl psgi t
+
+exclude = Subroutines::ProhibitCallsToUndeclaredSubs
+
+[BuiltinFunctions::ProhibitStringySplit]
+severity = 3
+
+[CodeLayout::RequireTrailingCommas]
+severity = 3
+
+[ControlStructures::ProhibitCStyleForLoops]
+severity = 3
+
+[InputOutput::RequireCheckedSyscalls]
+functions = :builtins
+exclude_functions = sleep
+severity = 3
+
+[RegularExpressions::ProhibitComplexRegexes]
+max_characters = 200
+
+[RegularExpressions::ProhibitUnusualDelimiters]
+severity = 3
+
+[Subroutines::ProhibitUnusedPrivateSubroutines]
+private_name_regex = _(?!build)\w+
+
+[TestingAndDebugging::ProhibitNoWarnings]
+allow = redefine
+
+[ValuesAndExpressions::ProhibitEmptyQuotes]
+severity = 3
+
+[ValuesAndExpressions::ProhibitInterpolationOfLiterals]
+severity = 3
+
+[ValuesAndExpressions::RequireUpperCaseHeredocTerminator]
+severity = 3
+
+[Variables::ProhibitPackageVars]
+add_packages = Carp Test::Builder
+
+[-Subroutines::RequireFinalReturn]
+
+# This incorrectly thinks signatures are prototypes.
+[-Subroutines::ProhibitSubroutinePrototypes]
+
+[-ErrorHandling::RequireCarping]
+
+# No need for /xsm everywhere
+[-RegularExpressions::RequireDotMatchAnything]
+[-RegularExpressions::RequireExtendedFormatting]
+[-RegularExpressions::RequireLineBoundaryMatching]
+
+# http://stackoverflow.com/questions/2275317/why-does-perlcritic-dislike-using-shift-to-populate-subroutine-variables
+[-Subroutines::RequireArgUnpacking]
+
+# "use v5.14" is more readable than "use 5.014"
+[-ValuesAndExpressions::ProhibitVersionStrings]
+
+# Explicitly returning undef is a _good_ thing in many cases, since it
+# prevents very common errors when using a sub in list context to construct a
+# hash and ending up with a missing value or key.
+[-Subroutines::ProhibitExplicitReturnUndef]
+
+# Sometimes I want to write "return unless $x > 4"
+[-ControlStructures::ProhibitNegativeExpressionsInUnlessAndUntilConditions]
+
+# We've removed "second" from the forbidden list since it's pretty unambiguous
+# in DateTime
+[NamingConventions::ProhibitAmbiguousNames]
+forbid = abstract bases close contract last left no record right set
--- /dev/null
+-l=78
+-i=4
+-ci=4
+-se
+-b
+-bar
+-boc
+-vt=0
+-vtc=0
+-cti=0
+-pt=1
+-bt=1
+-sbt=1
+-bbt=1
+-nolq
+-npro
+-nsfs
+--blank-lines-before-packages=0
+--opening-hash-brace-right
+--no-outdent-long-comments
+--iterations=2
+-wbb="% + - * / x != == >= <= =~ !~ < > | & >= < = **= += *= &= <<= &&= -= /= |= >>= ||= .= %= ^= x="
--- /dev/null
+#if 0
+my $void = <<'SKIP';
+#endif
+/*
+----------------------------------------------------------------------
+
+ ppport.h -- Perl/Pollution/Portability Version 3.68
+
+ Automatically created by Devel::PPPort running under perl 5.032001.
+
+ Do NOT edit this file directly! -- Edit PPPort_pm.PL and the
+ includes in parts/inc/ instead.
+
+ Use 'perldoc ppport.h' to view the documentation below.
+
+----------------------------------------------------------------------
+
+SKIP
+
+=pod
+
+=head1 NAME
+
+ppport.h - Perl/Pollution/Portability version 3.68
+
+=head1 SYNOPSIS
+
+ perl ppport.h [options] [source files]
+
+ Searches current directory for files if no [source files] are given
+
+ --help show short help
+
+ --version show version
+
+ --patch=file write one patch file with changes
+ --copy=suffix write changed copies with suffix
+ --diff=program use diff program and options
+
+ --compat-version=version provide compatibility with Perl version
+ --cplusplus accept C++ comments
+
+ --quiet don't output anything except fatal errors
+ --nodiag don't show diagnostics
+ --nohints don't show hints
+ --nochanges don't suggest changes
+ --nofilter don't filter input files
+
+ --strip strip all script and doc functionality
+ from ppport.h
+
+ --list-provided list provided API
+ --list-unsupported list API that isn't supported all the way
+ back
+ --api-info=name show Perl API portability information
+
+=head1 COMPATIBILITY
+
+This version of F<ppport.h> is designed to support operation with Perl
+installations back to 5.003_07, and has been tested up to 5.35.9.
+
+=head1 OPTIONS
+
+=head2 --help
+
+Display a brief usage summary.
+
+=head2 --version
+
+Display the version of F<ppport.h>.
+
+=head2 --patch=I<file>
+
+If this option is given, a single patch file will be created if
+any changes are suggested. This requires a working diff program
+to be installed on your system.
+
+=head2 --copy=I<suffix>
+
+If this option is given, a copy of each file will be saved with
+the given suffix that contains the suggested changes. This does
+not require any external programs. Note that this does not
+automagically add a dot between the original filename and the
+suffix. If you want the dot, you have to include it in the option
+argument.
+
+If neither C<--patch> or C<--copy> are given, the default is to
+simply print the diffs for each file. This requires either
+C<Text::Diff> or a C<diff> program to be installed.
+
+=head2 --diff=I<program>
+
+Manually set the diff program and options to use. The default
+is to use C<Text::Diff>, when installed, and output unified
+context diffs.
+
+=head2 --compat-version=I<version>
+
+Tell F<ppport.h> to check for compatibility with the given
+Perl version. The default is to check for compatibility with Perl
+version 5.003_07. You can use this option to reduce the output
+of F<ppport.h> if you intend to be backward compatible only
+down to a certain Perl version.
+
+=head2 --cplusplus
+
+Usually, F<ppport.h> will detect C++ style comments and
+replace them with C style comments for portability reasons.
+Using this option instructs F<ppport.h> to leave C++
+comments untouched.
+
+=head2 --quiet
+
+Be quiet. Don't print anything except fatal errors.
+
+=head2 --nodiag
+
+Don't output any diagnostic messages. Only portability
+alerts will be printed.
+
+=head2 --nohints
+
+Don't output any hints. Hints often contain useful portability
+notes. Warnings will still be displayed.
+
+=head2 --nochanges
+
+Don't suggest any changes. Only give diagnostic output and hints
+unless these are also deactivated.
+
+=head2 --nofilter
+
+Don't filter the list of input files. By default, files not looking
+like source code (i.e. not *.xs, *.c, *.cc, *.cpp or *.h) are skipped.
+
+=head2 --strip
+
+Strip all script and documentation functionality from F<ppport.h>.
+This reduces the size of F<ppport.h> dramatically and may be useful
+if you want to include F<ppport.h> in smaller modules without
+increasing their distribution size too much.
+
+The stripped F<ppport.h> will have a C<--unstrip> option that allows
+you to undo the stripping, but only if an appropriate C<Devel::PPPort>
+module is installed.
+
+=head2 --list-provided
+
+Lists the API elements for which compatibility is provided by
+F<ppport.h>. Also lists if it must be explicitly requested,
+if it has dependencies, and if there are hints or warnings for it.
+
+=head2 --list-unsupported
+
+Lists the API elements that are known not to be FULLY supported by F<ppport.h>,
+and below which version of Perl they probably won't be available or work.
+By FULLY, we mean that support isn't provided all the way back to the first
+version of Perl that F<ppport.h> supports at all.
+
+=head2 --api-info=I<name>
+
+Show portability information for elements matching I<name>.
+If I<name> is surrounded by slashes, it is interpreted as a regular
+expression.
+
+Normally, only API elements are shown, but if there are no matching API
+elements but there are some other matching elements, those are shown. This
+allows you to conveniently find when functions internal to the core
+implementation were added; only people working on the core are likely to find
+this last part useful.
+
+=head1 DESCRIPTION
+
+In order for a Perl extension (XS) module to be as portable as possible
+across differing versions of Perl itself, certain steps need to be taken.
+
+=over 4
+
+=item *
+
+Including this header is the first major one. This alone will give you
+access to a large part of the Perl API that hasn't been available in
+earlier Perl releases. Use
+
+ perl ppport.h --list-provided
+
+to see which API elements are provided by ppport.h.
+
+=item *
+
+You should avoid using deprecated parts of the API. For example, using
+global Perl variables without the C<PL_> prefix is deprecated. Also,
+some API functions used to have a C<perl_> prefix. Using this form is
+also deprecated. You can safely use the supported API, as F<ppport.h>
+will provide wrappers for older Perl versions.
+
+=item *
+
+Although the purpose of F<ppport.h> is to keep you from having to concern
+yourself with what version you are running under, there may arise instances
+where you have to do so. These macros, the same ones as in base Perl, are
+available to you in all versions, and are what you should use:
+
+=over 4
+
+=item C<PERL_VERSION_I<xx>(major, minor, patch)>
+
+Returns whether or not the perl currently being compiled has the specified
+relationship I<xx> to the perl given by the parameters. I<xx> is one of
+C<EQ>, C<NE>, C<LT>, C<LE>, C<GT>, C<GE>.
+
+For example,
+
+ #if PERL_VERSION_GT(5,24,2)
+ code that will only be compiled on perls after v5.24.2
+ #else
+ fallback code
+ #endif
+
+Note that this is usable in making compile-time decisions
+
+You may use the special value '*' for the final number to mean ALL possible
+values for it. Thus,
+
+ #if PERL_VERSION_EQ(5,31,'*')
+
+means all perls in the 5.31 series. And
+
+ #if PERL_VERSION_NE(5,24,'*')
+
+means all perls EXCEPT 5.24 ones. And
+
+ #if PERL_VERSION_LE(5,9,'*')
+
+is effectively
+
+ #if PERL_VERSION_LT(5,10,0)
+
+=back
+
+=item *
+
+If you use one of a few functions or variables that were not present in
+earlier versions of Perl, and that can't be provided using a macro, you
+have to explicitly request support for these functions by adding one or
+more C<#define>s in your source code before the inclusion of F<ppport.h>.
+
+These functions or variables will be marked C<explicit> in the list shown
+by C<--list-provided>.
+
+Depending on whether you module has a single or multiple files that
+use such functions or variables, you want either C<static> or global
+variants.
+
+For a C<static> function or variable (used only in a single source
+file), use:
+
+ #define NEED_function
+ #define NEED_variable
+
+For a global function or variable (used in multiple source files),
+use:
+
+ #define NEED_function_GLOBAL
+ #define NEED_variable_GLOBAL
+
+Note that you mustn't have more than one global request for the
+same function or variable in your project.
+
+ Function / Variable Static Request Global Request
+ -----------------------------------------------------------------------------------------
+ caller_cx() NEED_caller_cx NEED_caller_cx_GLOBAL
+ ck_warner() NEED_ck_warner NEED_ck_warner_GLOBAL
+ ck_warner_d() NEED_ck_warner_d NEED_ck_warner_d_GLOBAL
+ croak_xs_usage() NEED_croak_xs_usage NEED_croak_xs_usage_GLOBAL
+ die_sv() NEED_die_sv NEED_die_sv_GLOBAL
+ eval_pv() NEED_eval_pv NEED_eval_pv_GLOBAL
+ grok_bin() NEED_grok_bin NEED_grok_bin_GLOBAL
+ grok_hex() NEED_grok_hex NEED_grok_hex_GLOBAL
+ grok_number() NEED_grok_number NEED_grok_number_GLOBAL
+ grok_numeric_radix() NEED_grok_numeric_radix NEED_grok_numeric_radix_GLOBAL
+ grok_oct() NEED_grok_oct NEED_grok_oct_GLOBAL
+ load_module() NEED_load_module NEED_load_module_GLOBAL
+ mess() NEED_mess NEED_mess_GLOBAL
+ mess_nocontext() NEED_mess_nocontext NEED_mess_nocontext_GLOBAL
+ mess_sv() NEED_mess_sv NEED_mess_sv_GLOBAL
+ mg_findext() NEED_mg_findext NEED_mg_findext_GLOBAL
+ my_snprintf() NEED_my_snprintf NEED_my_snprintf_GLOBAL
+ my_sprintf() NEED_my_sprintf NEED_my_sprintf_GLOBAL
+ my_strlcat() NEED_my_strlcat NEED_my_strlcat_GLOBAL
+ my_strlcpy() NEED_my_strlcpy NEED_my_strlcpy_GLOBAL
+ my_strnlen() NEED_my_strnlen NEED_my_strnlen_GLOBAL
+ newCONSTSUB() NEED_newCONSTSUB NEED_newCONSTSUB_GLOBAL
+ newSVpvn_share() NEED_newSVpvn_share NEED_newSVpvn_share_GLOBAL
+ PL_parser NEED_PL_parser NEED_PL_parser_GLOBAL
+ PL_signals NEED_PL_signals NEED_PL_signals_GLOBAL
+ pv_display() NEED_pv_display NEED_pv_display_GLOBAL
+ pv_escape() NEED_pv_escape NEED_pv_escape_GLOBAL
+ pv_pretty() NEED_pv_pretty NEED_pv_pretty_GLOBAL
+ sv_catpvf_mg() NEED_sv_catpvf_mg NEED_sv_catpvf_mg_GLOBAL
+ sv_catpvf_mg_nocontext() NEED_sv_catpvf_mg_nocontext NEED_sv_catpvf_mg_nocontext_GLOBAL
+ sv_setpvf_mg() NEED_sv_setpvf_mg NEED_sv_setpvf_mg_GLOBAL
+ sv_setpvf_mg_nocontext() NEED_sv_setpvf_mg_nocontext NEED_sv_setpvf_mg_nocontext_GLOBAL
+ sv_unmagicext() NEED_sv_unmagicext NEED_sv_unmagicext_GLOBAL
+ utf8_to_uvchr_buf() NEED_utf8_to_uvchr_buf NEED_utf8_to_uvchr_buf_GLOBAL
+ vload_module() NEED_vload_module NEED_vload_module_GLOBAL
+ vmess() NEED_vmess NEED_vmess_GLOBAL
+ warner() NEED_warner NEED_warner_GLOBAL
+
+To avoid namespace conflicts, you can change the namespace of the
+explicitly exported functions / variables using the C<DPPP_NAMESPACE>
+macro. Just C<#define> the macro before including C<ppport.h>:
+
+ #define DPPP_NAMESPACE MyOwnNamespace_
+ #include "ppport.h"
+
+The default namespace is C<DPPP_>.
+
+=back
+
+The good thing is that most of the above can be checked by running
+F<ppport.h> on your source code. See the next section for
+details.
+
+=head1 EXAMPLES
+
+To verify whether F<ppport.h> is needed for your module, whether you
+should make any changes to your code, and whether any special defines
+should be used, F<ppport.h> can be run as a Perl script to check your
+source code. Simply say:
+
+ perl ppport.h
+
+The result will usually be a list of patches suggesting changes
+that should at least be acceptable, if not necessarily the most
+efficient solution, or a fix for all possible problems.
+
+If you know that your XS module uses features only available in
+newer Perl releases, if you're aware that it uses C++ comments,
+and if you want all suggestions as a single patch file, you could
+use something like this:
+
+ perl ppport.h --compat-version=5.6.0 --cplusplus --patch=test.diff
+
+If you only want your code to be scanned without any suggestions
+for changes, use:
+
+ perl ppport.h --nochanges
+
+You can specify a different C<diff> program or options, using
+the C<--diff> option:
+
+ perl ppport.h --diff='diff -C 10'
+
+This would output context diffs with 10 lines of context.
+
+If you want to create patched copies of your files instead, use:
+
+ perl ppport.h --copy=.new
+
+To display portability information for the C<newSVpvn> function,
+use:
+
+ perl ppport.h --api-info=newSVpvn
+
+Since the argument to C<--api-info> can be a regular expression,
+you can use
+
+ perl ppport.h --api-info=/_nomg$/
+
+to display portability information for all C<_nomg> functions or
+
+ perl ppport.h --api-info=/./
+
+to display information for all known API elements.
+
+=head1 BUGS
+
+Some of the suggested edits and/or generated patches may not compile as-is
+without tweaking manually. This is generally due to the need for an extra
+parameter to be added to the call to prevent buffer overflow.
+
+If this version of F<ppport.h> is causing failure during
+the compilation of this module, please check if newer versions
+of either this module or C<Devel::PPPort> are available on CPAN
+before sending a bug report.
+
+If F<ppport.h> was generated using the latest version of
+C<Devel::PPPort> and is causing failure of this module, please
+file a bug report at L<https://github.com/Dual-Life/Devel-PPPort/issues>
+
+Please include the following information:
+
+=over 4
+
+=item 1.
+
+The complete output from running "perl -V"
+
+=item 2.
+
+This file.
+
+=item 3.
+
+The name and version of the module you were trying to build.
+
+=item 4.
+
+A full log of the build that failed.
+
+=item 5.
+
+Any other information that you think could be relevant.
+
+=back
+
+For the latest version of this code, please get the C<Devel::PPPort>
+module from CPAN.
+
+=head1 COPYRIGHT
+
+Version 3.x, Copyright (c) 2004-2013, Marcus Holland-Moritz.
+
+Version 2.x, Copyright (C) 2001, Paul Marquess.
+
+Version 1.x, Copyright (C) 1999, Kenneth Albanowski.
+
+This program is free software; you can redistribute it and/or
+modify it under the same terms as Perl itself.
+
+=head1 SEE ALSO
+
+See L<Devel::PPPort>.
+
+=cut
+
+# These are tools that must be included in ppport.h. It doesn't work if given
+# a .pl suffix.
+#
+# WARNING: Use only constructs that are legal as far back as D:P handles, as
+# this is run in the perl version being tested.
+
+# What revisions are legal, to be output as-is and converted into a pattern
+# that matches them precisely
+my $r_pat = "[57]";
+
+sub format_version
+{
+ # Given an input version that is acceptable to parse_version(), return a
+ # string of the standard representation of it.
+
+ my($r,$v,$s) = parse_version(shift);
+
+ if ($r < 5 || ($r == 5 && $v < 6)) {
+ my $ver = sprintf "%d.%03d", $r, $v;
+ $s > 0 and $ver .= sprintf "_%02d", $s;
+
+ return $ver;
+ }
+
+ return sprintf "%d.%d.%d", $r, $v, $s;
+}
+
+sub parse_version
+{
+ # Returns a triplet, (revision, major, minor) from the input, treated as a
+ # string, which can be in any of several typical formats.
+
+ my $ver = shift;
+ $ver = "" unless defined $ver;
+
+ my($r,$v,$s);
+
+ if ( ($r, $v, $s) = $ver =~ /^([0-9]+)([0-9]{3})([0-9]{3})$/ # 5029010, from the file
+ # names in our
+ # parts/base/ and
+ # parts/todo directories
+ or ($r, $v, $s) = $ver =~ /^([0-9]+)\.([0-9]+)\.([0-9]+)$/ # 5.25.7
+ or ($r, $v, $s) = $ver =~ /^([0-9]+)\.([0-9]{3})([0-9]{3})$/ # 5.025008, from the
+ # output of $]
+ or ($r, $v, $s) = $ver =~ /^([0-9]+)\.([0-9]{1,3})()$/ # 5.24, 5.004
+ or ($r, $v, $s) = $ver =~ /^([0-9]+)\.(00[1-5])_?([0-9]{2})$/ # 5.003_07
+ ) {
+
+ $s = 0 unless $s;
+
+ die "Only Perl $r_pat are supported '$ver'\n" unless $r =~ / ^ $r_pat $ /x;
+ die "Invalid version number: $ver\n" if $v >= 1000 || $s >= 1000;
+ return (0 +$r, 0 + $v, 0 + $s);
+ }
+
+ # For some safety, don't assume something is a version number if it has a
+ # literal dot as one of the three characters. This will have to be fixed
+ # when we reach x.46 (since 46 is ord('.'))
+ if ($ver !~ /\./ && (($r, $v, $s) = $ver =~ /^(.)(.)(.)$/)) # vstring 5.25.7
+ {
+ $r = ord $r;
+ $v = ord $v;
+ $s = ord $s;
+
+ die "Only Perl $r_pat are supported '$ver'\n" unless $r =~ / ^ $r_pat $ /x;
+ return ($r, $v, $s);
+ }
+
+ my $mesg = "";
+ $mesg = ". (In 5.00x_yz, x must be 1-5.)" if $ver =~ /_/;
+ die "Invalid version number format: '$ver'$mesg\n";
+}
+
+sub int_parse_version
+{
+ # Returns integer 7 digit human-readable version, suitable for use in file
+ # names in parts/todo parts/base.
+
+ return 0 + join "", map { sprintf("%03d", $_) } parse_version(shift);
+}
+
+sub ivers # Shorter name for int_parse_version
+{
+ return int_parse_version(shift);
+}
+
+sub format_version_line
+{
+ # Returns a floating point representation of the input version
+
+ my $version = int_parse_version(shift);
+ $version =~ s/ ^ ( $r_pat ) \B /$1./x;
+ return $version;
+}
+
+BEGIN {
+ if ("$]" < "5.006" ) {
+ # On early perls, the implicit pass by reference doesn't work, so we have
+ # to use the globals to initialize.
+ eval q[sub dictionary_order($$) { _dictionary_order($a, $b) } ];
+ } elsif ("$]" < "5.022" ) {
+ eval q[sub dictionary_order($$) { _dictionary_order(@_) } ];
+ } else {
+ eval q[sub dictionary_order :prototype($$) { _dictionary_order(@_) } ];
+ }
+}
+
+sub _dictionary_order { # Sort caselessly, ignoring punct
+ my ($valid_a, $valid_b) = @_;
+
+ my ($lc_a, $lc_b);
+ my ($squeezed_a, $squeezed_b);
+
+ $valid_a = '' unless defined $valid_a;
+ $valid_b = '' unless defined $valid_b;
+
+ $lc_a = lc $valid_a;
+ $lc_b = lc $valid_b;
+
+ $squeezed_a = $lc_a;
+ $squeezed_a =~ s/^_+//g; # No leading underscores
+ $squeezed_a =~ s/\B_+\B//g; # No connecting underscores
+ $squeezed_a =~ s/[\W]//g; # No punct
+
+ $squeezed_b = $lc_b;
+ $squeezed_b =~ s/^_+//g;
+ $squeezed_b =~ s/\B_+\B//g;
+ $squeezed_b =~ s/[\W]//g;
+
+ return( $squeezed_a cmp $squeezed_b
+ or $lc_a cmp $lc_b
+ or $valid_a cmp $valid_b);
+}
+
+sub sort_api_lines # Sort lines of the form flags|return|name|args...
+ # by 'name'
+{
+ $a =~ / ^ [^|]* \| [^|]* \| ( [^|]* ) /x; # 3rd field '|' is sep
+ my $a_name = $1;
+ $b =~ / ^ [^|]* \| [^|]* \| ( [^|]* ) /x;
+ my $b_name = $1;
+ return dictionary_order($a_name, $b_name);
+}
+
+1;
+
+use strict;
+
+BEGIN { require warnings if "$]" > '5.006' }
+
+# Disable broken TRIE-optimization
+BEGIN { eval '${^RE_TRIE_MAXBUF} = -1' if "$]" >= "5.009004" && "$]" <= "5.009005"}
+
+my $VERSION = 3.68;
+
+my %opt = (
+ quiet => 0,
+ diag => 1,
+ hints => 1,
+ changes => 1,
+ cplusplus => 0,
+ filter => 1,
+ strip => 0,
+ version => 0,
+);
+
+my($ppport) = $0 =~ /([\w.]+)$/;
+my $LF = '(?:\r\n|[\r\n])'; # line feed
+my $HS = "[ \t]"; # horizontal whitespace
+
+# Never use C comments in this file!
+my $ccs = '/'.'*';
+my $cce = '*'.'/';
+my $rccs = quotemeta $ccs;
+my $rcce = quotemeta $cce;
+
+eval {
+ require Getopt::Long;
+ Getopt::Long::GetOptions(\%opt, qw(
+ help quiet diag! filter! hints! changes! cplusplus strip version
+ patch=s copy=s diff=s compat-version=s
+ list-provided list-unsupported api-info=s
+ )) or usage();
+};
+
+if ($@ and grep /^-/, @ARGV) {
+ usage() if "@ARGV" =~ /^--?h(?:elp)?$/;
+ die "Getopt::Long not found. Please don't use any options.\n";
+}
+
+if ($opt{version}) {
+ print "This is $0 $VERSION.\n";
+ exit 0;
+}
+
+usage() if $opt{help};
+strip() if $opt{strip};
+
+$opt{'compat-version'} = 5.003_07 unless exists $opt{'compat-version'};
+$opt{'compat-version'} = int_parse_version($opt{'compat-version'});
+
+my $int_min_perl = int_parse_version(5.003_07);
+
+# Each element of this hash looks something like:
+# 'Poison' => {
+# 'base' => '5.008000',
+# 'provided' => 1,
+# 'todo' => '5.003007'
+# },
+my %API = map { /^(\w+)\|([^|]*)\|([^|]*)\|(\w*)$/
+ ? ( $1 => {
+ ($2 ? ( base => $2 ) : ()),
+ ($3 ? ( todo => $3 ) : ()),
+ (index($4, 'v') >= 0 ? ( varargs => 1 ) : ()),
+ (index($4, 'p') >= 0 ? ( provided => 1 ) : ()),
+ (index($4, 'n') >= 0 ? ( noTHXarg => 1 ) : ()),
+ (index($4, 'c') >= 0 ? ( core_only => 1 ) : ()),
+ (index($4, 'd') >= 0 ? ( deprecated => 1 ) : ()),
+ (index($4, 'i') >= 0 ? ( inaccessible => 1 ) : ()),
+ (index($4, 'x') >= 0 ? ( experimental => 1 ) : ()),
+ (index($4, 'u') >= 0 ? ( undocumented => 1 ) : ()),
+ (index($4, 'o') >= 0 ? ( ppport_fnc => 1 ) : ()),
+ (index($4, 'V') >= 0 ? ( unverified => 1 ) : ()),
+ } )
+ : die "invalid spec: $_" } qw(
+ABDAY_1|5.027010||Viu
+ABDAY_2|5.027010||Viu
+ABDAY_3|5.027010||Viu
+ABDAY_4|5.027010||Viu
+ABDAY_5|5.027010||Viu
+ABDAY_6|5.027010||Viu
+ABDAY_7|5.027010||Viu
+ABMON_10|5.027010||Viu
+ABMON_11|5.027010||Viu
+ABMON_12|5.027010||Viu
+ABMON_1|5.027010||Viu
+ABMON_2|5.027010||Viu
+ABMON_3|5.027010||Viu
+ABMON_4|5.027010||Viu
+ABMON_5|5.027010||Viu
+ABMON_6|5.027010||Viu
+ABMON_7|5.027010||Viu
+ABMON_8|5.027010||Viu
+ABMON_9|5.027010||Viu
+ABORT|5.003007||Viu
+abort|5.005000||Viu
+abort_execution|5.025010||Viu
+accept|5.005000||Viu
+ACCEPT|5.009005||Viu
+ACCEPT_t8|5.035004||Viu
+ACCEPT_t8_p8|5.033003||Viu
+ACCEPT_t8_pb|5.033003||Viu
+ACCEPT_tb|5.035004||Viu
+ACCEPT_tb_p8|5.033003||Viu
+ACCEPT_tb_pb|5.033003||Viu
+access|5.005000||Viu
+add_above_Latin1_folds|5.021001||Viu
+add_cp_to_invlist|5.013011||Viu
+add_data|5.005000||Vniu
+add_multi_match|5.021004||Viu
+_add_range_to_invlist|5.016000||cViu
+add_utf16_textfilter|5.011001||Viu
+adjust_size_and_find_bucket|5.019003||Vniu
+advance_one_LB|5.023007||Viu
+advance_one_SB|5.021009||Viu
+advance_one_WB|5.021009||Viu
+AHOCORASICK|5.009005||Viu
+AHOCORASICKC|5.009005||Viu
+AHOCORASICKC_t8|5.035004||Viu
+AHOCORASICKC_t8_p8|5.033003||Viu
+AHOCORASICKC_t8_pb|5.033003||Viu
+AHOCORASICKC_tb|5.035004||Viu
+AHOCORASICKC_tb_p8|5.033003||Viu
+AHOCORASICKC_tb_pb|5.033003||Viu
+AHOCORASICK_t8|5.035004||Viu
+AHOCORASICK_t8_p8|5.033003||Viu
+AHOCORASICK_t8_pb|5.033003||Viu
+AHOCORASICK_tb|5.035004||Viu
+AHOCORASICK_tb_p8|5.033003||Viu
+AHOCORASICK_tb_pb|5.033003||Viu
+ALIGNED_TYPE_NAME|||Viu
+ALIGNED_TYPE|||Viu
+alloccopstash|5.017001|5.017001|x
+alloc_LOGOP|5.025004||xViu
+allocmy|5.008001||Viu
+ALLOC_THREAD_KEY|5.005003||Viu
+ALT_DIGITS|5.027010||Viu
+amagic_call|5.003007|5.003007|u
+amagic_cmp|5.009003||Viu
+amagic_cmp_desc|5.031011||Viu
+amagic_cmp_locale|5.009003||Viu
+amagic_cmp_locale_desc|5.031011||Viu
+amagic_deref_call|5.013007|5.013007|u
+amagic_i_ncmp|5.009003||Viu
+amagic_i_ncmp_desc|5.031011||Viu
+amagic_is_enabled|5.015008||Viu
+amagic_ncmp|5.009003||Viu
+amagic_ncmp_desc|5.031011||Viu
+AMG_CALLun|5.003007||Viu
+AMG_CALLunary|5.013009||Viu
+AMGfallNEVER|5.003007||Viu
+AMGfallNO|5.003007||Viu
+AMGfallYES|5.003007||Viu
+AMGf_assign|5.003007||Viu
+AMGf_noleft|5.003007||Viu
+AMGf_noright|5.003007||Viu
+AMGf_numarg|5.021009||Viu
+AMGf_numeric|5.013002||Viu
+AMGf_unary|5.003007||Viu
+AMGf_want_list|5.017002||Viu
+AM_STR|5.027010||Viu
+AMT_AMAGIC|5.004000||Viu
+AMT_AMAGIC_off|5.004000||Viu
+AMT_AMAGIC_on|5.004000||Viu
+AMTf_AMAGIC|5.004000||Viu
+_aMY_CXT|5.009000|5.009000|p
+aMY_CXT|5.009000|5.009000|p
+aMY_CXT_|5.009000|5.009000|p
+anchored_end_shift|5.009005||Viu
+anchored_offset|5.005000||Viu
+anchored_substr|5.005000||Viu
+anchored_utf8|5.008000||Viu
+ANGSTROM_SIGN|5.017003||Viu
+anonymise_cv_maybe|5.013003||Viu
+any_dup|5.006000||Vu
+ANYOF|5.003007||Viu
+ANYOF_ALNUM|5.006000||Viu
+ANYOF_ALNUML|5.004000||Viu
+ANYOF_ALPHA|5.006000||Viu
+ANYOF_ALPHANUMERIC|5.017008||Viu
+ANYOF_ASCII|5.006000||Viu
+ANYOF_BIT|5.004005||Viu
+ANYOF_BITMAP|5.006000||Viu
+ANYOF_BITMAP_BYTE|5.006000||Viu
+ANYOF_BITMAP_CLEAR|5.006000||Viu
+ANYOF_BITMAP_CLEARALL|5.007003||Viu
+ANYOF_BITMAP_SET|5.006000||Viu
+ANYOF_BITMAP_SETALL|5.007003||Viu
+ANYOF_BITMAP_SIZE|5.006000||Viu
+ANYOF_BITMAP_TEST|5.006000||Viu
+ANYOF_BITMAP_ZERO|5.006000||Viu
+ANYOF_BLANK|5.006001||Viu
+ANYOF_CASED|5.017008||Viu
+ANYOF_CLASS_OR|5.017007||Viu
+ANYOF_CLASS_SETALL|5.013011||Viu
+ANYOF_CLASS_TEST_ANY_SET|5.013008||Viu
+ANYOF_CNTRL|5.006000||Viu
+ANYOF_COMMON_FLAGS|5.019008||Viu
+ANYOFD|5.023003||Viu
+ANYOF_DIGIT|5.006000||Viu
+ANYOFD_t8|5.035004||Viu
+ANYOFD_t8_p8|5.033003||Viu
+ANYOFD_t8_pb|5.033003||Viu
+ANYOFD_tb|5.035004||Viu
+ANYOFD_tb_p8|5.033003||Viu
+ANYOFD_tb_pb|5.033003||Viu
+ANYOF_FLAGS|5.006000||Viu
+ANYOF_FLAGS_ALL|5.006000||Viu
+ANYOF_GRAPH|5.006000||Viu
+ANYOFH|5.029007||Viu
+ANYOFHb|5.031001||Viu
+ANYOFHb_t8|5.035004||Viu
+ANYOFHb_t8_p8|5.033003||Viu
+ANYOFHb_t8_pb|5.033003||Viu
+ANYOFHb_tb|5.035004||Viu
+ANYOFHb_tb_p8|5.033003||Viu
+ANYOFHb_tb_pb|5.033003||Viu
+ANYOF_HORIZWS|5.009005||Viu
+ANYOFHr|5.031002||Viu
+ANYOFHr_t8|5.035004||Viu
+ANYOFHr_t8_p8|5.033003||Viu
+ANYOFHr_t8_pb|5.033003||Viu
+ANYOFHr_tb|5.035004||Viu
+ANYOFHr_tb_p8|5.033003||Viu
+ANYOFHr_tb_pb|5.033003||Viu
+ANYOFHs|5.031007||Viu
+ANYOFHs_t8|5.035004||Viu
+ANYOFHs_t8_p8|5.033003||Viu
+ANYOFHs_t8_pb|5.033003||Viu
+ANYOFHs_tb|5.035004||Viu
+ANYOFHs_tb_p8|5.033003||Viu
+ANYOFHs_tb_pb|5.033003||Viu
+ANYOFH_t8|5.035004||Viu
+ANYOFH_t8_p8|5.033003||Viu
+ANYOFH_t8_pb|5.033003||Viu
+ANYOFH_tb|5.035004||Viu
+ANYOFH_tb_p8|5.033003||Viu
+ANYOFH_tb_pb|5.033003||Viu
+ANYOF_INVERT|5.004000||Viu
+ANYOFL|5.021008||Viu
+ANYOFL_FOLD|5.023007||Viu
+ANYOF_LOCALE_FLAGS|5.019005||Viu
+ANYOF_LOWER|5.006000||Viu
+ANYOFL_SHARED_UTF8_LOCALE_fold_HAS_MATCHES_nonfold_REQD|5.023007||Viu
+ANYOFL_SOME_FOLDS_ONLY_IN_UTF8_LOCALE|5.023007||Viu
+ANYOFL_t8|5.035004||Viu
+ANYOFL_t8_p8|5.033003||Viu
+ANYOFL_t8_pb|5.033003||Viu
+ANYOFL_tb|5.035004||Viu
+ANYOFL_tb_p8|5.033003||Viu
+ANYOFL_tb_pb|5.033003||Viu
+ANYOFL_UTF8_LOCALE_REQD|5.023007||Viu
+ANYOFM|5.027009||Viu
+ANYOF_MATCHES_ALL_ABOVE_BITMAP|5.021004||Viu
+ANYOF_MATCHES_POSIXL|5.021004||Viu
+ANYOF_MAX|5.006000||Viu
+ANYOFM_t8|5.035004||Viu
+ANYOFM_t8_p8|5.033003||Viu
+ANYOFM_t8_pb|5.033003||Viu
+ANYOFM_tb|5.035004||Viu
+ANYOFM_tb_p8|5.033003||Viu
+ANYOFM_tb_pb|5.033003||Viu
+ANYOF_NALNUM|5.006000||Viu
+ANYOF_NALNUML|5.004000||Viu
+ANYOF_NALPHA|5.006000||Viu
+ANYOF_NALPHANUMERIC|5.017008||Viu
+ANYOF_NASCII|5.006000||Viu
+ANYOF_NBLANK|5.006001||Viu
+ANYOF_NCASED|5.017008||Viu
+ANYOF_NCNTRL|5.006000||Viu
+ANYOF_NDIGIT|5.006000||Viu
+ANYOF_NGRAPH|5.006000||Viu
+ANYOF_NHORIZWS|5.009005||Viu
+ANYOF_NLOWER|5.006000||Viu
+ANYOF_NPRINT|5.006000||Viu
+ANYOF_NPUNCT|5.006000||Viu
+ANYOF_NSPACE|5.006000||Viu
+ANYOF_NSPACEL|5.004000||Viu
+ANYOF_NUPPER|5.006000||Viu
+ANYOF_NVERTWS|5.009005||Viu
+ANYOF_NWORDCHAR|5.017005||Viu
+ANYOF_NXDIGIT|5.006000||Viu
+ANYOF_ONLY_HAS_BITMAP|5.021004||Viu
+ANYOFPOSIXL|5.029004||Viu
+ANYOF_POSIXL_AND|5.019005||Viu
+ANYOF_POSIXL_BITMAP|5.035003||Viu
+ANYOF_POSIXL_CLEAR|5.019005||Viu
+ANYOF_POSIXL_MAX|5.019005||Viu
+ANYOF_POSIXL_OR|5.019005||Viu
+ANYOF_POSIXL_SET|5.019005||Viu
+ANYOF_POSIXL_SETALL|5.019005||Viu
+ANYOF_POSIXL_SET_TO_BITMAP|5.029004||Viu
+ANYOF_POSIXL_SSC_TEST_ALL_SET|5.019009||Viu
+ANYOF_POSIXL_SSC_TEST_ANY_SET|5.019009||Viu
+ANYOFPOSIXL_t8|5.035004||Viu
+ANYOFPOSIXL_t8_p8|5.033003||Viu
+ANYOFPOSIXL_t8_pb|5.033003||Viu
+ANYOFPOSIXL_tb|5.035004||Viu
+ANYOFPOSIXL_tb_p8|5.033003||Viu
+ANYOFPOSIXL_tb_pb|5.033003||Viu
+ANYOF_POSIXL_TEST|5.019005||Viu
+ANYOF_POSIXL_TEST_ALL_SET|5.019005||Viu
+ANYOF_POSIXL_TEST_ANY_SET|5.019005||Viu
+ANYOF_POSIXL_ZERO|5.019005||Viu
+ANYOF_PRINT|5.006000||Viu
+ANYOF_PUNCT|5.006000||Viu
+ANYOFR|5.031007||Viu
+ANYOFRb|5.031007||Viu
+ANYOFRbase|5.031007||Viu
+ANYOFR_BASE_BITS|5.031007||Viu
+ANYOFRb_t8|5.035004||Viu
+ANYOFRb_t8_p8|5.033003||Viu
+ANYOFRb_t8_pb|5.033003||Viu
+ANYOFRb_tb|5.035004||Viu
+ANYOFRb_tb_p8|5.033003||Viu
+ANYOFRb_tb_pb|5.033003||Viu
+ANYOFRdelta|5.031007||Viu
+ANYOFR_t8|5.035004||Viu
+ANYOFR_t8_p8|5.033003||Viu
+ANYOFR_t8_pb|5.033003||Viu
+ANYOFR_tb|5.035004||Viu
+ANYOFR_tb_p8|5.033003||Viu
+ANYOFR_tb_pb|5.033003||Viu
+ANYOF_SHARED_d_MATCHES_ALL_NON_UTF8_NON_ASCII_non_d_WARN_SUPER|5.023003||Viu
+ANYOF_SHARED_d_UPPER_LATIN1_UTF8_STRING_MATCHES_non_d_RUNTIME_USER_PROP|5.023006||Viu
+ANYOF_SPACE|5.006000||Viu
+ANYOF_SPACEL|5.004000||Viu
+ANYOF_t8|5.035004||Viu
+ANYOF_t8_p8|5.033003||Viu
+ANYOF_t8_pb|5.033003||Viu
+ANYOF_tb|5.035004||Viu
+ANYOF_tb_p8|5.033003||Viu
+ANYOF_tb_pb|5.033003||Viu
+ANYOF_UNIPROP|5.017006||Viu
+ANYOF_UPPER|5.006000||Viu
+ANYOF_VERTWS|5.009005||Viu
+ANYOF_WORDCHAR|5.017005||Viu
+ANYOF_XDIGIT|5.006000||Viu
+ao|5.005000||Viu
+_append_range_to_invlist|5.013010||Viu
+append_utf8_from_native_byte|5.019004||cVniu
+apply|5.003007||Viu
+apply_attrs|5.006000||Viu
+apply_attrs_my|5.007003||Viu
+apply_attrs_string|5.006001|5.006001|xu
+ARCHLIB|5.003007|5.003007|Vn
+ARCHLIB_EXP|5.003007|5.003007|Vn
+ARCHNAME|5.004000|5.004000|Vn
+ARG1|5.003007||Viu
+ARG1_LOC|5.005000||Viu
+ARG1_SET|5.005000||Viu
+ARG2|5.003007||Viu
+ARG2L|5.009005||Viu
+ARG2L_LOC|5.009005||Viu
+ARG2_LOC|5.005000||Viu
+ARG2L_SET|5.009005||Viu
+ARG2_SET|5.005000||Viu
+ARG|5.005000||Viu
+ARG_LOC|5.005000||Viu
+ARGp|5.031010||Viu
+ARGp_LOC|5.031010||Viu
+ARGp_SET|5.031010||Viu
+ARG__SET|5.005000||Viu
+ARG_SET|5.005000||Viu
+ARGTARG|5.003007||Viu
+ARG_VALUE|5.005000||Viu
+argvout_final|5.029006||Viu
+ASCIIish|5.005003||Viu
+ASCII_MORE_RESTRICT_PAT_MODS|5.013010||Viu
+ASCII_PLATFORM_UTF8_MAXBYTES|5.035004||Viu
+ASCII_RESTRICT_PAT_MOD|5.013009||Viu
+ASCII_RESTRICT_PAT_MODS|5.013009||Viu
+ASCII_TO_NATIVE|5.007001||Viu
+ASCII_TO_NEED|5.019004||dcVnu
+asctime|5.009000||Viu
+ASCTIME_R_PROTO|5.008000|5.008000|Vn
+assert|5.003007||Viu
+__ASSERT_|5.019007|5.008008|p
+ASSERT_CURPAD_ACTIVE|5.008001||Viu
+ASSERT_CURPAD_LEGAL|5.008001||Viu
+ASSERT_IS_LITERAL|||Viu
+ASSERT_IS_PTR|||Viu
+assert_not_glob|5.009004||Viu
+ASSERT_NOT_PTR|5.035004||Viu
+assert_not_ROK|5.008001||Viu
+assert_uft8_cache_coherent|5.013003||Viu
+assignment_type|5.021005||Viu
+ASSUME|5.019006|5.003007|p
+atfork_lock|5.007003|5.007003|nu
+atfork_unlock|5.007003|5.007003|nu
+aTHX|5.006000|5.003007|p
+aTHX_|5.006000|5.003007|p
+aTHXa|5.017006||Viu
+aTHXo|5.006000||Viu
+aTHXR||5.003007|ponu
+aTHXR_||5.003007|ponu
+aTHXx|5.006000||Viu
+Atof|5.006000||Viu
+Atol|5.006000||Viu
+atoll|5.008000||Viu
+Atoul|5.006000||Viu
+AvALLOC|5.003007||Viu
+AvARRAY|5.003007|5.003007|
+AvARYLEN|5.003007||Viu
+av_arylen_p|||cu
+av_clear|5.003007|5.003007|
+av_count|5.033001|5.003007|p
+av_create_and_push|||
+av_create_and_unshift_one|||
+av_delete|5.006000|5.006000|
+av_exists|5.006000|5.006000|
+av_extend|5.003007|5.003007|
+av_extend_guts|5.017004||Viu
+av_fetch|5.003007|5.003007|
+av_fetch_simple|5.035002||cV
+av_fill|5.003007|5.003007|
+AvFILL|5.003007|5.003007|
+AvFILLp|5.004005||pcV
+av_iter_p|||cu
+av_len|5.003007|5.003007|
+av_make|5.003007|5.003007|
+AvMAX|5.003007||Viu
+av_new_alloc|5.035001|5.035001|
+av_nonelem|5.027009||Viu
+av_pop|5.003007|5.003007|
+av_push|5.003007|5.003007|
+AvREAL|5.003007||Viu
+AvREALISH|5.003007||Viu
+AvREAL_off|5.003007||Viu
+AvREAL_on|5.003007||Viu
+AvREAL_only|5.009003||Viu
+AvREIFY|5.003007||Viu
+av_reify|5.004004||cViu
+AvREIFY_off|5.003007||Viu
+AvREIFY_on|5.003007||Viu
+AvREIFY_only|5.009003||Viu
+av_shift|5.003007|5.003007|
+av_store|5.003007|5.003007|
+av_store_simple|5.035002||cV
+av_tindex|5.017009|5.003007|p
+av_tindex_skip_len_mg|5.025010||Viu
+av_top_index|5.017009|5.003007|p
+av_top_index_skip_len_mg|5.025010||Viu
+av_undef|5.003007|5.003007|
+av_unshift|5.003007|5.003007|
+ax|5.003007|5.003007|
+backup_one_GCB|5.025003||Viu
+backup_one_LB|5.023007||Viu
+backup_one_SB|5.021009||Viu
+backup_one_WB|5.021009||Viu
+bad_type_gv|5.019002||Viu
+bad_type_pv|5.016000||Viu
+BADVERSION|5.011004||Viu
+BASEOP|5.003007||Viu
+BhkDISABLE|5.013003||xV
+BhkENABLE|5.013003||xV
+BhkENTRY|5.013003||xVi
+BhkENTRY_set|5.013003||xV
+BHKf_bhk_eval|5.013006||Viu
+BHKf_bhk_post_end|5.013006||Viu
+BHKf_bhk_pre_end|5.013006||Viu
+BHKf_bhk_start|5.013006||Viu
+BhkFLAGS|5.013003||xVi
+BIN|5.003007|5.003007|Vn
+bind|5.005000||Viu
+bind_match|5.003007||Viu
+BIN_EXP|5.004000|5.004000|Vn
+BIT_BUCKET|5.003007||Viu
+BIT_DIGITS|5.004000||Viu
+BITMAP_BYTE|5.009005||Viu
+BITMAP_TEST|5.009005||Viu
+blk_eval|5.003007||Viu
+blk_format|5.011000||Viu
+blk_gimme|5.003007||Viu
+blk_givwhen|5.027008||Viu
+blk_loop|5.003007||Viu
+blk_oldcop|5.003007||Viu
+blk_oldmarksp|5.003007||Viu
+blk_oldpm|5.003007||Viu
+blk_oldsaveix|5.023008||Viu
+blk_oldscopesp|5.003007||Viu
+blk_oldsp|5.003007||Viu
+blk_old_tmpsfloor|5.023008||Viu
+blk_sub|5.003007||Viu
+blk_u16|5.011000||Viu
+block_end|5.021006|5.021006|
+block_gimme|5.004000|5.004000|u
+blockhook_register|||x
+block_start|5.021006|5.021006|
+BmFLAGS|5.009005||Viu
+BmPREVIOUS|5.003007||Viu
+BmRARE|5.003007||Viu
+BmUSEFUL|5.003007||Viu
+BOL|5.003007||Viu
+BOL_t8|5.035004||Viu
+BOL_t8_p8|5.033003||Viu
+BOL_t8_pb|5.033003||Viu
+BOL_tb|5.035004||Viu
+BOL_tb_p8|5.033003||Viu
+BOL_tb_pb|5.033003||Viu
+BOM_UTF8|5.025005|5.003007|p
+BOM_UTF8_FIRST_BYTE|5.019004||Viu
+BOM_UTF8_TAIL|5.019004||Viu
+boolSV|5.004000|5.003007|p
+boot_core_builtin|5.035007||Viu
+boot_core_mro|5.009005||Viu
+boot_core_PerlIO|5.007002||Viu
+boot_core_UNIVERSAL|5.003007||Viu
+BOUND|5.003007||Viu
+BOUNDA|5.013009||Viu
+BOUNDA_t8|5.035004||Viu
+BOUNDA_t8_p8|5.033003||Viu
+BOUNDA_t8_pb|5.033003||Viu
+BOUNDA_tb|5.035004||Viu
+BOUNDA_tb_p8|5.033003||Viu
+BOUNDA_tb_pb|5.033003||Viu
+BOUNDL|5.004000||Viu
+BOUNDL_t8|5.035004||Viu
+BOUNDL_t8_p8|5.033003||Viu
+BOUNDL_t8_pb|5.033003||Viu
+BOUNDL_tb|5.035004||Viu
+BOUNDL_tb_p8|5.033003||Viu
+BOUNDL_tb_pb|5.033003||Viu
+BOUND_t8|5.035004||Viu
+BOUND_t8_p8|5.033003||Viu
+BOUND_t8_pb|5.033003||Viu
+BOUND_tb|5.035004||Viu
+BOUND_tb_p8|5.033003||Viu
+BOUND_tb_pb|5.033003||Viu
+BOUNDU|5.013009||Viu
+BOUNDU_t8|5.035004||Viu
+BOUNDU_t8_p8|5.033003||Viu
+BOUNDU_t8_pb|5.033003||Viu
+BOUNDU_tb|5.035004||Viu
+BOUNDU_tb_p8|5.033003||Viu
+BOUNDU_tb_pb|5.033003||Viu
+BRANCH|5.003007||Viu
+BRANCHJ|5.005000||Viu
+BRANCHJ_t8|5.035004||Viu
+BRANCHJ_t8_p8|5.033003||Viu
+BRANCHJ_t8_pb|5.033003||Viu
+BRANCHJ_tb|5.035004||Viu
+BRANCHJ_tb_p8|5.033003||Viu
+BRANCHJ_tb_pb|5.033003||Viu
+BRANCH_next|5.009005||Viu
+BRANCH_next_fail|5.009005||Viu
+BRANCH_next_fail_t8|5.035004||Viu
+BRANCH_next_fail_t8_p8|5.033003||Viu
+BRANCH_next_fail_t8_pb|5.033003||Viu
+BRANCH_next_fail_tb|5.035004||Viu
+BRANCH_next_fail_tb_p8|5.033003||Viu
+BRANCH_next_fail_tb_pb|5.033003||Viu
+BRANCH_next_t8|5.035004||Viu
+BRANCH_next_t8_p8|5.033003||Viu
+BRANCH_next_t8_pb|5.033003||Viu
+BRANCH_next_tb|5.035004||Viu
+BRANCH_next_tb_p8|5.033003||Viu
+BRANCH_next_tb_pb|5.033003||Viu
+BRANCH_t8|5.035004||Viu
+BRANCH_t8_p8|5.033003||Viu
+BRANCH_t8_pb|5.033003||Viu
+BRANCH_tb|5.035004||Viu
+BRANCH_tb_p8|5.033003||Viu
+BRANCH_tb_pb|5.033003||Viu
+BSD_GETPGRP|5.003007||Viu
+BSDish|5.008001||Viu
+BSD_SETPGRP|5.003007||Viu
+BUFSIZ|5.003007||Viu
+_byte_dump_string|5.025006||cViu
+BYTEORDER|5.003007|5.003007|Vn
+bytes_cmp_utf8|5.013007|5.013007|
+bytes_from_utf8|5.007001|5.007001|x
+bytes_from_utf8_loc|5.027001||xcVn
+bytes_to_utf8|5.006001|5.006001|x
+call_argv|5.006000|5.003007|p
+call_atexit|5.006000|5.006000|u
+CALL_BLOCK_HOOKS|5.013003||xVi
+CALL_CHECKER_REQUIRE_GV|5.021004|5.021004|
+caller_cx|5.013005|5.006000|p
+CALL_FPTR|5.006000||Viu
+call_list|5.004000|5.004000|u
+call_method|5.006000|5.003007|p
+calloc|5.029005||Vn
+call_pv|5.006000|5.003007|p
+CALLREGCOMP|5.005000||Viu
+CALLREGCOMP_ENG|5.009005||Viu
+CALLREGDUPE|5.009005||Viu
+CALLREGDUPE_PVT|5.009005||Viu
+CALLREGEXEC|5.005000||Viu
+CALLREGFREE|5.006000||Viu
+CALLREGFREE_PVT|5.009005||Viu
+CALLREG_INTUIT_START|5.006000||Viu
+CALLREG_INTUIT_STRING|5.006000||Viu
+CALLREG_NAMED_BUFF_ALL|5.009005||Viu
+CALLREG_NAMED_BUFF_CLEAR|5.009005||Viu
+CALLREG_NAMED_BUFF_COUNT|5.009005||Viu
+CALLREG_NAMED_BUFF_DELETE|5.009005||Viu
+CALLREG_NAMED_BUFF_EXISTS|5.009005||Viu
+CALLREG_NAMED_BUFF_FETCH|5.009005||Viu
+CALLREG_NAMED_BUFF_FIRSTKEY|5.009005||Viu
+CALLREG_NAMED_BUFF_NEXTKEY|5.009005||Viu
+CALLREG_NAMED_BUFF_SCALAR|5.009005||Viu
+CALLREG_NAMED_BUFF_STORE|5.009005||Viu
+CALLREG_NUMBUF_FETCH|5.009005||Viu
+CALLREG_NUMBUF_LENGTH|5.009005||Viu
+CALLREG_NUMBUF_STORE|5.009005||Viu
+CALLREG_PACKAGE|5.009005||Viu
+CALLRUNOPS|5.005000||Viu
+call_sv|5.006000|5.003007|p
+CAN64BITHASH|5.027001||Viu
+CAN_COW_FLAGS|5.009000||Viu
+CAN_COW_MASK|5.009000||Viu
+cando|5.003007||Viu
+CAN_PROTOTYPE|5.003007||Viu
+C_ARRAY_END|5.013002|5.003007|p
+C_ARRAY_LENGTH|5.008001|5.003007|p
+case_100_SBOX32|5.027001||Viu
+case_101_SBOX32|5.027001||Viu
+case_102_SBOX32|5.027001||Viu
+case_103_SBOX32|5.027001||Viu
+case_104_SBOX32|5.027001||Viu
+case_105_SBOX32|5.027001||Viu
+case_106_SBOX32|5.027001||Viu
+case_107_SBOX32|5.027001||Viu
+case_108_SBOX32|5.027001||Viu
+case_109_SBOX32|5.027001||Viu
+case_10_SBOX32|5.027001||Viu
+case_110_SBOX32|5.027001||Viu
+case_111_SBOX32|5.027001||Viu
+case_112_SBOX32|5.027001||Viu
+case_113_SBOX32|5.027001||Viu
+case_114_SBOX32|5.027001||Viu
+case_115_SBOX32|5.027001||Viu
+case_116_SBOX32|5.027001||Viu
+case_117_SBOX32|5.027001||Viu
+case_118_SBOX32|5.027001||Viu
+case_119_SBOX32|5.027001||Viu
+case_11_SBOX32|5.027001||Viu
+case_120_SBOX32|5.027001||Viu
+case_121_SBOX32|5.027001||Viu
+case_122_SBOX32|5.027001||Viu
+case_123_SBOX32|5.027001||Viu
+case_124_SBOX32|5.027001||Viu
+case_125_SBOX32|5.027001||Viu
+case_126_SBOX32|5.027001||Viu
+case_127_SBOX32|5.027001||Viu
+case_128_SBOX32|5.027001||Viu
+case_129_SBOX32|5.027001||Viu
+case_12_SBOX32|5.027001||Viu
+case_130_SBOX32|5.027001||Viu
+case_131_SBOX32|5.027001||Viu
+case_132_SBOX32|5.027001||Viu
+case_133_SBOX32|5.027001||Viu
+case_134_SBOX32|5.027001||Viu
+case_135_SBOX32|5.027001||Viu
+case_136_SBOX32|5.027001||Viu
+case_137_SBOX32|5.027001||Viu
+case_138_SBOX32|5.027001||Viu
+case_139_SBOX32|5.027001||Viu
+case_13_SBOX32|5.027001||Viu
+case_140_SBOX32|5.027001||Viu
+case_141_SBOX32|5.027001||Viu
+case_142_SBOX32|5.027001||Viu
+case_143_SBOX32|5.027001||Viu
+case_144_SBOX32|5.027001||Viu
+case_145_SBOX32|5.027001||Viu
+case_146_SBOX32|5.027001||Viu
+case_147_SBOX32|5.027001||Viu
+case_148_SBOX32|5.027001||Viu
+case_149_SBOX32|5.027001||Viu
+case_14_SBOX32|5.027001||Viu
+case_150_SBOX32|5.027001||Viu
+case_151_SBOX32|5.027001||Viu
+case_152_SBOX32|5.027001||Viu
+case_153_SBOX32|5.027001||Viu
+case_154_SBOX32|5.027001||Viu
+case_155_SBOX32|5.027001||Viu
+case_156_SBOX32|5.027001||Viu
+case_157_SBOX32|5.027001||Viu
+case_158_SBOX32|5.027001||Viu
+case_159_SBOX32|5.027001||Viu
+case_15_SBOX32|5.027001||Viu
+case_160_SBOX32|5.027001||Viu
+case_161_SBOX32|5.027001||Viu
+case_162_SBOX32|5.027001||Viu
+case_163_SBOX32|5.027001||Viu
+case_164_SBOX32|5.027001||Viu
+case_165_SBOX32|5.027001||Viu
+case_166_SBOX32|5.027001||Viu
+case_167_SBOX32|5.027001||Viu
+case_168_SBOX32|5.027001||Viu
+case_169_SBOX32|5.027001||Viu
+case_16_SBOX32|5.027001||Viu
+case_170_SBOX32|5.027001||Viu
+case_171_SBOX32|5.027001||Viu
+case_172_SBOX32|5.027001||Viu
+case_173_SBOX32|5.027001||Viu
+case_174_SBOX32|5.027001||Viu
+case_175_SBOX32|5.027001||Viu
+case_176_SBOX32|5.027001||Viu
+case_177_SBOX32|5.027001||Viu
+case_178_SBOX32|5.027001||Viu
+case_179_SBOX32|5.027001||Viu
+case_17_SBOX32|5.027001||Viu
+case_180_SBOX32|5.027001||Viu
+case_181_SBOX32|5.027001||Viu
+case_182_SBOX32|5.027001||Viu
+case_183_SBOX32|5.027001||Viu
+case_184_SBOX32|5.027001||Viu
+case_185_SBOX32|5.027001||Viu
+case_186_SBOX32|5.027001||Viu
+case_187_SBOX32|5.027001||Viu
+case_188_SBOX32|5.027001||Viu
+case_189_SBOX32|5.027001||Viu
+case_18_SBOX32|5.027001||Viu
+case_190_SBOX32|5.027001||Viu
+case_191_SBOX32|5.027001||Viu
+case_192_SBOX32|5.027001||Viu
+case_193_SBOX32|5.027001||Viu
+case_194_SBOX32|5.027001||Viu
+case_195_SBOX32|5.027001||Viu
+case_196_SBOX32|5.027001||Viu
+case_197_SBOX32|5.027001||Viu
+case_198_SBOX32|5.027001||Viu
+case_199_SBOX32|5.027001||Viu
+case_19_SBOX32|5.027001||Viu
+case_1_SBOX32|5.027001||Viu
+case_200_SBOX32|5.027001||Viu
+case_201_SBOX32|5.027001||Viu
+case_202_SBOX32|5.027001||Viu
+case_203_SBOX32|5.027001||Viu
+case_204_SBOX32|5.027001||Viu
+case_205_SBOX32|5.027001||Viu
+case_206_SBOX32|5.027001||Viu
+case_207_SBOX32|5.027001||Viu
+case_208_SBOX32|5.027001||Viu
+case_209_SBOX32|5.027001||Viu
+case_20_SBOX32|5.027001||Viu
+case_210_SBOX32|5.027001||Viu
+case_211_SBOX32|5.027001||Viu
+case_212_SBOX32|5.027001||Viu
+case_213_SBOX32|5.027001||Viu
+case_214_SBOX32|5.027001||Viu
+case_215_SBOX32|5.027001||Viu
+case_216_SBOX32|5.027001||Viu
+case_217_SBOX32|5.027001||Viu
+case_218_SBOX32|5.027001||Viu
+case_219_SBOX32|5.027001||Viu
+case_21_SBOX32|5.027001||Viu
+case_220_SBOX32|5.027001||Viu
+case_221_SBOX32|5.027001||Viu
+case_222_SBOX32|5.027001||Viu
+case_223_SBOX32|5.027001||Viu
+case_224_SBOX32|5.027001||Viu
+case_225_SBOX32|5.027001||Viu
+case_226_SBOX32|5.027001||Viu
+case_227_SBOX32|5.027001||Viu
+case_228_SBOX32|5.027001||Viu
+case_229_SBOX32|5.027001||Viu
+case_22_SBOX32|5.027001||Viu
+case_230_SBOX32|5.027001||Viu
+case_231_SBOX32|5.027001||Viu
+case_232_SBOX32|5.027001||Viu
+case_233_SBOX32|5.027001||Viu
+case_234_SBOX32|5.027001||Viu
+case_235_SBOX32|5.027001||Viu
+case_236_SBOX32|5.027001||Viu
+case_237_SBOX32|5.027001||Viu
+case_238_SBOX32|5.027001||Viu
+case_239_SBOX32|5.027001||Viu
+case_23_SBOX32|5.027001||Viu
+case_240_SBOX32|5.027001||Viu
+case_241_SBOX32|5.027001||Viu
+case_242_SBOX32|5.027001||Viu
+case_243_SBOX32|5.027001||Viu
+case_244_SBOX32|5.027001||Viu
+case_245_SBOX32|5.027001||Viu
+case_246_SBOX32|5.027001||Viu
+case_247_SBOX32|5.027001||Viu
+case_248_SBOX32|5.027001||Viu
+case_249_SBOX32|5.027001||Viu
+case_24_SBOX32|5.027001||Viu
+case_250_SBOX32|5.027001||Viu
+case_251_SBOX32|5.027001||Viu
+case_252_SBOX32|5.027001||Viu
+case_253_SBOX32|5.027001||Viu
+case_254_SBOX32|5.027001||Viu
+case_255_SBOX32|5.027001||Viu
+case_256_SBOX32|5.027001||Viu
+case_25_SBOX32|5.027001||Viu
+case_26_SBOX32|5.027001||Viu
+case_27_SBOX32|5.027001||Viu
+case_28_SBOX32|5.027001||Viu
+case_29_SBOX32|5.027001||Viu
+case_2_SBOX32|5.027001||Viu
+case_30_SBOX32|5.027001||Viu
+case_31_SBOX32|5.027001||Viu
+case_32_SBOX32|5.027001||Viu
+case_33_SBOX32|5.027001||Viu
+case_34_SBOX32|5.027001||Viu
+case_35_SBOX32|5.027001||Viu
+case_36_SBOX32|5.027001||Viu
+case_37_SBOX32|5.027001||Viu
+case_38_SBOX32|5.027001||Viu
+case_39_SBOX32|5.027001||Viu
+case_3_SBOX32|5.027001||Viu
+case_40_SBOX32|5.027001||Viu
+case_41_SBOX32|5.027001||Viu
+case_42_SBOX32|5.027001||Viu
+case_43_SBOX32|5.027001||Viu
+case_44_SBOX32|5.027001||Viu
+case_45_SBOX32|5.027001||Viu
+case_46_SBOX32|5.027001||Viu
+case_47_SBOX32|5.027001||Viu
+case_48_SBOX32|5.027001||Viu
+case_49_SBOX32|5.027001||Viu
+case_4_SBOX32|5.027001||Viu
+case_50_SBOX32|5.027001||Viu
+case_51_SBOX32|5.027001||Viu
+case_52_SBOX32|5.027001||Viu
+case_53_SBOX32|5.027001||Viu
+case_54_SBOX32|5.027001||Viu
+case_55_SBOX32|5.027001||Viu
+case_56_SBOX32|5.027001||Viu
+case_57_SBOX32|5.027001||Viu
+case_58_SBOX32|5.027001||Viu
+case_59_SBOX32|5.027001||Viu
+case_5_SBOX32|5.027001||Viu
+case_60_SBOX32|5.027001||Viu
+case_61_SBOX32|5.027001||Viu
+case_62_SBOX32|5.027001||Viu
+case_63_SBOX32|5.027001||Viu
+case_64_SBOX32|5.027001||Viu
+case_65_SBOX32|5.027001||Viu
+case_66_SBOX32|5.027001||Viu
+case_67_SBOX32|5.027001||Viu
+case_68_SBOX32|5.027001||Viu
+case_69_SBOX32|5.027001||Viu
+case_6_SBOX32|5.027001||Viu
+case_70_SBOX32|5.027001||Viu
+case_71_SBOX32|5.027001||Viu
+case_72_SBOX32|5.027001||Viu
+case_73_SBOX32|5.027001||Viu
+case_74_SBOX32|5.027001||Viu
+case_75_SBOX32|5.027001||Viu
+case_76_SBOX32|5.027001||Viu
+case_77_SBOX32|5.027001||Viu
+case_78_SBOX32|5.027001||Viu
+case_79_SBOX32|5.027001||Viu
+case_7_SBOX32|5.027001||Viu
+case_80_SBOX32|5.027001||Viu
+case_81_SBOX32|5.027001||Viu
+case_82_SBOX32|5.027001||Viu
+case_83_SBOX32|5.027001||Viu
+case_84_SBOX32|5.027001||Viu
+case_85_SBOX32|5.027001||Viu
+case_86_SBOX32|5.027001||Viu
+case_87_SBOX32|5.027001||Viu
+case_88_SBOX32|5.027001||Viu
+case_89_SBOX32|5.027001||Viu
+case_8_SBOX32|5.027001||Viu
+case_90_SBOX32|5.027001||Viu
+case_91_SBOX32|5.027001||Viu
+case_92_SBOX32|5.027001||Viu
+case_93_SBOX32|5.027001||Viu
+case_94_SBOX32|5.027001||Viu
+case_95_SBOX32|5.027001||Viu
+case_96_SBOX32|5.027001||Viu
+case_97_SBOX32|5.027001||Viu
+case_98_SBOX32|5.027001||Viu
+case_99_SBOX32|5.027001||Viu
+case_9_SBOX32|5.027001||Viu
+CASE_STD_PMMOD_FLAGS_PARSE_SET|5.009005||Viu
+CASTFLAGS|5.003007|5.003007|Vn
+cast_i32|5.006000||cVnu
+cast_iv|5.006000||cVnu
+CASTNEGFLOAT|5.003007|5.003007|Vn
+cast_ulong|5.003007||cVnu
+cast_uv|5.006000||cVnu
+CAT2|5.003007|5.003007|Vn
+CATCH_GET|5.004000||Viu
+CATCH_SET|5.004000||Viu
+category_name|5.027008||Vniu
+cBINOP|5.003007||Viu
+cBINOPo|5.004005||Viu
+cBINOPx|5.006000||Viu
+cBOOL|5.013000|5.003007|p
+cCOP|5.003007||Viu
+cCOPo|5.004005||Viu
+cCOPx|5.006000||Viu
+C_FAC_POSIX|5.009003||Viu
+cGVOP_gv|5.006000||Viu
+cGVOPo_gv|5.006000||Viu
+cGVOPx_gv|5.006000||Viu
+change_engine_size|5.029004||Viu
+CHANGE_MULTICALL_FLAGS|5.018000||Viu
+CHARBITS|5.011002|5.011002|Vn
+CHARSET_PAT_MODS|5.013010||Viu
+chdir|5.005000||Viu
+checkcomma|5.003007||Viu
+check_end_shift|5.009005||Viu
+check_locale_boundary_crossing|5.015006||Viu
+CHECK_MALLOC_TAINT|5.008001||Viu
+CHECK_MALLOC_TOO_LATE_FOR|5.008001||Viu
+check_offset_max|5.005000||Viu
+check_offset_min|5.005000||Viu
+check_substr|5.005000||Viu
+check_type_and_open|5.009003||Viu
+check_uni|5.003007||Viu
+check_utf8|5.008000||Viu
+check_utf8_print|5.013009||Viu
+child_offset_bits|5.009003||Viu
+chmod|5.005000||Viu
+chsize|5.005000||Viu
+ckDEAD|5.006000||Viu
+ck_entersub_args_core|||iu
+ck_entersub_args_list|5.013006|5.013006|
+ck_entersub_args_proto|5.013006|5.013006|
+ck_entersub_args_proto_or_list|5.013006|5.013006|
+ckWARN2|5.006000|5.003007|p
+ckWARN2_d|5.006000|5.003007|p
+ckWARN3|5.007003|5.003007|p
+ckWARN3_d|5.007003|5.003007|p
+ckWARN4|5.007003|5.003007|p
+ckWARN4_d|5.007003|5.003007|p
+ckWARN|5.006000|5.003007|p
+ckwarn_common|5.011001||Viu
+ckwarn|||cu
+ckWARN_d|5.006000|5.003007|p
+ckwarn_d|||cu
+ck_warner|5.011001||pvV
+ck_warner_d|5.011001||pvV
+CLANG_DIAG_IGNORE|5.023006||Viu
+CLANG_DIAG_IGNORE_DECL|5.027007||Viu
+CLANG_DIAG_IGNORE_STMT|5.027007||Viu
+CLANG_DIAG_PRAGMA|5.023006||Viu
+CLANG_DIAG_RESTORE|5.023006||Viu
+CLANG_DIAG_RESTORE_DECL|5.027007||Viu
+CLANG_DIAG_RESTORE_STMT|5.027007||Viu
+CLASS||5.003007|
+CLEAR_ARGARRAY|5.006000||Viu
+clear_defarray|5.023008|5.023008|u
+clearerr|5.003007||Viu
+CLEAR_ERRSV|5.025007|5.025007|
+CLEARFEATUREBITS|5.031006||Viu
+clear_placeholders|5.009004||xViu
+clear_special_blocks|5.021003||Viu
+cLISTOP|5.003007||Viu
+cLISTOPo|5.004005||Viu
+cLISTOPx|5.006000||Viu
+cLOGOP|5.003007||Viu
+cLOGOPo|5.004005||Viu
+cLOGOPx|5.006000||Viu
+CLONEf_CLONE_HOST|5.007002||Viu
+CLONEf_COPY_STACKS|5.007001||Viu
+CLONEf_JOIN_IN|5.008001||Viu
+CLONEf_KEEP_PTR_TABLE|5.007001||Viu
+clone_params_del|||nu
+clone_params_new|||nu
+cLOOP|5.003007||Viu
+cLOOPo|5.004005||Viu
+cLOOPx|5.006000||Viu
+CLOSE|5.003007||Viu
+close|5.005000||Viu
+closedir|5.005000||Viu
+closest_cop|5.007002||Viu
+CLOSE_t8|5.035004||Viu
+CLOSE_t8_p8|5.033003||Viu
+CLOSE_t8_pb|5.033003||Viu
+CLOSE_tb|5.035004||Viu
+CLOSE_tb_p8|5.033003||Viu
+CLOSE_tb_pb|5.033003||Viu
+CLUMP_2IV|5.006000||Viu
+CLUMP_2UV|5.006000||Viu
+CLUMP|5.006000||Viu
+CLUMP_t8|5.035004||Viu
+CLUMP_t8_p8|5.033003||Viu
+CLUMP_t8_pb|5.033003||Viu
+CLUMP_tb|5.035004||Viu
+CLUMP_tb_p8|5.033003||Viu
+CLUMP_tb_pb|5.033003||Viu
+cMETHOPx|5.021005||Viu
+cMETHOPx_meth|5.021005||Viu
+cMETHOPx_rclass|5.021007||Viu
+cmpchain_extend|5.031011||Viu
+cmpchain_finish|5.031011||Viu
+cmpchain_start|5.031011||Viu
+cmp_desc|5.031011||Viu
+cmp_locale_desc|5.031011||Viu
+cntrl_to_mnemonic|5.021004||cVniu
+CODESET|5.027010||Viu
+COMBINING_DOT_ABOVE_UTF8|5.029008||Viu
+COMBINING_GRAVE_ACCENT_UTF8|5.017004||Viu
+COMMIT|5.009005||Viu
+COMMIT_next|5.009005||Viu
+COMMIT_next_fail|5.009005||Viu
+COMMIT_next_fail_t8|5.035004||Viu
+COMMIT_next_fail_t8_p8|5.033003||Viu
+COMMIT_next_fail_t8_pb|5.033003||Viu
+COMMIT_next_fail_tb|5.035004||Viu
+COMMIT_next_fail_tb_p8|5.033003||Viu
+COMMIT_next_fail_tb_pb|5.033003||Viu
+COMMIT_next_t8|5.035004||Viu
+COMMIT_next_t8_p8|5.033003||Viu
+COMMIT_next_t8_pb|5.033003||Viu
+COMMIT_next_tb|5.035004||Viu
+COMMIT_next_tb_p8|5.033003||Viu
+COMMIT_next_tb_pb|5.033003||Viu
+COMMIT_t8|5.035004||Viu
+COMMIT_t8_p8|5.033003||Viu
+COMMIT_t8_pb|5.033003||Viu
+COMMIT_tb|5.035004||Viu
+COMMIT_tb_p8|5.033003||Viu
+COMMIT_tb_pb|5.033003||Viu
+compile_wildcard|5.031010||Viu
+compute_EXACTish|5.017003||Vniu
+COND_BROADCAST|5.005000||Viu
+COND_DESTROY|5.005000||Viu
+COND_INIT|5.005000||Viu
+COND_SIGNAL|5.005000||Viu
+COND_WAIT|5.005000||Viu
+connect|5.005000||Viu
+construct_ahocorasick_from_trie|5.021001||Viu
+CONTINUE_PAT_MOD|5.009005||Viu
+cop_fetch_label|5.031004|5.031004|x
+CopFILE|5.006000|5.003007|p
+CopFILEAV|5.006000|5.003007|p
+CopFILEAVn|5.035006|5.035006|
+cop_file_avn|5.035006||cVu
+CopFILEAVx|5.009003||Viu
+CopFILE_free|5.007003||Viu
+CopFILEGV|5.006000|5.003007|p
+CopFILEGV_set|5.006000|5.003007|p
+CopFILE_set|5.006000|5.003007|p
+CopFILE_setn|5.009005||Viu
+CopFILESV|5.006000|5.003007|p
+cop_free|5.006000||Viu
+cophh_2hv|5.013007|5.013007|x
+cophh_copy|5.013007|5.013007|x
+cophh_delete_pv|5.013007|5.013007|x
+cophh_delete_pvn|5.013007|5.013007|x
+cophh_delete_pvs|5.013007|5.013007|x
+cophh_delete_sv|5.013007|5.013007|x
+COPHH_EXISTS|5.033008||Viu
+cophh_exists_pv|5.033008|5.033008|x
+cophh_exists_pvn|5.033008|5.033008|x
+cophh_exists_pvs|5.033008|5.033008|x
+cophh_exists_sv|5.033008|5.033008|x
+cophh_fetch_pv|5.013007|5.013007|x
+cophh_fetch_pvn|5.013007|5.013007|x
+cophh_fetch_pvs|5.013007|5.013007|x
+cophh_fetch_sv|5.013007|5.013007|x
+cophh_free|5.013007|5.013007|x
+COPHH_KEY_UTF8|5.013007|5.013007|
+cophh_new_empty|5.013007|5.013007|x
+cophh_store_pv|5.013007|5.013007|x
+cophh_store_pvn|5.013007|5.013007|x
+cophh_store_pvs|5.013007|5.013007|x
+cophh_store_sv|5.013007|5.013007|x
+CopHINTHASH_get|5.013007||Viu
+CopHINTHASH_set|5.013007||Viu
+cop_hints_2hv|5.013007|5.013007|
+cop_hints_exists_pv|5.033008|5.033008|
+cop_hints_exists_pvn|5.033008|5.033008|
+cop_hints_exists_pvs|5.033008|5.033008|
+cop_hints_exists_sv|5.033008|5.033008|
+cop_hints_fetch_pv|5.013007|5.013007|
+cop_hints_fetch_pvn|5.013007|5.013007|
+cop_hints_fetch_pvs|5.013007|5.013007|
+cop_hints_fetch_sv|5.013007|5.013007|
+CopHINTS_get|5.009004||Viu
+CopHINTS_set|5.009004||Viu
+CopLABEL|5.009005|5.009005|
+CopLABEL_alloc|5.009005||Viu
+CopLABEL_len|5.016000|5.016000|
+CopLABEL_len_flags|5.016000|5.016000|
+CopLINE|5.006000|5.006000|
+CopLINE_dec|5.006000||Viu
+CopLINE_inc|5.006000||Viu
+CopLINE_set|5.006000||Viu
+COP_SEQMAX_INC|5.021006||Viu
+COP_SEQ_RANGE_HIGH|5.009005||Viu
+COP_SEQ_RANGE_LOW|5.009005||Viu
+CopSTASH|5.006000|5.003007|p
+CopSTASH_eq|5.006000|5.003007|p
+CopSTASH_ne|5.006000||Viu
+CopSTASHPV|5.006000|5.003007|p
+CopSTASHPV_set|5.017001|5.017001|p
+CopSTASH_set|5.006000|5.003007|p
+cop_store_label|5.031004|5.031004|x
+Copy|5.003007|5.003007|
+CopyD|5.009002|5.003007|p
+copy_length|||Viu
+core_prototype|5.015002||Vi
+coresub_op|5.015003||Viu
+CowREFCNT|5.017007||Viu
+cPADOP|5.006000||Viu
+cPADOPo|5.006000||Viu
+cPADOPx|5.006000||Viu
+CPERLarg|5.005000||Viu
+CPERLscope|5.005000|5.003007|pdV
+cPMOP|5.003007||Viu
+cPMOPo|5.004005||Viu
+cPMOPx|5.006000||Viu
+CPPLAST|5.006000|5.006000|Vn
+CPPMINUS|5.003007|5.003007|Vn
+CPPRUN|5.006000|5.006000|Vn
+CPPSTDIN|5.003007|5.003007|Vn
+cPVOP|5.003007||Viu
+cPVOPo|5.004005||Viu
+cPVOPx|5.006000||Viu
+create_eval_scope|5.009004||xViu
+CR_NATIVE|5.019004||Viu
+CRNCYSTR|5.027010||Viu
+croak|5.003007||vV
+croak_caller|5.025004||vVniu
+croak_memory_wrap|5.019003||pcVnu
+croak_nocontext|5.006000||pvVn
+croak_no_mem|5.017006||Vniu
+croak_no_modify|5.013003|5.003007|pn
+croak_popstack|5.017008||cVniu
+croak_sv|5.013001|5.003007|p
+croak_xs_usage|5.010001|5.003007|pn
+cr_textfilter|5.006000||Viu
+crypt|5.009000||Viu
+CRYPT_R_PROTO|5.008000|5.008000|Vn
+CSH|5.003007|5.003007|Vn
+csighandler1|5.031007||cVnu
+csighandler3|5.031007||cVnu
+csighandler|5.008001||cVnu
+cSVOP|5.003007||Viu
+cSVOPo|5.004005||Viu
+cSVOPo_sv|5.006000||Viu
+cSVOP_sv|5.006000||Viu
+cSVOPx|5.006000||Viu
+cSVOPx_sv|5.006000||Viu
+cSVOPx_svp|5.006000||Viu
+ctermid|5.009000||Viu
+CTERMID_R_PROTO|5.008000|5.008000|Vn
+ctime|5.009000||Viu
+CTIME_R_PROTO|5.008000|5.008000|Vn
+Ctl|5.003007||Viu
+CTYPE256|5.003007||Viu
+cUNOP|5.003007||Viu
+cUNOP_AUX|5.021007||Viu
+cUNOP_AUXo|5.021007||Viu
+cUNOP_AUXx|5.021007||Viu
+cUNOPo|5.004005||Viu
+cUNOPx|5.006000||Viu
+CURLY|5.003007||Viu
+CURLY_B_max|5.009005||Viu
+CURLY_B_max_fail|5.009005||Viu
+CURLY_B_max_fail_t8|5.035004||Viu
+CURLY_B_max_fail_t8_p8|5.033003||Viu
+CURLY_B_max_fail_t8_pb|5.033003||Viu
+CURLY_B_max_fail_tb|5.035004||Viu
+CURLY_B_max_fail_tb_p8|5.033003||Viu
+CURLY_B_max_fail_tb_pb|5.033003||Viu
+CURLY_B_max_t8|5.035004||Viu
+CURLY_B_max_t8_p8|5.033003||Viu
+CURLY_B_max_t8_pb|5.033003||Viu
+CURLY_B_max_tb|5.035004||Viu
+CURLY_B_max_tb_p8|5.033003||Viu
+CURLY_B_max_tb_pb|5.033003||Viu
+CURLY_B_min|5.009005||Viu
+CURLY_B_min_fail|5.009005||Viu
+CURLY_B_min_fail_t8|5.035004||Viu
+CURLY_B_min_fail_t8_p8|5.033003||Viu
+CURLY_B_min_fail_t8_pb|5.033003||Viu
+CURLY_B_min_fail_tb|5.035004||Viu
+CURLY_B_min_fail_tb_p8|5.033003||Viu
+CURLY_B_min_fail_tb_pb|5.033003||Viu
+CURLY_B_min_t8|5.035004||Viu
+CURLY_B_min_t8_p8|5.033003||Viu
+CURLY_B_min_t8_pb|5.033003||Viu
+CURLY_B_min_tb|5.035004||Viu
+CURLY_B_min_tb_p8|5.033003||Viu
+CURLY_B_min_tb_pb|5.033003||Viu
+CURLYM|5.005000||Viu
+CURLYM_A|5.009005||Viu
+CURLYM_A_fail|5.009005||Viu
+CURLYM_A_fail_t8|5.035004||Viu
+CURLYM_A_fail_t8_p8|5.033003||Viu
+CURLYM_A_fail_t8_pb|5.033003||Viu
+CURLYM_A_fail_tb|5.035004||Viu
+CURLYM_A_fail_tb_p8|5.033003||Viu
+CURLYM_A_fail_tb_pb|5.033003||Viu
+CURLYM_A_t8|5.035004||Viu
+CURLYM_A_t8_p8|5.033003||Viu
+CURLYM_A_t8_pb|5.033003||Viu
+CURLYM_A_tb|5.035004||Viu
+CURLYM_A_tb_p8|5.033003||Viu
+CURLYM_A_tb_pb|5.033003||Viu
+CURLYM_B|5.009005||Viu
+CURLYM_B_fail|5.009005||Viu
+CURLYM_B_fail_t8|5.035004||Viu
+CURLYM_B_fail_t8_p8|5.033003||Viu
+CURLYM_B_fail_t8_pb|5.033003||Viu
+CURLYM_B_fail_tb|5.035004||Viu
+CURLYM_B_fail_tb_p8|5.033003||Viu
+CURLYM_B_fail_tb_pb|5.033003||Viu
+CURLYM_B_t8|5.035004||Viu
+CURLYM_B_t8_p8|5.033003||Viu
+CURLYM_B_t8_pb|5.033003||Viu
+CURLYM_B_tb|5.035004||Viu
+CURLYM_B_tb_p8|5.033003||Viu
+CURLYM_B_tb_pb|5.033003||Viu
+CURLYM_t8|5.035004||Viu
+CURLYM_t8_p8|5.033003||Viu
+CURLYM_t8_pb|5.033003||Viu
+CURLYM_tb|5.035004||Viu
+CURLYM_tb_p8|5.033003||Viu
+CURLYM_tb_pb|5.033003||Viu
+CURLYN|5.005000||Viu
+CURLYN_t8|5.035004||Viu
+CURLYN_t8_p8|5.033003||Viu
+CURLYN_t8_pb|5.033003||Viu
+CURLYN_tb|5.035004||Viu
+CURLYN_tb_p8|5.033003||Viu
+CURLYN_tb_pb|5.033003||Viu
+CURLY_t8|5.035004||Viu
+CURLY_t8_p8|5.033003||Viu
+CURLY_t8_pb|5.033003||Viu
+CURLY_tb|5.035004||Viu
+CURLY_tb_p8|5.033003||Viu
+CURLY_tb_pb|5.033003||Viu
+CURLYX|5.003007||Viu
+CURLYX_end|5.009005||Viu
+CURLYX_end_fail|5.009005||Viu
+CURLYX_end_fail_t8|5.035004||Viu
+CURLYX_end_fail_t8_p8|5.033003||Viu
+CURLYX_end_fail_t8_pb|5.033003||Viu
+CURLYX_end_fail_tb|5.035004||Viu
+CURLYX_end_fail_tb_p8|5.033003||Viu
+CURLYX_end_fail_tb_pb|5.033003||Viu
+CURLYX_end_t8|5.035004||Viu
+CURLYX_end_t8_p8|5.033003||Viu
+CURLYX_end_t8_pb|5.033003||Viu
+CURLYX_end_tb|5.035004||Viu
+CURLYX_end_tb_p8|5.033003||Viu
+CURLYX_end_tb_pb|5.033003||Viu
+CURLYX_t8|5.035004||Viu
+CURLYX_t8_p8|5.033003||Viu
+CURLYX_t8_pb|5.033003||Viu
+CURLYX_tb|5.035004||Viu
+CURLYX_tb_p8|5.033003||Viu
+CURLYX_tb_pb|5.033003||Viu
+CURRENT_FEATURE_BUNDLE|5.015007||Viu
+CURRENT_HINTS|5.015007||Viu
+current_re_engine|5.017001||cViu
+curse|5.013009||Viu
+custom_op_desc|5.007003|5.007003|d
+custom_op_get_field|5.019006||cViu
+custom_op_name|5.007003|5.007003|d
+custom_op_register|||
+CUTGROUP|5.009005||Viu
+CUTGROUP_next|5.009005||Viu
+CUTGROUP_next_fail|5.009005||Viu
+CUTGROUP_next_fail_t8|5.035004||Viu
+CUTGROUP_next_fail_t8_p8|5.033003||Viu
+CUTGROUP_next_fail_t8_pb|5.033003||Viu
+CUTGROUP_next_fail_tb|5.035004||Viu
+CUTGROUP_next_fail_tb_p8|5.033003||Viu
+CUTGROUP_next_fail_tb_pb|5.033003||Viu
+CUTGROUP_next_t8|5.035004||Viu
+CUTGROUP_next_t8_p8|5.033003||Viu
+CUTGROUP_next_t8_pb|5.033003||Viu
+CUTGROUP_next_tb|5.035004||Viu
+CUTGROUP_next_tb_p8|5.033003||Viu
+CUTGROUP_next_tb_pb|5.033003||Viu
+CUTGROUP_t8|5.035004||Viu
+CUTGROUP_t8_p8|5.033003||Viu
+CUTGROUP_t8_pb|5.033003||Viu
+CUTGROUP_tb|5.035004||Viu
+CUTGROUP_tb_p8|5.033003||Viu
+CUTGROUP_tb_pb|5.033003||Viu
+CvANON|5.003007||Viu
+CvANONCONST|5.021008||Viu
+CvANONCONST_off|5.021008||Viu
+CvANONCONST_on|5.021008||Viu
+CvANON_off|5.003007||Viu
+CvANON_on|5.003007||Viu
+CvAUTOLOAD|5.015004||Viu
+CvAUTOLOAD_off|5.015004||Viu
+CvAUTOLOAD_on|5.015004||Viu
+cv_ckproto|5.009004||Viu
+cv_ckproto_len_flags|5.015004||xcViu
+CvCLONE|5.003007||Viu
+cv_clone|5.015001|5.015001|
+CvCLONED|5.003007||Viu
+CvCLONED_off|5.003007||Viu
+CvCLONED_on|5.003007||Viu
+cv_clone_into|5.017004||Viu
+CvCLONE_off|5.003007||Viu
+CvCLONE_on|5.003007||Viu
+CvCONST|5.007001||Viu
+CvCONST_off|5.007001||Viu
+CvCONST_on|5.007001||Viu
+cv_const_sv|5.003007|5.003007|n
+cv_const_sv_or_av|5.019003||Vniu
+CvCVGV_RC|5.013003||Viu
+CvCVGV_RC_off|5.013003||Viu
+CvCVGV_RC_on|5.013003||Viu
+CvDEPTH|5.003007|5.003007|nu
+CvDEPTHunsafe|5.021006||Viu
+cv_dump|5.006000||Vi
+CvDYNFILE|5.015002||Viu
+CvDYNFILE_off|5.015002||Viu
+CvDYNFILE_on|5.015002||Viu
+CvEVAL|5.005003||Viu
+CvEVAL_off|5.005003||Viu
+CvEVAL_on|5.005003||Viu
+CVf_ANON|5.003007||Viu
+CVf_ANONCONST|5.021008||Viu
+CVf_AUTOLOAD|5.015004||Viu
+CVf_BUILTIN_ATTRS|5.008000||Viu
+CVf_CLONE|5.003007||Viu
+CVf_CLONED|5.003007||Viu
+CVf_CONST|5.007001||Viu
+CVf_CVGV_RC|5.013003||Viu
+CVf_DYNFILE|5.015002||Viu
+CVf_HASEVAL|5.017002||Viu
+CvFILE|5.006000||Viu
+CvFILEGV|5.003007||Viu
+CvFILE_set_from_cop|5.007002||Viu
+CVf_ISXSUB|5.009004||Viu
+CvFLAGS|5.003007||Viu
+CVf_LEXICAL|5.021004||Viu
+CVf_LVALUE|5.006000||Viu
+CVf_METHOD|5.005000||Viu
+CVf_NAMED|5.017004||Viu
+CVf_NODEBUG|5.004000||Viu
+cv_forget_slab|5.017002||Vi
+CVf_SIGNATURE|5.035009||Viu
+CVf_SLABBED|5.017002||Viu
+CVf_UNIQUE|5.004000||Viu
+CVf_WEAKOUTSIDE|5.008001||Viu
+cv_get_call_checker|5.013006|5.013006|
+cv_get_call_checker_flags|5.027003|5.027003|
+CvGV|5.003007|5.003007|
+cvgv_from_hek|||ciu
+cvgv_set|5.013003||cViu
+CvGV_set|5.013003||Viu
+CvHASEVAL|5.017002||Viu
+CvHASEVAL_off|5.017002||Viu
+CvHASEVAL_on|5.017002||Viu
+CvHASGV|5.021004||Viu
+CvHSCXT|5.021006||Viu
+CvISXSUB|5.009004||Viu
+CvISXSUB_off|5.009004||Viu
+CvISXSUB_on|5.009004||Viu
+CvLEXICAL|5.021004||Viu
+CvLEXICAL_off|5.021004||Viu
+CvLEXICAL_on|5.021004||Viu
+CvLVALUE|5.006000||Viu
+CvLVALUE_off|5.006000||Viu
+CvLVALUE_on|5.006000||Viu
+CvMETHOD|5.005000||Viu
+CvMETHOD_off|5.005000||Viu
+CvMETHOD_on|5.005000||Viu
+cv_name|5.021005|5.021005|
+CvNAMED|5.017004||Viu
+CvNAMED_off|5.017004||Viu
+CvNAMED_on|5.017004||Viu
+CvNAME_HEK_set|5.017004||Viu
+CV_NAME_NOTQUAL|5.021005|5.021005|
+CvNODEBUG|5.004000||Viu
+CvNODEBUG_off|5.004000||Viu
+CvNODEBUG_on|5.004000||Viu
+CvOUTSIDE|5.003007||Viu
+CvOUTSIDE_SEQ|5.008001||Viu
+CvPADLIST|5.008001|5.008001|x
+CvPADLIST_set|5.021006||Viu
+CvPROTO|5.015004||Viu
+CvPROTOLEN|5.015004||Viu
+CvROOT|5.003007||Viu
+cv_set_call_checker|5.013006|5.013006|
+cv_set_call_checker_flags|5.021004|5.021004|
+CvSIGNATURE|5.035009||Viu
+CvSIGNATURE_off|5.035009||Viu
+CvSIGNATURE_on|5.035009||Viu
+CvSLABBED|5.017002||Viu
+CvSLABBED_off|5.017002||Viu
+CvSLABBED_on|5.017002||Viu
+CvSPECIAL|5.005003||Viu
+CvSPECIAL_off|5.005003||Viu
+CvSPECIAL_on|5.005003||Viu
+CvSTART|5.003007||Viu
+CvSTASH|5.003007|5.003007|
+cvstash_set|5.013007||cViu
+CvSTASH_set|5.013007||Viu
+cv_undef|5.003007|5.003007|
+cv_undef_flags|5.021004||Viu
+CV_UNDEF_KEEP_NAME|5.021004||Viu
+CvUNIQUE|5.004000||Viu
+CvUNIQUE_off|5.004000||Viu
+CvUNIQUE_on|5.004000||Viu
+CvWEAKOUTSIDE|5.008001||Vi
+CvWEAKOUTSIDE_off|5.008001||Viu
+CvWEAKOUTSIDE_on|5.008001||Viu
+CvXSUB|5.003007||Viu
+CvXSUBANY|5.003007||Viu
+CX_CUR|5.023008||Viu
+CX_CURPAD_SAVE|5.008001||Vi
+CX_CURPAD_SV|5.008001||Vi
+CX_DEBUG|5.023008||Viu
+cx_dump|5.003007||cVu
+cx_dup|5.006000||cVu
+CxEVALBLOCK|5.033007||Viu
+CxEVAL_TXT_REFCNTED|5.025007||Viu
+CxFOREACH|5.009003||Viu
+CxHASARGS|5.010001||Viu
+cxinc|5.003007||cVu
+CXINC|5.003007||Viu
+CxITERVAR|5.006000||Viu
+CxLABEL|5.010001||Viu
+CxLABEL_len|5.016000||Viu
+CxLABEL_len_flags|5.016000||Viu
+CX_LEAVE_SCOPE|5.023008||Viu
+CxLVAL|5.010001||Viu
+CxMULTICALL|5.009003||Viu
+CxOLD_IN_EVAL|5.010001||Viu
+CxOLD_OP_TYPE|5.010001||Viu
+CxONCE|5.010001||Viu
+CxPADLOOP|5.006000||Viu
+CXp_EVALBLOCK|5.033007||Viu
+CXp_FINALLY|5.035008||Viu
+CXp_FOR_DEF|5.027008||Viu
+CXp_FOR_GV|5.023008||Viu
+CXp_FOR_LVREF|5.021005||Viu
+CXp_FOR_PAD|5.023008||Viu
+CXp_HASARGS|5.011000||Viu
+CXp_MULTICALL|5.009003||Viu
+CXp_ONCE|5.011000||Viu
+CX_POP|5.023008||Viu
+cx_popblock|5.023008||xcVu
+cx_popeval|5.023008||xcVu
+cx_popformat|5.023008||xcVu
+cx_popgiven|5.027008||xcVu
+cx_poploop|5.023008||xcVu
+CX_POP_SAVEARRAY|5.023008||Viu
+cx_popsub|5.023008||xcVu
+cx_popsub_args|5.023008||xcVu
+cx_popsub_common|5.023008||xcVu
+CX_POPSUBST|5.023008||Viu
+cx_popwhen|5.027008||xcVu
+CXp_REAL|5.005003||Viu
+CXp_SUB_RE|5.018000||Viu
+CXp_SUB_RE_FAKE|5.018000||Viu
+CXp_TRY|5.033007||Viu
+CXp_TRYBLOCK|5.006000||Viu
+cx_pushblock|5.023008||xcVu
+cx_pusheval|5.023008||xcVu
+cx_pushformat|5.023008||xcVu
+cx_pushgiven|5.027008||xcVu
+cx_pushloop_for|5.023008||xcVu
+cx_pushloop_plain|5.023008||xcVu
+cx_pushsub|5.023008||xcVu
+CX_PUSHSUB_GET_LVALUE_MASK|5.023008||Viu
+CX_PUSHSUBST|5.023008||Viu
+cx_pushtry|5.033007||xcVu
+cx_pushwhen|5.027008||xcVu
+CxREALEVAL|5.005003||Viu
+cxstack|5.005000||Viu
+cxstack_ix|5.005000||Viu
+cxstack_max|5.005000||Viu
+CXt_BLOCK|5.003007||Viu
+CXt_DEFER|5.035004||Viu
+CXt_EVAL|5.003007||Viu
+CXt_FORMAT|5.006000||Viu
+CXt_GIVEN|5.027008||Viu
+CXt_LOOP_ARY|5.023008||Viu
+CXt_LOOP_LAZYIV|5.011000||Viu
+CXt_LOOP_LAZYSV|5.011000||Viu
+CXt_LOOP_LIST|5.023008||Viu
+CXt_LOOP_PLAIN|5.011000||Viu
+CXt_NULL|5.003007||Viu
+cx_topblock|5.023008||xcVu
+CxTRY|5.033007||Viu
+CxTRYBLOCK|5.006000||Viu
+CXt_SUB|5.003007||Viu
+CXt_SUBST|5.003007||Viu
+CXt_WHEN|5.027008||Viu
+CxTYPE|5.005003||Viu
+cx_type|5.009005||Viu
+CxTYPE_is_LOOP|5.011000||Viu
+CXTYPEMASK|5.005003||Viu
+dATARGET|5.003007||Viu
+dAX|5.007002|5.003007|p
+dAXMARK|5.009003|5.003007|p
+DAY_1|5.027010||Viu
+DAY_2|5.027010||Viu
+DAY_3|5.027010||Viu
+DAY_4|5.027010||Viu
+DAY_5|5.027010||Viu
+DAY_6|5.027010||Viu
+DAY_7|5.027010||Viu
+DB_Hash_t|5.003007|5.003007|Vn
+DBM_ckFilter|5.008001||Viu
+DBM_setFilter|5.008001||Viu
+DB_Prefix_t|5.003007|5.003007|Vn
+DBVARMG_COUNT|5.021005||Viu
+DBVARMG_SIGNAL|5.021005||Viu
+DBVARMG_SINGLE|5.021005||Viu
+DBVARMG_TRACE|5.021005||Viu
+DB_VERSION_MAJOR_CFG|5.007002|5.007002|Vn
+DB_VERSION_MINOR_CFG|5.007002|5.007002|Vn
+DB_VERSION_PATCH_CFG|5.007002|5.007002|Vn
+deb|5.003007||vVu
+deb_curcv|5.007002||Viu
+deb_nocontext|5.006000||vVnu
+debop|5.005000|5.005000|u
+debprof|5.005000||Viu
+debprofdump|5.005000|5.005000|u
+debstack|5.007003|5.007003|u
+deb_stack_all|5.008001||Viu
+deb_stack_n|5.008001||Viu
+debstackptrs|5.007003|5.007003|u
+DEBUG|5.003007||Viu
+DEBUG_A|5.009001||Viu
+DEBUG_A_FLAG|5.009001||Viu
+DEBUG_A_TEST|5.009001||Viu
+DEBUG_B|5.011000||Viu
+DEBUG_B_FLAG|5.011000||Viu
+DEBUG_BOTH_FLAGS_TEST|5.033007||Viu
+DEBUG_B_TEST|5.011000||Viu
+DEBUG_BUFFERS_r|5.009005||Viu
+DEBUG_c|5.003007||Viu
+DEBUG_C|5.009000||Viu
+DEBUG_c_FLAG|5.007001||Viu
+DEBUG_C_FLAG|5.009000||Viu
+DEBUG_COMPILE_r|5.009002||Viu
+DEBUG_c_TEST|5.007001||Viu
+DEBUG_C_TEST|5.009000||Viu
+DEBUG_D|5.003007||Viu
+DEBUG_DB_RECURSE_FLAG|5.007001||Viu
+DEBUG_D_FLAG|5.007001||Viu
+DEBUG_D_TEST|5.007001||Viu
+DEBUG_DUMP_PRE_OPTIMIZE_r|5.031004||Viu
+DEBUG_DUMP_r|5.009004||Viu
+DEBUG_EXECUTE_r|5.009002||Viu
+DEBUG_EXTRA_r|5.009004||Viu
+DEBUG_f|5.003007||Viu
+DEBUG_f_FLAG|5.007001||Viu
+DEBUG_FLAGS_r|5.009005||Viu
+DEBUG_f_TEST|5.007001||Viu
+DEBUG_GPOS_r|5.011000||Viu
+DEBUG_i|5.025002||Viu
+DEBUG_i_FLAG|5.025002||Viu
+DEBUG_INTUIT_r|5.009004||Viu
+DEBUG_i_TEST|5.025002||Viu
+DEBUG_J_FLAG|5.007003||Viu
+DEBUG_J_TEST|5.007003||Viu
+DEBUG_l|5.003007||Viu
+DEBUG_L|5.019009||Viu
+DEBUG_l_FLAG|5.007001||Viu
+DEBUG_L_FLAG|5.019009||Viu
+DEBUG_l_TEST|5.007001||Viu
+DEBUG_L_TEST|5.019009||Viu
+DEBUG_Lv|5.023003||Viu
+DEBUG_Lv_TEST|5.023003||Viu
+DEBUG_m|5.003007||Viu
+DEBUG_M|5.027008||Viu
+DEBUG_MASK|5.007001||Viu
+DEBUG_MATCH_r|5.009004||Viu
+DEBUG_m_FLAG|5.007001||Viu
+DEBUG_M_FLAG|5.027008||Viu
+DEBUG_m_TEST|5.007001||Viu
+DEBUG_M_TEST|5.027008||Viu
+DEBUG_o|5.003007||Viu
+DEBUG_o_FLAG|5.007001||Viu
+DEBUG_OPTIMISE_MORE_r|5.009005||Viu
+DEBUG_OPTIMISE_r|5.009002||Viu
+DEBUG_o_TEST|5.007001||Viu
+DEBUG_P|5.003007||Viu
+DEBUG_p|5.003007||Viu
+DEBUG_PARSE_r|5.009004||Viu
+DEBUG_P_FLAG|5.007001||Viu
+DEBUG_p_FLAG|5.007001||Viu
+DEBUG_POST_STMTS|5.033008||Viu
+DEBUG_PRE_STMTS|5.033008||Viu
+DEBUG_P_TEST|5.007001||Viu
+DEBUG_p_TEST|5.007001||Viu
+DEBUG_Pv|5.013008||Viu
+DEBUG_Pv_TEST|5.013008||Viu
+DEBUG_q|5.009001||Viu
+DEBUG_q_FLAG|5.009001||Viu
+DEBUG_q_TEST|5.009001||Viu
+DEBUG_r|5.003007||Viu
+DEBUG_R|5.007001||Viu
+DEBUG_R_FLAG|5.007001||Viu
+DEBUG_r_FLAG|5.007001||Viu
+DEBUG_R_TEST|5.007001||Viu
+DEBUG_r_TEST|5.007001||Viu
+DEBUG_s|5.003007||Viu
+DEBUG_S|5.017002||Viu
+DEBUG_SBOX32_HASH|5.027001||Viu
+DEBUG_SCOPE|5.008001||Viu
+DEBUG_s_FLAG|5.007001||Viu
+DEBUG_S_FLAG|5.017002||Viu
+DEBUG_STACK_r|5.009005||Viu
+debug_start_match|5.009004||Viu
+DEBUG_STATE_r|5.009004||Viu
+DEBUG_s_TEST|5.007001||Viu
+DEBUG_S_TEST|5.017002||Viu
+DEBUG_t|5.003007||Viu
+DEBUG_T|5.007001||Viu
+DEBUG_TEST_r|5.021005||Viu
+DEBUG_T_FLAG|5.007001||Viu
+DEBUG_t_FLAG|5.007001||Viu
+DEBUG_TOP_FLAG|5.007001||Viu
+DEBUG_TRIE_COMPILE_MORE_r|5.009002||Viu
+DEBUG_TRIE_COMPILE_r|5.009002||Viu
+DEBUG_TRIE_EXECUTE_MORE_r|5.009002||Viu
+DEBUG_TRIE_EXECUTE_r|5.009002||Viu
+DEBUG_TRIE_r|5.009002||Viu
+DEBUG_T_TEST|5.007001||Viu
+DEBUG_t_TEST|5.007001||Viu
+DEBUG_u|5.003007||Viu
+DEBUG_U|5.009005||Viu
+DEBUG_u_FLAG|5.007001||Viu
+DEBUG_U_FLAG|5.009005||Viu
+DEBUG_u_TEST|5.007001||Viu
+DEBUG_U_TEST|5.009005||Viu
+DEBUG_Uv|5.009005||Viu
+DEBUG_Uv_TEST|5.009005||Viu
+DEBUG_v|5.008001||Viu
+DEBUG_v_FLAG|5.008001||Viu
+DEBUG_v_TEST|5.008001||Viu
+DEBUG_X|5.003007||Viu
+DEBUG_x|5.003007||Viu
+DEBUG_X_FLAG|5.007001||Viu
+DEBUG_x_FLAG|5.007001||Viu
+DEBUG_X_TEST|5.007001||Viu
+DEBUG_x_TEST|5.007001||Viu
+DEBUG_Xv|5.008001||Viu
+DEBUG_Xv_TEST|5.008001||Viu
+DEBUG_y|5.031007||Viu
+DEBUG_y_FLAG|5.031007||Viu
+DEBUG_y_TEST|5.031007||Viu
+DEBUG_yv|5.031007||Viu
+DEBUG_yv_TEST|5.031007||Viu
+DEBUG_ZAPHOD32_HASH|5.027001||Viu
+DECLARATION_FOR_LC_NUMERIC_MANIPULATION|5.021010|5.021010|p
+DECLARE_AND_GET_RE_DEBUG_FLAGS|5.031011||Viu
+DECLARE_AND_GET_RE_DEBUG_FLAGS_NON_REGEX|5.031011||Viu
+DEFAULT_INC_EXCLUDES_DOT|5.025011|5.025011|Vn
+DEFAULT_PAT_MOD|5.013006||Viu
+defelem_target|5.019002||Viu
+DEFINE_INC_MACROS|5.027006||Viu
+DEFINEP|5.009005||Viu
+DEFINEP_t8|5.035004||Viu
+DEFINEP_t8_p8|5.033003||Viu
+DEFINEP_t8_pb|5.033003||Viu
+DEFINEP_tb|5.035004||Viu
+DEFINEP_tb_p8|5.033003||Viu
+DEFINEP_tb_pb|5.033003||Viu
+DEFSV|5.004005|5.003007|p
+DEFSV_set|5.010001|5.003007|p
+del_body_by_type|||Viu
+delete_eval_scope|5.009004||xViu
+delimcpy|5.004000|5.004000|n
+delimcpy_no_escape|5.025005||cVni
+DEL_NATIVE|5.017010||Viu
+del_sv|5.005000||Viu
+DEPENDS_PAT_MOD|5.013009||Viu
+DEPENDS_PAT_MODS|5.013009||Viu
+deprecate|5.011001||Viu
+deprecate_disappears_in|5.025009||Viu
+deprecate_fatal_in|5.025009||Viu
+despatch_signals|5.007001||cVu
+destroy_matcher|5.027008||Viu
+DETACH|5.005000||Viu
+dEXT|5.003007||Viu
+dEXTCONST|5.004000||Viu
+DFA_RETURN_FAILURE|5.035004||Viu
+DFA_RETURN_SUCCESS|5.035004||Viu
+DFA_TEASE_APART_FF|5.035004||Viu
+D_FMT|5.027010||Viu
+DIE|5.003007||Viu
+die|5.003007||vV
+die_nocontext|5.006000||vVn
+die_sv|5.013001|5.003007|p
+die_unwind|5.013001||Viu
+Direntry_t|5.003007|5.003007|Vn
+dirp_dup|5.013007|5.013007|u
+dITEMS|5.007002|5.003007|p
+div128|5.005000||Viu
+dJMPENV|5.004000||Viu
+djSP|5.004005||Vi
+dMARK|5.003007|5.003007|
+DM_ARRAY_ISA|5.013002||Viu
+DM_DELAY|5.003007||Viu
+DM_EGID|5.003007||Viu
+DM_EUID|5.003007||Viu
+DM_GID|5.003007||Viu
+DM_RGID|5.003007||Viu
+DM_RUID|5.003007||Viu
+DM_UID|5.003007||Viu
+dMULTICALL|5.009003|5.009003|
+dMY_CXT|5.009000|5.009000|p
+dMY_CXT_INTERP|5.009003||Viu
+dMY_CXT_SV|5.007003|5.003007|pV
+dNOOP|5.006000|5.003007|p
+do_aexec|5.009003||Viu
+do_aexec5|5.006000||Viu
+do_aspawn|5.008000||Vu
+do_binmode|5.004005|5.004005|du
+docatch|5.005000||Vi
+do_chomp|5.003007||Viu
+do_close|5.003007|5.003007|u
+do_delete_local|5.011000||Viu
+do_dump_pad|5.008001||Vi
+do_eof|5.003007||Viu
+does_utf8_overflow|5.025006||Vniu
+doeval_compile|5.023008||Viu
+do_exec3|5.006000||Viu
+do_exec|5.009003||Viu
+dofile|5.005003||Viu
+dofindlabel|5.003007||Viu
+doform|5.005000||Viu
+do_gv_dump|5.006000||cVu
+do_gvgv_dump|5.006000||cVu
+do_hv_dump|5.006000||cVu
+doing_taint|5.008001||cVnu
+DOINIT|5.003007||Viu
+do_ipcctl|5.003007||Viu
+do_ipcget|5.003007||Viu
+do_join|5.003007|5.003007|u
+do_magic_dump|5.006000||cVu
+do_msgrcv|5.003007||Viu
+do_msgsnd|5.003007||Viu
+do_ncmp|5.015001||Viu
+do_oddball|5.006000||Viu
+dooneliner|5.006000||Viu
+do_op_dump|5.006000||cVu
+do_open|5.003007|5.003007|u
+do_open6|5.019010||xViu
+do_open9|5.006000|5.006000|du
+do_openn|5.007001|5.007001|u
+doopen_pm|5.008001||Viu
+do_open_raw|5.019010||xViu
+doparseform|5.005000||Viu
+do_pmop_dump|5.006000||cVu
+dopoptoeval|5.003007||Viu
+dopoptogivenfor|5.027008||Viu
+dopoptolabel|5.005000||Viu
+dopoptoloop|5.005000||Viu
+dopoptosub_at|5.005000||Viu
+dopoptowhen|5.027008||Viu
+do_print|5.003007||Viu
+do_readline|5.003007||Viu
+doref|5.009003|5.009003|u
+dORIGMARK|5.003007|5.003007|
+do_seek|5.003007||Viu
+do_semop|5.003007||Viu
+do_shmio|5.003007||Viu
+DOSISH|5.003007||Viu
+do_smartmatch|5.027008||Viu
+do_spawn|5.008000||Vu
+do_spawn_nowait|5.008000||Vu
+do_sprintf|5.003007|5.003007|u
+do_sv_dump|5.006000||cVu
+do_sysseek|5.004000||Viu
+do_tell|5.003007||Viu
+do_trans|5.003007||Viu
+do_trans_complex|5.006001||Viu
+do_trans_count|5.006001||Viu
+do_trans_count_invmap|5.031006||Viu
+do_trans_invmap|5.031006||Viu
+do_trans_simple|5.006001||Viu
+DOUBLE_BIG_ENDIAN|5.021009||Viu
+DOUBLE_HAS_INF|5.025003|5.025003|Vn
+DOUBLE_HAS_NAN|5.025003|5.025003|Vn
+DOUBLE_HAS_NEGATIVE_ZERO|5.025007|5.025007|Vn
+DOUBLE_HAS_SUBNORMALS|5.025007|5.025007|Vn
+DOUBLEINFBYTES|5.023000|5.023000|Vn
+DOUBLE_IS_CRAY_SINGLE_64_BIT|5.025006|5.025006|Vn
+DOUBLE_IS_IBM_DOUBLE_64_BIT|5.025006|5.025006|Vn
+DOUBLE_IS_IBM_SINGLE_32_BIT|5.025006|5.025006|Vn
+DOUBLE_IS_IEEE_754_128_BIT_BIG_ENDIAN|5.021006|5.021006|Vn
+DOUBLE_IS_IEEE_754_128_BIT_LITTLE_ENDIAN|5.021006|5.021006|Vn
+DOUBLE_IS_IEEE_754_32_BIT_BIG_ENDIAN|5.021006|5.021006|Vn
+DOUBLE_IS_IEEE_754_32_BIT_LITTLE_ENDIAN|5.021006|5.021006|Vn
+DOUBLE_IS_IEEE_754_64_BIT_BIG_ENDIAN|5.021006|5.021006|Vn
+DOUBLE_IS_IEEE_754_64_BIT_LITTLE_ENDIAN|5.021006|5.021006|Vn
+DOUBLE_IS_IEEE_754_64_BIT_MIXED_ENDIAN_BE_LE|5.021006|5.021006|Vn
+DOUBLE_IS_IEEE_754_64_BIT_MIXED_ENDIAN_LE_BE|5.021006|5.021006|Vn
+DOUBLE_IS_IEEE_FORMAT|5.025003||Viu
+DOUBLE_IS_UNKNOWN_FORMAT|5.021006|5.021006|Vn
+DOUBLE_IS_VAX_D_FLOAT|5.025003|5.025003|Vn
+DOUBLE_IS_VAX_F_FLOAT|5.025003|5.025003|Vn
+DOUBLE_IS_VAX_FLOAT|5.025003||Viu
+DOUBLE_IS_VAX_G_FLOAT|5.025003|5.025003|Vn
+DOUBLEKIND|5.021006|5.021006|Vn
+DOUBLE_LITTLE_ENDIAN|5.021009||Viu
+DOUBLEMANTBITS|5.023000|5.023000|Vn
+DOUBLE_MIX_ENDIAN|5.021009||Viu
+DOUBLENANBYTES|5.023000|5.023000|Vn
+DOUBLESIZE|5.005000|5.005000|Vn
+DOUBLE_STYLE_IEEE|5.025007|5.025007|Vn
+DOUBLE_VAX_ENDIAN|5.025003||Viu
+do_uniprop_match|5.031011||cVniu
+dounwind|5.003007|5.003007|u
+DO_UTF8|5.006000|5.006000|
+do_vecget|5.006000||Viu
+do_vecset|5.003007||Viu
+do_vop|5.003007||Viu
+dowantarray|5.003007|5.003007|u
+dPOPiv|5.003007||Viu
+dPOPnv|5.003007||Viu
+dPOPnv_nomg|5.013002||Viu
+dPOPPOPiirl|5.003007||Viu
+dPOPPOPnnrl|5.003007||Viu
+dPOPPOPssrl|5.003007||Viu
+dPOPss|5.003007||Viu
+dPOPTOPiirl|5.003007||Viu
+dPOPTOPiirl_nomg|5.013002||Viu
+dPOPTOPiirl_ul_nomg|5.013002||Viu
+dPOPTOPnnrl|5.003007||Viu
+dPOPTOPnnrl_nomg|5.013002||Viu
+dPOPTOPssrl|5.003007||Viu
+dPOPuv|5.004000||Viu
+dPOPXiirl|5.004000||Viu
+dPOPXiirl_ul_nomg|5.013002||Viu
+dPOPXnnrl|5.004000||Viu
+dPOPXssrl|5.004000||Viu
+DPTR2FPTR|5.009003||Viu
+Drand01|5.006000|5.006000|
+drand48_init_r|||cniu
+drand48_r|||cniu
+DRAND48_R_PROTO|5.008000|5.008000|Vn
+dSAVEDERRNO|5.010001||Vi
+dSAVE_ERRNO|5.010001||Vi
+dSP|5.003007|5.003007|
+dSS_ADD|5.017007||Viu
+dTARG|5.003007||Viu
+dTARGET|5.003007|5.003007|
+dTARGETSTACKED|5.003007||Viu
+D_T_FMT|5.027010||Viu
+dTHR|5.004005|5.003007|p
+dTHX|5.003007|5.003007|p
+dTHXa|5.006000|5.003007|p
+dTHX_DEBUGGING|5.027009||Viu
+dTHXo|5.006000||Viu
+dTHXoa|5.006001|5.003007|p
+dTHXR||5.003007|ponu
+dTHXs|5.007002||Viu
+dTHXx|5.006000||Viu
+dTOPiv|5.003007||Viu
+dTOPnv|5.003007||Viu
+dTOPss|5.003007||Viu
+dTOPuv|5.004000||Viu
+dtrace_probe_call|||ciu
+dtrace_probe_load|||ciu
+dtrace_probe_op|||ciu
+dtrace_probe_phase|||ciu
+dump_all|5.006000|5.006000|
+dump_all_perl|5.011000||Viu
+dump_c_backtrace|5.021001||V
+dump_eval|5.006000|5.006000|u
+dump_exec_pos|5.009004||Viu
+dump_form|5.006000|5.006000|u
+dump_indent|5.006000||vcVu
+dump_mstats|5.003007||Vu
+dump_packsubs|5.006000|5.006000|
+dump_packsubs_perl|5.011000||Viu
+dump_regex_sets_structures|5.025006||Viu
+dump_sub|5.006000|5.006000|u
+dump_sub_perl|5.011000||Viu
+dump_sv_child|5.009003||Viu
+dump_trie|5.009004||Viu
+dump_trie_interim_list|5.009004||Viu
+dump_trie_interim_table|5.009004||Viu
+dumpuntil|5.005000||Viu
+dump_vindent|5.006000||cVu
+dUNDERBAR|5.009002|5.003007|p
+dup2|5.005000||Viu
+dup|5.005000||Viu
+dup_attrlist|5.006000||Viu
+DUP_WARNINGS|5.009004||Viu
+dup_warnings|||ciu
+dVAR|5.009003|5.003007|p
+dXCPT|5.009002|5.003007|p
+dXSARGS|5.003007|5.003007|
+dXSBOOTARGSAPIVERCHK|5.021006||Viu
+dXSBOOTARGSNOVERCHK|5.021006||Viu
+dXSBOOTARGSXSAPIVERCHK|5.021006||Viu
+dXSFUNCTION|5.005000||Viu
+dXSI32|5.003007|5.003007|V
+dXSTARG|5.006000|5.003007|poVnu
+dXSUB_SYS|5.003007||Viu
+edit_distance|5.023008||Vniu
+EIGHT_BIT_UTF8_TO_NATIVE|5.023003||Viu
+ELEMENT_RANGE_MATCHES_INVLIST|5.023002||Viu
+EMBEDMYMALLOC|5.006000||Viu
+emulate_cop_io|||xciu
+emulate_setlocale|5.027009||Vniu
+END|5.003007||Viu
+END_EXTERN_C|5.005000|5.003007|pV
+endgrent|5.009000||Viu
+ENDGRENT_R_HAS_FPTR|5.008000||Viu
+ENDGRENT_R_PROTO|5.008000|5.008000|Vn
+endhostent|5.005000||Viu
+ENDHOSTENT_R_PROTO|5.008000|5.008000|Vn
+ENDLIKE|5.009005||Viu
+ENDLIKE_t8|5.035004||Viu
+ENDLIKE_t8_p8|5.033003||Viu
+ENDLIKE_t8_pb|5.033003||Viu
+ENDLIKE_tb|5.035004||Viu
+ENDLIKE_tb_p8|5.033003||Viu
+ENDLIKE_tb_pb|5.033003||Viu
+endnetent|5.005000||Viu
+ENDNETENT_R_PROTO|5.008000|5.008000|Vn
+endprotoent|5.005000||Viu
+ENDPROTOENT_R_PROTO|5.008000|5.008000|Vn
+endpwent|5.009000||Viu
+ENDPWENT_R_HAS_FPTR|5.008000||Viu
+ENDPWENT_R_PROTO|5.008000|5.008000|Vn
+endservent|5.005000||Viu
+ENDSERVENT_R_PROTO|5.008000|5.008000|Vn
+END_t8|5.035004||Viu
+END_t8_p8|5.033003||Viu
+END_t8_pb|5.033003||Viu
+END_tb|5.035004||Viu
+END_tb_p8|5.033003||Viu
+END_tb_pb|5.033003||Viu
+ENTER|5.003007|5.003007|
+ENTER_with_name|5.011002|5.011002|
+ENV_INIT|5.031011||Viu
+environ|5.003007||Viu
+ENV_LOCALE_LOCK|5.031011||Viu
+ENV_LOCALE_READ_LOCK|5.031011||Viu
+ENV_LOCALE_READ_UNLOCK|5.031011||Viu
+ENV_LOCALE_UNLOCK|5.031011||Viu
+ENV_LOCK|5.031011||Viu
+ENV_READ_LOCK|5.033005||Viu
+ENV_READ_UNLOCK|5.033005||Viu
+ENV_TERM|5.031011||Viu
+ENV_UNLOCK|5.031011||Viu
+EOF|5.003007||Viu
+EOF_NONBLOCK|5.003007|5.003007|Vn
+EOL|5.003007||Viu
+EOL_t8|5.035004||Viu
+EOL_t8_p8|5.033003||Viu
+EOL_t8_pb|5.033003||Viu
+EOL_tb|5.035004||Viu
+EOL_tb_p8|5.033003||Viu
+EOL_tb_pb|5.033003||Viu
+EOS|5.005000||Viu
+EOS_t8|5.035004||Viu
+EOS_t8_p8|5.033003||Viu
+EOS_t8_pb|5.033003||Viu
+EOS_tb|5.035004||Viu
+EOS_tb_p8|5.033003||Viu
+EOS_tb_pb|5.033003||Viu
+ERA|5.027010||Viu
+ERA_D_FMT|5.027010||Viu
+ERA_D_T_FMT|5.027010||Viu
+ERA_T_FMT|5.027010||Viu
+ERRSV|5.004005|5.003007|p
+ESC_NATIVE|5.021004||Viu
+EVAL|5.005000||Viu
+EVAL_B|5.025010||Viu
+EVAL_B_fail|5.025010||Viu
+EVAL_B_fail_t8|5.035004||Viu
+EVAL_B_fail_t8_p8|5.033003||Viu
+EVAL_B_fail_t8_pb|5.033003||Viu
+EVAL_B_fail_tb|5.035004||Viu
+EVAL_B_fail_tb_p8|5.033003||Viu
+EVAL_B_fail_tb_pb|5.033003||Viu
+EVAL_B_t8|5.035004||Viu
+EVAL_B_t8_p8|5.033003||Viu
+EVAL_B_t8_pb|5.033003||Viu
+EVAL_B_tb|5.035004||Viu
+EVAL_B_tb_p8|5.033003||Viu
+EVAL_B_tb_pb|5.033003||Viu
+EVAL_INEVAL|5.006000||Viu
+EVAL_INREQUIRE|5.007001||Viu
+EVAL_KEEPERR|5.006000||Viu
+EVAL_NULL|5.006000||Viu
+EVAL_postponed_AB|5.025010||Viu
+EVAL_postponed_AB_fail|5.025010||Viu
+EVAL_postponed_AB_fail_t8|5.035004||Viu
+EVAL_postponed_AB_fail_t8_p8|5.033003||Viu
+EVAL_postponed_AB_fail_t8_pb|5.033003||Viu
+EVAL_postponed_AB_fail_tb|5.035004||Viu
+EVAL_postponed_AB_fail_tb_p8|5.033003||Viu
+EVAL_postponed_AB_fail_tb_pb|5.033003||Viu
+EVAL_postponed_AB_t8|5.035004||Viu
+EVAL_postponed_AB_t8_p8|5.033003||Viu
+EVAL_postponed_AB_t8_pb|5.033003||Viu
+EVAL_postponed_AB_tb|5.035004||Viu
+EVAL_postponed_AB_tb_p8|5.033003||Viu
+EVAL_postponed_AB_tb_pb|5.033003||Viu
+eval_pv|5.006000|5.003007|p
+EVAL_RE_REPARSING|5.017011||Viu
+eval_sv|5.006000|5.003007|p
+EVAL_t8|5.035004||Viu
+EVAL_t8_p8|5.033003||Viu
+EVAL_t8_pb|5.033003||Viu
+EVAL_tb|5.035004||Viu
+EVAL_tb_p8|5.033003||Viu
+EVAL_tb_pb|5.033003||Viu
+EVAL_WARNONLY|5.006000||Viu
+EXACT|5.004000||Viu
+EXACTF|5.004000||Viu
+EXACTFAA|5.027009||Viu
+EXACTFAA_NO_TRIE|5.027009||Viu
+EXACTFAA_NO_TRIE_t8|5.035004||Viu
+EXACTFAA_NO_TRIE_t8_p8|5.033003||Viu
+EXACTFAA_NO_TRIE_t8_pb|5.033003||Viu
+EXACTFAA_NO_TRIE_tb|5.035004||Viu
+EXACTFAA_NO_TRIE_tb_p8|5.033003||Viu
+EXACTFAA_NO_TRIE_tb_pb|5.033003||Viu
+EXACTFAA_t8|5.035004||Viu
+EXACTFAA_t8_p8|5.033003||Viu
+EXACTFAA_t8_pb|5.033003||Viu
+EXACTFAA_tb|5.035004||Viu
+EXACTFAA_tb_p8|5.033003||Viu
+EXACTFAA_tb_pb|5.033003||Viu
+EXACTFL|5.004000||Viu
+EXACTFL_t8|5.035004||Viu
+EXACTFL_t8_p8|5.033003||Viu
+EXACTFL_t8_pb|5.033003||Viu
+EXACTFL_tb|5.035004||Viu
+EXACTFL_tb_p8|5.033003||Viu
+EXACTFL_tb_pb|5.033003||Viu
+EXACTFLU8|5.021008||Viu
+EXACTFLU8_t8|5.035004||Viu
+EXACTFLU8_t8_p8|5.033003||Viu
+EXACTFLU8_t8_pb|5.033003||Viu
+EXACTFLU8_tb|5.035004||Viu
+EXACTFLU8_tb_p8|5.033003||Viu
+EXACTFLU8_tb_pb|5.033003||Viu
+EXACTF_t8|5.035004||Viu
+EXACTF_t8_p8|5.033003||Viu
+EXACTF_t8_pb|5.033003||Viu
+EXACTF_tb|5.035004||Viu
+EXACTF_tb_p8|5.033003||Viu
+EXACTF_tb_pb|5.033003||Viu
+EXACTFU|5.013008||Viu
+EXACTFUP|5.029007||Viu
+EXACTFUP_t8|5.035004||Viu
+EXACTFUP_t8_p8|5.033003||Viu
+EXACTFUP_t8_pb|5.033003||Viu
+EXACTFUP_tb|5.035004||Viu
+EXACTFUP_tb_p8|5.033003||Viu
+EXACTFUP_tb_pb|5.033003||Viu
+EXACTFU_REQ8|5.031006||Viu
+EXACTFU_REQ8_t8|5.035004||Viu
+EXACTFU_REQ8_t8_p8|5.033003||Viu
+EXACTFU_REQ8_t8_pb|5.033003||Viu
+EXACTFU_REQ8_tb|5.035004||Viu
+EXACTFU_REQ8_tb_p8|5.033003||Viu
+EXACTFU_REQ8_tb_pb|5.033003||Viu
+EXACTFU_S_EDGE|5.029007||Viu
+EXACTFU_S_EDGE_t8|5.035004||Viu
+EXACTFU_S_EDGE_t8_p8|5.033003||Viu
+EXACTFU_S_EDGE_t8_pb|5.033003||Viu
+EXACTFU_S_EDGE_tb|5.035004||Viu
+EXACTFU_S_EDGE_tb_p8|5.033003||Viu
+EXACTFU_S_EDGE_tb_pb|5.033003||Viu
+EXACTFU_t8|5.035004||Viu
+EXACTFU_t8_p8|5.033003||Viu
+EXACTFU_t8_pb|5.033003||Viu
+EXACTFU_tb|5.035004||Viu
+EXACTFU_tb_p8|5.033003||Viu
+EXACTFU_tb_pb|5.033003||Viu
+EXACTL|5.021008||Viu
+EXACTL_t8|5.035004||Viu
+EXACTL_t8_p8|5.033003||Viu
+EXACTL_t8_pb|5.033003||Viu
+EXACTL_tb|5.035004||Viu
+EXACTL_tb_p8|5.033003||Viu
+EXACTL_tb_pb|5.033003||Viu
+EXACT_REQ8|5.031006||Viu
+EXACT_REQ8_t8|5.035004||Viu
+EXACT_REQ8_t8_p8|5.033003||Viu
+EXACT_REQ8_t8_pb|5.033003||Viu
+EXACT_REQ8_tb|5.035004||Viu
+EXACT_REQ8_tb_p8|5.033003||Viu
+EXACT_REQ8_tb_pb|5.033003||Viu
+EXACT_t8|5.035004||Viu
+EXACT_t8_p8|5.033003||Viu
+EXACT_t8_pb|5.033003||Viu
+EXACT_tb|5.035004||Viu
+EXACT_tb_p8|5.033003||Viu
+EXACT_tb_pb|5.033003||Viu
+EXEC_ARGV_CAST|5.007001||Viu
+exec_failed|5.009004||Viu
+execl|5.005000||Viu
+EXEC_PAT_MOD|5.009005||Viu
+EXEC_PAT_MODS|5.009005||Viu
+execute_wildcard|5.031010||Viu
+execv|5.005000||Viu
+execvp|5.005000||Viu
+exit|5.005000||Viu
+EXPECT|5.009004||Viu
+expect_number|5.007001||Viu
+EXT|5.003007||Viu
+EXTCONST|5.004000||Viu
+EXTEND|5.003007|5.003007|
+EXTEND_HWM_SET|5.027002||Viu
+EXTEND_MORTAL|5.004000||Viu
+EXTEND_SKIP|5.027002||Viu
+EXTERN_C|5.005000|5.003007|pV
+EXT_MGVTBL|5.009004||Viu
+EXT_PAT_MODS|5.009005||Viu
+EXTRA_SIZE|5.005000||Viu
+EXTRA_STEP_2ARGS|5.005000||Viu
+F0convert|5.009003||Vniu
+FAKE_BIT_BUCKET|5.009005||Viu
+FAKE_DEFAULT_SIGNAL_HANDLERS|5.009003||Viu
+FAKE_PERSISTENT_SIGNAL_HANDLERS|5.009003||Viu
+FALSE|5.003007||Viu
+FATAL_ABOVE_FF_MSG|5.027010||Viu
+F_atan2_amg|5.004000||Viu
+FBMcf_TAIL|5.006000||Viu
+FBMcf_TAIL_DOLLAR|5.006000||Viu
+FBMcf_TAIL_DOLLARM|5.006000||Viu
+FBMcf_TAIL_Z|5.006000||Viu
+FBMcf_TAIL_z|5.006000||Viu
+fbm_compile|5.005000|5.005000|
+fbm_instr|5.005000|5.005000|
+FBMrf_MULTILINE|5.006000||Viu
+fclose|5.003007||Viu
+fcntl|5.006000||Viu
+FCNTL_CAN_LOCK|5.007001|5.007001|Vn
+F_cos_amg|5.004000||Viu
+FD_CLR|5.008000||Viu
+FD_ISSET|5.008000||Viu
+fdopen|5.003007||Viu
+FD_SET|5.008000||Viu
+fd_set|5.008000||Viu
+FD_ZERO|5.008000||Viu
+FEATURE_BAREWORD_FILEHANDLES_BIT|5.033006||Viu
+FEATURE_BAREWORD_FILEHANDLES_IS_ENABLED|5.033006||Viu
+FEATURE_BITWISE_BIT|5.031006||Viu
+FEATURE_BITWISE_IS_ENABLED|5.021009||Viu
+FEATURE_BUNDLE_510|5.015007||Viu
+FEATURE_BUNDLE_511|5.015007||Viu
+FEATURE_BUNDLE_515|5.015007||Viu
+FEATURE_BUNDLE_523|5.023001||Viu
+FEATURE_BUNDLE_527|5.027008||Viu
+FEATURE_BUNDLE_535|5.035003||Viu
+FEATURE_BUNDLE_CUSTOM|5.015007||Viu
+FEATURE_BUNDLE_DEFAULT|5.015007||Viu
+FEATURE_DEFER_BIT|5.035004||Viu
+FEATURE_DEFER_IS_ENABLED|5.035004||Viu
+FEATURE_EVALBYTES_BIT|5.031006||Viu
+FEATURE_EVALBYTES_IS_ENABLED|5.015007||Viu
+FEATURE_FC_BIT|5.031006||Viu
+FEATURE_FC_IS_ENABLED|5.015008||Viu
+FEATURE_INDIRECT_BIT|5.031010||Viu
+FEATURE_INDIRECT_IS_ENABLED|5.031010||Viu
+FEATURE_ISA_BIT|5.031007||Viu
+FEATURE_ISA_IS_ENABLED|5.031007||Viu
+FEATURE_IS_ENABLED_MASK|5.031006||Viu
+FEATURE_MULTIDIMENSIONAL_BIT|5.033001||Viu
+FEATURE_MULTIDIMENSIONAL_IS_ENABLED|5.033001||Viu
+FEATURE_MYREF_BIT|5.031006||Viu
+FEATURE_MYREF_IS_ENABLED|5.025003||Viu
+FEATURE_POSTDEREF_QQ_BIT|5.031006||Viu
+FEATURE_POSTDEREF_QQ_IS_ENABLED|5.019005||Viu
+FEATURE_REFALIASING_BIT|5.031006||Viu
+FEATURE_REFALIASING_IS_ENABLED|5.021005||Viu
+FEATURE_SAY_BIT|5.031006||Viu
+FEATURE_SAY_IS_ENABLED|5.015007||Viu
+FEATURE_SIGNATURES_BIT|5.031006||Viu
+FEATURE_SIGNATURES_IS_ENABLED|5.019009||Viu
+FEATURE_STATE_BIT|5.031006||Viu
+FEATURE_STATE_IS_ENABLED|5.015007||Viu
+FEATURE___SUB___BIT|5.031006||Viu
+FEATURE___SUB___IS_ENABLED|5.015007||Viu
+FEATURE_SWITCH_BIT|5.031006||Viu
+FEATURE_SWITCH_IS_ENABLED|5.015007||Viu
+FEATURE_TRY_BIT|5.033007||Viu
+FEATURE_TRY_IS_ENABLED|5.033007||Viu
+FEATURE_UNICODE_BIT|5.031006||Viu
+FEATURE_UNICODE_IS_ENABLED|5.015007||Viu
+FEATURE_UNIEVAL_BIT|5.031006||Viu
+FEATURE_UNIEVAL_IS_ENABLED|5.015007||Viu
+feof|5.003007||Viu
+ferror|5.003007||Viu
+FETCHFEATUREBITSHH|5.031006||Viu
+F_exp_amg|5.004000||Viu
+FF_0DECIMAL|5.007001||Viu
+FF_BLANK|5.003007||Viu
+FF_CHECKCHOP|5.003007||Viu
+FF_CHECKNL|5.003007||Viu
+FF_CHOP|5.003007||Viu
+FF_DECIMAL|5.003007||Viu
+FF_END|5.003007||Viu
+FF_FETCH|5.003007||Viu
+FF_HALFSPACE|5.003007||Viu
+FF_ITEM|5.003007||Viu
+FF_LINEGLOB|5.003007||Viu
+FF_LINEMARK|5.003007||Viu
+FF_LINESNGL|5.009001||Viu
+FF_LITERAL|5.003007||Viu
+Fflush|5.003007||Viu
+fflush|5.003007||Viu
+FFLUSH_NULL|5.006000|5.006000|Vn
+FF_MORE|5.003007||Viu
+FF_NEWLINE|5.003007||Viu
+FF_SKIP|5.003007||Viu
+FF_SPACE|5.003007||Viu
+fgetc|5.003007||Viu
+fgetpos|5.003007||Viu
+fgets|5.003007||Viu
+FILE|5.003007||Viu
+FILE_base|5.007000|5.007000|
+FILE_bufsiz|5.007000|5.007000|
+FILE_cnt|5.007000|5.007000|
+fileno|5.003007||Viu
+FILE_ptr|5.007000|5.007000|
+FILL_ADVANCE_NODE_2L_ARG|5.021005||Viu
+FILL_ADVANCE_NODE|5.005000||Viu
+FILL_ADVANCE_NODE_ARG|5.005000||Viu
+FILL_ADVANCE_NODE_ARGp|5.031010||Viu
+FILL_NODE|5.029004||Viu
+filter_add|5.003007|5.003007|
+FILTER_DATA|5.003007||Viu
+filter_del|5.003007|5.003007|u
+filter_gets|5.005000||Viu
+FILTER_ISREADER|5.003007||Viu
+filter_read|5.003007|5.003007|
+FILTER_READ|5.003007||Viu
+finalize_op|5.015002||Viu
+finalize_optree|5.015002||Vi
+find_and_forget_pmops|5.009005||Viu
+find_array_subscript|5.009004||Viu
+find_beginning|5.005000||Viu
+find_byclass|5.006000||Viu
+find_default_stash|5.019004||Viu
+find_first_differing_byte_pos|5.031007||Vniu
+find_hash_subscript|5.009004||Viu
+find_in_my_stash|5.006001||Viu
+find_lexical_cv|5.019001||Viu
+find_next_masked|5.027009||Vniu
+find_runcv|5.009005|5.009005|
+FIND_RUNCV_level_eq|5.017002||Viu
+FIND_RUNCV_padid_eq|5.017004||Viu
+find_runcv_where|5.017002||Viu
+find_rundefsv|5.013002|5.013002|
+find_rundefsvoffset|5.009002|5.009002|d
+find_script|5.004005||Viu
+find_span_end|5.027009||Vniu
+find_span_end_mask|5.027009||Vniu
+find_uninit_var|5.009002||xVi
+FIRST_NON_ASCII_DECIMAL_DIGIT|5.027007||Viu
+first_symbol|5.009003||Vniu
+FIT_ARENA0|||Viu
+FIT_ARENAn|||Viu
+FIT_ARENA|||Viu
+FITS_IN_8_BITS|5.013005||Viu
+fixup_errno_string|5.019007||Viu
+FLAGS|5.013006||Viu
+FLEXFILENAMES|5.003007|5.003007|Vn
+float_end_shift|5.009005||Viu
+float_max_offset|5.005000||Viu
+float_min_offset|5.005000||Viu
+float_substr|5.005000||Viu
+float_utf8|5.008000||Viu
+flock|5.005000||Viu
+flockfile|5.003007||Viu
+F_log_amg|5.004000||Viu
+FmLINES|5.003007||Viu
+fold_constants|5.003007||Viu
+foldEQ|5.013002|5.013002|n
+foldEQ_latin1|5.013008||cVnu
+foldEQ_latin1_s2_folded|5.029007||Vniu
+foldEQ_locale|5.013002|5.013002|n
+FOLDEQ_LOCALE|5.019009||cV
+FOLDEQ_S1_ALREADY_FOLDED|5.015004||cV
+FOLDEQ_S1_FOLDS_SANE|5.021008||cV
+FOLDEQ_S2_ALREADY_FOLDED|5.015004||cV
+FOLDEQ_S2_FOLDS_SANE|5.021008||cV
+foldEQ_utf8|5.013002|5.007003|p
+foldEQ_utf8_flags|5.013010||cVu
+FOLDEQ_UTF8_NOMIX_ASCII|5.013010||cV
+FOLD_FLAGS_FULL|5.015006||Viu
+FOLD_FLAGS_LOCALE|5.015006||Viu
+FOLD_FLAGS_NOMIX_ASCII|5.017000||Viu
+fopen|5.003007||Viu
+forbid_setid|5.005000||Viu
+force_ident|5.003007||Viu
+force_ident_maybe_lex|5.017004||Viu
+force_list|5.003007||Viu
+force_next|5.003007||Viu
+_force_out_malformed_utf8_message|5.025009||cVu
+force_strict_version|5.011004||Viu
+force_version|5.005000||Viu
+force_word|5.003007||Viu
+forget_pmop|5.017007||Viu
+form|5.004000||vV
+form_alien_digit_msg|5.031009||cViu
+form_cp_too_large_msg|5.031009||cViu
+form_nocontext|5.006000||vVn
+fp_dup|5.007003|5.007003|u
+Fpos_t|5.003007|5.003007|Vn
+F_pow_amg|5.004000||Viu
+FP_PINF|5.021004||Viu
+FP_QNAN|5.021004||Viu
+fprintf|5.003007||Viu
+fprintf_nocontext|5.006000||vdVnu
+FPTR2DPTR|5.009003||Viu
+fputc|5.003007||Viu
+fputs|5.003007||Viu
+fread|5.003007||Viu
+free|5.003007||Viu
+free_and_set_cop_warnings|5.031011||Viu
+free_c_backtrace|5.021001||Vi
+FreeOp|5.008001||Viu
+Free_t|5.003007|5.003007|Vn
+FREE_THREAD_KEY|5.006001||Viu
+free_tied_hv_pool|5.008001||Viu
+FREETMPS|5.003007|5.003007|
+free_tmps|5.003007||cVu
+freopen|5.003007||Viu
+frewind|5.005000||Viu
+FROM_INTERNAL_SIZE|5.023002||Viu
+fscanf|5.003007||Viu
+fseek|5.003007||Viu
+FSEEKSIZE|5.006000||Viu
+fsetpos|5.003007||Viu
+F_sin_amg|5.004000||Viu
+F_sqrt_amg|5.004000||Viu
+Fstat|5.003007||Viu
+fstat|5.005000||Viu
+ftell|5.003007||Viu
+ftruncate|5.006000||Viu
+ftrylockfile|5.003007||Viu
+FUNCTION|5.009003||Viu
+funlockfile|5.003007||Viu
+fwrite1|5.003007||Viu
+fwrite|5.003007||Viu
+G_ARRAY|5.003007||Viu
+GCB_BREAKABLE|5.025003||Viu
+GCB_EX_then_EM|5.025003||Viu
+GCB_Maybe_Emoji_NonBreak|5.029002||Viu
+GCB_NOBREAK|5.025003||Viu
+GCB_RI_then_RI|5.025003||Viu
+GCC_DIAG_IGNORE|5.019007||Viu
+GCC_DIAG_IGNORE_DECL|5.027007||Viu
+GCC_DIAG_IGNORE_STMT|5.027007||Viu
+GCC_DIAG_PRAGMA|5.021001||Viu
+GCC_DIAG_RESTORE|5.019007||Viu
+GCC_DIAG_RESTORE_DECL|5.027007||Viu
+GCC_DIAG_RESTORE_STMT|5.027007||Viu
+Gconvert|5.003007|5.003007|
+GDBMNDBM_H_USES_PROTOTYPES|5.032001|5.032001|Vn
+G_DISCARD|5.003007|5.003007|
+gen_constant_list|5.003007||Viu
+get_and_check_backslash_N_name|5.017006||cViu
+get_and_check_backslash_N_name_wrapper|5.029009||Viu
+get_ANYOF_cp_list_for_ssc|5.019005||Viu
+get_ANYOFM_contents|5.027009||Viu
+GETATARGET|5.003007||Viu
+get_aux_mg|5.011000||Viu
+get_av|5.006000|5.003007|p
+getc|5.003007||Viu
+get_c_backtrace|5.021001||Vi
+get_c_backtrace_dump|5.021001||V
+get_context|5.006000|5.006000|nu
+getc_unlocked|5.003007||Viu
+get_cv|5.006000|5.003007|p
+get_cvn_flags|5.009005|5.003007|p
+get_cvs|5.011000|5.003007|p
+getcwd_sv|5.007002|5.007002|
+get_db_sub|||iu
+get_debug_opts|5.008001||Viu
+get_deprecated_property_msg|5.031011||cVniu
+getegid|5.005000||Viu
+getenv|5.005000||Viu
+getenv_len|5.006000||Viu
+GETENV_LOCK|5.033005||Viu
+GETENV_PRESERVES_OTHER_THREAD|5.033005|5.033005|Vn
+GETENV_UNLOCK|5.033005||Viu
+geteuid|5.005000||Viu
+getgid|5.005000||Viu
+getgrent|5.009000||Viu
+GETGRENT_R_HAS_BUFFER|5.008000||Viu
+GETGRENT_R_HAS_FPTR|5.008000||Viu
+GETGRENT_R_HAS_PTR|5.008000||Viu
+GETGRENT_R_PROTO|5.008000|5.008000|Vn
+getgrgid|5.009000||Viu
+GETGRGID_R_HAS_BUFFER|5.008000||Viu
+GETGRGID_R_HAS_PTR|5.008000||Viu
+GETGRGID_R_PROTO|5.008000|5.008000|Vn
+getgrnam|5.009000||Viu
+GETGRNAM_R_HAS_BUFFER|5.008000||Viu
+GETGRNAM_R_HAS_PTR|5.008000||Viu
+GETGRNAM_R_PROTO|5.008000|5.008000|Vn
+get_hash_seed|5.008001||Viu
+gethostbyaddr|5.005000||Viu
+GETHOSTBYADDR_R_HAS_BUFFER|5.008000||Viu
+GETHOSTBYADDR_R_HAS_ERRNO|5.008000||Viu
+GETHOSTBYADDR_R_HAS_PTR|5.008000||Viu
+GETHOSTBYADDR_R_PROTO|5.008000|5.008000|Vn
+gethostbyname|5.005000||Viu
+GETHOSTBYNAME_R_HAS_BUFFER|5.008000||Viu
+GETHOSTBYNAME_R_HAS_ERRNO|5.008000||Viu
+GETHOSTBYNAME_R_HAS_PTR|5.008000||Viu
+GETHOSTBYNAME_R_PROTO|5.008000|5.008000|Vn
+gethostent|5.005000||Viu
+GETHOSTENT_R_HAS_BUFFER|5.008000||Viu
+GETHOSTENT_R_HAS_ERRNO|5.008000||Viu
+GETHOSTENT_R_HAS_PTR|5.008000||Viu
+GETHOSTENT_R_PROTO|5.008000|5.008000|Vn
+gethostname|5.005000||Viu
+get_hv|5.006000|5.003007|p
+get_invlist_iter_addr|5.015001||Vniu
+get_invlist_offset_addr|5.019002||Vniu
+get_invlist_previous_index_addr|5.017004||Vniu
+getlogin|5.005000||Viu
+GETLOGIN_R_PROTO|5.008000|5.008000|Vn
+get_mstats|5.006000||Vu
+getnetbyaddr|5.005000||Viu
+GETNETBYADDR_R_HAS_BUFFER|5.008000||Viu
+GETNETBYADDR_R_HAS_ERRNO|5.008000||Viu
+GETNETBYADDR_R_HAS_PTR|5.008000||Viu
+GETNETBYADDR_R_PROTO|5.008000|5.008000|Vn
+getnetbyname|5.005000||Viu
+GETNETBYNAME_R_HAS_BUFFER|5.008000||Viu
+GETNETBYNAME_R_HAS_ERRNO|5.008000||Viu
+GETNETBYNAME_R_HAS_PTR|5.008000||Viu
+GETNETBYNAME_R_PROTO|5.008000|5.008000|Vn
+getnetent|5.005000||Viu
+GETNETENT_R_HAS_BUFFER|5.008000||Viu
+GETNETENT_R_HAS_ERRNO|5.008000||Viu
+GETNETENT_R_HAS_PTR|5.008000||Viu
+GETNETENT_R_PROTO|5.008000|5.008000|Vn
+get_no_modify|5.005000||Viu
+get_num|5.008001||Viu
+get_opargs|5.005000||Viu
+get_op_descs|5.005000|5.005000|u
+get_op_names|5.005000|5.005000|u
+getpeername|5.005000||Viu
+getpid|5.006000||Viu
+get_ppaddr|5.006000|5.006000|u
+get_prop_definition|5.031011||cViu
+get_prop_values|5.031011||cVniu
+getprotobyname|5.005000||Viu
+GETPROTOBYNAME_R_HAS_BUFFER|5.008000||Viu
+GETPROTOBYNAME_R_HAS_PTR|5.008000||Viu
+GETPROTOBYNAME_R_PROTO|5.008000|5.008000|Vn
+getprotobynumber|5.005000||Viu
+GETPROTOBYNUMBER_R_HAS_BUFFER|5.008000||Viu
+GETPROTOBYNUMBER_R_HAS_PTR|5.008000||Viu
+GETPROTOBYNUMBER_R_PROTO|5.008000|5.008000|Vn
+getprotoent|5.005000||Viu
+GETPROTOENT_R_HAS_BUFFER|5.008000||Viu
+GETPROTOENT_R_HAS_PTR|5.008000||Viu
+GETPROTOENT_R_PROTO|5.008000|5.008000|Vn
+getpwent|5.009000||Viu
+GETPWENT_R_HAS_BUFFER|5.008000||Viu
+GETPWENT_R_HAS_FPTR|5.008000||Viu
+GETPWENT_R_HAS_PTR|5.008000||Viu
+GETPWENT_R_PROTO|5.008000|5.008000|Vn
+getpwnam|5.009000||Viu
+GETPWNAM_R_HAS_BUFFER|5.008000||Viu
+GETPWNAM_R_HAS_PTR|5.008000||Viu
+GETPWNAM_R_PROTO|5.008000|5.008000|Vn
+getpwuid|5.009000||Viu
+GETPWUID_R_HAS_PTR|5.008000||Viu
+GETPWUID_R_PROTO|5.008000|5.008000|Vn
+get_quantifier_value|5.033006||Viu
+get_re_arg|||xciu
+get_re_gclass_nonbitmap_data|5.031011||Viu
+get_regclass_nonbitmap_data|5.031011||Viu
+get_regex_charset_name|5.031004||Vniu
+getservbyname|5.005000||Viu
+GETSERVBYNAME_R_HAS_BUFFER|5.008000||Viu
+GETSERVBYNAME_R_HAS_PTR|5.008000||Viu
+GETSERVBYNAME_R_PROTO|5.008000|5.008000|Vn
+getservbyport|5.005000||Viu
+GETSERVBYPORT_R_HAS_BUFFER|5.008000||Viu
+GETSERVBYPORT_R_HAS_PTR|5.008000||Viu
+GETSERVBYPORT_R_PROTO|5.008000|5.008000|Vn
+getservent|5.005000||Viu
+GETSERVENT_R_HAS_BUFFER|5.008000||Viu
+GETSERVENT_R_HAS_PTR|5.008000||Viu
+GETSERVENT_R_PROTO|5.008000|5.008000|Vn
+getsockname|5.005000||Viu
+getsockopt|5.005000||Viu
+getspnam|5.009000||Viu
+GETSPNAM_R_HAS_BUFFER|5.031011||Viu
+GETSPNAM_R_HAS_PTR|5.008000||Viu
+GETSPNAM_R_PROTO|5.008000|5.008000|Vn
+get_sv|5.006000|5.003007|p
+GETTARGET|5.003007||Viu
+GETTARGETSTACKED|5.003007||Viu
+gettimeofday|5.008000||Viu
+getuid|5.005000||Viu
+get_vtbl|5.005003|5.005003|u
+getw|5.003007||Viu
+G_EVAL|5.003007|5.003007|
+G_FAKINGEVAL|5.009004||Viu
+Gid_t|5.003007|5.003007|Vn
+Gid_t_f|5.006000|5.006000|Vn
+Gid_t_sign|5.006000|5.006000|Vn
+Gid_t_size|5.006000|5.006000|Vn
+GIMME|5.003007|5.003007|d
+GIMME_V|5.004000|5.004000|
+gimme_V|5.031005||xcVu
+G_KEEPERR|5.003007|5.003007|
+G_LIST|5.035001|5.003007|
+glob_2number|5.009004||Viu
+GLOBAL_PAT_MOD|5.009005||Viu
+glob_assign_glob|5.009004||Viu
+G_METHOD|5.006001|5.003007|p
+G_METHOD_NAMED|5.019002|5.019002|
+gmtime|5.031011||Viu
+GMTIME_MAX|5.010001|5.010001|Vn
+GMTIME_MIN|5.010001|5.010001|Vn
+GMTIME_R_PROTO|5.008000|5.008000|Vn
+G_NOARGS|5.003007|5.003007|
+G_NODEBUG|5.004005||Viu
+GOSUB|5.009005||Viu
+GOSUB_t8|5.035004||Viu
+GOSUB_t8_p8|5.033003||Viu
+GOSUB_t8_pb|5.033003||Viu
+GOSUB_tb|5.035004||Viu
+GOSUB_tb_p8|5.033003||Viu
+GOSUB_tb_pb|5.033003||Viu
+gp_dup|5.007003|5.007003|u
+gp_free|5.003007|5.003007|u
+GPOS|5.004000||Viu
+GPOS_t8|5.035004||Viu
+GPOS_t8_p8|5.033003||Viu
+GPOS_t8_pb|5.033003||Viu
+GPOS_tb|5.035004||Viu
+GPOS_tb_p8|5.033003||Viu
+GPOS_tb_pb|5.033003||Viu
+gp_ref|5.003007|5.003007|u
+GREEK_CAPITAL_LETTER_MU|5.013011||Viu
+GREEK_SMALL_LETTER_MU|5.013008||Viu
+G_RE_REPARSING|5.017011||Viu
+G_RETHROW|5.031002|5.003007|p
+grok_atoUV|5.021010||cVni
+grok_bin|5.007003|5.003007|p
+grok_bin_oct_hex|5.031008||cVu
+grok_bslash_c|5.013001||cViu
+grok_bslash_N|5.017003||Viu
+grok_bslash_o|5.013003||cViu
+grok_bslash_x|5.017002||cViu
+grok_hex|5.007003|5.003007|p
+grok_infnan|5.021004|5.021004|
+grok_number|5.007002|5.003007|p
+grok_number_flags|5.021002|5.021002|
+GROK_NUMERIC_RADIX|5.007002|5.003007|p
+grok_numeric_radix|5.007002|5.003007|p
+grok_oct|5.007003|5.003007|p
+group_end|5.007003||Viu
+GROUPP|5.005000||Viu
+GROUPPN|5.031001||Viu
+GROUPPN_t8|5.035004||Viu
+GROUPPN_t8_p8|5.033003||Viu
+GROUPPN_t8_pb|5.033003||Viu
+GROUPPN_tb|5.035004||Viu
+GROUPPN_tb_p8|5.033003||Viu
+GROUPPN_tb_pb|5.033003||Viu
+GROUPP_t8|5.035004||Viu
+GROUPP_t8_p8|5.033003||Viu
+GROUPP_t8_pb|5.033003||Viu
+GROUPP_tb|5.035004||Viu
+GROUPP_tb_p8|5.033003||Viu
+GROUPP_tb_pb|5.033003||Viu
+Groups_t|5.003007|5.003007|Vn
+GRPASSWD|5.005000|5.005000|Vn
+G_SCALAR|5.003007|5.003007|
+G_UNDEF_FILL|5.013001||Viu
+GV_ADD|5.003007|5.003007|
+gv_add_by_type|5.011000|5.011000|u
+GV_ADDMG|5.015003|5.015003|
+GV_ADDMULTI|5.003007|5.003007|
+GV_ADDWARN|5.003007|5.003007|
+Gv_AMG|5.003007||Viu
+Gv_AMupdate|5.011000|5.011000|u
+GvASSUMECV|5.003007||Viu
+GvASSUMECV_off|5.003007||Viu
+GvASSUMECV_on|5.003007||Viu
+gv_autoload4|5.004000|5.004000|
+GV_AUTOLOAD|5.011000||Viu
+GV_AUTOLOAD_ISMETHOD|5.015004||Viu
+gv_autoload_pv|5.015004|5.015004|u
+gv_autoload_pvn|5.015004|5.015004|u
+gv_autoload_sv|5.015004|5.015004|u
+GvAV|5.003007|5.003007|
+gv_AVadd|5.003007|5.003007|u
+GvAVn|5.003007||Viu
+GV_CACHE_ONLY|5.021004||Vi
+gv_check|5.003007||cVu
+gv_const_sv|5.009003|5.009003|
+GV_CROAK|5.011000||Viu
+GvCV|5.003007|5.003007|
+GvCVGEN|5.003007||Viu
+GvCV_set|5.013010||Viu
+GvCVu|5.004000||Viu
+gv_dump|5.006000|5.006000|u
+gv_efullname3|5.003007|5.003007|u
+gv_efullname4|5.006001|5.006001|u
+gv_efullname|5.003007|5.003007|du
+GvEGV|5.003007||Viu
+GvEGVx|5.013000||Viu
+GvENAME|5.003007||Viu
+GvENAME_HEK|5.015004||Viu
+GvENAMELEN|5.015004||Viu
+GvENAMEUTF8|5.015004||Viu
+GvESTASH|5.003007||Viu
+GVf_ASSUMECV|5.003007||Viu
+gv_fetchfile|5.003007|5.003007|
+gv_fetchfile_flags|5.009005|5.009005|
+gv_fetchmeth|5.003007|5.003007|
+gv_fetchmeth_autoload|5.007003|5.007003|
+gv_fetchmeth_internal|5.021007||Viu
+gv_fetchmethod|5.003007|5.003007|
+gv_fetchmethod_autoload|5.004000|5.004000|
+gv_fetchmethod_flags|5.015004||Viu
+gv_fetchmethod_pv_flags|5.015004|5.015004|xu
+gv_fetchmethod_pvn_flags|5.015004|5.015004|xu
+gv_fetchmethod_sv_flags|5.015004|5.015004|xu
+gv_fetchmeth_pv|5.015004|5.015004|
+gv_fetchmeth_pv_autoload|5.015004|5.015004|
+gv_fetchmeth_pvn|5.015004|5.015004|
+gv_fetchmeth_pvn_autoload|5.015004|5.015004|
+gv_fetchmeth_sv|5.015004|5.015004|
+gv_fetchmeth_sv_autoload|5.015004|5.015004|
+gv_fetchpv|5.003007|5.003007|
+gv_fetchpvn|5.013006|5.013006|
+gv_fetchpvn_flags|5.009002|5.003007|p
+gv_fetchpvs|5.009004|5.003007|p
+gv_fetchsv|5.009002|5.003007|p
+gv_fetchsv_nomg|5.015003|5.015003|
+GvFILE|5.006000||Viu
+GvFILEGV|5.003007||Viu
+GvFILE_HEK|5.009004||Viu
+GvFILEx|5.019006||Viu
+GVf_IMPORTED|5.003007||Viu
+GVf_IMPORTED_AV|5.003007||Viu
+GVf_IMPORTED_CV|5.003007||Viu
+GVf_IMPORTED_HV|5.003007||Viu
+GVf_IMPORTED_SV|5.003007||Viu
+GVf_INTRO|5.003007||Viu
+GvFLAGS|5.003007||Viu
+GVf_MULTI|5.003007||Viu
+GVF_NOADD|5.035006||Viu
+GvFORM|5.003007||Viu
+gv_fullname3|5.003007|5.003007|u
+gv_fullname4|5.006001|5.006001|u
+gv_fullname|5.003007|5.003007|du
+GvGP|5.003007||Viu
+GvGPFLAGS|5.021004||Viu
+GvGP_set|5.013010||Viu
+gv_handler|5.007001|5.007001|u
+GvHV|5.003007|5.003007|
+gv_HVadd|5.003007|5.003007|u
+GvHVn|5.003007||Viu
+GvIMPORTED|5.003007||Viu
+GvIMPORTED_AV|5.003007||Viu
+GvIMPORTED_AV_off|5.003007||Viu
+GvIMPORTED_AV_on|5.003007||Viu
+GvIMPORTED_CV|5.003007||Viu
+GvIMPORTED_CV_off|5.003007||Viu
+GvIMPORTED_CV_on|5.003007||Viu
+GvIMPORTED_HV|5.003007||Viu
+GvIMPORTED_HV_off|5.003007||Viu
+GvIMPORTED_HV_on|5.003007||Viu
+GvIMPORTED_off|5.003007||Viu
+GvIMPORTED_on|5.003007||Viu
+GvIMPORTED_SV|5.003007||Viu
+GvIMPORTED_SV_off|5.003007||Viu
+GvIMPORTED_SV_on|5.003007||Viu
+gv_init|5.003007|5.003007|
+gv_init_pv|5.015004|5.015004|
+gv_init_pvn|5.015004|5.003007|p
+gv_init_sv|5.015004|5.015004|
+gv_init_svtype|5.015004||Viu
+GvIN_PAD|5.006000||Viu
+GvIN_PAD_off|5.006000||Viu
+GvIN_PAD_on|5.006000||Viu
+GvINTRO|5.003007||Viu
+GvINTRO_off|5.003007||Viu
+GvINTRO_on|5.003007||Viu
+GvIO|5.003007||Viu
+gv_IOadd|5.003007|5.003007|u
+GvIOn|5.003007||Viu
+GvIOp|5.003007||Viu
+gv_is_in_main|5.019004||Viu
+GvLINE|5.003007||Viu
+gv_magicalize|5.019004||Viu
+gv_magicalize_isa|5.013005||Viu
+gv_method_changed|5.017007||Viu
+GvMULTI|5.003007||Viu
+GvMULTI_off|5.003007||Viu
+GvMULTI_on|5.003007||Viu
+GvNAME|5.003007||Viu
+GvNAME_get|5.009004||Viu
+GvNAME_HEK|5.009004||Viu
+GvNAMELEN|5.003007||Viu
+GvNAMELEN_get|5.009004||Viu
+gv_name_set|5.009004|5.009004|u
+GvNAMEUTF8|5.015004||Viu
+GV_NOADD_MASK|5.009005||Viu
+GV_NOADD_NOINIT|5.009003|5.009003|
+GV_NOEXPAND|5.009003|5.009003|
+GV_NOINIT|5.004005|5.004005|
+GV_NO_SVGMAGIC|5.015003|5.015003|
+GV_NOTQUAL|5.009004|5.009004|
+GV_NOUNIVERSAL|5.033009||Viu
+G_VOID|5.004000|5.004000|
+gv_override|5.019006||Viu
+GvREFCNT|5.003007||Viu
+gv_setref|5.021005||Viu
+GvSTASH|5.003007||Viu
+gv_stashpv|5.003007|5.003007|
+gv_stashpvn|5.003007|5.003007|p
+gv_stashpvn_internal|5.021004||Viu
+gv_stashpvs|5.009003|5.003007|p
+gv_stashsv|5.003007|5.003007|
+gv_stashsvpvn_cached|5.021004||Vi
+GV_SUPER|5.017004|5.017004|
+GvSV|5.003007|5.003007|
+gv_SVadd|5.011000||Vu
+GvSVn|5.009003|5.003007|p
+gv_try_downgrade|5.011002||xcVi
+GvXPVGV|5.003007||Viu
+G_WANT|5.010001||Viu
+G_WARN_ALL_MASK|5.006000||Viu
+G_WARN_ALL_OFF|5.006000||Viu
+G_WARN_ALL_ON|5.006000||Viu
+G_WARN_OFF|5.006000||Viu
+G_WARN_ON|5.006000||Viu
+G_WARN_ONCE|5.006000||Viu
+G_WRITING_TO_STDERR|5.013009||Viu
+HADNV|||Viu
+handle_named_backref|5.023008||Viu
+handle_names_wildcard|5.031011||Viu
+handle_possible_posix|5.023008||Viu
+handle_regex_sets|5.017009||Viu
+handle_user_defined_property|5.029008||Viu
+HAS_ACCEPT4|5.027008|5.027008|Vn
+HAS_ACCESS|5.006000|5.006000|Vn
+HAS_ACOSH|5.021004|5.021004|Vn
+HAS_ALARM|5.003007|5.003007|Vn
+HASARENA|||Viu
+HAS_ASCTIME_R|5.010000|5.010000|Vn
+HAS_ASINH|5.021006|5.021006|Vn
+HAS_ATANH|5.021006|5.021006|Vn
+HAS_ATOLL|5.006000|5.006000|Vn
+HASATTRIBUTE_ALWAYS_INLINE|5.031007|5.031007|Vn
+HASATTRIBUTE_DEPRECATED|5.010001|5.010001|Vn
+HASATTRIBUTE_FORMAT|5.009003|5.009003|Vn
+HASATTRIBUTE_MALLOC|5.009003|5.009003|Vn
+HASATTRIBUTE_NONNULL|5.009003|5.009003|Vn
+HASATTRIBUTE_NORETURN|5.009003|5.009003|Vn
+HASATTRIBUTE_PURE|5.009003|5.009003|Vn
+HASATTRIBUTE_UNUSED|5.009003|5.009003|Vn
+HASATTRIBUTE_WARN_UNUSED_RESULT|5.009003|5.009003|Vn
+HAS_BACKTRACE|5.021001|5.021001|Vn
+HAS_BUILTIN_CHOOSE_EXPR|5.009004|5.009004|Vn
+HAS_BUILTIN_EXPECT|5.010001|5.010001|Vn
+HAS_BUILTIN_UNREACHABLE|5.033003||Viu
+HAS_C99|5.021004||Viu
+HAS_C99_VARIADIC_MACROS|5.009004|5.009004|Vn
+HAS_CBRT|5.021006|5.021006|Vn
+HAS_CF_AUX_TABLES|5.027011||Viu
+HAS_CHOWN|5.003007|5.003007|Vn
+HAS_CHROOT|5.003007|5.003007|Vn
+HAS_CHSIZE|5.004005|5.004005|Vn
+HAS_CLEARENV|5.009003|5.009003|Vn
+HAS_COPYSIGN|5.021006|5.021006|Vn
+HAS_COPYSIGNL|5.008001|5.008001|Vn
+HAS_CRYPT|5.003007|5.003007|Vn
+HAS_CRYPT_R|5.010000|5.010000|Vn
+HAS_CSH|5.005000|5.005000|Vn
+HAS_CTERMID|5.009005|5.009005|Vn
+HAS_CTIME_R|5.010000|5.010000|Vn
+HAS_CUSERID|5.003007|5.003007|Vn
+HAS_DBMINIT_PROTO|5.032001|5.032001|Vn
+HAS_DIFFTIME|5.003007|5.003007|Vn
+HAS_DIRFD|5.007003|5.007003|Vn
+HAS_DLADDR|5.021001|5.021001|Vn
+HAS_DLERROR|5.003007|5.003007|Vn
+HAS_DRAND48_PROTO|5.006000|5.006000|Vn
+HAS_DRAND48_R|5.010000|5.010000|Vn
+HAS_DUP2|5.003007|5.003007|Vn
+HAS_DUP3|5.027008|5.027008|Vn
+HAS_DUPLOCALE|5.027011|5.027011|Vn
+HAS_EACCESS|5.006000|5.006000|Vn
+HAS_ENDGRENT|5.005000|5.005000|Vn
+HAS_ENDHOSTENT|5.005000|5.005000|Vn
+HAS_ENDNETENT|5.005000|5.005000|Vn
+HAS_ENDPROTOENT|5.005000|5.005000|Vn
+HAS_ENDPWENT|5.005000|5.005000|Vn
+HAS_ENDSERVENT|5.005000|5.005000|Vn
+HAS_ERF|5.021006|5.021006|Vn
+HAS_ERFC|5.021006|5.021006|Vn
+HAS_EXP2|5.021006|5.021006|Vn
+HAS_EXPM1|5.021006|5.021006|Vn
+HAS_EXTRA_LONG_UTF8|5.035004||Viu
+HAS_FAST_STDIO|5.008001|5.008001|Vn
+HAS_FCHDIR|5.007002|5.007002|Vn
+HAS_FCHMOD|5.003007|5.003007|Vn
+HAS_FCHMODAT|5.027004|5.027004|Vn
+HAS_FCHOWN|5.003007|5.003007|Vn
+HAS_FCNTL|5.003007|5.003007|Vn
+HAS_FDIM|5.021006|5.021006|Vn
+HAS_FD_SET|5.006000|5.006000|Vn
+HAS_FEGETROUND|5.021004|5.021004|Vn
+HAS_FFS|5.035001|5.035001|Vn
+HAS_FFSL|5.035001|5.035001|Vn
+HAS_FGETPOS|5.003007|5.003007|Vn
+HAS_FINITE|5.007003|5.007003|Vn
+HAS_FINITEL|5.007003|5.007003|Vn
+HAS_FLOCK|5.003007|5.003007|Vn
+HAS_FLOCK_PROTO|5.007002|5.007002|Vn
+HAS_FMA|5.021006|5.021006|Vn
+HAS_FMAX|5.021006|5.021006|Vn
+HAS_FMIN|5.021006|5.021006|Vn
+HAS_FORK|5.003007|5.003007|Vn
+HAS_FPATHCONF|5.003007|5.003007|Vn
+HAS_FPCLASSIFY|5.021004|5.021004|Vn
+HAS_FREELOCALE|5.023009|5.023009|Vn
+HAS_FREXPL|5.006001|5.006001|Vn
+HAS_FSEEKO|5.006000|5.006000|Vn
+HAS_FSETPOS|5.003007|5.003007|Vn
+HAS_FSTATFS|5.023005|5.023005|Vn
+HAS_FSTATVFS|5.023005|5.023005|Vn
+HAS_FSYNC|5.007001|5.007001|Vn
+HAS_FTELLO|5.006000|5.006000|Vn
+HAS_FUTIMES|5.009003|5.009003|Vn
+HAS_GAI_STRERROR|5.025004|5.025004|Vn
+HAS_GETADDRINFO|5.010001|5.010001|Vn
+HAS_GETCWD|5.006000|5.006000|Vn
+HAS_GETGRENT|5.005000|5.005000|Vn
+HAS_GETGRENT_R|5.010000|5.010000|Vn
+HAS_GETGRGID_R|5.010000|5.010000|Vn
+HAS_GETGRNAM_R|5.010000|5.010000|Vn
+HAS_GETGROUPS|5.003007|5.003007|Vn
+HAS_GETHOSTBYADDR|5.005000|5.005000|Vn
+HAS_GETHOSTBYADDR_R|5.010000|5.010000|Vn
+HAS_GETHOSTBYNAME|5.005000|5.005000|Vn
+HAS_GETHOSTBYNAME_R|5.010000|5.010000|Vn
+HAS_GETHOSTENT|5.003007|5.003007|Vn
+HAS_GETHOSTENT_R|5.010000|5.010000|Vn
+HAS_GETHOSTNAME|5.006000|5.006000|Vn
+HAS_GETHOST_PROTOS|5.005000|5.005000|Vn
+HAS_GETITIMER|5.007001|5.007001|Vn
+HAS_GETLOGIN|5.003007|5.003007|Vn
+HAS_GETLOGIN_R|5.010000|5.010000|Vn
+HAS_GETMNTENT|5.023005|5.023005|Vn
+HAS_GETNAMEINFO|5.010001|5.010001|Vn
+HAS_GETNETBYADDR|5.005000|5.005000|Vn
+HAS_GETNETBYADDR_R|5.010000|5.010000|Vn
+HAS_GETNETBYNAME|5.005000|5.005000|Vn
+HAS_GETNETBYNAME_R|5.010000|5.010000|Vn
+HAS_GETNETENT|5.005000|5.005000|Vn
+HAS_GETNETENT_R|5.010000|5.010000|Vn
+HAS_GETNET_PROTOS|5.005000|5.005000|Vn
+HAS_GETPAGESIZE|5.007001|5.007001|Vn
+HAS_GETPGID|5.003007|5.003007|Vn
+HAS_GETPGRP|5.003007|5.003007|Vn
+HAS_GETPPID|5.003007|5.003007|Vn
+HAS_GETPRIORITY|5.003007|5.003007|Vn
+HAS_GETPROTOBYNAME|5.005000|5.005000|Vn
+HAS_GETPROTOBYNAME_R|5.010000|5.010000|Vn
+HAS_GETPROTOBYNUMBER|5.005000|5.005000|Vn
+HAS_GETPROTOBYNUMBER_R|5.010000|5.010000|Vn
+HAS_GETPROTOENT|5.005000|5.005000|Vn
+HAS_GETPROTOENT_R|5.010000|5.010000|Vn
+HAS_GETPROTO_PROTOS|5.005000|5.005000|Vn
+HAS_GETPWENT|5.005000|5.005000|Vn
+HAS_GETPWENT_R|5.010000|5.010000|Vn
+HAS_GETPWNAM_R|5.010000|5.010000|Vn
+HAS_GETPWUID_R|5.010000|5.010000|Vn
+HAS_GETSERVBYNAME|5.005000|5.005000|Vn
+HAS_GETSERVBYNAME_R|5.010000|5.010000|Vn
+HAS_GETSERVBYPORT|5.005000|5.005000|Vn
+HAS_GETSERVBYPORT_R|5.010000|5.010000|Vn
+HAS_GETSERVENT|5.005000|5.005000|Vn
+HAS_GETSERVENT_R|5.010000|5.010000|Vn
+HAS_GETSERV_PROTOS|5.005000|5.005000|Vn
+HAS_GETSPNAM|5.006000|5.006000|Vn
+HAS_GETSPNAM_R|5.010000|5.010000|Vn
+HAS_GETTIMEOFDAY|5.004000|5.004000|Vn
+HAS_GMTIME_R|5.010000|5.010000|Vn
+HAS_GNULIBC|5.004005|5.004005|Vn
+HAS_GROUP|5.003007||Viu
+HAS_HASMNTOPT|5.023005|5.023005|Vn
+HAS_HTONL|5.003007|5.003007|Vn
+HAS_HTONS|5.003007|5.003007|Vn
+HAS_HYPOT|5.021006|5.021006|Vn
+HAS_ILOGB|5.021006|5.021006|Vn
+HAS_ILOGBL|5.008001|5.008001|Vn
+HAS_INET_ATON|5.004000|5.004000|Vn
+HAS_INETNTOP|5.010001|5.010001|Vn
+HAS_INETPTON|5.010001|5.010001|Vn
+HAS_INT64_T|5.006000|5.006000|Vn
+HAS_IOCTL|5.003007||Viu
+HAS_IP_MREQ|5.017002|5.017002|Vn
+HAS_IP_MREQ_SOURCE|5.017004|5.017004|Vn
+HAS_IPV6_MREQ|5.015008|5.015008|Vn
+HAS_ISASCII|5.003007|5.003007|Vn
+HAS_ISBLANK|5.015007|5.015007|Vn
+HAS_ISFINITE|5.021004|5.021004|Vn
+HAS_ISINF|5.007003|5.007003|Vn
+HAS_ISINFL|5.021004|5.021004|Vn
+HAS_ISLESS|5.031007|5.031007|Vn
+HAS_ISNAN|5.006001|5.006001|Vn
+HAS_ISNANL|5.006001|5.006001|Vn
+HAS_ISNORMAL|5.021006|5.021006|Vn
+HAS_IVCF_AUX_TABLES|5.027011||Viu
+HAS_J0|5.021004|5.021004|Vn
+HAS_J0L|5.021004|5.021004|Vn
+HAS_KILL|5.003007||Viu
+HAS_KILLPG|5.003007|5.003007|Vn
+HAS_LC_AUX_TABLES|5.027011||Viu
+HAS_LCHOWN|5.005000|5.005000|Vn
+HAS_LC_MONETARY_2008|5.021005|5.021005|Vn
+HAS_LDBL_DIG|5.006000|5.006000|Vn
+HAS_LDEXPL|5.021003|5.021003|Vn
+HAS_LGAMMA|5.021006|5.021006|Vn
+HAS_LGAMMA_R|5.021006|5.021006|Vn
+HAS_LINK|5.003007|5.003007|Vn
+HAS_LINKAT|5.027004|5.027004|Vn
+HAS_LLRINT|5.021006|5.021006|Vn
+HAS_LLRINTL|5.021009|5.021009|Vn
+HAS_LLROUND|5.021006|5.021006|Vn
+HAS_LLROUNDL|5.021009|5.021009|Vn
+HAS_LOCALECONV|5.003007|5.003007|Vn
+HAS_LOCALTIME_R|5.010000|5.010000|Vn
+HAS_LOCKF|5.003007|5.003007|Vn
+HAS_LOG1P|5.021006|5.021006|Vn
+HAS_LOG2|5.021006|5.021006|Vn
+HAS_LOGB|5.021006|5.021006|Vn
+HAS_LONG_DOUBLE|5.005000|5.005000|Vn
+HAS_LONG_LONG|5.005000|5.005000|Vn
+HAS_LRINT|5.021006|5.021006|Vn
+HAS_LRINTL|5.021009|5.021009|Vn
+HAS_LROUND|5.021006|5.021006|Vn
+HAS_LROUNDL|5.021009|5.021009|Vn
+HAS_LSEEK_PROTO|5.006000|5.006000|Vn
+HAS_LSTAT|5.003007|5.003007|Vn
+HAS_MADVISE|5.006000|5.006000|Vn
+HAS_MBLEN|5.003007|5.003007|Vn
+HAS_MBRLEN|5.027006|5.027006|Vn
+HAS_MBRTOWC|5.027006|5.027006|Vn
+HAS_MBSTOWCS|5.003007|5.003007|Vn
+HAS_MBTOWC|5.003007|5.003007|Vn
+HAS_MEMMEM|5.024000|5.024000|Vn
+HAS_MEMRCHR|5.027005|5.027005|Vn
+HAS_MKDIR|5.003007|5.003007|Vn
+HAS_MKDTEMP|5.006000|5.006000|Vn
+HAS_MKFIFO|5.003007|5.003007|Vn
+HAS_MKOSTEMP|5.027008|5.027008|Vn
+HAS_MKSTEMP|5.006000|5.006000|Vn
+HAS_MKSTEMPS|5.006000|5.006000|Vn
+HAS_MKTIME|5.003007|5.003007|Vn
+HAS_MMAP|5.006000|5.006000|Vn
+HAS_MODFL|5.006001|5.006001|Vn
+HAS_MODFL_PROTO|5.009003|5.009003|Vn
+HAS_MPROTECT|5.006000|5.006000|Vn
+HAS_MSG|5.003007|5.003007|Vn
+HAS_MSYNC|5.006000|5.006000|Vn
+HAS_MUNMAP|5.006000|5.006000|Vn
+HAS_NAN|5.021006|5.021006|Vn
+HAS_NANOSLEEP|5.027006|5.027006|Vn
+HAS_NEARBYINT|5.021006|5.021006|Vn
+HAS_NEWLOCALE|5.023009|5.023009|Vn
+HAS_NEXTAFTER|5.021006|5.021006|Vn
+HAS_NEXTTOWARD|5.021006|5.021006|Vn
+HAS_NICE|5.003007|5.003007|Vn
+HAS_NL_LANGINFO|5.007002|5.007002|Vn
+HAS_NL_LANGINFO_L|5.035001|5.035001|Vn
+HAS_NON_INT_BITFIELDS|5.035001|5.035001|Vn
+HAS_NONLATIN1_FOLD_CLOSURE|5.033005||Viu
+HAS_NONLATIN1_SIMPLE_FOLD_CLOSURE|5.033005||Viu
+HAS_NTOHL|5.003007|5.003007|Vn
+HAS_NTOHS|5.003007|5.003007|Vn
+HAS_OFF64_T|5.010000|5.010000|Vn
+HAS_OPEN3|5.003007|5.003007|Vn
+HAS_OPENAT|5.027004|5.027004|Vn
+HAS_PASSWD|5.003007||Viu
+HAS_PATHCONF|5.003007|5.003007|Vn
+HAS_PAUSE|5.003007|5.003007|Vn
+HAS_PIPE2|5.027008|5.027008|Vn
+HAS_PIPE|5.003007|5.003007|Vn
+HAS_POLL|5.003007|5.003007|Vn
+HAS_POSIX_2008_LOCALE|5.027003||Viu
+HAS_PRCTL|5.013000|5.013000|Vn
+HAS_PRCTL_SET_NAME|5.013000|5.013000|Vn
+HAS_PROCSELFEXE|5.007003|5.007003|Vn
+HAS_PTHREAD_ATFORK|5.010000|5.010000|Vn
+HAS_PTHREAD_ATTR_SETSCOPE|5.008001|5.008001|Vn
+HAS_PTHREAD_UNCHECKED_GETSPECIFIC_NP|5.007002||Viu
+HAS_PTHREAD_YIELD|5.009005|5.009005|Vn
+HAS_PTRDIFF_T|5.021001|5.021001|Vn
+HAS_QUAD|5.003007|5.003007|Vn
+HAS_RANDOM_R|5.010000|5.010000|Vn
+HAS_READDIR|5.003007|5.003007|Vn
+HAS_READDIR64_R|5.010000|5.010000|Vn
+HAS_READDIR_R|5.010000|5.010000|Vn
+HAS_READLINK|5.003007|5.003007|Vn
+HAS_READV|5.007001|5.007001|Vn
+HAS_RECVMSG|5.007001|5.007001|Vn
+HAS_REGCOMP|5.021007|5.021007|Vn
+HAS_REMAINDER|5.021006|5.021006|Vn
+HAS_REMQUO|5.021006|5.021006|Vn
+HAS_RENAME|5.003007|5.003007|Vn
+HAS_RENAMEAT|5.027004|5.027004|Vn
+HAS_REWINDDIR|5.003007|5.003007|Vn
+HAS_RINT|5.021006|5.021006|Vn
+HAS_RMDIR|5.003007|5.003007|Vn
+HAS_ROUND|5.021006|5.021006|Vn
+HAS_SBRK_PROTO|5.007001|5.007001|Vn
+HAS_SCALBN|5.021006|5.021006|Vn
+HAS_SCALBNL|5.008001|5.008001|Vn
+HAS_SCHED_YIELD|5.005000|5.005000|Vn
+HAS_SCX_AUX_TABLES|5.027008||Viu
+HAS_SEEKDIR|5.003007|5.003007|Vn
+HAS_SELECT|5.003007|5.003007|Vn
+HAS_SEM|5.003007|5.003007|Vn
+HAS_SENDMSG|5.007001|5.007001|Vn
+HAS_SETEGID|5.003007|5.003007|Vn
+HAS_SETEUID|5.003007|5.003007|Vn
+HAS_SETGRENT|5.005000|5.005000|Vn
+HAS_SETGROUPS|5.004000|5.004000|Vn
+HAS_SETHOSTENT|5.005000|5.005000|Vn
+HAS_SETITIMER|5.007001|5.007001|Vn
+HAS_SETLINEBUF|5.003007|5.003007|Vn
+HAS_SETLOCALE|5.003007|5.003007|Vn
+HAS_SETNETENT|5.005000|5.005000|Vn
+HAS_SETPGID|5.003007|5.003007|Vn
+HAS_SETPGRP|5.003007|5.003007|Vn
+HAS_SETPRIORITY|5.003007|5.003007|Vn
+HAS_SETPROTOENT|5.005000|5.005000|Vn
+HAS_SETPWENT|5.005000|5.005000|Vn
+HAS_SETREGID|5.003007|5.003007|Vn
+HAS_SETRESGID|5.003007|5.003007|Vn
+HAS_SETRESGID_PROTO|5.010000|5.010000|Vn
+HAS_SETRESUID|5.003007|5.003007|Vn
+HAS_SETRESUID_PROTO|5.010000|5.010000|Vn
+HAS_SETREUID|5.003007|5.003007|Vn
+HAS_SETSERVENT|5.005000|5.005000|Vn
+HAS_SETSID|5.003007|5.003007|Vn
+HAS_SETVBUF|5.005000|5.005000|Vn
+HAS_SHM|5.003007|5.003007|Vn
+HAS_SHMAT_PROTOTYPE|5.003007|5.003007|Vn
+HAS_SIGACTION|5.003007|5.003007|Vn
+HAS_SIGINFO_SI_ADDR|5.023008|5.023008|Vn
+HAS_SIGINFO_SI_BAND|5.023008|5.023008|Vn
+HAS_SIGINFO_SI_ERRNO|5.023008|5.023008|Vn
+HAS_SIGINFO_SI_PID|5.023008|5.023008|Vn
+HAS_SIGINFO_SI_STATUS|5.023008|5.023008|Vn
+HAS_SIGINFO_SI_UID|5.023008|5.023008|Vn
+HAS_SIGINFO_SI_VALUE|5.023008|5.023008|Vn
+HAS_SIGNBIT|5.009005|5.009005|Vn
+HAS_SIGPROCMASK|5.007001|5.007001|Vn
+HAS_SIGSETJMP|5.003007|5.003007|Vn
+HAS_SIN6_SCOPE_ID|5.013009|5.013009|Vn
+HAS_SKIP_LOCALE_INIT|5.019002||Viu
+HAS_SNPRINTF|5.009003|5.009003|Vn
+HAS_SOCKADDR_IN6|5.015008|5.015008|Vn
+HAS_SOCKADDR_STORAGE|5.032001|5.032001|Vn
+HAS_SOCKATMARK|5.007001|5.007001|Vn
+HAS_SOCKATMARK_PROTO|5.007002|5.007002|Vn
+HAS_SOCKET|5.003007|5.003007|Vn
+HAS_SOCKETPAIR|5.003007|5.003007|Vn
+HAS_SQRTL|5.006000|5.006000|Vn
+HAS_SRAND48_R|5.010000|5.010000|Vn
+HAS_SRANDOM_R|5.010000|5.010000|Vn
+HAS_STAT|5.021007|5.021007|Vn
+HAS_STATIC_INLINE|5.013004|5.013004|Vn
+HAS_STRCOLL|5.003007|5.003007|Vn
+HAS_STRERROR_L|5.025002|5.025002|Vn
+HAS_STRERROR_R|5.010000|5.010000|Vn
+HAS_STRFTIME|5.007002|5.007002|Vn
+HAS_STRNLEN|5.027006|5.027006|Vn
+HAS_STRTOD|5.004000|5.004000|Vn
+HAS_STRTOD_L|5.027011|5.027011|Vn
+HAS_STRTOL|5.004000|5.004000|Vn
+HAS_STRTOLD|5.006000|5.006000|Vn
+HAS_STRTOLD_L|5.027006|5.027006|Vn
+HAS_STRTOLL|5.006000|5.006000|Vn
+HAS_STRTOQ|5.007001|5.007001|Vn
+HAS_STRTOUL|5.004000|5.004000|Vn
+HAS_STRTOULL|5.006000|5.006000|Vn
+HAS_STRTOUQ|5.006000|5.006000|Vn
+HAS_STRUCT_CMSGHDR|5.007001|5.007001|Vn
+HAS_STRUCT_MSGHDR|5.007001|5.007001|Vn
+HAS_STRUCT_STATFS|5.023005|5.023005|Vn
+HAS_STRUCT_STATFS_F_FLAGS|5.023005|5.023005|Vn
+HAS_STRXFRM|5.003007|5.003007|Vn
+HAS_STRXFRM_L|5.035001|5.035001|Vn
+HAS_SYMLINK|5.003007|5.003007|Vn
+HAS_SYSCALL|5.003007|5.003007|Vn
+HAS_SYSCALL_PROTO|5.007002|5.007002|Vn
+HAS_SYSCONF|5.003007|5.003007|Vn
+HAS_SYS_ERRLIST|5.003007|5.003007|Vn
+HAS_SYSTEM|5.003007|5.003007|Vn
+HAS_TC_AUX_TABLES|5.027011||Viu
+HAS_TCGETPGRP|5.003007|5.003007|Vn
+HAS_TCSETPGRP|5.003007|5.003007|Vn
+HAS_TELLDIR|5.003007|5.003007|Vn
+HAS_TELLDIR_PROTO|5.006000|5.006000|Vn
+HAS_TGAMMA|5.021006|5.021006|Vn
+HAS_THREAD_SAFE_NL_LANGINFO_L|5.027006|5.027006|Vn
+HAS_TIME|5.008000|5.008000|Vn
+HAS_TIMEGM|5.010001|5.010001|Vn
+HAS_TIMES|5.003007|5.003007|Vn
+HAS_TMPNAM_R|5.010000|5.010000|Vn
+HAS_TM_TM_GMTOFF|5.008001|5.008001|Vn
+HAS_TM_TM_ZONE|5.008000|5.008000|Vn
+HAS_TOWLOWER|5.029009|5.029009|Vn
+HAS_TOWUPPER|5.029009|5.029009|Vn
+HAS_TRUNC|5.021006|5.021006|Vn
+HAS_TRUNCATE|5.003007|5.003007|Vn
+HAS_TRUNCL|5.021004|5.021004|Vn
+HAS_TTYNAME_R|5.010000|5.010000|Vn
+HAS_TZNAME|5.003007|5.003007|Vn
+HAS_UALARM|5.007001|5.007001|Vn
+HAS_UC_AUX_TABLES|5.027011||Viu
+HAS_UMASK|5.003007|5.003007|Vn
+HAS_UNAME|5.003007|5.003007|Vn
+HAS_UNLINKAT|5.027004|5.027004|Vn
+HAS_UNSETENV|5.009003|5.009003|Vn
+HAS_USELOCALE|5.023009|5.023009|Vn
+HAS_USLEEP|5.007001|5.007001|Vn
+HAS_USLEEP_PROTO|5.007002|5.007002|Vn
+HAS_USTAT|5.023005|5.023005|Vn
+HAS_UTIME|5.003007||Viu
+HAS_VSNPRINTF|5.009003|5.009003|Vn
+HAS_WAIT4|5.003007|5.003007|Vn
+HAS_WAIT|5.003007||Viu
+HAS_WAITPID|5.003007|5.003007|Vn
+HAS_WCRTOMB|5.031007|5.031007|Vn
+HAS_WCSCMP|5.021001|5.021001|Vn
+HAS_WCSTOMBS|5.003007|5.003007|Vn
+HAS_WCSXFRM|5.021001|5.021001|Vn
+HAS_WCTOMB|5.003007|5.003007|Vn
+HAS_WRITEV|5.007001|5.007001|Vn
+HE_ARENA_ROOT_IX|5.035005||Viu
+he_dup|5.007003|5.007003|u
+HEf_SVKEY|5.003007|5.003007|p
+HeHASH|5.003007|5.003007|
+HEK_BASESIZE|5.004000||Viu
+hek_dup|5.009000|5.009000|u
+HeKEY|5.003007|5.003007|
+HeKEY_hek|5.004000||Viu
+HeKEY_sv|5.004000||Viu
+HEKf256|5.015004||Viu
+HEKf|5.015004||Viu
+HEKfARG|5.015004||Viu
+HEK_FLAGS|5.008000||Viu
+HeKFLAGS|5.008000||Viu
+HEK_HASH|5.004000||Viu
+HEK_KEY|5.004000||Viu
+HeKLEN|5.003007|5.003007|
+HEK_LEN|5.004000||Viu
+HeKLEN_UTF8|5.007001||Viu
+HEK_UTF8|5.007001||Viu
+HeKUTF8|5.007001||Viu
+HEK_UTF8_off|5.008000||Viu
+HEK_UTF8_on|5.008000||Viu
+HEK_WASUTF8|5.008000||Viu
+HeKWASUTF8|5.008000||Viu
+HEK_WASUTF8_off|5.008000||Viu
+HEK_WASUTF8_on|5.008000||Viu
+HeNEXT|5.003007||Viu
+HePV|5.004000|5.004000|
+HeSVKEY|5.003007|5.003007|
+HeSVKEY_force|5.003007|5.003007|
+HeSVKEY_set|5.004000|5.004000|
+HeUTF8|5.010001|5.008000|p
+HeVAL|5.003007|5.003007|
+hfree_next_entry|||iu
+HIGHEST_ANYOF_HRx_BYTE|5.031002||Viu
+HIGHEST_CASE_CHANGING_CP|5.033005||Viu
+HINT_ALL_STRICT|5.033002||Viu
+HINT_BLOCK_SCOPE|5.003007||Viu
+HINT_BYTES|5.007002||Viu
+HINT_EXPLICIT_STRICT_REFS|5.016000||Viu
+HINT_EXPLICIT_STRICT_SUBS|5.016000||Viu
+HINT_EXPLICIT_STRICT_VARS|5.016000||Viu
+HINT_FEATURE_MASK|5.015007||Viu
+HINT_FEATURE_SHIFT|5.015007||Viu
+HINT_FILETEST_ACCESS|5.006000||Viu
+HINT_INTEGER|5.003007||Viu
+HINT_LEXICAL_IO_IN|5.009005||Viu
+HINT_LEXICAL_IO_OUT|5.009005||Viu
+HINT_LOCALE|5.004000||Viu
+HINT_LOCALE_PARTIAL|5.021001||Viu
+HINT_LOCALIZE_HH|5.005000||Viu
+HINT_NEW_BINARY|5.005000||Viu
+HINT_NEW_FLOAT|5.005000||Viu
+HINT_NEW_INTEGER|5.005000||Viu
+HINT_NEW_RE|5.005000||Viu
+HINT_NEW_STRING|5.005000||Viu
+HINT_NO_AMAGIC|5.010001||Viu
+HINT_RE_EVAL|5.005000||Viu
+HINT_RE_FLAGS|5.013007||Viu
+HINT_RE_TAINT|5.004005||Viu
+HINTS_DEFAULT|5.033002||Viu
+HINTS_REFCNT_INIT|5.009004||Viu
+HINTS_REFCNT_LOCK|5.009004||Viu
+HINTS_REFCNT_TERM|5.009004||Viu
+HINTS_REFCNT_UNLOCK|5.009004||Viu
+HINT_STRICT_REFS|5.003007||Viu
+HINT_STRICT_SUBS|5.003007||Viu
+HINT_STRICT_VARS|5.003007||Viu
+HINT_UNI_8_BIT|5.011002||Viu
+HINT_UTF8|5.006000||Viu
+H_PERL|5.003007||Viu
+HS_APIVERLEN_MAX|5.021006||Viu
+HS_CXT|5.021006||Viu
+HSf_IMP_CXT|5.021006||Viu
+HSf_NOCHK|5.021006||Viu
+HSf_POPMARK|5.021006||Viu
+HSf_SETXSUBFN|5.021006||Viu
+HS_GETAPIVERLEN|5.021006||Viu
+HS_GETINTERPSIZE|5.021006||Viu
+HS_GETXSVERLEN|5.021006||Viu
+HS_KEY|5.021006||Viu
+HS_KEYp|5.021006||Viu
+HSm_APIVERLEN|5.021006||Viu
+HSm_INTRPSIZE|5.021006||Viu
+HSm_KEY_MATCH|5.021006||Viu
+HSm_XSVERLEN|5.021006||Viu
+hsplit|5.005000||Viu
+HS_XSVERLEN_MAX|5.021006||Viu
+htoni|5.003007||Viu
+htonl|5.003007||Viu
+htons|5.003007||Viu
+htovl|5.003007||Viu
+htovs|5.003007||Viu
+HvAMAGIC|5.017000||Viu
+HvAMAGIC_off|5.017000||Viu
+HvAMAGIC_on|5.017000||Viu
+HvARRAY|5.003007||Viu
+hv_assert|||
+HvAUX|5.009003||Viu
+hv_auxalloc|||iu
+HVAUX_ARENA_ROOT_IX|5.035005||Viu
+HvAUXf_NO_DEREF|5.019010||Viu
+HvAUXf_SCAN_STASH|5.019010||Viu
+hv_auxinit|5.009003||Viu
+hv_backreferences_p|||xiu
+hv_bucket_ratio|5.025003|5.025003|x
+hv_clear|5.003007|5.003007|
+hv_clear_placeholders|5.009001|5.009001|
+hv_common|5.010000||cVu
+hv_common_key_len|5.010000||cVu
+hv_copy_hints_hv|5.013005|5.013005|
+hv_delayfree_ent|5.004000|5.004000|u
+hv_delete|5.003007|5.003007|
+HV_DELETE|5.009005||Viu
+hv_delete_common|5.009001||xViu
+hv_delete_ent|5.003007|5.003007|
+hv_deletehek|5.019006||Viu
+hv_deletes|5.025006||Viu
+HV_DISABLE_UVAR_XKEY|5.010000||Viu
+HvEITER|5.003007||Viu
+HvEITER_get|5.009003||Viu
+hv_eiter_p|||u
+HvEITER_set|5.009003||Viu
+hv_eiter_set|||u
+HvENAME|5.013007|5.013007|
+hv_ename_add|5.013007||Vi
+hv_ename_delete|5.013007||Vi
+HvENAME_get|5.013007||Viu
+HvENAME_HEK|5.013007||Viu
+HvENAME_HEK_NN|5.013007||Viu
+HvENAMELEN|5.015004|5.015004|
+HvENAMELEN_get|5.013007||Viu
+HvENAMEUTF8|5.015004|5.015004|
+hv_exists|5.003007|5.003007|
+hv_exists_ent|5.003007|5.003007|
+hv_existshek|5.035003||Viu
+hv_existss|5.025006||Viu
+hv_fetch|5.003007|5.003007|
+HV_FETCH_EMPTY_HE|5.013007||Viu
+hv_fetch_ent|5.003007|5.003007|
+hv_fetchhek|5.019006||Viu
+HV_FETCH_ISEXISTS|5.009005||Viu
+HV_FETCH_ISSTORE|5.009005||Viu
+HV_FETCH_JUST_SV|5.009005||Viu
+HV_FETCH_LVALUE|5.009005||Viu
+hv_fetchs|5.009003|5.003007|p
+hv_fill|||
+HvFILL|5.003007|5.003007|
+hv_free_ent|5.004000|5.004000|u
+hv_free_ent_ret|5.015000||Viu
+hv_free_entries|5.027002||Viu
+HvHASKFLAGS|5.008000||Viu
+HvHASKFLAGS_off|5.008000||Viu
+HvHASKFLAGS_on|5.008000||Viu
+HVhek_ENABLEHVKFLAGS|5.008002||Viu
+HVhek_FREEKEY|5.008000||Viu
+HVhek_KEYCANONICAL|5.010001||Viu
+HVhek_MASK|5.008000||Viu
+HVhek_PLACEHOLD|5.008000||Viu
+HVhek_UNSHARED|5.009004||Viu
+HVhek_UTF8|5.008000||Viu
+HVhek_WASUTF8|5.008000||Viu
+hv_iterinit|5.003007|5.003007|
+hv_iterkey|5.003007|5.003007|
+hv_iterkeysv|5.003007|5.003007|
+hv_iternext|5.003007|5.003007|
+hv_iternext_flags|5.008000|5.008000|x
+hv_iternextsv|5.003007|5.003007|
+HV_ITERNEXT_WANTPLACEHOLDERS|5.008000|5.008000|
+hv_iterval|5.003007|5.003007|
+HvKEYS|5.003007||Viu
+hv_kill_backrefs|||xiu
+hv_ksplit|5.003007|5.003007|u
+HvLASTRAND_get|5.017011||Viu
+HvLAZYDEL|5.003007||Viu
+HvLAZYDEL_off|5.003007||Viu
+HvLAZYDEL_on|5.003007||Viu
+hv_magic|5.003007|5.003007|
+hv_magic_check|5.006000||Vniu
+HvMAX|5.003007||Viu
+HvMROMETA|5.010001|5.010001|
+HvNAME|5.003007|5.003007|
+HvNAME_get|5.009003||pcV
+HvNAME_HEK|5.009003||Viu
+HvNAME_HEK_NN|5.013007||Viu
+HvNAMELEN|5.015004|5.015004|
+HvNAMELEN_get|5.009003|5.003007|p
+hv_name_set|5.009003|5.009003|u
+HV_NAME_SETALL|5.013008||Viu
+hv_name_sets|5.025006||Viu
+HvNAMEUTF8|5.015004|5.015004|
+hv_notallowed|5.008000||Viu
+HvPLACEHOLDERS|5.007003||Viu
+HvPLACEHOLDERS_get|5.009003||Viu
+hv_placeholders_get|||u
+hv_placeholders_p|||ciu
+HvPLACEHOLDERS_set|5.009003||Viu
+hv_placeholders_set|||u
+hv_pushkv|5.027003||Viu
+HvRAND_get|5.017011||Viu
+hv_rand_set|5.018000|5.018000|u
+HVrhek_delete|5.009004||Viu
+HVrhek_IV|5.009004||Viu
+HVrhek_PV|5.009004||Viu
+HVrhek_PV_UTF8|5.009005||Viu
+HVrhek_typemask|5.009004||Viu
+HVrhek_undef|5.009004||Viu
+HVrhek_UV|5.009004||Viu
+HvRITER|5.003007||Viu
+HvRITER_get|5.009003||Viu
+hv_riter_p|||u
+HvRITER_set|5.009003||Viu
+hv_riter_set|||u
+hv_scalar|5.009001|5.009001|
+HvSHAREKEYS|5.003007||Viu
+HvSHAREKEYS_off|5.003007||Viu
+HvSHAREKEYS_on|5.003007||Viu
+hv_store|5.003007|5.003007|
+hv_store_ent|5.003007|5.003007|
+hv_store_flags|5.008000|5.008000|xu
+hv_storehek|5.019006||Viu
+hv_stores|5.009004|5.003007|p
+HvTOTALKEYS|5.007003||Viu
+hv_undef|5.003007|5.003007|
+hv_undef_flags|||ciu
+HvUSEDKEYS|5.007003||Viu
+HYPHEN_UTF8|5.017004||Viu
+I16_MAX|5.003007||Viu
+I16_MIN|5.003007||Viu
+I16SIZE|5.006000|5.006000|Vn
+I16TYPE|5.006000|5.006000|Vn
+I_32|5.006000|5.003007|
+I32_MAX|5.003007||Viu
+I32_MAX_P1|5.007002||Viu
+I32_MIN|5.003007||Viu
+I32SIZE|5.006000|5.006000|Vn
+I32TYPE|5.006000|5.006000|Vn
+I64SIZE|5.006000|5.006000|Vn
+I64TYPE|5.006000|5.006000|Vn
+I8SIZE|5.006000|5.006000|Vn
+I8_TO_NATIVE|5.015006||Viu
+I8_TO_NATIVE_UTF8|5.019004||Viu
+I8TYPE|5.006000|5.006000|Vn
+I_ARPA_INET|5.005000|5.005000|Vn
+ibcmp|5.003007|5.003007|
+ibcmp_locale|5.004000|5.004000|
+ibcmp_utf8|5.007003|5.007003|
+I_CRYPT|5.008000|5.008000|Vn
+I_DBM|5.032001|5.032001|Vn
+I_DIRENT|5.003007|5.003007|Vn
+I_DLFCN|5.003007|5.003007|Vn
+I_EXECINFO|5.021001|5.021001|Vn
+I_FENV|5.021004|5.021004|Vn
+IFMATCH|5.003007||Viu
+IFMATCH_A|5.009005||Viu
+IFMATCH_A_fail|5.009005||Viu
+IFMATCH_A_fail_t8|5.035004||Viu
+IFMATCH_A_fail_t8_p8|5.033003||Viu
+IFMATCH_A_fail_t8_pb|5.033003||Viu
+IFMATCH_A_fail_tb|5.035004||Viu
+IFMATCH_A_fail_tb_p8|5.033003||Viu
+IFMATCH_A_fail_tb_pb|5.033003||Viu
+IFMATCH_A_t8|5.035004||Viu
+IFMATCH_A_t8_p8|5.033003||Viu
+IFMATCH_A_t8_pb|5.033003||Viu
+IFMATCH_A_tb|5.035004||Viu
+IFMATCH_A_tb_p8|5.033003||Viu
+IFMATCH_A_tb_pb|5.033003||Viu
+IFMATCH_t8|5.035004||Viu
+IFMATCH_t8_p8|5.033003||Viu
+IFMATCH_t8_pb|5.033003||Viu
+IFMATCH_tb|5.035004||Viu
+IFMATCH_tb_p8|5.033003||Viu
+IFMATCH_tb_pb|5.033003||Viu
+IFTHEN|5.005000||Viu
+IFTHEN_t8|5.035004||Viu
+IFTHEN_t8_p8|5.033003||Viu
+IFTHEN_t8_pb|5.033003||Viu
+IFTHEN_tb|5.035004||Viu
+IFTHEN_tb_p8|5.033003||Viu
+IFTHEN_tb_pb|5.033003||Viu
+I_GDBM|5.021007|5.021007|Vn
+I_GDBMNDBM|5.021007|5.021007|Vn
+IGNORE_PAT_MOD|5.009005||Viu
+I_GRP|5.003007|5.003007|Vn
+I_INTTYPES|5.006000|5.006000|Vn
+I_LANGINFO|5.007002|5.007002|Vn
+I_LIMITS|5.003007||Viu
+ILLEGAL_UTF8_BYTE|5.019004||Viu
+I_LOCALE|5.003007|5.003007|Vn
+I_MNTENT|5.023005|5.023005|Vn
+IN_BYTES|5.007002||Viu
+incline|5.005000||Viu
+INCLUDE_PROTOTYPES|5.007001||Viu
+INCMARK|5.023005||Viu
+incpush|5.005000||Viu
+INCPUSH_APPLLIB_EXP|5.027006||Viu
+INCPUSH_APPLLIB_OLD_EXP|5.027006||Viu
+INCPUSH_ARCHLIB_EXP|5.027006||Viu
+incpush_if_exists|5.009003||Viu
+INCPUSH_PERL5LIB|5.027006||Viu
+INCPUSH_PERL_OTHERLIBDIRS|5.027006||Viu
+INCPUSH_PERL_OTHERLIBDIRS_ARCHONLY|5.027006||Viu
+INCPUSH_PERL_VENDORARCH_EXP|5.027006||Viu
+INCPUSH_PERL_VENDORLIB_EXP|5.027006||Viu
+INCPUSH_PERL_VENDORLIB_STEM|5.027006||Viu
+INCPUSH_PRIVLIB_EXP|5.027006||Viu
+INCPUSH_SITEARCH_EXP|5.027006||Viu
+INCPUSH_SITELIB_EXP|5.027006||Viu
+INCPUSH_SITELIB_STEM|5.027006||Viu
+incpush_use_sep|5.011000||Viu
+I_NDBM|5.032001|5.032001|Vn
+inet_addr|5.005000||Viu
+I_NETDB|5.005000|5.005000|Vn
+I_NETINET_IN|5.003007|5.003007|Vn
+I_NETINET_TCP|5.006000|5.006000|Vn
+inet_ntoa|5.005000||Viu
+INFNAN_NV_U8_DECL|5.023000||Viu
+INFNAN_U8_NV_DECL|5.023000||Viu
+ingroup|5.003007||Viu
+INIT|5.003007||Viu
+init_argv_symbols|5.007003||Viu
+init_constants|5.017003||Viu
+init_dbargs|||iu
+init_debugger|5.005000||Viu
+init_i18nl10n|5.006000||cVu
+init_i18nl14n|5.006000||dcVu
+initialize_invlist_guts|5.029002||Viu
+init_ids|5.005000||Viu
+init_interp|5.005000||Viu
+init_main_stash|5.005000||Viu
+init_named_cv|5.027010||cViu
+init_os_extras|5.005000||Viu
+init_perllib|5.005000||Viu
+init_postdump_symbols|5.005000||Viu
+init_predump_symbols|5.005000||Viu
+init_stacks|5.005000|5.005000|u
+INIT_THREADS|5.005000||Viu
+init_tm|5.007002|5.007002|u
+INIT_TRACK_MEMPOOL|5.009004||Viu
+init_uniprops|5.027011||Viu
+IN_LC|5.021001||Viu
+IN_LC_ALL_COMPILETIME|5.021001||Viu
+IN_LC_ALL_RUNTIME|5.021001||Viu
+IN_LC_COMPILETIME|5.021001||Viu
+IN_LC_PARTIAL_COMPILETIME|5.021001||Viu
+IN_LC_PARTIAL_RUNTIME|5.021001||Viu
+IN_LC_RUNTIME|5.021001||Viu
+IN_LOCALE|5.007002|5.004000|p
+IN_LOCALE_COMPILETIME|5.007002|5.004000|p
+IN_LOCALE_RUNTIME|5.007002|5.004000|p
+IN_PERL_COMPILETIME|5.008001|5.003007|p
+IN_PERL_RUNTIME|5.008001|5.008001|
+inplace_aassign|5.015003||Viu
+inRANGE|5.029010||Viu
+inRANGE_helper|5.033005||Viu
+IN_SOME_LOCALE_FORM|5.015008||Viu
+IN_SOME_LOCALE_FORM_COMPILETIME|5.015008||Viu
+IN_SOME_LOCALE_FORM_RUNTIME|5.015008||Viu
+instr|5.003007|5.003007|n
+INSUBP|5.009005||Viu
+INSUBP_t8|5.035004||Viu
+INSUBP_t8_p8|5.033003||Viu
+INSUBP_t8_pb|5.033003||Viu
+INSUBP_tb|5.035004||Viu
+INSUBP_tb_p8|5.033003||Viu
+INSUBP_tb_pb|5.033003||Viu
+INT16_C|5.003007|5.003007|
+INT2PTR|5.006000|5.003007|p
+INT32_C|5.003007|5.003007|
+INT32_MIN|5.007002||Viu
+INT64_C|5.023002|5.023002|
+INT64_MIN|5.007002||Viu
+INT_64_T|5.011000||Viu
+INTMAX_C|5.003007|5.003007|
+INT_PAT_MODS|5.009005||Viu
+intro_my|5.021006|5.021006|
+INTSIZE|5.003007|5.003007|Vn
+intuit_method|5.005000||Viu
+intuit_more|5.003007||Viu
+IN_UNI_8_BIT|5.011002||Viu
+IN_UTF8_CTYPE_LOCALE|5.019009||Viu
+_inverse_folds|5.027011||cViu
+invert|5.003007||Viu
+invlist_array|5.013010||Vniu
+_invlist_array_init|5.015001||Vniu
+invlist_clear|5.023009||Viu
+invlist_clone|5.015001||cViu
+_invlist_contains_cp|5.017003||Vniu
+invlist_contents|5.023008||Viu
+_invlist_dump|5.019003||cViu
+_invlistEQ|5.023006||cViu
+invlist_extend|5.013010||Viu
+invlist_highest|5.017002||Vniu
+_invlist_intersection|5.015001||Viu
+_invlist_intersection_maybe_complement_2nd|5.015008||cViu
+_invlist_invert|5.015001||cViu
+invlist_is_iterating|5.017008||Vniu
+invlist_iterfinish|5.017008||Vniu
+invlist_iterinit|5.015001||Vniu
+invlist_iternext|5.015001||Vniu
+_invlist_len|5.017004||Vniu
+invlist_lowest|5.031007||xVniu
+invlist_max|5.013010||Vniu
+invlist_previous_index|5.017004||Vniu
+invlist_replace_list_destroys_src|5.023009||Viu
+_invlist_search|5.017003||cVniu
+invlist_set_len|5.013010||Viu
+invlist_set_previous_index|5.017004||Vniu
+_invlist_subtract|5.015001||Viu
+invlist_trim|5.013010||Vniu
+_invlist_union|5.015001||cVu
+_invlist_union_maybe_complement_2nd|5.015008||cViu
+invmap_dump|5.031006||Viu
+invoke_exception_hook|5.013001||Viu
+IoANY|5.006001||Viu
+IoBOTTOM_GV|5.003007||Viu
+IoBOTTOM_NAME|5.003007||Viu
+io_close|5.003007||Viu
+IOCPARM_LEN|5.003007||Viu
+ioctl|5.005000||Viu
+IoDIRP|5.003007||Viu
+IOf_ARGV|5.003007||Viu
+IOf_DIDTOP|5.003007||Viu
+IOf_FAKE_DIRP|5.006000||Viu
+IOf_FLUSH|5.003007||Viu
+IoFLAGS|5.003007||Viu
+IoFMT_GV|5.003007||Viu
+IoFMT_NAME|5.003007||Viu
+IOf_NOLINE|5.005003||Viu
+IOf_START|5.003007||Viu
+IOf_UNTAINT|5.003007||Viu
+IoIFP|5.003007||Viu
+IoLINES|5.003007||Viu
+IoLINES_LEFT|5.003007||Viu
+IoOFP|5.003007||Viu
+IoPAGE|5.003007||Viu
+IoPAGE_LEN|5.003007||Viu
+IoTOP_GV|5.003007||Viu
+IoTOP_NAME|5.003007||Viu
+IoTYPE|5.003007||Viu
+IoTYPE_APPEND|5.006001||Viu
+IoTYPE_CLOSED|5.006001||Viu
+IoTYPE_IMPLICIT|5.008001||Viu
+IoTYPE_NUMERIC|5.008001||Viu
+IoTYPE_PIPE|5.006001||Viu
+IoTYPE_RDONLY|5.006001||Viu
+IoTYPE_RDWR|5.006001||Viu
+IoTYPE_SOCKET|5.006001||Viu
+IoTYPE_STD|5.006001||Viu
+IoTYPE_WRONLY|5.006001||Viu
+I_POLL|5.006000|5.006000|Vn
+I_PTHREAD|5.005003|5.005003|Vn
+I_PWD|5.003007|5.003007|Vn
+isALNUM|5.003007|5.003007|p
+isALNUM_A|5.031003|5.003007|p
+isALNUMC|5.006000|5.003007|p
+isALNUMC_A|5.013006|5.003007|p
+isALNUMC_L1|5.013006|5.003007|p
+isALNUMC_LC|5.006000|5.006000|
+isALNUMC_LC_utf8_safe|5.031007||Viu
+isALNUMC_LC_uvchr|5.017007|5.017007|
+isALNUMC_uni|5.017007||Viu
+isALNUMC_utf8|5.017007||Viu
+isALNUMC_utf8_safe|5.031007||Viu
+isALNUM_lazy_if_safe|5.031007||Viu
+isALNUM_LC|5.004000|5.004000|
+isALNUM_LC_utf8|5.006000||Viu
+isALNUM_LC_utf8_safe|5.031007||Viu
+isALNUM_LC_uvchr|5.007001|5.007001|
+isALNUMU|5.011005||Viu
+isALNUM_uni|5.006000||Viu
+isALNUM_utf8|5.006000||Viu
+isALNUM_utf8_safe|5.031007||Viu
+isa_lookup|5.005000||Viu
+isALPHA|5.003007|5.003007|p
+isALPHA_A|5.013006|5.003007|p
+isALPHA_FOLD_EQ|5.021004||Viu
+isALPHA_FOLD_NE|5.021004||Viu
+isALPHA_L1|5.013006|5.003007|p
+isALPHA_LC|5.004000|5.004000|
+isALPHA_LC_utf8|5.006000||Viu
+isALPHA_LC_utf8_safe|5.025009|5.006000|p
+isALPHA_LC_uvchr|5.007001|5.007001|
+isALPHANUMERIC|5.017008|5.003007|p
+isALPHANUMERIC_A|5.017008|5.003007|p
+isALPHANUMERIC_L1|5.017008|5.003007|p
+isALPHANUMERIC_LC|5.017008|5.004000|p
+isALPHANUMERIC_LC_utf8|5.017008||Viu
+isALPHANUMERIC_LC_utf8_safe|5.025009|5.006000|p
+isALPHANUMERIC_LC_uvchr|5.017008|5.017008|
+isALPHANUMERIC_uni|5.017008||Viu
+isALPHANUMERIC_utf8|5.031005|5.031005|
+isALPHANUMERIC_utf8_safe|5.025009|5.006000|p
+isALPHANUMERIC_uvchr|5.023009|5.006000|p
+isALPHAU|5.011005||Viu
+isALPHA_uni|5.006000||Viu
+isALPHA_utf8|5.031005|5.031005|
+isALPHA_utf8_safe|5.025009|5.006000|p
+isALPHA_uvchr|5.023009|5.006000|p
+is_an_int|5.005000||Viu
+is_ANYOF_SYNTHETIC|5.019009||Viu
+IS_ANYOF_TRIE|5.009005||Viu
+isASCII|5.006000|5.003007|p
+isASCII_A|5.013006|5.003007|p
+isASCII_L1|5.015004|5.003007|p
+isASCII_LC|5.015008|5.003007|p
+isASCII_LC_utf8|5.017007||Viu
+isASCII_LC_utf8_safe|5.025009|5.025009|
+isASCII_LC_uvchr|5.017007|5.017007|
+is_ascii_string|5.011000|5.011000|n
+isASCII_uni|5.006000||Viu
+isASCII_utf8|5.031005|5.031005|
+isASCII_utf8_safe|5.025009|5.003007|p
+isASCII_uvchr|5.023009|5.003007|p
+isatty|5.005000||Viu
+ISA_VERSION_OBJ|5.019008||Viu
+isBLANK|5.006001|5.003007|p
+isBLANK_A|5.013006|5.003007|p
+isBLANK_L1|5.013006|5.003007|p
+isBLANK_LC|5.006001|5.003007|p
+isBLANK_LC_uni|5.006001||Viu
+isBLANK_LC_utf8|5.006001||Viu
+isBLANK_LC_utf8_safe|5.025009|5.006000|p
+isBLANK_LC_uvchr|5.017007|5.017007|
+isBLANK_uni|5.006001||Viu
+isBLANK_utf8|5.031005|5.031005|
+isBLANK_utf8_safe|5.025009|5.006000|p
+isBLANK_uvchr|5.023009|5.006000|p
+isC9_STRICT_UTF8_CHAR|5.025005|5.025005|n
+is_c9strict_utf8_string|5.025006|5.025006|n
+is_c9strict_utf8_string_loc|5.025006|5.025006|n
+is_c9strict_utf8_string_loclen|5.025006|5.025006|n
+isCHARNAME_CONT|5.011005||Viu
+isCNTRL|5.006000|5.003007|p
+isCNTRL_A|5.013006|5.003007|p
+isCNTRL_L1|5.013006|5.003007|p
+isCNTRL_LC|5.006000|5.006000|
+isCNTRL_LC_utf8|5.006000||Viu
+isCNTRL_LC_utf8_safe|5.025009|5.006000|p
+isCNTRL_LC_uvchr|5.007001|5.007001|
+isCNTRL_uni|5.006000||Viu
+isCNTRL_utf8|5.031005|5.031005|
+isCNTRL_utf8_safe|5.025009|5.006000|p
+isCNTRL_uvchr|5.023009|5.006000|p
+_is_cur_LC_category_utf8|5.021001||cVu
+isDEBUG_WILDCARD|5.031011||Viu
+isDIGIT|5.003007|5.003007|p
+isDIGIT_A|5.013006|5.003007|p
+isDIGIT_L1|5.013006|5.003007|p
+isDIGIT_LC|5.004000|5.004000|
+isDIGIT_LC_utf8|5.006000||Viu
+isDIGIT_LC_utf8_safe|5.025009|5.006000|p
+isDIGIT_LC_uvchr|5.007001|5.007001|
+isDIGIT_uni|5.006000||Viu
+isDIGIT_utf8|5.031005|5.031005|
+isDIGIT_utf8_safe|5.025009|5.006000|p
+isDIGIT_uvchr|5.023009|5.006000|p
+isEXACTFish|5.033003||Viu
+isEXACT_REQ8|5.033003||Viu
+isFF_overlong|5.035004||Vniu
+is_FOLDS_TO_MULTI_utf8|5.019009||Viu
+isFOO_lc|5.017007||Viu
+isFOO_utf8_lc|5.017008||Viu
+isGCB|5.021009||Viu
+isGRAPH|5.006000|5.003007|p
+isGRAPH_A|5.013006|5.003007|p
+is_grapheme|5.031007||Viu
+isGRAPH_L1|5.013006|5.003007|p
+isGRAPH_LC|5.006000|5.006000|
+isGRAPH_LC_utf8|5.006000||Viu
+isGRAPH_LC_utf8_safe|5.025009|5.006000|p
+isGRAPH_LC_uvchr|5.007001|5.007001|
+isGRAPH_uni|5.006000||Viu
+isGRAPH_utf8|5.031005|5.031005|
+isGRAPH_utf8_safe|5.025009|5.006000|p
+isGRAPH_uvchr|5.023009|5.006000|p
+isGV|5.003007||Viu
+isGV_or_RVCV|5.027005||Viu
+isGV_with_GP|5.009004|5.003007|p
+isGV_with_GP_off|5.009005||Viu
+isGV_with_GP_on|5.009005||Viu
+I_SHADOW|5.006000|5.006000|Vn
+is_handle_constructor|5.006000||Vniu
+is_HANGUL_ED_utf8_safe|5.029001||Viu
+is_HORIZWS_cp_high|5.017006||Viu
+is_HORIZWS_high|5.017006||Viu
+isIDCONT|5.017008|5.003007|p
+isIDCONT_A|5.017008|5.003007|p
+isIDCONT_L1|5.017008|5.003007|p
+isIDCONT_LC|5.017008|5.004000|p
+isIDCONT_LC_utf8|5.017008||Viu
+isIDCONT_LC_utf8_safe|5.025009|5.006000|p
+isIDCONT_LC_uvchr|5.017008|5.017008|
+isIDCONT_uni|5.017008||Viu
+isIDCONT_utf8|5.031005|5.031005|
+isIDCONT_utf8_safe|5.025009|5.006000|p
+isIDCONT_uvchr|5.023009|5.006000|p
+isIDFIRST|5.003007|5.003007|p
+isIDFIRST_A|5.013006|5.003007|p
+isIDFIRST_L1|5.013006|5.003007|p
+isIDFIRST_lazy_if_safe|5.025009||Viu
+isIDFIRST_LC|5.004000|5.004000|p
+isIDFIRST_LC_utf8|5.006000||Viu
+isIDFIRST_LC_utf8_safe|5.025009|5.006000|p
+isIDFIRST_LC_uvchr|5.007001|5.007001|
+isIDFIRST_uni|5.006000||Viu
+isIDFIRST_utf8|5.031005|5.031005|
+isIDFIRST_utf8_safe|5.025009|5.006000|p
+isIDFIRST_uvchr|5.023009|5.006000|p
+isinfnan|5.021004|5.021004|n
+isinfnansv|5.021005||Vi
+_is_in_locale_category|5.021001||cViu
+IS_IN_SOME_FOLD_L1|5.033005||Viu
+is_invariant_string|5.021007|5.011000|pn
+is_invlist|5.029002||Vniu
+is_LARGER_NON_CHARS_utf8|5.035003||Viu
+is_LAX_VERSION|5.011004||Viu
+isLB|5.023007||Viu
+isLEXWARN_off|5.006000||Viu
+isLEXWARN_on|5.006000||Viu
+is_LNBREAK_latin1_safe|5.009005||Viu
+is_LNBREAK_safe|5.009005||Viu
+is_LNBREAK_utf8_safe|5.009005||Viu
+isLOWER|5.003007|5.003007|p
+isLOWER_A|5.013006|5.003007|p
+isLOWER_L1|5.013006|5.003007|p
+isLOWER_LC|5.004000|5.004000|
+isLOWER_LC_utf8|5.006000||Viu
+isLOWER_LC_utf8_safe|5.025009|5.006000|p
+isLOWER_LC_uvchr|5.007001|5.007001|
+isLOWER_uni|5.006000||Viu
+isLOWER_utf8|5.031005|5.031005|
+isLOWER_utf8_safe|5.025009|5.006000|p
+isLOWER_uvchr|5.023009|5.006000|p
+is_lvalue_sub|5.007001|5.007001|u
+isMNEMONIC_CNTRL|5.031009||Viu
+is_MULTI_CHAR_FOLD_latin1_safe|5.019010||Viu
+is_MULTI_CHAR_FOLD_utf8_safe|5.019010||Viu
+is_MULTI_CHAR_FOLD_utf8_safe_part0|5.019010||Viu
+is_MULTI_CHAR_FOLD_utf8_safe_part1|5.019010||Viu
+is_MULTI_CHAR_FOLD_utf8_safe_part2|5.025008||Viu
+is_MULTI_CHAR_FOLD_utf8_safe_part3|5.025008||Viu
+is_NONCHAR_utf8_safe|5.025005||Viu
+IS_NON_FINAL_FOLD|5.033005||Viu
+isnormal|5.021004||Viu
+IS_NUMBER_GREATER_THAN_UV_MAX|5.007002|5.003007|p
+IS_NUMBER_INFINITY|5.007002|5.003007|p
+IS_NUMBER_IN_UV|5.007002|5.003007|p
+IS_NUMBER_NAN|5.007003|5.003007|p
+IS_NUMBER_NEG|5.007002|5.003007|p
+IS_NUMBER_NOT_INT|5.007002|5.003007|p
+IS_NUMBER_TRAILING|5.021002||Viu
+IS_NUMERIC_RADIX|5.006000||Viu
+isOCTAL|5.013005|5.003007|p
+isOCTAL_A|5.013006|5.003007|p
+isOCTAL_L1|5.013006|5.003007|p
+IS_PADCONST|5.006000||Viu
+IS_PADGV|5.006000||Viu
+is_PATWS_safe|5.017008||Viu
+isPOWER_OF_2|5.029006||Viu
+isPRINT|5.004000|5.003007|p
+isPRINT_A|5.013006|5.003007|p
+isPRINT_L1|5.013006|5.003007|p
+isPRINT_LC|5.004000|5.004000|
+isPRINT_LC_utf8|5.006000||Viu
+isPRINT_LC_utf8_safe|5.025009|5.006000|p
+isPRINT_LC_uvchr|5.007001|5.007001|
+isPRINT_uni|5.006000||Viu
+isPRINT_utf8|5.031005|5.031005|
+isPRINT_utf8_safe|5.025009|5.006000|p
+isPRINT_uvchr|5.023009|5.006000|p
+is_PROBLEMATIC_LOCALE_FOLD_cp|5.019009||Viu
+is_PROBLEMATIC_LOCALE_FOLDEDS_START_cp|5.019009||Viu
+is_PROBLEMATIC_LOCALE_FOLDEDS_START_utf8|5.019009||Viu
+is_PROBLEMATIC_LOCALE_FOLD_utf8|5.019009||Viu
+isPSXSPC|5.006001|5.003007|p
+isPSXSPC_A|5.013006|5.003007|p
+isPSXSPC_L1|5.013006|5.003007|p
+isPSXSPC_LC|5.006001|5.006001|
+isPSXSPC_LC_utf8|5.006001||Viu
+isPSXSPC_LC_utf8_safe|5.025009|5.006000|p
+isPSXSPC_LC_uvchr|5.017007|5.017007|
+isPSXSPC_uni|5.006001||Viu
+isPSXSPC_utf8|5.031005|5.031005|
+isPSXSPC_utf8_safe|5.025009|5.006000|p
+isPSXSPC_uvchr|5.023009|5.006000|p
+isPUNCT|5.006000|5.003007|p
+isPUNCT_A|5.013006|5.003007|p
+isPUNCT_L1|5.013006|5.003007|p
+isPUNCT_LC|5.006000|5.006000|
+isPUNCT_LC_utf8|5.006000||Viu
+isPUNCT_LC_utf8_safe|5.025009|5.006000|p
+isPUNCT_LC_uvchr|5.007001|5.007001|
+isPUNCT_uni|5.006000||Viu
+isPUNCT_utf8|5.031005|5.031005|
+isPUNCT_utf8_safe|5.025009|5.006000|p
+isPUNCT_uvchr|5.023009|5.006000|p
+is_QUOTEMETA_high|5.017004||Viu
+isREGEXP|5.017006||Viu
+IS_SAFE_PATHNAME|5.019004||Viu
+IS_SAFE_SYSCALL|5.019004|5.019004|
+is_safe_syscall|5.019004|5.019004|
+isSB|5.021009||Viu
+isSCRIPT_RUN|5.027008||cVi
+is_SHORTER_NON_CHARS_utf8|5.035003||Viu
+isSPACE|5.003007|5.003007|p
+isSPACE_A|5.013006|5.003007|p
+isSPACE_L1|5.013006|5.003007|p
+isSPACE_LC|5.004000|5.004000|
+isSPACE_LC_utf8|5.006000||Viu
+isSPACE_LC_utf8_safe|5.025009|5.006000|p
+isSPACE_LC_uvchr|5.007001|5.007001|
+isSPACE_uni|5.006000||Viu
+isSPACE_utf8|5.031005|5.031005|
+isSPACE_utf8_safe|5.025009|5.006000|p
+isSPACE_uvchr|5.023009|5.006000|p
+is_ssc_worth_it|5.021005||Vniu
+isSTRICT_UTF8_CHAR|5.025005|5.025005|n
+is_strict_utf8_string|5.025006|5.025006|n
+is_strict_utf8_string_loc|5.025006|5.025006|n
+is_strict_utf8_string_loclen|5.025006|5.025006|n
+is_STRICT_VERSION|5.011004||Viu
+is_SURROGATE_utf8|5.035004||Viu
+is_SURROGATE_utf8_safe|5.025005||Viu
+I_STDARG|5.003007||Viu
+I_STDBOOL|5.015003|5.015003|Vn
+I_STDINT|5.021004|5.021004|Vn
+is_THREE_CHAR_FOLD_HEAD_latin1_safe|5.031007||Viu
+is_THREE_CHAR_FOLD_HEAD_utf8_safe|5.031007||Viu
+is_THREE_CHAR_FOLD_latin1_safe|5.031007||Viu
+is_THREE_CHAR_FOLD_utf8_safe|5.031007||Viu
+IS_TRIE_AC|5.009005||Viu
+isUNICODE_POSSIBLY_PROBLEMATIC|5.035004||Viu
+_is_uni_FOO|5.017008||cVu
+_is_uni_perl_idcont|5.017008||cVu
+_is_uni_perl_idstart|5.017007||cVu
+isUPPER|5.003007|5.003007|p
+isUPPER_A|5.013006|5.003007|p
+isUPPER_L1|5.013006|5.003007|p
+isUPPER_LC|5.004000|5.004000|
+isUPPER_LC_utf8|5.006000||Viu
+isUPPER_LC_utf8_safe|5.025009|5.006000|p
+isUPPER_LC_uvchr|5.007001|5.007001|
+isUPPER_uni|5.006000||Viu
+isUPPER_utf8|5.031005|5.031005|
+isUPPER_utf8_safe|5.025009|5.006000|p
+isUPPER_uvchr|5.023009|5.006000|p
+is_utf8_char|5.006000|5.006000|dn
+IS_UTF8_CHAR|5.009003||Viu
+isUTF8_CHAR|5.021001|5.006001|pn
+is_utf8_char_buf|5.015008|5.015008|n
+isUTF8_CHAR_flags|5.025005|5.025005|n
+is_utf8_char_helper_|5.035004||cVnu
+is_utf8_common|5.009003||Viu
+is_utf8_FF_helper_|5.035004||cVnu
+is_utf8_fixed_width_buf_flags|5.025006|5.025006|n
+is_utf8_fixed_width_buf_loc_flags|5.025006|5.025006|n
+is_utf8_fixed_width_buf_loclen_flags|5.025006|5.025006|n
+_is_utf8_FOO|5.031006||cVu
+is_utf8_invariant_string|5.025005|5.011000|pn
+is_utf8_invariant_string_loc|5.027001|5.027001|n
+is_utf8_non_invariant_string|5.027007||cVni
+is_utf8_overlong|5.035004||Vniu
+_is_utf8_perl_idcont|5.031006||cVu
+_is_utf8_perl_idstart|5.031006||cVu
+isUTF8_POSSIBLY_PROBLEMATIC|5.023003||Viu
+is_utf8_string|5.006001|5.006001|n
+is_utf8_string_flags|5.025006|5.025006|n
+is_utf8_string_loc|5.008001|5.008001|n
+is_utf8_string_loc_flags|5.025006|5.025006|n
+is_utf8_string_loclen|5.009003|5.009003|n
+is_utf8_string_loclen_flags|5.025006|5.025006|n
+is_utf8_valid_partial_char|5.025005|5.025005|n
+is_utf8_valid_partial_char_flags|5.025005|5.025005|n
+is_VERTWS_cp_high|5.017006||Viu
+is_VERTWS_high|5.017006||Viu
+isVERTWS_uni|5.017006||Viu
+isVERTWS_utf8|5.017006||Viu
+isVERTWS_utf8_safe|5.025009||Viu
+isVERTWS_uvchr|5.023009||Viu
+isWARNf_on|5.006001||Viu
+isWARN_on|5.006000||Viu
+isWARN_ONCE|5.006000||Viu
+isWB|5.021009||Viu
+isWORDCHAR|5.013006|5.003007|p
+isWORDCHAR_A|5.013006|5.003007|p
+isWORDCHAR_L1|5.013006|5.003007|p
+isWORDCHAR_lazy_if_safe|5.025009||Viu
+isWORDCHAR_LC|5.017007|5.004000|p
+isWORDCHAR_LC_utf8|5.017007||Viu
+isWORDCHAR_LC_utf8_safe|5.025009|5.006000|p
+isWORDCHAR_LC_uvchr|5.017007|5.017007|
+isWORDCHAR_uni|5.017006||Viu
+isWORDCHAR_utf8|5.031005|5.031005|
+isWORDCHAR_utf8_safe|5.025009|5.006000|p
+isWORDCHAR_uvchr|5.023009|5.006000|p
+isXDIGIT|5.006000|5.003007|p
+isXDIGIT_A|5.013006|5.003007|p
+is_XDIGIT_cp_high|5.017006||Viu
+is_XDIGIT_high|5.017006||Viu
+isXDIGIT_L1|5.013006|5.003007|p
+isXDIGIT_LC|5.017007|5.003007|p
+isXDIGIT_LC_utf8|5.017007||Viu
+isXDIGIT_LC_utf8_safe|5.025009|5.006000|p
+isXDIGIT_LC_uvchr|5.017007|5.017007|
+isXDIGIT_uni|5.006000||Viu
+isXDIGIT_utf8|5.031005|5.031005|
+isXDIGIT_utf8_safe|5.025009|5.006000|p
+isXDIGIT_uvchr|5.023009|5.006000|p
+is_XPERLSPACE_cp_high|5.017006||Viu
+is_XPERLSPACE_high|5.017006||Viu
+I_SYS_DIR|5.003007|5.003007|Vn
+I_SYS_FILE|5.003007|5.003007|Vn
+I_SYS_IOCTL|5.003007|5.003007|Vn
+I_SYSLOG|5.006000|5.006000|Vn
+I_SYS_MOUNT|5.023005|5.023005|Vn
+I_SYS_PARAM|5.003007|5.003007|Vn
+I_SYS_POLL|5.010001|5.010001|Vn
+I_SYS_RESOURCE|5.003007|5.003007|Vn
+I_SYS_SELECT|5.003007|5.003007|Vn
+I_SYS_STAT|5.003007|5.003007|Vn
+I_SYS_STATFS|5.023005|5.023005|Vn
+I_SYS_STATVFS|5.023005|5.023005|Vn
+I_SYS_TIME|5.003007|5.003007|Vn
+I_SYS_TIMES|5.003007|5.003007|Vn
+I_SYS_TYPES|5.003007|5.003007|Vn
+I_SYSUIO|5.006000|5.006000|Vn
+I_SYS_UN|5.003007|5.003007|Vn
+I_SYSUTSNAME|5.006000|5.006000|Vn
+I_SYS_VFS|5.023005|5.023005|Vn
+I_SYS_WAIT|5.003007|5.003007|Vn
+items||5.003007|
+I_TERMIOS|5.003007|5.003007|Vn
+I_TIME|5.003007|5.003007|Vn
+I_UNISTD|5.003007|5.003007|Vn
+I_USTAT|5.023005|5.023005|Vn
+I_UTIME|5.003007|5.003007|Vn
+I_V|5.006000|5.003007|
+IVdf|5.006000|5.003007|poVn
+IV_DIG|5.006000||Viu
+IV_IS_QUAD|5.006000||Viu
+IV_MAX|5.003007|5.003007|
+IV_MAX_P1|5.007002||Viu
+IV_MIN|5.003007|5.003007|
+IVSIZE|5.006000|5.003007|poVn
+IVTYPE|5.006000|5.003007|poVn
+I_WCHAR|5.027006|5.027006|Vn
+I_WCTYPE|5.029009|5.029009|Vn
+ix||5.003007|
+I_XLOCALE|5.025004|5.025004|Vn
+JE_OLD_STACK_HWM_restore|5.027002||Viu
+JE_OLD_STACK_HWM_save|5.027002||Viu
+JE_OLD_STACK_HWM_zero|5.027002||Viu
+jmaybe|5.003007||Viu
+JMPENV_BOOTSTRAP|5.006000||Viu
+JMPENV_JUMP|5.004000|5.004000|
+JMPENV_POP|5.004000||Viu
+JMPENV_PUSH|5.004000||Viu
+JOIN|5.005000||Viu
+join_exact|5.009004||Viu
+kBINOP|5.003007||Viu
+kCOP|5.003007||Viu
+KEEPCOPY_PAT_MOD|5.009005||Viu
+KEEPCOPY_PAT_MODS|5.009005||Viu
+KEEPS|5.009005||Viu
+KEEPS_next|5.009005||Viu
+KEEPS_next_fail|5.009005||Viu
+KEEPS_next_fail_t8|5.035004||Viu
+KEEPS_next_fail_t8_p8|5.033003||Viu
+KEEPS_next_fail_t8_pb|5.033003||Viu
+KEEPS_next_fail_tb|5.035004||Viu
+KEEPS_next_fail_tb_p8|5.033003||Viu
+KEEPS_next_fail_tb_pb|5.033003||Viu
+KEEPS_next_t8|5.035004||Viu
+KEEPS_next_t8_p8|5.033003||Viu
+KEEPS_next_t8_pb|5.033003||Viu
+KEEPS_next_tb|5.035004||Viu
+KEEPS_next_tb_p8|5.033003||Viu
+KEEPS_next_tb_pb|5.033003||Viu
+KEEPS_t8|5.035004||Viu
+KEEPS_t8_p8|5.033003||Viu
+KEEPS_t8_pb|5.033003||Viu
+KEEPS_tb|5.035004||Viu
+KEEPS_tb_p8|5.033003||Viu
+KEEPS_tb_pb|5.033003||Viu
+KELVIN_SIGN|5.017003||Viu
+KERNEL|5.003007||Viu
+KEY_abs|5.003007||Viu
+KEY_accept|5.003007||Viu
+KEY_alarm|5.003007||Viu
+KEY_and|5.003007||Viu
+KEY_atan2|5.003007||Viu
+KEY_AUTOLOAD|5.003007||Viu
+KEY_BEGIN|5.003007||Viu
+KEY_bind|5.003007||Viu
+KEY_binmode|5.003007||Viu
+KEY_bless|5.003007||Viu
+KEY_break|5.027008||Viu
+KEY_caller|5.003007||Viu
+KEY_catch|5.033007||Viu
+KEY_chdir|5.003007||Viu
+KEY_CHECK|5.006000||Viu
+KEY_chmod|5.003007||Viu
+KEY_chomp|5.003007||Viu
+KEY_chop|5.003007||Viu
+KEY_chown|5.003007||Viu
+KEY_chr|5.003007||Viu
+KEY_chroot|5.003007||Viu
+KEY_close|5.003007||Viu
+KEY_closedir|5.003007||Viu
+KEY_cmp|5.003007||Viu
+KEY_connect|5.003007||Viu
+KEY_continue|5.003007||Viu
+KEY_cos|5.003007||Viu
+KEY_crypt|5.003007||Viu
+KEY___DATA|5.003007||Viu
+KEY_dbmclose|5.003007||Viu
+KEY_dbmopen|5.003007||Viu
+KEY_default|5.027008||Viu
+KEY_defer|5.035004||Viu
+KEY_defined|5.003007||Viu
+KEY_delete|5.003007||Viu
+KEY_DESTROY|5.003007||Viu
+KEY_die|5.003007||Viu
+KEY_do|5.003007||Viu
+KEY_dump|5.003007||Viu
+KEY_each|5.003007||Viu
+KEY_else|5.003007||Viu
+KEY_elsif|5.003007||Viu
+KEY___END|5.003007||Viu
+KEY_END|5.003007||Viu
+KEY_endgrent|5.003007||Viu
+KEY_endhostent|5.003007||Viu
+KEY_endnetent|5.003007||Viu
+KEY_endprotoent|5.003007||Viu
+KEY_endpwent|5.003007||Viu
+KEY_endservent|5.003007||Viu
+KEY_eof|5.003007||Viu
+KEY_eq|5.003007||Viu
+KEY_eval|5.003007||Viu
+KEY_evalbytes|5.015005||Viu
+KEY_exec|5.003007||Viu
+KEY_exists|5.003007||Viu
+KEY_exit|5.003007||Viu
+KEY_exp|5.003007||Viu
+KEY_fc|5.015008||Viu
+KEY_fcntl|5.003007||Viu
+KEY___FILE|5.003007||Viu
+KEY_fileno|5.003007||Viu
+KEY_finally|5.035008||Viu
+KEY_flock|5.003007||Viu
+KEY_for|5.003007||Viu
+KEY_foreach|5.003007||Viu
+KEY_fork|5.003007||Viu
+KEY_format|5.003007||Viu
+KEY_formline|5.003007||Viu
+KEY_ge|5.003007||Viu
+KEY_getc|5.003007||Viu
+KEY_getgrent|5.003007||Viu
+KEY_getgrgid|5.003007||Viu
+KEY_getgrnam|5.003007||Viu
+KEY_gethostbyaddr|5.003007||Viu
+KEY_gethostbyname|5.003007||Viu
+KEY_gethostent|5.003007||Viu
+KEY_getlogin|5.003007||Viu
+KEY_getnetbyaddr|5.003007||Viu
+KEY_getnetbyname|5.003007||Viu
+KEY_getnetent|5.003007||Viu
+KEY_getpeername|5.003007||Viu
+KEY_getpgrp|5.003007||Viu
+KEY_getppid|5.003007||Viu
+KEY_getpriority|5.003007||Viu
+KEY_getprotobyname|5.003007||Viu
+KEY_getprotobynumber|5.003007||Viu
+KEY_getprotoent|5.003007||Viu
+KEY_getpwent|5.003007||Viu
+KEY_getpwnam|5.003007||Viu
+KEY_getpwuid|5.003007||Viu
+KEY_getservbyname|5.003007||Viu
+KEY_getservbyport|5.003007||Viu
+KEY_getservent|5.003007||Viu
+KEY_getsockname|5.003007||Viu
+KEY_getsockopt|5.003007||Viu
+KEY_getspnam|5.031011||Viu
+KEY_given|5.009003||Viu
+KEY_glob|5.003007||Viu
+KEY_gmtime|5.003007||Viu
+KEY_goto|5.003007||Viu
+KEY_grep|5.003007||Viu
+KEY_gt|5.003007||Viu
+KEY_hex|5.003007||Viu
+KEY_if|5.003007||Viu
+KEY_index|5.003007||Viu
+KEY_INIT|5.005000||Viu
+KEY_int|5.003007||Viu
+KEY_ioctl|5.003007||Viu
+KEY_isa|5.031007||Viu
+KEY_join|5.003007||Viu
+KEY_keys|5.003007||Viu
+KEY_kill|5.003007||Viu
+KEY_last|5.003007||Viu
+KEY_lc|5.003007||Viu
+KEY_lcfirst|5.003007||Viu
+KEY_le|5.003007||Viu
+KEY_length|5.003007||Viu
+KEY___LINE|5.003007||Viu
+KEY_link|5.003007||Viu
+KEY_listen|5.003007||Viu
+KEY_local|5.003007||Viu
+KEY_localtime|5.003007||Viu
+KEY_lock|5.005000||Viu
+KEY_log|5.003007||Viu
+KEY_lstat|5.003007||Viu
+KEY_lt|5.003007||Viu
+KEY_m|5.003007||Viu
+KEY_map|5.003007||Viu
+KEY_mkdir|5.003007||Viu
+KEY_msgctl|5.003007||Viu
+KEY_msgget|5.003007||Viu
+KEY_msgrcv|5.003007||Viu
+KEY_msgsnd|5.003007||Viu
+KEY_my|5.003007||Viu
+KEY_ne|5.003007||Viu
+KEY_next|5.003007||Viu
+KEY_no|5.003007||Viu
+KEY_not|5.003007||Viu
+KEY_NULL|5.003007||Viu
+KEY_oct|5.003007||Viu
+KEY_open|5.003007||Viu
+KEY_opendir|5.003007||Viu
+KEY_or|5.003007||Viu
+KEY_ord|5.003007||Viu
+KEY_our|5.006000||Viu
+KEY_pack|5.003007||Viu
+KEY_package|5.003007||Viu
+KEY___PACKAGE|5.004000||Viu
+KEY_pipe|5.003007||Viu
+KEY_pop|5.003007||Viu
+KEY_pos|5.003007||Viu
+KEY_print|5.003007||Viu
+KEY_printf|5.003007||Viu
+KEY_prototype|5.003007||Viu
+KEY_push|5.003007||Viu
+KEY_q|5.003007||Viu
+KEY_qq|5.003007||Viu
+KEY_qr|5.005000||Viu
+KEY_quotemeta|5.003007||Viu
+KEY_qw|5.003007||Viu
+KEY_qx|5.003007||Viu
+KEY_rand|5.003007||Viu
+KEY_read|5.003007||Viu
+KEY_readdir|5.003007||Viu
+KEY_readline|5.003007||Viu
+KEY_readlink|5.003007||Viu
+KEY_readpipe|5.003007||Viu
+KEY_recv|5.003007||Viu
+KEY_redo|5.003007||Viu
+KEY_ref|5.003007||Viu
+KEY_rename|5.003007||Viu
+KEY_require|5.003007||Viu
+KEY_reset|5.003007||Viu
+KEY_return|5.003007||Viu
+KEY_reverse|5.003007||Viu
+KEY_rewinddir|5.003007||Viu
+KEY_rindex|5.003007||Viu
+KEY_rmdir|5.003007||Viu
+KEY_s|5.003007||Viu
+KEY_say|5.009003||Viu
+KEY_scalar|5.003007||Viu
+KEY_seek|5.003007||Viu
+KEY_seekdir|5.003007||Viu
+KEY_select|5.003007||Viu
+KEY_semctl|5.003007||Viu
+KEY_semget|5.003007||Viu
+KEY_semop|5.003007||Viu
+KEY_send|5.003007||Viu
+KEY_setgrent|5.003007||Viu
+KEY_sethostent|5.003007||Viu
+KEY_setnetent|5.003007||Viu
+KEY_setpgrp|5.003007||Viu
+KEY_setpriority|5.003007||Viu
+KEY_setprotoent|5.003007||Viu
+KEY_setpwent|5.003007||Viu
+KEY_setservent|5.003007||Viu
+KEY_setsockopt|5.003007||Viu
+KEY_shift|5.003007||Viu
+KEY_shmctl|5.003007||Viu
+KEY_shmget|5.003007||Viu
+KEY_shmread|5.003007||Viu
+KEY_shmwrite|5.003007||Viu
+KEY_shutdown|5.003007||Viu
+KEY_sigvar|5.025004||Viu
+KEY_sin|5.003007||Viu
+KEY_sleep|5.003007||Viu
+KEY_socket|5.003007||Viu
+KEY_socketpair|5.003007||Viu
+KEY_sort|5.003007||Viu
+KEY_splice|5.003007||Viu
+KEY_split|5.003007||Viu
+KEY_sprintf|5.003007||Viu
+KEY_sqrt|5.003007||Viu
+KEY_srand|5.003007||Viu
+KEY_stat|5.003007||Viu
+KEY_state|5.009004||Viu
+KEY_study|5.003007||Viu
+KEY_sub|5.003007||Viu
+KEY___SUB|5.015006||Viu
+KEY_substr|5.003007||Viu
+KEY_symlink|5.003007||Viu
+KEY_syscall|5.003007||Viu
+KEY_sysopen|5.003007||Viu
+KEY_sysread|5.003007||Viu
+KEY_sysseek|5.004000||Viu
+KEY_system|5.003007||Viu
+KEY_syswrite|5.003007||Viu
+KEY_tell|5.003007||Viu
+KEY_telldir|5.003007||Viu
+KEY_tie|5.003007||Viu
+KEY_tied|5.003007||Viu
+KEY_time|5.003007||Viu
+KEY_times|5.003007||Viu
+KEY_tr|5.003007||Viu
+KEY_truncate|5.003007||Viu
+KEY_try|5.033007||Viu
+KEY_uc|5.003007||Viu
+KEY_ucfirst|5.003007||Viu
+KEY_umask|5.003007||Viu
+KEY_undef|5.003007||Viu
+KEY_UNITCHECK|5.009005||Viu
+KEY_unless|5.003007||Viu
+KEY_unlink|5.003007||Viu
+KEY_unpack|5.003007||Viu
+KEY_unshift|5.003007||Viu
+KEY_untie|5.003007||Viu
+KEY_until|5.003007||Viu
+KEY_use|5.003007||Viu
+KEY_utime|5.003007||Viu
+KEY_values|5.003007||Viu
+KEY_vec|5.003007||Viu
+KEY_wait|5.003007||Viu
+KEY_waitpid|5.003007||Viu
+KEY_wantarray|5.003007||Viu
+KEY_warn|5.003007||Viu
+KEY_when|5.027008||Viu
+KEY_while|5.003007||Viu
+keyword|5.003007||Viu
+KEYWORD_PLUGIN_DECLINE|5.011002||Viu
+KEYWORD_PLUGIN_EXPR|5.011002||Viu
+KEYWORD_PLUGIN_MUTEX_INIT|5.027006||Viu
+KEYWORD_PLUGIN_MUTEX_LOCK|5.027006||Viu
+KEYWORD_PLUGIN_MUTEX_TERM|5.027006||Viu
+KEYWORD_PLUGIN_MUTEX_UNLOCK|5.027006||Viu
+keyword_plugin_standard|||iu
+KEYWORD_PLUGIN_STMT|5.011002||Viu
+KEY_write|5.003007||Viu
+KEY_x|5.003007||Viu
+KEY_xor|5.003007||Viu
+KEY_y|5.003007||Viu
+kGVOP_gv|5.006000||Viu
+kill|5.005000||Viu
+killpg|5.005000||Viu
+kLISTOP|5.003007||Viu
+kLOGOP|5.003007||Viu
+kLOOP|5.003007||Viu
+kPADOP|5.006000||Viu
+kPMOP|5.003007||Viu
+kPVOP|5.003007||Viu
+kSVOP|5.003007||Viu
+kSVOP_sv|5.006000||Viu
+kUNOP|5.003007||Viu
+kUNOP_AUX|5.021007||Viu
+LATIN1_TO_NATIVE|5.019004|5.003007|p
+LATIN_CAPITAL_LETTER_A_WITH_RING_ABOVE|5.013011||Viu
+LATIN_CAPITAL_LETTER_A_WITH_RING_ABOVE_NATIVE|5.017004||Viu
+LATIN_CAPITAL_LETTER_I_WITH_DOT_ABOVE|5.023002||Viu
+LATIN_CAPITAL_LETTER_I_WITH_DOT_ABOVE_UTF8|5.023002||Viu
+LATIN_CAPITAL_LETTER_SHARP_S|5.014000||Viu
+LATIN_CAPITAL_LETTER_SHARP_S_UTF8|5.019001||Viu
+LATIN_CAPITAL_LETTER_Y_WITH_DIAERESIS|5.013011||Viu
+LATIN_SMALL_LETTER_A_WITH_RING_ABOVE|5.013011||Viu
+LATIN_SMALL_LETTER_A_WITH_RING_ABOVE_NATIVE|5.017004||Viu
+LATIN_SMALL_LETTER_DOTLESS_I|5.023002||Viu
+LATIN_SMALL_LETTER_DOTLESS_I_UTF8|5.023002||Viu
+LATIN_SMALL_LETTER_LONG_S|5.017003||Viu
+LATIN_SMALL_LETTER_LONG_S_UTF8|5.019001||Viu
+LATIN_SMALL_LETTER_SHARP_S|5.011002||Viu
+LATIN_SMALL_LETTER_SHARP_S_NATIVE|5.017004||Viu
+LATIN_SMALL_LETTER_SHARP_S_UTF8|5.033003||Viu
+LATIN_SMALL_LETTER_Y_WITH_DIAERESIS|5.011002||Viu
+LATIN_SMALL_LETTER_Y_WITH_DIAERESIS_NATIVE|5.017004||Viu
+LATIN_SMALL_LIGATURE_LONG_S_T|5.019004||Viu
+LATIN_SMALL_LIGATURE_LONG_S_T_UTF8|5.019004||Viu
+LATIN_SMALL_LIGATURE_ST|5.019004||Viu
+LATIN_SMALL_LIGATURE_ST_UTF8|5.019004||Viu
+LB_BREAKABLE|5.023007||Viu
+LB_CM_ZWJ_foo|5.025003||Viu
+LB_HY_or_BA_then_foo|5.023007||Viu
+LB_NOBREAK|5.023007||Viu
+LB_NOBREAK_EVEN_WITH_SP_BETWEEN|5.023007||Viu
+LB_PR_or_PO_then_OP_or_HY|5.023007||Viu
+LB_RI_then_RI|5.025003||Viu
+LB_SP_foo|5.023007||Viu
+LB_SY_or_IS_then_various|5.023007||Viu
+LB_various_then_PO_or_PR|5.023007||Viu
+LC_NUMERIC_LOCK|5.027009||pVu
+LC_NUMERIC_UNLOCK|5.027009||pVu
+LDBL_DIG|5.006000||Viu
+LEAVE|5.003007|5.003007|
+leave_adjust_stacks|5.023008|5.023008|xu
+leave_scope|5.003007|5.003007|u
+LEAVE_SCOPE|5.003007||Viu
+LEAVE_with_name|5.011002|5.011002|
+LEXACT|5.031005||Viu
+LEXACT_REQ8|5.031006||Viu
+LEXACT_REQ8_t8|5.035004||Viu
+LEXACT_REQ8_t8_p8|5.033003||Viu
+LEXACT_REQ8_t8_pb|5.033003||Viu
+LEXACT_REQ8_tb|5.035004||Viu
+LEXACT_REQ8_tb_p8|5.033003||Viu
+LEXACT_REQ8_tb_pb|5.033003||Viu
+LEXACT_t8|5.035004||Viu
+LEXACT_t8_p8|5.033003||Viu
+LEXACT_t8_pb|5.033003||Viu
+LEXACT_tb|5.035004||Viu
+LEXACT_tb_p8|5.033003||Viu
+LEXACT_tb_pb|5.033003||Viu
+lex_bufutf8|5.011002|5.011002|x
+lex_discard_to|5.011002|5.011002|x
+LEX_DONT_CLOSE_RSFP|5.015009||Viu
+LEX_EVALBYTES|5.015005||Viu
+lex_grow_linestr|5.011002|5.011002|x
+LEX_IGNORE_UTF8_HINTS|5.015005||Viu
+LEX_KEEP_PREVIOUS|5.011002|5.011002|
+lex_next_chunk|5.011002|5.011002|x
+LEX_NOTPARSING|5.004004||Viu
+lex_peek_unichar|5.011002|5.011002|x
+lex_read_space|5.011002|5.011002|x
+lex_read_to|5.011002|5.011002|x
+lex_read_unichar|5.011002|5.011002|x
+lex_start|5.013007|5.013007|x
+LEX_START_COPIED|5.015005||Viu
+LEX_START_FLAGS|5.015005||Viu
+LEX_START_SAME_FILTER|5.014000||Viu
+lex_stuff_pv|5.013006|5.013006|x
+lex_stuff_pvn|5.011002|5.011002|x
+lex_stuff_pvs|5.013005|5.013005|x
+lex_stuff_sv|5.011002|5.011002|x
+LEX_STUFF_UTF8|5.011002|5.011002|
+lex_unstuff|5.011002|5.011002|x
+LF_NATIVE|5.019004||Viu
+LIB_INVARG|5.008001||Viu
+LIBM_LIB_VERSION|5.009003|5.009003|Vn
+LIKELY|5.009004|5.003007|p
+link|5.006000||Viu
+LINKLIST|5.013006|5.013006|
+list|5.003007||Viu
+listen|5.005000||Viu
+listkids|5.003007||Viu
+LNBREAK|5.009005||Viu
+LNBREAK_t8|5.035004||Viu
+LNBREAK_t8_p8|5.033003||Viu
+LNBREAK_t8_pb|5.033003||Viu
+LNBREAK_tb|5.035004||Viu
+LNBREAK_tb_p8|5.033003||Viu
+LNBREAK_tb_pb|5.033003||Viu
+load_charnames|5.031010||cViu
+load_module|5.006000|5.003007|pv
+load_module_nocontext|5.013006|5.013006|vn
+LOCALECONV_LOCK|5.033005||Viu
+LOCALECONV_UNLOCK|5.033005||Viu
+LOCALE_INIT|5.024000||Viu
+LOCALE_INIT_LC_NUMERIC|5.033005||Viu
+LOCALE_LOCK|5.024000||Viu
+LOCALE_PAT_MOD|5.013006||Viu
+LOCALE_PAT_MODS|5.013006||Viu
+LOCALE_READ_LOCK|5.033005||Viu
+LOCALE_READ_UNLOCK|5.033005||Viu
+LOCALE_TERM|5.024000||Viu
+LOCALE_TERM_LC_NUMERIC|5.033005||Viu
+LOCALE_TERM_POSIX_2008|5.033005||Viu
+LOCALE_UNLOCK|5.024000||Viu
+localize|5.003007||Viu
+LOCAL_PATCH_COUNT|5.003007||Viu
+localtime|5.031011||Viu
+LOCALTIME_MAX|5.010001|5.010001|Vn
+LOCALTIME_MIN|5.010001|5.010001|Vn
+LOCALTIME_R_NEEDS_TZSET|5.010000|5.010000|Vn
+LOCALTIME_R_PROTO|5.008000|5.008000|Vn
+LOCK_DOLLARZERO_MUTEX|5.008001||Viu
+lockf|5.006000||Viu
+LOCK_LC_NUMERIC_STANDARD|5.021010||poVnu
+LOCK_NUMERIC_STANDARD|||piu
+LOC_SED|5.003007|5.003007|Vn
+LOGICAL|5.005000||Viu
+LOGICAL_t8|5.035004||Viu
+LOGICAL_t8_p8|5.033003||Viu
+LOGICAL_t8_pb|5.033003||Viu
+LOGICAL_tb|5.035004||Viu
+LOGICAL_tb_p8|5.033003||Viu
+LOGICAL_tb_pb|5.033003||Viu
+LONGDBLINFBYTES|5.023000|5.023000|Vn
+LONGDBLMANTBITS|5.023000|5.023000|Vn
+LONGDBLNANBYTES|5.023000|5.023000|Vn
+LONGDOUBLE_BIG_ENDIAN|5.021009||Viu
+LONGDOUBLE_DOUBLEDOUBLE|5.021009||Viu
+LONG_DOUBLE_EQUALS_DOUBLE|5.007001||Viu
+LONG_DOUBLE_IS_DOUBLE|5.021003|5.021003|Vn
+LONG_DOUBLE_IS_DOUBLEDOUBLE_128_BIT_BE_BE|5.023006|5.023006|Vn
+LONG_DOUBLE_IS_DOUBLEDOUBLE_128_BIT_BE_LE|5.023006|5.023006|Vn
+LONG_DOUBLE_IS_DOUBLEDOUBLE_128_BIT_BIG_ENDIAN|5.021003|5.021003|Vn
+LONG_DOUBLE_IS_DOUBLEDOUBLE_128_BIT_LE_BE|5.023006|5.023006|Vn
+LONG_DOUBLE_IS_DOUBLEDOUBLE_128_BIT_LE_LE|5.023006|5.023006|Vn
+LONG_DOUBLE_IS_DOUBLEDOUBLE_128_BIT_LITTLE_ENDIAN|5.021003|5.021003|Vn
+LONG_DOUBLE_IS_IEEE_754_128_BIT_BIG_ENDIAN|5.021003|5.021003|Vn
+LONG_DOUBLE_IS_IEEE_754_128_BIT_LITTLE_ENDIAN|5.021003|5.021003|Vn
+LONG_DOUBLE_IS_UNKNOWN_FORMAT|5.021003|5.021003|Vn
+LONG_DOUBLE_IS_VAX_H_FLOAT|5.025004|5.025004|Vn
+LONG_DOUBLE_IS_X86_80_BIT_BIG_ENDIAN|5.021003|5.021003|Vn
+LONG_DOUBLE_IS_X86_80_BIT_LITTLE_ENDIAN|5.021003|5.021003|Vn
+LONG_DOUBLEKIND|5.021003|5.021003|Vn
+LONGDOUBLE_LITTLE_ENDIAN|5.021009||Viu
+LONGDOUBLE_MIX_ENDIAN|5.023006||Viu
+LONG_DOUBLESIZE|5.005000|5.005000|Vn
+LONG_DOUBLE_STYLE_IEEE|5.025007|5.025007|Vn
+LONG_DOUBLE_STYLE_IEEE_EXTENDED|5.025007|5.025007|Vn
+LONGDOUBLE_VAX_ENDIAN|5.025004||Viu
+LONGDOUBLE_X86_80_BIT|5.021009||Viu
+LONGJMP|5.005000||Viu
+longjmp|5.005000||Viu
+LONGJMP_t8|5.035004||Viu
+LONGJMP_t8_p8|5.033003||Viu
+LONGJMP_t8_pb|5.033003||Viu
+LONGJMP_tb|5.035004||Viu
+LONGJMP_tb_p8|5.033003||Viu
+LONGJMP_tb_pb|5.033003||Viu
+LONGLONGSIZE|5.005000|5.005000|Vn
+LONGSIZE|5.004000|5.003007|oVn
+LOOKBEHIND_END_t8_p8|||Viu
+LOOKBEHIND_END_t8_pb|||Viu
+LOOKBEHIND_END_t8|||Viu
+LOOKBEHIND_END_tb_p8|||Viu
+LOOKBEHIND_END_tb_pb|||Viu
+LOOKBEHIND_END_tb|||Viu
+LOOKBEHIND_END|||Viu
+looks_like_bool|5.027008||Viu
+looks_like_number|5.003007|5.003007|
+LOOP_PAT_MODS|5.009005||Viu
+lop|5.005000||Viu
+lossless_NV_to_IV|5.031001||Vniu
+LOWEST_ANYOF_HRx_BYTE|5.031002||Viu
+L_R_TZSET|5.009005|5.009005|Vn
+lsbit_pos32|5.035003||cVnu
+lsbit_pos|5.035004||Viu
+lsbit_pos64|5.035003||cVnu
+lsbit_pos_uintmax|5.035003||Viu
+lseek|5.005000||Viu
+LSEEKSIZE|5.006000|5.006000|Vn
+lstat|5.005000||Viu
+LvFLAGS|5.015006||Viu
+LVf_NEG_LEN|5.027001||Viu
+LVf_NEG_OFF|5.027001||Viu
+LVf_OUT_OF_RANGE|5.027001||Viu
+LVRET|5.007001||Vi
+LvSTARGOFF|5.019004||Viu
+LvTARG|5.003007||Viu
+LvTARGLEN|5.003007||Viu
+LvTARGOFF|5.003007||Viu
+LvTYPE|5.003007||Viu
+LZC_TO_MSBIT_POS|5.035003||Viu
+magic_clear_all_env|5.004001||Viu
+magic_cleararylen_p|5.017002||Viu
+magic_clearenv|5.003007||Viu
+magic_clearhint|5.009004||Vi
+magic_clearhints|5.011000||Vi
+magic_clearisa|5.010001||Viu
+magic_clearpack|5.003007||Viu
+magic_clearsig|5.003007||Viu
+magic_copycallchecker|5.017000||Viu
+magic_dump|5.006000|5.006000|u
+magic_existspack|5.003007||Viu
+magic_freearylen_p|5.009003||Viu
+magic_freecollxfrm|5.033004||Viu
+magic_freemglob|5.033004||Viu
+magic_freeovrld|5.007001||Viu
+magic_freeutf8|5.033004||Viu
+magic_get|5.003007||Viu
+magic_getarylen|5.003007||Viu
+magic_getdebugvar|5.021005||Viu
+magic_getdefelem|5.004000||Viu
+magic_getnkeys|5.004005||Viu
+magic_getpack|5.003007||Viu
+magic_getpos|5.003007||Viu
+magic_getsig|5.003007||Viu
+magic_getsubstr|5.004005||Viu
+magic_gettaint|5.003007||Viu
+magic_getuvar|5.003007||Viu
+magic_getvec|5.004005||Viu
+magic_killbackrefs|5.006000||Viu
+magic_methcall1|5.013001||Viu
+magic_methcall|||vi
+magic_methpack|5.005000||Viu
+magic_nextpack|5.003007||Viu
+magic_regdata_cnt|5.006000||Viu
+magic_regdatum_get|5.006000||Viu
+magic_regdatum_set|5.006001||Viu
+magic_scalarpack|5.009001||Viu
+magic_set|5.003007||Viu
+magic_set_all_env|5.004004||Viu
+magic_setarylen|5.003007||Viu
+magic_setcollxfrm|5.004000||Viu
+magic_setdbline|5.003007||Viu
+magic_setdebugvar|5.021005||Viu
+magic_setdefelem|5.004000||Viu
+magic_setenv|5.003007||Viu
+magic_sethint|5.009004||Vi
+magic_sethint_feature|5.031007||Viu
+magic_setisa|5.003007||Viu
+magic_setlvref|5.021005||Viu
+magic_setmglob|5.003007||Viu
+magic_setnkeys|5.003007||Viu
+magic_setnonelem|5.027009||Viu
+magic_setpack|5.003007||Viu
+magic_setpos|5.003007||Viu
+magic_setregexp|5.008001||Viu
+magic_setsig|5.003007||Viu
+magic_setsigall|5.035001||Viu
+magic_setsubstr|5.003007||Viu
+magic_settaint|5.003007||Viu
+magic_setutf8|5.008001||Viu
+magic_setuvar|5.003007||Viu
+magic_setvec|5.003007||Viu
+magic_sizepack|5.005000||Viu
+magic_wipepack|5.003007||Viu
+make_exactf_invlist|5.031006||Viu
+make_matcher|5.027008||Viu
+make_trie|5.009002||Viu
+malloc|5.003007||Vn
+MALLOC_CHECK_TAINT2|5.008001||Viu
+MALLOC_CHECK_TAINT|5.008001||Viu
+malloced_size|5.005000||Vniu
+malloc_good_size|5.010001||Vniu
+MALLOC_INIT|5.005000||Viu
+MALLOC_OVERHEAD|5.006000||Viu
+Malloc_t|5.003007|5.003007|Vn
+MALLOC_TERM|5.005000||Viu
+MALLOC_TOO_LATE_FOR|5.008001||Viu
+MARK|5.003007|5.003007|
+MARKPOINT|5.009005||Viu
+MARKPOINT_next|5.009005||Viu
+MARKPOINT_next_fail|5.009005||Viu
+MARKPOINT_next_fail_t8|5.035004||Viu
+MARKPOINT_next_fail_t8_p8|5.033003||Viu
+MARKPOINT_next_fail_t8_pb|5.033003||Viu
+MARKPOINT_next_fail_tb|5.035004||Viu
+MARKPOINT_next_fail_tb_p8|5.033003||Viu
+MARKPOINT_next_fail_tb_pb|5.033003||Viu
+MARKPOINT_next_t8|5.035004||Viu
+MARKPOINT_next_t8_p8|5.033003||Viu
+MARKPOINT_next_t8_pb|5.033003||Viu
+MARKPOINT_next_tb|5.035004||Viu
+MARKPOINT_next_tb_p8|5.033003||Viu
+MARKPOINT_next_tb_pb|5.033003||Viu
+MARKPOINT_t8|5.035004||Viu
+MARKPOINT_t8_p8|5.033003||Viu
+MARKPOINT_t8_pb|5.033003||Viu
+MARKPOINT_tb|5.035004||Viu
+MARKPOINT_tb_p8|5.033003||Viu
+MARKPOINT_tb_pb|5.033003||Viu
+markstack_grow|5.021001|5.021001|u
+matcher_matches_sv|5.027008||Viu
+MAX|5.025006||Viu
+MAX_ANYOF_HRx_BYTE|5.031002||Viu
+MAXARG|5.003007||Viu
+MAX_CHARSET_NAME_LENGTH|5.013009||Viu
+MAX_FEATURE_LEN|5.013010||Viu
+MAX_FOLD_FROMS|5.029006||Viu
+MAX_LEGAL_CP|5.029002||Viu
+MAX_MATCHES|5.033005||Viu
+MAXO|5.003007||Viu
+MAXPATHLEN|5.006000||Viu
+MAX_PORTABLE_UTF8_TWO_BYTE|5.011002||Viu
+MAX_PRINT_A|5.033005||Viu
+MAX_RECURSE_EVAL_NOCHANGE_DEPTH|5.009005||Viu
+MAXSYSFD|5.003007||Viu
+MAX_UNICODE_UTF8|5.027006||Viu
+MAX_UNI_KEYWORD_INDEX|5.027011||Viu
+MAX_UTF8_TWO_BYTE|5.019004||Viu
+MAYBE_DEREF_GV|5.015003||Viu
+MAYBE_DEREF_GV_flags|5.015003||Viu
+MAYBE_DEREF_GV_nomg|5.015003||Viu
+maybe_multimagic_gv|5.019004||Viu
+mayberelocate|5.015006||Viu
+MBLEN_LOCK|5.033005||Viu
+MBLEN_UNLOCK|5.033005||Viu
+MBOL|5.003007||Viu
+MBOL_t8|5.035004||Viu
+MBOL_t8_p8|5.033003||Viu
+MBOL_t8_pb|5.033003||Viu
+MBOL_tb|5.035004||Viu
+MBOL_tb_p8|5.033003||Viu
+MBOL_tb_pb|5.033003||Viu
+MBTOWC_LOCK|5.033005||Viu
+MBTOWC_UNLOCK|5.033005||Viu
+MDEREF_ACTION_MASK|5.021007||Viu
+MDEREF_AV_gvav_aelem|5.021007||Viu
+MDEREF_AV_gvsv_vivify_rv2av_aelem|5.021007||Viu
+MDEREF_AV_padav_aelem|5.021007||Viu
+MDEREF_AV_padsv_vivify_rv2av_aelem|5.021007||Viu
+MDEREF_AV_pop_rv2av_aelem|5.021007||Viu
+MDEREF_AV_vivify_rv2av_aelem|5.021007||Viu
+MDEREF_FLAG_last|5.021007||Viu
+MDEREF_HV_gvhv_helem|5.021007||Viu
+MDEREF_HV_gvsv_vivify_rv2hv_helem|5.021007||Viu
+MDEREF_HV_padhv_helem|5.021007||Viu
+MDEREF_HV_padsv_vivify_rv2hv_helem|5.021007||Viu
+MDEREF_HV_pop_rv2hv_helem|5.021007||Viu
+MDEREF_HV_vivify_rv2hv_helem|5.021007||Viu
+MDEREF_INDEX_const|5.021007||Viu
+MDEREF_INDEX_gvsv|5.021007||Viu
+MDEREF_INDEX_MASK|5.021007||Viu
+MDEREF_INDEX_none|5.021007||Viu
+MDEREF_INDEX_padsv|5.021007||Viu
+MDEREF_MASK|5.021007||Viu
+MDEREF_reload|5.021007||Viu
+MDEREF_SHIFT|5.021007||Viu
+measure_struct|5.007003||Viu
+MEM_ALIGNBYTES|5.003007|5.003007|Vn
+memBEGINPs|5.027006||Viu
+memBEGINs|5.027006||Viu
+MEMBER_TO_FPTR|5.006000||Viu
+memCHRs|5.031008|5.003007|p
+mem_collxfrm|5.003007||dViu
+_mem_collxfrm|5.025002||Viu
+memENDPs|5.027006||Viu
+memENDs|5.027006||Viu
+memEQ|5.004000|5.003007|p
+memEQs|5.009005|5.003007|p
+memGE|5.025005||Viu
+memGT|5.025005||Viu
+memLE|5.025005||Viu
+MEM_LOG_ALLOC|5.009003||Viu
+mem_log_alloc|5.024000||Vniu
+mem_log_common|5.010001||Vniu
+MEM_LOG_DEL_SV|||Viu
+MEM_LOG_FREE|5.009003||Viu
+mem_log_free|5.024000||Vniu
+MEM_LOG_NEW_SV|||Viu
+MEM_LOG_REALLOC|5.009003||Viu
+mem_log_realloc|5.024000||Vniu
+memLT|5.025005||Viu
+memNE|5.004000|5.003007|p
+memNEs|5.009005|5.003007|p
+MEM_SIZE|5.003007||Viu
+MEM_SIZE_MAX|5.009005||Viu
+MEM_WRAP_CHECK_1|5.009002||Viu
+MEM_WRAP_CHECK|5.009002||Viu
+MEM_WRAP_CHECK_s|5.027010||Viu
+memzero|5.003007|5.003007|
+MEOL|5.003007||Viu
+MEOL_t8|5.035004||Viu
+MEOL_t8_p8|5.033003||Viu
+MEOL_t8_pb|5.033003||Viu
+MEOL_tb|5.035004||Viu
+MEOL_tb_p8|5.033003||Viu
+MEOL_tb_pb|5.033003||Viu
+mess|5.003007||pvV
+mess_alloc|5.005000||Viu
+mess_nocontext|5.006000||pvVn
+mess_sv|5.013001|5.004000|p
+MEXTEND|5.003007||Viu
+mfree|||nu
+MgBYTEPOS|5.019004||Viu
+MgBYTEPOS_set|5.019004||Viu
+mg_clear|5.003007|5.003007|
+mg_copy|5.003007|5.003007|
+mg_dup|5.007003|5.007003|u
+MGf_BYTES|5.019004||Viu
+MGf_COPY|5.007003||Viu
+MGf_DUP|5.007003||Viu
+MGf_GSKIP|5.003007||Viu
+mg_find|5.003007|5.003007|n
+mg_findext|5.013008|5.003007|pn
+mg_find_mglob|5.019002||cViu
+MGf_LOCAL|5.009003||Viu
+MGf_MINMATCH|5.003007||Viu
+MGf_PERSIST|5.021005||Viu
+mg_free|5.003007|5.003007|
+mg_freeext|5.027004|5.027004|
+mg_free_type|5.013006|5.013006|
+MGf_REFCOUNTED|5.003007||Viu
+MGf_REQUIRE_GV|5.021004||Viu
+MGf_TAINTEDDIR|5.003007||Viu
+mg_get|5.003007|5.003007|
+mg_length|5.005000|5.005000|d
+mg_localize|5.009003||Vi
+mg_magical|5.003007|5.003007|n
+MgPV|5.003007||Viu
+MgPV_const|5.009003||Viu
+MgPV_nolen_const|5.009003||Viu
+mg_set|5.003007|5.003007|
+mg_size|5.005000|5.005000|u
+MgSV|5.033009||Viu
+MgTAINTEDDIR|5.003007||Viu
+MgTAINTEDDIR_off|5.004000||Viu
+MgTAINTEDDIR_on|5.003007||Viu
+MICRO_SIGN|5.011002||Viu
+MICRO_SIGN_NATIVE|5.017004||Viu
+MICRO_SIGN_UTF8|5.033003||Viu
+MIN|5.025006||Viu
+mini_mktime|5.007002|5.007002|n
+MINMOD|5.003007||Viu
+MINMOD_t8|5.035004||Viu
+MINMOD_t8_p8|5.033003||Viu
+MINMOD_t8_pb|5.033003||Viu
+MINMOD_tb|5.035004||Viu
+MINMOD_tb_p8|5.033003||Viu
+MINMOD_tb_pb|5.033003||Viu
+minus_v|5.015006||Viu
+missingterm|5.005000||Viu
+Mkdir|5.004000||Viu
+mkdir|5.005000||Viu
+mktemp|5.005000||Viu
+Mmap_t|5.006000|5.006000|Vn
+mode_from_discipline|5.006000||Viu
+Mode_t|5.003007|5.003007|Vn
+modkids|5.003007||Viu
+MON_10|5.027010||Viu
+MON_11|5.027010||Viu
+MON_12|5.027010||Viu
+MON_1|5.027010||Viu
+MON_2|5.027010||Viu
+MON_3|5.027010||Viu
+MON_4|5.027010||Viu
+MON_5|5.027010||Viu
+MON_6|5.027010||Viu
+MON_7|5.027010||Viu
+MON_8|5.027010||Viu
+MON_9|5.027010||Viu
+more_bodies|||cu
+more_sv|5.009004||cVu
+moreswitches|5.003007||cVu
+mortal_getenv|5.031011||cVnu
+Move|5.003007|5.003007|
+MoveD|5.009002|5.003007|p
+move_proto_attr|5.019005||Viu
+M_PAT_MODS|5.009005||Viu
+MPH_BUCKETS|5.027011||Viu
+MPH_RSHIFT|5.027011||Viu
+MPH_VALt|5.027011||Viu
+mPUSHi|5.009002|5.003007|p
+mPUSHn|5.009002|5.003007|p
+mPUSHp|5.009002|5.003007|p
+mPUSHs|5.010001|5.003007|p
+mPUSHu|5.009002|5.003007|p
+mro_clean_isarev|5.013007||Viu
+mro_gather_and_rename|5.013007||Viu
+mro_get_from_name|||u
+mro_get_linear_isa|5.009005|5.009005|
+mro_get_linear_isa_c3|||i
+mro_get_linear_isa_dfs|5.009005||Vi
+MRO_GET_PRIVATE_DATA|5.010001|5.010001|
+mro_get_private_data|||cu
+mro_isa_changed_in|5.009005||Vi
+mro_meta_dup|5.009005||Viu
+mro_meta_init|||ciu
+mro_method_changed_in|5.009005|5.009005|
+mro_package_moved|5.013006||Vi
+mro_register|||
+mro_set_mro|||u
+mro_set_private_data|||
+msbit_pos32|5.035003||cVnu
+msbit_pos|5.035004||Viu
+msbit_pos64|5.035003||cVnu
+msbit_pos_uintmax|5.035003||Viu
+MSPAGAIN|5.003007||Viu
+MSVC_DIAG_IGNORE|5.029010||Viu
+MSVC_DIAG_IGNORE_DECL|5.029010||Viu
+MSVC_DIAG_IGNORE_STMT|5.029010||Viu
+MSVC_DIAG_RESTORE|5.029010||Viu
+MSVC_DIAG_RESTORE_DECL|5.029010||Viu
+MSVC_DIAG_RESTORE_STMT|5.029010||Viu
+mul128|5.005000||Viu
+MULTICALL|5.009003|5.009003|
+multiconcat_stringify|5.027006||cViu
+multideref_stringify|5.021009||cViu
+MULTILINE_PAT_MOD|5.009005||Viu
+MULTIPLICITY|5.006000|5.006000|Vn
+MUTABLE_AV|5.010001|5.003007|p
+MUTABLE_CV|5.010001|5.003007|p
+MUTABLE_GV|5.010001|5.003007|p
+MUTABLE_HV|5.010001|5.003007|p
+MUTABLE_IO|5.010001|5.003007|p
+MUTABLE_PTR|5.010001|5.003007|p
+MUTABLE_SV|5.010001|5.003007|p
+MUTEX_DESTROY|5.005000||Viu
+MUTEX_INIT|5.005000||Viu
+MUTEX_INIT_NEEDS_MUTEX_ZEROED|5.005003||Viu
+MUTEX_LOCK|5.005000||Viu
+MUTEX_UNLOCK|5.005000||Viu
+mXPUSHi|5.009002|5.003007|p
+mXPUSHn|5.009002|5.003007|p
+mXPUSHp|5.009002|5.003007|p
+mXPUSHs|5.010001|5.003007|p
+mXPUSHu|5.009002|5.003007|p
+my|5.011000||Viu
+my_atof2|5.029000||cVu
+my_atof3|5.029000||cVu
+my_atof|5.006000|5.006000|
+my_attrs|5.006000||Viu
+my_binmode|5.006000||Viu
+my_bytes_to_utf8|5.021009||Vniu
+my_chsize|5.003007||Vu
+my_clearenv|5.009003||Viu
+MY_CXT|5.009000|5.009000|p
+MY_CXT_CLONE|5.009002|5.009000|p
+MY_CXT_INDEX|5.009005||Viu
+MY_CXT_INIT|5.009000|5.009000|p
+MY_CXT_INIT_ARG|5.013005||Viu
+MY_CXT_INIT_INTERP|5.009003||Viu
+my_cxt_init|||u
+my_dirfd|5.009005|5.009005|nu
+my_exit|5.003007|5.003007|
+my_exit_jump|5.005000||Viu
+my_failure_exit|5.004000|5.004000|u
+my_fflush_all|5.006000|5.006000|u
+my_fork|5.007003|5.007003|nu
+my_kid|5.006000||Viu
+my_lstat|5.013003||Viu
+my_lstat_flags|5.013003||cViu
+my_memrchr|5.027006||Vniu
+my_mkostemp_cloexec|||niu
+my_mkostemp|||niu
+my_mkstemp_cloexec|||niu
+my_mkstemp|||niu
+my_nl_langinfo|5.027006||Vniu
+my_pclose|5.003007|5.003007|u
+my_popen|5.003007|5.003007|u
+my_popen_list|5.007001|5.007001|u
+my_setenv|5.003007|5.003007|
+my_snprintf|5.009004||pvVn
+my_socketpair|5.007003|5.007003|nu
+my_sprintf|5.009003|5.003007|pdn
+my_stat|5.013003||Viu
+my_stat_flags|5.013003||cViu
+my_strerror|5.021001||Viu
+my_strftime|5.007002||V
+my_strlcat|5.009004|5.003007|pn
+my_strlcpy|5.009004|5.003007|pn
+my_strnlen|5.027006|5.003007|pn
+my_strtod|5.029010|5.029010|n
+my_unexec|5.003007||Viu
+my_vsnprintf|5.009004|5.009004|n
+N0|5.029001||Viu
+N10|5.029001||Viu
+N11|5.029001||Viu
+N1|5.029001||Viu
+N2|5.029001||Viu
+N3|5.029001||Viu
+N4|5.029001||Viu
+N5|5.029001||Viu
+N6|5.029001||Viu
+N7|5.029001||Viu
+N8|5.029001||Viu
+N9|5.029001||Viu
+NAN_COMPARE_BROKEN|5.021005||Viu
+NANYOFM|5.029005||Viu
+NANYOFM_t8|5.035004||Viu
+NANYOFM_t8_p8|5.033003||Viu
+NANYOFM_t8_pb|5.033003||Viu
+NANYOFM_tb|5.035004||Viu
+NANYOFM_tb_p8|5.033003||Viu
+NANYOFM_tb_pb|5.033003||Viu
+NATIVE8_TO_UNI|5.011000||Viu
+NATIVE_BYTE_IS_INVARIANT|5.019004||Viu
+NATIVE_SKIP|5.019004||Viu
+NATIVE_TO_ASCII|5.007001||Viu
+NATIVE_TO_I8|5.015006||Viu
+NATIVE_TO_LATIN1|5.019004|5.003007|p
+NATIVE_TO_NEED|5.019004||dcVnu
+NATIVE_TO_UNI|5.007001|5.003007|p
+NATIVE_TO_UTF|5.007001||Viu
+NATIVE_UTF8_TO_I8|5.019004||Viu
+nBIT_MASK|5.033001||Viu
+nBIT_UMAX|5.033001||Viu
+NBOUND|5.003007||Viu
+NBOUNDA|5.013009||Viu
+NBOUNDA_t8|5.035004||Viu
+NBOUNDA_t8_p8|5.033003||Viu
+NBOUNDA_t8_pb|5.033003||Viu
+NBOUNDA_tb|5.035004||Viu
+NBOUNDA_tb_p8|5.033003||Viu
+NBOUNDA_tb_pb|5.033003||Viu
+NBOUNDL|5.004000||Viu
+NBOUNDL_t8|5.035004||Viu
+NBOUNDL_t8_p8|5.033003||Viu
+NBOUNDL_t8_pb|5.033003||Viu
+NBOUNDL_tb|5.035004||Viu
+NBOUNDL_tb_p8|5.033003||Viu
+NBOUNDL_tb_pb|5.033003||Viu
+NBOUND_t8|5.035004||Viu
+NBOUND_t8_p8|5.033003||Viu
+NBOUND_t8_pb|5.033003||Viu
+NBOUND_tb|5.035004||Viu
+NBOUND_tb_p8|5.033003||Viu
+NBOUND_tb_pb|5.033003||Viu
+NBOUNDU|5.013009||Viu
+NBOUNDU_t8|5.035004||Viu
+NBOUNDU_t8_p8|5.033003||Viu
+NBOUNDU_t8_pb|5.033003||Viu
+NBOUNDU_tb|5.035004||Viu
+NBOUNDU_tb_p8|5.033003||Viu
+NBOUNDU_tb_pb|5.033003||Viu
+NBSP_NATIVE|5.021001||Viu
+NBSP_UTF8|5.021001||Viu
+NDBM_H_USES_PROTOTYPES|5.032001|5.032001|Vn
+NDEBUG|5.021007||Viu
+need_utf8|5.009003||Vniu
+NEED_VA_COPY|5.007001|5.007001|Vn
+NEGATIVE_INDICES_VAR|5.008001||Viu
+Netdb_hlen_t|5.005000|5.005000|Vn
+Netdb_host_t|5.005000|5.005000|Vn
+Netdb_name_t|5.005000|5.005000|Vn
+Netdb_net_t|5.005000|5.005000|Vn
+NETDB_R_OBSOLETE|5.008000||Viu
+New|5.003007||Viu
+newANONATTRSUB|5.006000|5.006000|u
+newANONHASH|5.003007|5.003007|u
+newANONLIST|5.003007|5.003007|u
+newANONSUB|5.003007|5.003007|u
+newASSIGNOP|5.003007|5.003007|
+newATTRSUB|5.006000|5.006000|
+newATTRSUB_x|5.019008||cVi
+newAV|5.003007|5.003007|
+newAV_alloc_x|5.035001|5.035001|
+newAV_alloc_xz|5.035001|5.035001|
+newAVREF|5.003007|5.003007|u
+newBINOP|5.003007|5.003007|
+new_body_allocated|||Viu
+new_body_from_arena|||Viu
+Newc|5.003007||Viu
+new_collate|5.006000||Viu
+newCONDOP|5.003007|5.003007|
+new_constant|||iu
+newCONSTSUB|5.004005|5.003007|p
+newCONSTSUB_flags|5.015006|5.015006|
+new_ctype|5.006000||Viu
+newCVREF|5.003007|5.003007|u
+newDEFEROP|5.035004|5.035004|x
+newDEFSVOP|5.021006|5.021006|
+newFORM|5.003007|5.003007|u
+newFOROP|5.013007|5.013007|
+newGIVENOP|5.009003|5.009003|
+newGIVWHENOP|5.027008||Viu
+newGP|||xiu
+newGVgen|5.003007|5.003007|u
+newGVgen_flags|5.015004|5.015004|u
+newGVOP|5.003007|5.003007|
+newGVREF|5.003007|5.003007|u
+new_he|5.005000||Viu
+newHV|5.003007|5.003007|
+newHVhv|5.005000|5.005000|u
+newHVREF|5.003007|5.003007|u
+_new_invlist|5.013010||cViu
+_new_invlist_C_array|5.015008||cViu
+newIO|5.003007|5.003007|u
+newLISTOP|5.003007|5.003007|
+newLOGOP|5.003007|5.003007|
+new_logop|5.005000||Viu
+newLOOPEX|5.003007|5.003007|
+newLOOPOP|5.003007|5.003007|
+newMETHOP|5.021005|5.021005|
+newMETHOP_internal|5.021005||Viu
+newMETHOP_named|5.021005|5.021005|
+new_msg_hv|5.027009||Viu
+newMYSUB|5.017004|5.017004|u
+new_NOARENA|||Viu
+new_NOARENAZ|||Viu
+newNULLLIST|5.003007|5.003007|
+new_numeric|5.006000||Viu
+newOP|5.003007|5.003007|
+NewOp|5.008001||Viu
+newPADNAMELIST|5.021007|5.021007|xn
+newPADNAMEouter|5.021007|5.021007|xn
+newPADNAMEpvn|5.021007|5.021007|xn
+newPADOP|5.006000||V
+newPMOP|5.003007|5.003007|
+newPROG|5.003007|5.003007|u
+newPVOP|5.003007|5.003007|
+newRANGE|5.003007|5.003007|
+newRV|5.003007|5.003007|
+newRV_inc|5.004000|5.003007|p
+newRV_noinc|5.004000|5.003007|p
+newSLICEOP|5.003007|5.003007|
+new_stackinfo|5.005000|5.005000|u
+newSTATEOP|5.003007|5.003007|
+newSTUB|5.017001||Viu
+newSUB|5.003007|5.003007|
+newSV|5.003007|5.003007|
+NEWSV|5.003007||Viu
+newSVavdefelem|5.019004||Viu
+newSVhek|5.009003|5.009003|
+newSViv|5.003007|5.003007|
+newSVnv|5.006000|5.003007|
+newSVOP|5.003007|5.003007|
+newSVpadname|5.017004|5.017004|x
+newSVpv|5.003007|5.003007|
+newSVpvf|5.004000||vV
+newSVpvf_nocontext|5.006000||vVn
+newSVpvn|5.004005|5.003007|p
+newSVpvn_flags|5.010001|5.003007|p
+newSVpvn_share|5.007001|5.003007|p
+newSVpvn_utf8|5.010001|5.003007|p
+newSVpvs|5.009003|5.003007|p
+newSVpvs_flags|5.010001|5.003007|p
+newSVpv_share|5.013006|5.013006|
+newSVpvs_share|5.009003|5.003007|p
+newSVREF|5.003007|5.003007|u
+newSVrv|5.003007|5.003007|
+newSVsv|5.003007|5.003007|
+newSVsv_flags|5.029009|5.003007|p
+newSVsv_nomg|5.029009|5.003007|p
+newSV_type|5.009005|5.003007|p
+newSV_type_mortal|||
+newSVuv|5.006000|5.003007|p
+new_SV|||Viu
+newTRYCATCHOP|5.033007|5.033007|x
+newUNOP|5.003007|5.003007|
+newUNOP_AUX|5.021007|5.021007|
+new_version|5.009000|5.009000|
+NEW_VERSION|5.019008||Viu
+new_warnings_bitfield|||xciu
+newWHENOP|5.027008|5.027008|
+newWHILEOP|5.013007|5.013007|
+Newx|5.009003|5.003007|p
+Newxc|5.009003|5.003007|p
+new_XNV|||Viu
+new_XPVMG|||Viu
+new_XPVNV|||Viu
+newXS|5.006000|5.006000|
+newXS_deffile|5.021006||cViu
+newXS_flags|5.009004|5.009004|xu
+newXS_len_flags|5.015006||Vi
+newXSproto|5.006000|5.006000|
+Newxz|5.009003|5.003007|p
+Newz|5.003007||Viu
+nextargv|5.003007||Viu
+nextchar|5.005000||Viu
+NEXT_LINE_CHAR|5.007003||Viu
+NEXT_OFF|5.005000||Viu
+NEXTOPER|5.003007||Viu
+next_symbol|5.007003||Viu
+ninstr|5.003007|5.003007|n
+NL_LANGINFO_LOCK|5.033005||Viu
+NL_LANGINFO_UNLOCK|5.033005||Viu
+NOARENA|||Viu
+no_bareword_allowed|5.005004||Viu
+no_bareword_filehandle|5.033006||Viu
+NOCAPTURE_PAT_MOD|5.021008||Viu
+NOCAPTURE_PAT_MODS|5.021008||Viu
+NODE_ALIGN|5.005000||Viu
+NODE_ALIGN_FILL|5.005000||Viu
+NODE_STEP_REGNODE|5.005000||Viu
+NODE_SZ_STR|5.006000||Viu
+NO_ENV_ARRAY_IN_MAIN|5.009004||Viu
+NOEXPR|5.027010||Viu
+NofAMmeth|5.003007||Viu
+no_fh_allowed|5.003007||Viu
+NOLINE|5.003007||Viu
+NO_LOCALE|5.007000||Viu
+NONDESTRUCT_PAT_MOD|5.013002||Viu
+NONDESTRUCT_PAT_MODS|5.013002||Viu
+NON_OTHER_COUNT|5.033005||Viu
+NONV|||Viu
+no_op|5.003007||Viu
+NOOP|5.005000|5.003007|p
+noperl_die|5.021006||vVniu
+NORETURN_FUNCTION_END|5.009003||Viu
+NORMAL|5.003007||Viu
+NOSTR|5.027010||Viu
+NO_TAINT_SUPPORT|5.017006||Viu
+not_a_number|5.005000||Viu
+NOTE3|5.027001||Viu
+NOTHING|5.003007||Viu
+NOTHING_t8|5.035004||Viu
+NOTHING_t8_p8|5.033003||Viu
+NOTHING_t8_pb|5.033003||Viu
+NOTHING_tb|5.035004||Viu
+NOTHING_tb_p8|5.033003||Viu
+NOTHING_tb_pb|5.033003||Viu
+nothreadhook|5.008000|5.008000|
+notify_parser_that_changed_to_utf8|5.025010||Viu
+not_incrementable|5.021002||Viu
+NOT_IN_PAD|5.005000||Viu
+NOT_REACHED|5.019006|5.003007|poVnu
+NPOSIXA|5.017003||Viu
+NPOSIXA_t8|5.035004||Viu
+NPOSIXA_t8_p8|5.033003||Viu
+NPOSIXA_t8_pb|5.033003||Viu
+NPOSIXA_tb|5.035004||Viu
+NPOSIXA_tb_p8|5.033003||Viu
+NPOSIXA_tb_pb|5.033003||Viu
+NPOSIXD|5.017003||Viu
+NPOSIXD_t8|5.035004||Viu
+NPOSIXD_t8_p8|5.033003||Viu
+NPOSIXD_t8_pb|5.033003||Viu
+NPOSIXD_tb|5.035004||Viu
+NPOSIXD_tb_p8|5.033003||Viu
+NPOSIXD_tb_pb|5.033003||Viu
+NPOSIXL|5.017003||Viu
+NPOSIXL_t8|5.035004||Viu
+NPOSIXL_t8_p8|5.033003||Viu
+NPOSIXL_t8_pb|5.033003||Viu
+NPOSIXL_tb|5.035004||Viu
+NPOSIXL_tb_p8|5.033003||Viu
+NPOSIXL_tb_pb|5.033003||Viu
+NPOSIXU|5.017003||Viu
+NPOSIXU_t8|5.035004||Viu
+NPOSIXU_t8_p8|5.033003||Viu
+NPOSIXU_t8_pb|5.033003||Viu
+NPOSIXU_tb|5.035004||Viu
+NPOSIXU_tb_p8|5.033003||Viu
+NPOSIXU_tb_pb|5.033003||Viu
+NSIG|5.009003||Viu
+ntohi|5.003007||Viu
+ntohl|5.003007||Viu
+ntohs|5.003007||Viu
+nuke_stacks|5.005000||Viu
+Null|5.003007||Viu
+Nullav|5.003007|5.003007|d
+Nullch|5.003007|5.003007|
+Nullcv|5.003007|5.003007|d
+Nullfp|5.003007||Viu
+Nullgv|5.003007||Viu
+Nullhe|5.003007||Viu
+Nullhek|5.004000||Viu
+Nullhv|5.003007|5.003007|d
+Nullop|5.003007||Viu
+Nullsv|5.003007|5.003007|
+NUM2PTR|5.006000||pVu
+NUM_ANYOF_CODE_POINTS|5.021004||Viu
+NUM_CLASSES|5.029001||Viu
+num_overflow|5.009001||Vniu
+NV_BIG_ENDIAN|5.021009||Viu
+NV_DIG|5.006000||Viu
+NVef|5.006001|5.003007|poVn
+NV_EPSILON|5.007003||Viu
+NVff|5.006001|5.003007|poVn
+NVgf|5.006001|5.003007|poVn
+NV_IMPLICIT_BIT|5.021009||Viu
+NV_INF|5.007003||Viu
+NV_LITTLE_ENDIAN|5.021009||Viu
+NVMANTBITS|5.023000|5.023000|Vn
+NV_MANT_DIG|5.006001||Viu
+NV_MAX_10_EXP|5.007003||Viu
+NV_MAX|5.006001||Viu
+NV_MAX_EXP|5.021003||Viu
+NV_MIN_10_EXP|5.007003||Viu
+NV_MIN|5.006001||Viu
+NV_MIN_EXP|5.021003||Viu
+NV_MIX_ENDIAN|5.021009||Viu
+NV_NAN|5.007003||Viu
+NV_NAN_BITS|5.023000||Viu
+NV_NAN_IS_QUIET|5.023000||Viu
+NV_NAN_IS_SIGNALING|5.023000||Viu
+NV_NAN_PAYLOAD_MASK|5.023000||Viu
+NV_NAN_PAYLOAD_MASK_IEEE_754_128_BE|5.023000||Viu
+NV_NAN_PAYLOAD_MASK_IEEE_754_128_LE|5.023000||Viu
+NV_NAN_PAYLOAD_MASK_IEEE_754_64_BE|5.023000||Viu
+NV_NAN_PAYLOAD_MASK_IEEE_754_64_LE|5.023000||Viu
+NV_NAN_PAYLOAD_MASK_SKIP_EIGHT|5.023006||Viu
+NV_NAN_PAYLOAD_PERM_0_TO_7|5.023000||Viu
+NV_NAN_PAYLOAD_PERM|5.023000||Viu
+NV_NAN_PAYLOAD_PERM_7_TO_0|5.023000||Viu
+NV_NAN_PAYLOAD_PERM_IEEE_754_128_BE|5.023000||Viu
+NV_NAN_PAYLOAD_PERM_IEEE_754_128_LE|5.023000||Viu
+NV_NAN_PAYLOAD_PERM_IEEE_754_64_BE|5.023000||Viu
+NV_NAN_PAYLOAD_PERM_IEEE_754_64_LE|5.023000||Viu
+NV_NAN_PAYLOAD_PERM_SKIP_EIGHT|5.023006||Viu
+NV_NAN_QS_BIT|5.023000||Viu
+NV_NAN_QS_BIT_OFFSET|5.023000||Viu
+NV_NAN_QS_BIT_SHIFT|5.023000||Viu
+NV_NAN_QS_BYTE|5.023000||Viu
+NV_NAN_QS_BYTE_OFFSET|5.023000||Viu
+NV_NAN_QS_QUIET|5.023000||Viu
+NV_NAN_QS_SIGNALING|5.023000||Viu
+NV_NAN_QS_TEST|5.023000||Viu
+NV_NAN_QS_XOR|5.023000||Viu
+NV_NAN_SET_QUIET|5.023000||Viu
+NV_NAN_SET_SIGNALING|5.023000||Viu
+NV_OVERFLOWS_INTEGERS_AT|5.010001|5.010001|Vn
+NV_PRESERVES_UV_BITS|5.006001|5.006001|Vn
+NVSIZE|5.006001|5.006001|Vn
+NVTYPE|5.006000|5.003007|poVn
+NV_VAX_ENDIAN|5.025003||Viu
+NV_WITHIN_IV|5.006000||Viu
+NV_WITHIN_UV|5.006000||Viu
+NV_X86_80_BIT|5.025004||Viu
+NV_ZERO_IS_ALLBITS_ZERO|5.035009|5.035009|Vn
+OA_AVREF|5.003007||Viu
+OA_BASEOP|5.005000||Viu
+OA_BASEOP_OR_UNOP|5.005000||Viu
+OA_BINOP|5.005000||Viu
+OA_CLASS_MASK|5.005000||Viu
+OA_COP|5.005000||Viu
+OA_CVREF|5.003007||Viu
+OA_DANGEROUS|5.003007||Viu
+OA_DEFGV|5.003007||Viu
+OA_FILEREF|5.003007||Viu
+OA_FILESTATOP|5.005000||Viu
+OA_FOLDCONST|5.003007||Viu
+OA_HVREF|5.003007||Viu
+OA_LIST|5.003007||Viu
+OA_LISTOP|5.005000||Viu
+OA_LOGOP|5.005000||Viu
+OA_LOOP|5.005000||Viu
+OA_LOOPEXOP|5.005000||Viu
+OA_MARK|5.003007||Viu
+OA_METHOP|5.021005||Viu
+OA_OPTIONAL|5.003007||Viu
+OA_OTHERINT|5.003007||Viu
+OA_PADOP|5.006000||Viu
+OA_PMOP|5.005000||Viu
+OA_PVOP_OR_SVOP|5.006000||Viu
+OA_RETSCALAR|5.003007||Viu
+OA_SCALAR|5.003007||Viu
+OA_SCALARREF|5.003007||Viu
+OASHIFT|5.003007||Viu
+OA_SVOP|5.005000||Viu
+OA_TARGET|5.003007||Viu
+OA_TARGLEX|5.006000||Viu
+OA_UNOP|5.005000||Viu
+OA_UNOP_AUX|5.021007||Viu
+O_BINARY|5.006000||Viu
+O_CREAT|5.006000||Viu
+OCSHIFT|5.006000||Viu
+OCTAL_VALUE|5.019008||Viu
+Off_t|5.003007|5.003007|Vn
+Off_t_size|5.006000|5.006000|Vn
+OFFUNI_IS_INVARIANT|5.023003||Viu
+OFFUNISKIP|5.019004||Viu
+OFFUNISKIP_helper|5.035004||Viu
+ONCE_PAT_MOD|5.009005||Viu
+ONCE_PAT_MODS|5.009005||Viu
+ONE_IF_EBCDIC_ZERO_IF_NOT|5.035004||Viu
+oopsAV|5.003007||Viu
+oopsHV|5.003007||Viu
+OP|5.003007||Viu
+op_append_elem|5.013006|5.013006|
+op_append_list|5.013006|5.013006|
+opASSIGN|5.003007||Viu
+OP_CHECK_MUTEX_INIT|5.015008||Viu
+OP_CHECK_MUTEX_LOCK|5.015008||Viu
+OP_CHECK_MUTEX_TERM|5.015008||Viu
+OP_CHECK_MUTEX_UNLOCK|5.015008||Viu
+OP_CLASS|5.013007|5.013007|
+op_class|5.025010|5.025010|
+op_clear|5.006000||cViu
+OPCODE|5.003007||Viu
+op_contextualize|5.013006|5.013006|
+op_convert_list|5.021006|5.021006|
+OP_DESC|5.007003|5.007003|
+op_dump|5.006000|5.006000|
+OPEN|5.003007||Viu
+open|5.005000||Viu
+opendir|5.005000||Viu
+openn_cleanup|5.019010||Viu
+openn_setup|5.019010||Viu
+open_script|5.005000||Viu
+OPEN_t8|5.035004||Viu
+OPEN_t8_p8|5.033003||Viu
+OPEN_t8_pb|5.033003||Viu
+OPEN_tb|5.035004||Viu
+OPEN_tb_p8|5.033003||Viu
+OPEN_tb_pb|5.033003||Viu
+OPERAND|5.003007||Viu
+OPERANDl|5.031005||Viu
+OPERANDs|5.031005||Viu
+OPFAIL|5.009005||Viu
+OPFAIL_t8|5.035004||Viu
+OPFAIL_t8_p8|5.033003||Viu
+OPFAIL_t8_pb|5.033003||Viu
+OPFAIL_tb|5.035004||Viu
+OPFAIL_tb_p8|5.033003||Viu
+OPFAIL_tb_pb|5.033003||Viu
+OPf_FOLDED|5.021007||Viu
+OPf_KIDS|5.003007|5.003007|
+OPf_KNOW|5.003007||Viu
+OPf_LIST|5.003007||Viu
+OPf_MOD|5.003007||Viu
+OPf_PARENS|5.003007||Viu
+op_free|5.003007|5.003007|
+OP_FREED|5.017002||Viu
+OPf_REF|5.003007||Viu
+OPf_SPECIAL|5.003007||Viu
+OPf_STACKED|5.003007||Viu
+OPf_WANT|5.004000||Viu
+OPf_WANT_LIST|5.004000||Viu
+OPf_WANT_SCALAR|5.004000||Viu
+OPf_WANT_VOID|5.004000||Viu
+OP_GIMME|5.004000||Viu
+OP_GIMME_REVERSE|5.010001||Viu
+OpHAS_SIBLING|5.021007|5.003007|p
+op_integerize|5.015003||Viu
+OP_IS_DIRHOP|5.015003||Viu
+OP_IS_FILETEST|5.006001||Viu
+OP_IS_FILETEST_ACCESS|5.008001||Viu
+OP_IS_INFIX_BIT|5.021009||Viu
+OP_IS_NUMCOMPARE|5.015003||Viu
+OP_IS_SOCKET|5.006001||Viu
+OP_IS_STAT|5.031001||Viu
+OpLASTSIB_set|5.021011|5.003007|p
+op_linklist|5.013006|5.013006|
+op_lvalue|5.013007|5.013007|x
+op_lvalue_flags|||ciu
+OP_LVALUE_NO_CROAK|5.015001||Viu
+OpMAYBESIB_set|5.021011|5.003007|p
+opmethod_stash|5.021007||Viu
+OpMORESIB_set|5.021011|5.003007|p
+OP_NAME|5.007003|5.007003|
+op_null|5.007002|5.007002|
+OPpALLOW_FAKE|5.015006||Viu
+op_parent|5.025001|5.025001|n
+OPpARG1_MASK|5.021004||Viu
+OPpARG2_MASK|5.021004||Viu
+OPpARG3_MASK|5.021004||Viu
+OPpARG4_MASK|5.021004||Viu
+OPpARGELEM_AV|5.025004||Viu
+OPpARGELEM_HV|5.025004||Viu
+OPpARGELEM_MASK|5.025004||Viu
+OPpARGELEM_SV|5.025004||Viu
+OPpASSIGN_BACKWARDS|5.003007||Viu
+OPpASSIGN_COMMON_AGG|5.023002||Viu
+OPpASSIGN_COMMON_RC1|5.023002||Viu
+OPpASSIGN_COMMON_SCALAR|5.023002||Viu
+OPpASSIGN_CV_TO_GV|5.009003||Viu
+OPpASSIGN_TRUEBOOL|5.027003||Viu
+OPpAVHVSWITCH_MASK|5.025006||Viu
+OPpCONCAT_NESTED|5.027007||Viu
+OPpCONST_BARE|5.003007||Viu
+OPpCONST_ENTERED|5.003007||Viu
+OPpCONST_NOVER|5.009003||Viu
+OPpCONST_SHORTCIRCUIT|5.009001||Viu
+OPpCONST_STRICT|5.005004||Viu
+OPpCOREARGS_DEREF1|5.015003||Viu
+OPpCOREARGS_DEREF2|5.015003||Viu
+OPpCOREARGS_PUSHMARK|5.015003||Viu
+OPpCOREARGS_SCALARMOD|5.015003||Viu
+OPpDEFER_FINALLY|5.035008||Viu
+OPpDEREF|5.004000||Viu
+OPpDEREF_AV|5.003007||Viu
+OPpDEREF_HV|5.003007||Viu
+OPpDEREF_SV|5.004000||Viu
+OPpDONT_INIT_GV|5.009003||Viu
+OPpEARLY_CV|5.006000|5.006000|
+OPpENTERSUB_AMPER|5.003007|5.003007|
+OPpENTERSUB_DB|5.003007||Viu
+OPpENTERSUB_HASTARG|5.006000||Viu
+OPpENTERSUB_INARGS|5.006000||Viu
+OPpENTERSUB_LVAL_MASK|5.015001||Viu
+OPpENTERSUB_NOPAREN|5.005004||Viu
+OPpEVAL_BYTES|5.015005||Viu
+OPpEVAL_COPHH|5.015005||Viu
+OPpEVAL_HAS_HH|5.009003||Viu
+OPpEVAL_RE_REPARSING|5.017011||Viu
+OPpEVAL_UNICODE|5.015005||Viu
+OPpEXISTS_SUB|5.006000||Viu
+OPpFLIP_LINENUM|5.003007||Viu
+OPpFT_ACCESS|5.008001||Viu
+OPpFT_AFTER_t|5.015008||Viu
+OPpFT_STACKED|5.009001||Viu
+OPpFT_STACKING|5.015001||Viu
+OPpHINT_STRICT_REFS|5.021004||Viu
+OPpHUSH_VMSISH|5.007003||Viu
+OPpINDEX_BOOLNEG|5.027003||Viu
+OPpITER_DEF|5.027008||Viu
+OPpITER_REVERSED|5.009002||Viu
+OPpKVSLICE|5.027001||Viu
+OPpLIST_GUESSED|5.003007||Viu
+OPpLVAL_DEFER|5.004000||Viu
+OPpLVAL_INTRO|5.003007||Viu
+OPpLVALUE|5.019006||Viu
+OPpLVREF_AV|5.021005||Viu
+OPpLVREF_CV|5.021005||Viu
+OPpLVREF_ELEM|5.021005||Viu
+OPpLVREF_HV|5.021005||Viu
+OPpLVREF_ITER|5.021005||Viu
+OPpLVREF_SV|5.021005||Viu
+OPpLVREF_TYPE|5.021005||Viu
+OPpMAYBE_LVSUB|5.007001||Viu
+OPpMAYBE_TRUEBOOL|5.017004||Viu
+OPpMAY_RETURN_CONSTANT|5.009003||Viu
+OPpMULTICONCAT_APPEND|5.027006||Viu
+OPpMULTICONCAT_FAKE|5.027006||Viu
+OPpMULTICONCAT_STRINGIFY|5.027006||Viu
+OPpMULTIDEREF_DELETE|5.021007||Viu
+OPpMULTIDEREF_EXISTS|5.021007||Viu
+OPpOFFBYONE|5.015002||Viu
+OPpOPEN_IN_CRLF|5.006000||Viu
+OPpOPEN_IN_RAW|5.006000||Viu
+OPpOPEN_OUT_CRLF|5.006000||Viu
+OPpOPEN_OUT_RAW|5.006000||Viu
+OPpOUR_INTRO|5.006000||Viu
+OPpPADHV_ISKEYS|5.027003||Viu
+OPpPADRANGE_COUNTMASK|5.017006||Viu
+OPpPADRANGE_COUNTSHIFT|5.017006||Viu
+OPpPAD_STATE|5.009004||Viu
+OPpPV_IS_UTF8|5.016000||Viu
+OPpREFCOUNTED|5.006000||Viu
+OPpREPEAT_DOLIST|5.003007||Viu
+op_prepend_elem|5.013006|5.013006|
+OPpREVERSE_INPLACE|5.011002||Viu
+OPpRV2HV_ISKEYS|5.027003||Viu
+OPpSLICE|5.004000||Viu
+OPpSLICEWARNING|5.019004||Viu
+OPpSORT_DESCEND|5.009002||Viu
+OPpSORT_INPLACE|5.009001||Viu
+OPpSORT_INTEGER|5.006000||Viu
+OPpSORT_NUMERIC|5.006000||Viu
+OPpSORT_REVERSE|5.006000||Viu
+OPpSPLIT_ASSIGN|5.025006||Viu
+OPpSPLIT_IMPLIM|5.019002||Viu
+OPpSPLIT_LEX|5.025006||Viu
+OPpSUBSTR_REPL_FIRST|5.015006||Viu
+OPpTARGET_MY|5.006000||Viu
+OPpTRANS_ALL|5.009001||Viu
+OPpTRANS_CAN_FORCE_UTF8|5.031006||Viu
+OPpTRANS_COMPLEMENT|5.003007||Viu
+OPpTRANS_DELETE|5.003007||Viu
+OPpTRANS_FROM_UTF|5.006000||Viu
+OPpTRANS_GROWS|5.006000||Viu
+OPpTRANS_IDENTICAL|5.006000||Viu
+OPpTRANS_SQUASH|5.003007||Viu
+OPpTRANS_TO_UTF|5.006000||Viu
+OPpTRANS_USE_SVOP|5.031006||Viu
+OPpTRUEBOOL|5.017004||Viu
+OPpUSEINT|5.035005||Viu
+OpREFCNT_dec|5.006000||Viu
+op_refcnt_dec|||xiu
+OpREFCNT_inc|5.006000||Viu
+op_refcnt_inc|||xiu
+OP_REFCNT_INIT|5.006000||Viu
+OP_REFCNT_LOCK|5.006000||Viu
+op_refcnt_lock|5.009002|5.009002|u
+OpREFCNT_set|5.006000||Viu
+OP_REFCNT_TERM|5.006000||Viu
+OP_REFCNT_UNLOCK|5.006000||Viu
+op_refcnt_unlock|5.009002|5.009002|u
+op_relocate_sv|5.021005||Viu
+op_scope|5.013007|5.013007|x
+OP_SIBLING|5.021002||Viu
+OpSIBLING|5.021007|5.003007|p
+op_sibling_splice|5.021002|5.021002|n
+OpSLAB|5.017002||Viu
+opslab_force_free|5.017002||Viu
+opslab_free|5.017002||Viu
+opslab_free_nopad|5.017002||Viu
+OpslabREFCNT_dec|5.017002||Viu
+OpslabREFCNT_dec_padok|5.017002||Viu
+OpSLOT|5.017002||Viu
+OPSLOT_HEADER|5.017002||Viu
+OpSLOToff|5.033001||Viu
+op_std_init|5.015003||Viu
+OPTIMIZED|5.005000||Viu
+OPTIMIZED_t8|5.035004||Viu
+OPTIMIZED_t8_p8|5.033003||Viu
+OPTIMIZED_t8_pb|5.033003||Viu
+OPTIMIZED_tb|5.035004||Viu
+OPTIMIZED_tb_p8|5.033003||Viu
+OPTIMIZED_tb_pb|5.033003||Viu
+optimize_op|5.027006||Viu
+optimize_optree|5.027006||Vi
+optimize_regclass|5.035001||Viu
+OP_TYPE_IS|5.019007|5.019007|
+OP_TYPE_IS_NN|5.019010||Viu
+OP_TYPE_ISNT|5.019010||Viu
+OP_TYPE_ISNT_AND_WASNT|5.019010||Viu
+OP_TYPE_ISNT_AND_WASNT_NN|5.019010||Viu
+OP_TYPE_ISNT_NN|5.019010||Viu
+OP_TYPE_IS_OR_WAS|5.019010|5.019010|
+OP_TYPE_IS_OR_WAS_NN|5.019010||Viu
+op_unscope|5.017003||xViu
+op_wrap_finally|5.035008|5.035008|x
+O_RDONLY|5.006000||Viu
+O_RDWR|5.006000||Viu
+ORIGMARK|5.003007|5.003007|
+OSNAME|5.003007|5.003007|Vn
+OSVERS|5.007002|5.007002|Vn
+O_TEXT|5.006000||Viu
+OutCopFILE|5.007003||Viu
+output_non_portable|5.031008||Viu
+output_posix_warnings|5.029005||Viu
+O_VMS_DELETEONCLOSE|5.031002||Viu
+O_WRONLY|5.006000||Viu
+package|5.003007||Viu
+package_version|5.011001||Viu
+pack_cat|5.033002|5.033002|d
+packlist|5.008001|5.008001|
+pack_rec|5.008001||Viu
+packWARN2|5.007003|5.003007|p
+packWARN3|5.007003|5.003007|p
+packWARN4|5.007003|5.003007|p
+packWARN|5.007003|5.003007|p
+pad_add_anon|5.015001|5.015001|
+pad_add_name_pv|5.015001|5.015001|
+pad_add_name_pvn|5.015001|5.015001|
+pad_add_name_pvs|5.015001|5.015001|
+pad_add_name_sv|5.015001|5.015001|
+padadd_NO_DUP_CHECK|5.011002||Viu
+padadd_OUR|5.011002||Viu
+padadd_STALEOK|5.017003||Viu
+padadd_STATE|5.011002||Viu
+pad_add_weakref|5.021007||Viu
+pad_alloc|5.015001|5.015001|x
+pad_alloc_name|5.015001||Vi
+PadARRAY|5.017004|5.017004|x
+PAD_BASE_SV|5.008001||Vi
+pad_block_start|5.008001||Vi
+pad_check_dup|5.008001||Vi
+PAD_CLONE_VARS|5.008001||Vi
+PAD_COMPNAME|5.017004||Viu
+PAD_COMPNAME_FLAGS|5.008001||Vi
+PAD_COMPNAME_FLAGS_isOUR|5.009004||Viu
+PAD_COMPNAME_GEN|5.008001||Vi
+PAD_COMPNAME_GEN_set|5.009003||Vi
+PAD_COMPNAME_OURSTASH|5.008001||Vi
+PAD_COMPNAME_PV|5.008001||Vi
+PAD_COMPNAME_SV|5.009005||Viu
+PAD_COMPNAME_TYPE|5.008001||Vi
+pad_compname_type|5.033005|5.033005|d
+PAD_FAKELEX_ANON|5.009005||Viu
+PAD_FAKELEX_MULTI|5.009005||Viu
+pad_findlex|5.005000||Vi
+pad_findmy_pv|5.015001|5.015001|
+pad_findmy_pvn|5.015001|5.015001|
+pad_findmy_pvs|5.015001|5.015001|
+pad_findmy_sv|5.015001|5.015001|
+pad_fixup_inner_anons|5.008001||Vi
+pad_free|5.003007||Vi
+pad_leavemy|5.003007||Vi
+PadlistARRAY|5.017004|5.017004|x
+padlist_dup|5.013002||Vi
+PadlistMAX|5.017004|5.017004|x
+PadlistNAMES|5.017004|5.017004|x
+PadlistNAMESARRAY|5.017004|5.017004|x
+PadlistNAMESMAX|5.017004|5.017004|x
+PadlistREFCNT|5.017004|5.017004|x
+padlist_store|5.017004||Viu
+PadMAX|5.017004|5.017004|x
+padname_dup|5.021007||Vi
+PadnameFLAGS|5.021007||Viu
+padname_free|||ciu
+PADNAME_FROM_PV|5.021007||Viu
+PadnameIN_SCOPE|5.031004||Vniu
+PadnameIsOUR|5.017004||Vi
+PadnameIsSTATE|5.017004||Vi
+PadnameIsSTATE_on|5.021007||Viu
+PadnameLEN|5.017004|5.017004|x
+PadnamelistARRAY|5.017004|5.017004|x
+padnamelist_dup|5.021007||Vi
+padnamelist_fetch|5.021007|5.021007|xn
+padnamelist_free|||ciu
+PadnamelistMAX|5.017004|5.017004|x
+PadnamelistMAXNAMED|5.019003||Viu
+PadnamelistREFCNT|5.021007|5.021007|x
+PadnamelistREFCNT_dec|5.021007|5.021007|x
+padnamelist_store|5.021007|5.021007|x
+PadnameLVALUE|5.021006||Viu
+PadnameLVALUE_on|5.021006||Viu
+PadnameOURSTASH|5.017004||Vi
+PadnameOURSTASH_set|5.021007||Viu
+PadnameOUTER|5.017004||Vi
+PadnamePROTOCV|5.021007||Viu
+PadnamePV|5.017004|5.017004|x
+PadnameREFCNT|5.021007|5.021007|x
+PadnameREFCNT_dec|5.021007|5.021007|x
+PadnameSV|5.017004|5.017004|x
+PADNAMEt_LVALUE|5.021007||Viu
+PADNAMEt_OUR|5.021007||Viu
+PADNAMEt_OUTER|5.021007|5.021007|
+PADNAMEt_STATE|5.021007||Viu
+PADNAMEt_TYPED|5.021007||Viu
+PadnameTYPE|5.017004||Vi
+PadnameTYPE_set|5.021007||Viu
+PadnameUTF8|5.017004|5.017004|x
+pad_new|5.015001|5.015001|
+padnew_CLONE|5.008001||Viu
+padnew_SAVE|5.008001||Viu
+padnew_SAVESUB|5.008001||Viu
+pad_peg|5.009004||Viu
+pad_push|5.008001||cVi
+pad_reset|5.003007||Vi
+PAD_RESTORE_LOCAL|5.008001||Vi
+PAD_SAVE_LOCAL|5.008001||Vi
+PAD_SAVE_SETNULLPAD|5.008001||Vi
+PAD_SET_CUR|5.008001||Vi
+PAD_SET_CUR_NOSAVE|5.008002||Vi
+pad_setsv|5.008001||cV
+PAD_SETSV|5.008001||Vi
+pad_sv|5.003007||cV
+PAD_SV|5.003007||Vi
+PAD_SVl|5.008001||Vi
+pad_swipe|5.003007||Vi
+pad_tidy|5.015001|5.015001|x
+panic_write2|5.008001||Viu
+PARENT_FAKELEX_FLAGS|5.009005||Viu
+PARENT_PAD_INDEX|5.009005||Viu
+parse_arithexpr|5.013008|5.013008|x
+parse_barestmt|5.013007|5.013007|x
+parse_block|5.013007|5.013007|x
+parse_body|5.006000||Viu
+parse_fullexpr|5.013008|5.013008|x
+parse_fullstmt|5.013005|5.013005|x
+parse_gv_stash_name|5.019004||Viu
+parse_ident|5.017010||Viu
+parse_label|5.013007|5.013007|x
+parse_listexpr|5.013008|5.013008|x
+parse_lparen_question_flags|5.017009||Viu
+PARSE_OPTIONAL|5.013007|5.013007|
+parser_dup|5.009000|5.009000|u
+parser_free|5.009005||Viu
+parser_free_nexttoke_ops|5.017006||Viu
+parse_stmtseq|5.013006|5.013006|x
+parse_subsignature|5.031003|5.031003|x
+parse_termexpr|5.013008|5.013008|x
+parse_unicode_opts|5.008001||Viu
+parse_uniprop_string|5.027011||Viu
+PATCHLEVEL|5.003007||Viu
+path_is_searchable|5.019001||Vniu
+Pause|5.003007||Viu
+pause|5.005000||Viu
+pclose|5.003007||Viu
+peep|5.003007||Viu
+pending_ident|5.017004||Viu
+PERL_ABS|5.008001|5.003007|p
+Perl_acos|5.021004|5.021004|n
+perl_alloc|5.003007|5.003007|n
+PERL_ALLOC_CHECK|5.006000||Viu
+perl_alloc_using|5.006000||Vnu
+PERL_ANY_COW|5.017007||Viu
+PERL_API_REVISION|5.006000||Viu
+PERL_API_SUBVERSION|5.006000||Viu
+PERL_API_VERSION|5.006000||Viu
+PERL_API_VERSION_STRING|5.013004||Viu
+PERL_ARENA_ROOTS_SIZE|5.009004||Viu
+PERL_ARENA_SIZE|5.009003||Viu
+PERL_ARGS_ASSERT_CROAK_XS_USAGE|||ponu
+Perl_asin|5.021004|5.021004|n
+Perl_assert|5.011000||Viu
+perl_assert_ptr|5.027004||Viu
+PERL_ASYNC_CHECK|5.006000|5.006000|
+Perl_atan2|5.006000|5.006000|n
+Perl_atan|5.021004|5.021004|n
+Perl_atof2|5.006001||Viu
+Perl_atof|5.006000||Viu
+PERL_BCDVERSION||5.003007|onu
+PERL_BISON_VERSION|5.023008||Viu
+PERL_BITFIELD16|5.010001||Viu
+PERL_BITFIELD32|5.010001||Viu
+PERL_BITFIELD8|5.010001||Viu
+PERL_CALLCONV|5.005002||Viu
+PERL_CALLCONV_NO_RET|5.017002||Viu
+Perl_ceil|5.009001|5.009001|n
+PERL_CKDEF|5.006000||Viu
+perl_clone|5.006000||Vn
+perl_clone_using|5.006000||Vnu
+PERL_CLZ_32|5.035003||Viu
+PERL_CLZ_64|5.035003||Viu
+perl_construct|5.003007|5.003007|n
+PERL_COP_SEQMAX|5.013010||Viu
+PERL_COPY_ON_WRITE|5.023001||Viu
+Perl_cos|5.006000|5.006000|n
+Perl_cosh|5.021004|5.021004|n
+PERL_COUNT_MULTIPLIER|5.027007||Viu
+PERL_CTZ_32|5.035003||Viu
+PERL_CTZ_64|5.035003||Viu
+Perl_custom_op_xop|5.019006||V
+PERLDB_ALL|5.004002||Viu
+PERLDBf_GOTO|5.004005||Viu
+PERLDBf_INTER|5.004002||Viu
+PERLDBf_LINE|5.004002||Viu
+PERLDBf_NAMEANON|5.006000||Viu
+PERLDBf_NAMEEVAL|5.006000||Viu
+PERLDBf_NONAME|5.004005||Viu
+PERLDBf_NOOPT|5.004002||Viu
+PERLDBf_SAVESRC|5.010001||Viu
+PERLDBf_SAVESRC_INVALID|5.010001||Viu
+PERLDBf_SAVESRC_NOSUBS|5.010001||Viu
+PERLDBf_SINGLE|5.004002||Viu
+PERLDBf_SUB|5.004002||Viu
+PERLDBf_SUBLINE|5.004002||Viu
+PERLDB_GOTO|5.004005||Viu
+PERLDB_INTER|5.004002||Viu
+PERLDB_LINE|5.004002||Viu
+PERLDB_LINE_OR_SAVESRC|5.023002||Viu
+PERLDB_NAMEANON|5.006000||Viu
+PERLDB_NAMEEVAL|5.006000||Viu
+PERLDB_NOOPT|5.004002||Viu
+PERLDB_SAVESRC|5.010001||Viu
+PERLDB_SAVESRC_INVALID|5.010001||Viu
+PERLDB_SAVESRC_NOSUBS|5.010001||Viu
+PERLDB_SINGLE|5.004002||Viu
+PERLDB_SUB|5.004002||Viu
+PERLDB_SUBLINE|5.004002||Viu
+PERLDB_SUB_NN|5.004005||Viu
+PERL_DEB2|5.021007||Viu
+PERL_DEB|5.008001||Viu
+PERL_deBruijnMagic32|5.035003||Viu
+PERL_deBruijnMagic64|5.035003||Viu
+PERL_deBruijnShift32|5.035003||Viu
+PERL_deBruijnShift64|5.035003||Viu
+PERL_DEBUG|5.008001||Viu
+Perl_debug_log|5.003007||Viu
+PERL_DEBUG_PAD|5.007003||Viu
+PERL_DEBUG_PAD_ZERO|5.007003||Viu
+PERL_DECIMAL_VERSION|5.019008||Viu
+PERL_DEFAULT_DO_EXEC3_IMPLEMENTATION|5.009003||Viu
+perl_destruct|5.007003|5.007003|n
+PerlDir_chdir|5.005000||Viu
+PerlDir_close|5.005000||Viu
+PerlDir_mapA|5.006000||Viu
+PerlDir_mapW|5.006000||Viu
+PerlDir_mkdir|5.005000||Viu
+PerlDir_open|5.005000||Viu
+PerlDir_read|5.005000||Viu
+PerlDir_rewind|5.005000||Viu
+PerlDir_rmdir|5.005000||Viu
+PerlDir_seek|5.005000||Viu
+PerlDir_tell|5.005000||Viu
+PERL_DONT_CREATE_GVSV|5.009003||Viu
+Perl_drand48|5.019004||Viu
+Perl_drand48_init|5.019004||Viu
+PERL_DRAND48_QUAD|5.019004||Viu
+PERL_DTRACE_PROBE_ENTRY|5.023009||Viu
+PERL_DTRACE_PROBE_FILE_LOADED|5.023009||Viu
+PERL_DTRACE_PROBE_FILE_LOADING|5.023009||Viu
+PERL_DTRACE_PROBE_OP|5.023009||Viu
+PERL_DTRACE_PROBE_PHASE|5.023009||Viu
+PERL_DTRACE_PROBE_RETURN|5.023009||Viu
+PERL_EBCDIC_TABLES_H|5.027001||Viu
+PERL_ENABLE_EXPERIMENTAL_REGEX_OPTIMISATIONS|5.009004||Viu
+PERL_ENABLE_EXTENDED_TRIE_OPTIMISATION|5.009004||Viu
+PERL_ENABLE_POSITIVE_ASSERTION_STUDY|5.009005||Viu
+PERL_ENABLE_TRIE_OPTIMISATION|5.009004||Viu
+PerlEnv_clearenv|5.006000||Viu
+PerlEnv_ENVgetenv|5.006000||Viu
+PerlEnv_ENVgetenv_len|5.006000||Viu
+PerlEnv_free_childdir|5.006000||Viu
+PerlEnv_free_childenv|5.006000||Viu
+PerlEnv_get_childdir|5.006000||Viu
+PerlEnv_get_childenv|5.006000||Viu
+PerlEnv_get_child_IO|5.006000||Viu
+PerlEnv_getenv|5.005000||Viu
+PerlEnv_getenv_len|5.006000||Viu
+PerlEnv_lib_path|5.005000||Viu
+PerlEnv_os_id|5.006000||Viu
+PerlEnv_putenv|5.005000||Viu
+PerlEnv_sitelib_path|5.005000||Viu
+PerlEnv_uname|5.005004||Viu
+PerlEnv_vendorlib_path|5.006000||Viu
+Perl_error_log|5.006000||Viu
+Perl_eval_pv||5.003007|onu
+Perl_eval_sv||5.003007|onu
+PERL_EXIT_ABORT|5.019003|5.019003|
+PERL_EXIT_DESTRUCT_END|5.007003|5.007003|
+PERL_EXIT_EXPECTED|5.006000|5.006000|
+PERL_EXIT_WARN|5.019003|5.019003|
+Perl_exp|5.006000|5.006000|n
+Perl_fabs|5.035005||Viu
+PERL_FEATURE_H|5.029006||Viu
+PERL_FILE_IS_ABSOLUTE|5.006000||Viu
+PERL_FILTER_EXISTS|5.009005||Viu
+Perl_floor|5.006000|5.006000|n
+PERL_FLUSHALL_FOR_CHILD|5.006000||Viu
+Perl_fmod|5.006000|5.006000|n
+Perl_fp_class|5.007003||Viu
+Perl_fp_class_denorm|5.007003||Viu
+Perl_fp_class_inf|5.007003||Viu
+Perl_fp_class_nan|5.007003||Viu
+Perl_fp_class_ndenorm|5.007003||Viu
+Perl_fp_class_ninf|5.007003||Viu
+Perl_fp_class_nnorm|5.007003||Viu
+Perl_fp_class_norm|5.007003||Viu
+Perl_fp_class_nzero|5.007003||Viu
+Perl_fp_class_pdenorm|5.007003||Viu
+Perl_fp_class_pinf|5.007003||Viu
+Perl_fp_class_pnorm|5.007003||Viu
+Perl_fp_class_pzero|5.007003||Viu
+Perl_fp_class_qnan|5.007003||Viu
+Perl_fp_class_snan|5.007003||Viu
+Perl_fp_class_zero|5.007003||Viu
+PERL_FPU_INIT|5.007002||Viu
+PERL_FPU_POST_EXEC|5.008001||Viu
+PERL_FPU_PRE_EXEC|5.008001||Viu
+perl_free|5.003007|5.003007|n
+Perl_free_c_backtrace|5.021001||Viu
+Perl_frexp|5.006000|5.006000|n
+PERL_FS_VER_FMT|5.006000||Viu
+PERL_FS_VERSION|5.010001||Viu
+PERL_GCC_BRACE_GROUPS_FORBIDDEN|5.008001||Viu
+PERL_GCC_VERSION_GE|5.035003||Viu
+PERL_GCC_VERSION_GT|5.035003||Viu
+PERL_GCC_VERSION_LE|5.035003||Viu
+PERL_GCC_VERSION_LT|5.035003||Viu
+PERL_GET_CONTEXT|5.006000||Viu
+PERL_GET_INTERP|5.006000||Viu
+PERL_GET_THX|5.006000||Viu
+PERL_GIT_UNPUSHED_COMMITS|5.010001||Viu
+PERL_GPROF_MONCONTROL|5.007002||Viu
+PERL_HANDY_H|5.027001||Viu
+PERL_HAS_FAST_GET_LSB_POS32|5.035003||Viu
+PERL_HAS_FAST_GET_LSB_POS64|5.035003||Viu
+PERL_HAS_FAST_GET_MSB_POS32|5.035003||Viu
+PERL_HAS_FAST_GET_MSB_POS64|5.035003||Viu
+PERL_HASH|5.003007|5.003007|p
+PERL_HASH_DEFAULT_HvMAX|5.017011||Viu
+PERL_HASH_FUNC|5.017006||Viu
+PERL_HASH_FUNC_SIPHASH13|5.033007||Viu
+PERL_HASH_FUNC_ZAPHOD32|5.027001||Viu
+PERL_HASH_INTERNAL|5.008002||Viu
+PERL_HASH_ITER_BUCKET|5.018000||Viu
+PERL_HASH_RANDOMIZE_KEYS|5.018000||Viu
+PERL_HASH_SEED|5.008001||Viu
+PERL_HASH_SEED_BYTES|5.017006||Viu
+PERL_HASH_SEED_STATE|5.027001||Viu
+PERL_HASH_SEED_WORDS|5.033007||Viu
+PERL_HASH_STATE_BYTES|5.027001||Viu
+PERL_HASH_STATE_WORDS|5.033007||Viu
+PERL_HASH_USE_SBOX32_ALSO|5.027001||Viu
+PERL_HASH_WITH_SEED|5.021001||Viu
+PERL_HASH_WITH_STATE|5.027001||Viu
+PERL_HV_ARRAY_ALLOC_BYTES|5.006000||Viu
+PERL___I|5.009005||Viu
+PERL_IMPLICIT_CONTEXT|5.006000||Viu
+PERL_INC_VERSION_LIST|5.035009|5.035009|Vn
+Perl_internal_drand48|5.027004||Viu
+PERL_INTERPRETER_SIZE_UPTO_MEMBER|5.010000||Viu
+PERL_INT_MAX|5.003007|5.003007|p
+PERL_INT_MIN|5.003007|5.003007|p
+PERL_INVLIST_INLINE_H|5.029006||Viu
+PerlIO|5.003007||Viu
+PerlIO_apply_layers|5.007001|5.007001|
+PerlIOArg|5.007001||Viu
+PerlIOBase|5.007001||Viu
+PerlIO_binmode|5.007001|5.007001|
+PERLIOBUF_DEFAULT_BUFSIZ|5.013007||Viu
+PerlIO_canset_cnt|5.003007|5.003007|n
+PerlIO_clearerr|5.007003|5.007003|
+PerlIO_close|5.007003|5.007003|
+PerlIO_context_layers|||u
+PerlIO_debug|5.007001|5.007001|
+PERLIO_DUP_CLONE|5.007003||Viu
+PERLIO_DUP_FD|5.007003||Viu
+PerlIO_eof|5.007003|5.007003|
+PerlIO_error|5.007003|5.007003|
+PerlIO_exportFILE|5.003007|5.003007|n
+PERLIO_F_APPEND|5.007001|5.007001|
+PerlIO_fast_gets|5.003007|5.003007|n
+PERLIO_F_CANREAD|5.007001|5.007001|
+PERLIO_F_CANWRITE|5.007001|5.007001|
+PERLIO_F_CLEARED|5.013008||Viu
+PERLIO_F_CRLF|5.007001|5.007001|
+PerlIO_fdopen|5.003007|5.003007|n
+PERLIO_F_EOF|5.007001|5.007001|
+PERLIO_F_ERROR|5.007001|5.007001|
+PERLIO_F_FASTGETS|5.007001|5.007001|
+PerlIO_fileno|5.007003|5.007003|
+PerlIO_fill|5.007000|5.007000|u
+PerlIO_findFILE|5.003007|5.003007|n
+PERLIO_F_LINEBUF|5.007001|5.007001|
+PerlIO_flush|5.007003|5.007003|
+PERLIO_F_NOTREG|5.008001||Viu
+PERLIO_F_OPEN|5.007001|5.007001|
+PERLIO_F_RDBUF|5.007001|5.007001|
+PERLIO_F_TEMP|5.007001|5.007001|
+PERLIO_F_TRUNCATE|5.007001|5.007001|
+PERLIO_F_TTY|5.007001||Viu
+PERLIO_F_UNBUF|5.007001|5.007001|
+PERLIO_FUNCS_CAST|5.009003||pVu
+PERLIO_FUNCS_DECL|5.009003|5.009003|pVu
+PERLIO_F_UTF8|5.007001|5.007001|
+PERLIO_F_WRBUF|5.007001|5.007001|
+PerlIO_get_base|5.007003|5.007003|
+PerlIO_get_bufsiz|5.007003|5.007003|
+PerlIO_getc|5.003007|5.003007|n
+PerlIO_get_cnt|5.007003|5.007003|
+PerlIO_getpos|5.003007|5.003007|n
+PerlIO_get_ptr|5.007003|5.007003|
+PERLIO_H|5.027001||Viu
+PerlIO_has_base|5.003007|5.003007|n
+PerlIO_has_cntptr|5.003007|5.003007|n
+PerlIO_importFILE|5.003007|5.003007|n
+PERLIO_INIT|5.009005||Viu
+PERLIO_K_BUFFERED|5.007001|5.007001|
+PERLIO_K_CANCRLF|5.007001|5.007001|
+PERLIO_K_DESTRUCT|5.007001||Viu
+PERLIO_K_DUMMY|5.007001||Viu
+PERLIO_K_FASTGETS|5.007001|5.007001|
+PERLIO_K_MULTIARG|5.007003|5.007003|
+PERLIO_K_RAW|5.007001|5.007001|
+PERLIO_K_UTF8|5.007001||Viu
+PERLIO_LAYERS|5.007001||Viu
+PERLIOL_H|5.027001||Viu
+PerlIONext|5.007001||Viu
+PERLIO_NOT_STDIO|5.003007||Viu
+PerlIO_open|5.003007|5.003007|n
+PerlIO_printf|5.006000|5.003007|
+PerlIO_putc|5.003007|5.003007|n
+PerlIO_puts|5.003007|5.003007|n
+PerlIO_read|5.007003|5.007003|
+PerlIO_releaseFILE|5.003007|5.003007|n
+PerlIO_reopen|5.003007|5.003007|n
+PerlIO_restore_errno|5.021006||cViu
+PerlIO_rewind|5.003007|5.003007|n
+PerlIO_save_errno|5.021006||cViu
+PerlIO_seek|5.007003|5.007003|
+PerlIOSelf|5.007001||Viu
+PerlIO_set_cnt|5.007003|5.007003|
+PerlIO_setlinebuf|5.007003|5.007003|
+PerlIO_setpos|5.003007|5.003007|n
+PerlIO_set_ptrcnt|5.007003|5.007003|
+PerlIO_stderr|5.007003|5.007003|
+PerlIO_stdin|5.007003|5.007003|
+PerlIO_stdout|5.007003|5.007003|
+PerlIO_stdoutf|5.006000|5.003007|
+PERLIO_STDTEXT|5.007001||Viu
+PerlIO_tell|5.007003|5.007003|
+PERLIO_TERM|5.009005||Viu
+PerlIO_ungetc|5.003007|5.003007|n
+PerlIO_unread|5.007003|5.007003|u
+PERLIO_USING_CRLF|5.007003||Viu
+PerlIOValid|5.007003||Viu
+PerlIO_vprintf|5.003007|5.003007|n
+PerlIO_write|5.007003|5.007003|
+Perl_isfinite|5.007003|5.007003|n
+Perl_isfinitel|5.021004||Viu
+PERL_IS_GCC|5.032001||Viu
+Perl_isinf|5.007003|5.007003|n
+Perl_isnan|5.006001|5.006001|n
+PERL_IS_SUBWORD_ADDR|5.027007||Viu
+PERL_IS_UTF8_CHAR_DFA|5.035004||Viu
+PERL_JNP_TO_DECIMAL|5.033001||Viu
+Perl_langinfo|5.027004|5.027004|n
+PERL_LANGINFO_H|5.027004||Viu
+PERL_LAST_5_18_0_INTERP_MEMBER|5.017009||Viu
+Perl_ldexp|5.021003|5.021003|n
+PerlLIO_access|5.005000||Viu
+PerlLIO_chmod|5.005000||Viu
+PerlLIO_chown|5.005000||Viu
+PerlLIO_chsize|5.005000||Viu
+PerlLIO_close|5.005000||Viu
+PerlLIO_dup2|5.005000||Viu
+PerlLIO_dup2_cloexec|5.027008||Viu
+PerlLIO_dup|5.005000||Viu
+PerlLIO_dup_cloexec|5.027008||Viu
+PerlLIO_flock|5.005000||Viu
+PerlLIO_fstat|5.005000||Viu
+PerlLIO_ioctl|5.005000||Viu
+PerlLIO_isatty|5.005000||Viu
+PerlLIO_link|5.006000||Viu
+PerlLIO_lseek|5.005000||Viu
+PerlLIO_lstat|5.005000||Viu
+PerlLIO_mktemp|5.005000||Viu
+PerlLIO_open3|5.005000||Viu
+PerlLIO_open3_cloexec|5.027008||Viu
+PerlLIO_open|5.005000||Viu
+PerlLIO_open_cloexec|5.027008||Viu
+PerlLIO_read|5.005000||Viu
+PerlLIO_readlink|5.033005||Viu
+PerlLIO_rename|5.005000||Viu
+PerlLIO_setmode|5.005000||Viu
+PerlLIO_stat|5.005000||Viu
+PerlLIO_symlink|5.033005||Viu
+PerlLIO_tmpnam|5.005000||Viu
+PerlLIO_umask|5.005000||Viu
+PerlLIO_unlink|5.005000||Viu
+PerlLIO_utime|5.005000||Viu
+PerlLIO_write|5.005000||Viu
+PERL_LOADMOD_DENY|5.006000|5.003007|
+PERL_LOADMOD_IMPORT_OPS|5.006000|5.003007|
+PERL_LOADMOD_NOIMPORT|5.006000|5.003007|
+Perl_log10|5.021004|5.021004|n
+Perl_log|5.006000|5.006000|n
+PERL_LONG_MAX|5.003007|5.003007|p
+PERL_LONG_MIN|5.003007|5.003007|p
+PERL_MAGIC_arylen|5.007002|5.003007|p
+PERL_MAGIC_arylen_p|5.009003|5.009003|
+PERL_MAGIC_backref|5.007002|5.003007|p
+PERL_MAGIC_bm|5.007002|5.003007|p
+PERL_MAGIC_checkcall|5.013006|5.013006|
+PERL_MAGIC_collxfrm|5.007002|5.003007|p
+PERL_MAGIC_dbfile|5.007002|5.003007|p
+PERL_MAGIC_dbline|5.007002|5.003007|p
+PERL_MAGIC_debugvar|5.021005|5.021005|
+PERL_MAGIC_defelem|5.007002|5.003007|p
+PERL_MAGIC_env|5.007002|5.003007|p
+PERL_MAGIC_envelem|5.007002|5.003007|p
+PERL_MAGIC_ext|5.007002|5.003007|p
+PERL_MAGIC_fm|5.007002|5.003007|p
+PERL_MAGIC_glob||5.003007|ponu
+PERL_MAGIC_hints|5.009004|5.009004|
+PERL_MAGIC_hintselem|5.009004|5.009004|
+PERL_MAGIC_isa|5.007002|5.003007|p
+PERL_MAGIC_isaelem|5.007002|5.003007|p
+PERL_MAGIC_lvref|5.021005|5.021005|
+PERL_MAGIC_mutex||5.003007|ponu
+PERL_MAGIC_nkeys|5.007002|5.003007|p
+PERL_MAGIC_nonelem|5.027009|5.027009|
+PERL_MAGIC_overload||5.003007|ponu
+PERL_MAGIC_overload_elem||5.003007|ponu
+PERL_MAGIC_overload_table|5.007002|5.003007|p
+PERL_MAGIC_pos|5.007002|5.003007|p
+PERL_MAGIC_qr|5.007002|5.003007|p
+PERL_MAGIC_READONLY_ACCEPTABLE|5.015000||Viu
+PERL_MAGIC_regdata|5.007002|5.003007|p
+PERL_MAGIC_regdatum|5.007002|5.003007|p
+PERL_MAGIC_regex_global|5.007002|5.003007|p
+PERL_MAGIC_rhash|5.009003|5.009003|
+PERL_MAGIC_shared|5.007003|5.003007|p
+PERL_MAGIC_shared_scalar|5.007003|5.003007|p
+PERL_MAGIC_sig|5.007002|5.003007|p
+PERL_MAGIC_sigelem|5.007002|5.003007|p
+PERL_MAGIC_substr|5.007002|5.003007|p
+PERL_MAGIC_sv|5.007002|5.003007|p
+PERL_MAGIC_symtab|5.009003|5.009003|
+PERL_MAGIC_taint|5.007002|5.003007|p
+PERL_MAGIC_tied|5.007002|5.003007|p
+PERL_MAGIC_tiedelem|5.007002|5.003007|p
+PERL_MAGIC_tiedscalar|5.007002|5.003007|p
+PERL_MAGIC_TYPE_IS_VALUE_MAGIC|5.015000||Viu
+PERL_MAGIC_TYPE_READONLY_ACCEPTABLE|5.015000||Viu
+PERL_MAGIC_utf8|5.008001|5.003007|p
+PERL_MAGIC_UTF8_CACHESIZE|5.008001||Viu
+PERL_MAGIC_uvar|5.007002|5.003007|p
+PERL_MAGIC_uvar_elem|5.007003|5.003007|p
+PERL_MAGIC_VALUE_MAGIC|5.015000||Viu
+PERL_MAGIC_vec|5.007002|5.003007|p
+PERL_MAGIC_vstring|5.008001|5.003007|p
+PERL_MAGIC_VTABLE_MASK|5.015000||Viu
+PERL_MALLOC_CTL_H|5.027001||Viu
+Perl_malloc_good_size|5.010001||Viu
+PERL_MALLOC_WRAP|5.009002|5.009002|Vn
+PerlMem_calloc|5.006000||Viu
+PerlMem_free|5.005000||Viu
+PerlMem_free_lock|5.006000||Viu
+PerlMem_get_lock|5.006000||Viu
+PerlMem_is_locked|5.006000||Viu
+PerlMem_malloc|5.005000||Viu
+PERL_MEMORY_DEBUG_HEADER_SIZE|5.019009||Viu
+PerlMemParse_calloc|5.006000||Viu
+PerlMemParse_free|5.006000||Viu
+PerlMemParse_free_lock|5.006000||Viu
+PerlMemParse_get_lock|5.006000||Viu
+PerlMemParse_is_locked|5.006000||Viu
+PerlMemParse_malloc|5.006000||Viu
+PerlMemParse_realloc|5.006000||Viu
+PerlMem_realloc|5.005000||Viu
+PerlMemShared_calloc|5.006000||Viu
+PerlMemShared_free|5.006000||Viu
+PerlMemShared_free_lock|5.006000||Viu
+PerlMemShared_get_lock|5.006000||Viu
+PerlMemShared_is_locked|5.006000||Viu
+PerlMemShared_malloc|5.006000||Viu
+PerlMemShared_realloc|5.006000||Viu
+PERL_MG_UFUNC|5.007001||Viu
+Perl_modf|5.006000|5.006000|n
+PERL_MULTICONCAT_HEADER_SIZE|5.027006||Viu
+PERL_MULTICONCAT_IX_LENGTHS|5.027006||Viu
+PERL_MULTICONCAT_IX_NARGS|5.027006||Viu
+PERL_MULTICONCAT_IX_PLAIN_LEN|5.027006||Viu
+PERL_MULTICONCAT_IX_PLAIN_PV|5.027006||Viu
+PERL_MULTICONCAT_IX_UTF8_LEN|5.027006||Viu
+PERL_MULTICONCAT_IX_UTF8_PV|5.027006||Viu
+PERL_MULTICONCAT_MAXARG|5.027006||Viu
+Perl_my_mkostemp|5.027008||Viu
+Perl_my_mkstemp|5.027004||Viu
+PERL_MY_SNPRINTF_GUARDED|5.009004||Viu
+PERL_MY_SNPRINTF_POST_GUARD|5.021002||Viu
+PERL_MY_VSNPRINTF_GUARDED|5.009004||Viu
+PERL_MY_VSNPRINTF_POST_GUARD|5.021002||Viu
+PERL_NO_DEV_RANDOM|5.009004||Viu
+PERL_NON_CORE_CHECK_EMPTY|5.035004||Viu
+PERL_OBJECT_THIS|5.005000||Viu
+PERL_OP_PARENT|5.025001||Viu
+PERL_PADNAME_MINIMAL|5.021007||Viu
+PERL_PADSEQ_INTRO|5.013010||Viu
+perl_parse|5.006000|5.006000|n
+PERL_PATCHLEVEL_H_IMPLICIT|5.006000||Viu
+PERL_PATCHNUM|5.010001||Viu
+PERL_POISON_EXPR|5.019006||Viu
+Perl_pow|5.006000|5.006000|n
+Perl_pp_accept|5.013009||Viu
+Perl_pp_aelemfast_lex|5.015000||Viu
+Perl_pp_andassign|5.013009||Viu
+Perl_pp_avalues|5.013009||Viu
+Perl_pp_bind|5.013009||Viu
+Perl_pp_bit_xor|5.013009||Viu
+Perl_pp_chmod|5.013009||Viu
+Perl_pp_chomp|5.013009||Viu
+Perl_pp_connect|5.013009||Viu
+Perl_pp_cos|5.013009||Viu
+Perl_pp_custom|5.013009||Viu
+Perl_pp_dbmclose|5.013009||Viu
+PERL_PPDEF|5.006000||Viu
+Perl_pp_dofile|5.013009||Viu
+Perl_pp_dor|5.013009||Viu
+Perl_pp_dorassign|5.013009||Viu
+Perl_pp_dump|5.013009||Viu
+Perl_pp_egrent|5.013009||Viu
+Perl_pp_enetent|5.013009||Viu
+Perl_pp_eprotoent|5.013009||Viu
+Perl_pp_epwent|5.013009||Viu
+Perl_pp_eservent|5.013009||Viu
+Perl_pp_exp|5.013009||Viu
+Perl_pp_fcntl|5.013009||Viu
+Perl_pp_ftatime|5.013009||Viu
+Perl_pp_ftbinary|5.013009||Viu
+Perl_pp_ftblk|5.013009||Viu
+Perl_pp_ftchr|5.013009||Viu
+Perl_pp_ftctime|5.013009||Viu
+Perl_pp_ftdir|5.013009||Viu
+Perl_pp_fteexec|5.013009||Viu
+Perl_pp_fteowned|5.013009||Viu
+Perl_pp_fteread|5.013009||Viu
+Perl_pp_ftewrite|5.013009||Viu
+Perl_pp_ftfile|5.013009||Viu
+Perl_pp_ftmtime|5.013009||Viu
+Perl_pp_ftpipe|5.013009||Viu
+Perl_pp_ftrexec|5.013009||Viu
+Perl_pp_ftrwrite|5.013009||Viu
+Perl_pp_ftsgid|5.013009||Viu
+Perl_pp_ftsize|5.013009||Viu
+Perl_pp_ftsock|5.013009||Viu
+Perl_pp_ftsuid|5.013009||Viu
+Perl_pp_ftsvtx|5.013009||Viu
+Perl_pp_ftzero|5.013009||Viu
+Perl_pp_getpeername|5.013009||Viu
+Perl_pp_getsockname|5.013009||Viu
+Perl_pp_ggrgid|5.013009||Viu
+Perl_pp_ggrnam|5.013009||Viu
+Perl_pp_ghbyaddr|5.013009||Viu
+Perl_pp_ghbyname|5.013009||Viu
+Perl_pp_gnbyaddr|5.013009||Viu
+Perl_pp_gnbyname|5.013009||Viu
+Perl_pp_gpbyname|5.013009||Viu
+Perl_pp_gpbynumber|5.013009||Viu
+Perl_pp_gpwnam|5.013009||Viu
+Perl_pp_gpwuid|5.013009||Viu
+Perl_pp_gsbyname|5.013009||Viu
+Perl_pp_gsbyport|5.013009||Viu
+Perl_pp_gsockopt|5.013009||Viu
+Perl_pp_hex|5.013009||Viu
+Perl_pp_i_postdec|5.006000||Viu
+Perl_pp_i_postinc|5.006000||Viu
+Perl_pp_i_predec|5.006000||Viu
+Perl_pp_i_preinc|5.006000||Viu
+Perl_pp_keys|5.013009||Viu
+Perl_pp_kill|5.013009||Viu
+Perl_pp_lcfirst|5.013009||Viu
+Perl_pp_lineseq|5.013009||Viu
+Perl_pp_listen|5.013009||Viu
+Perl_pp_localtime|5.013009||Viu
+Perl_pp_log|5.013009||Viu
+Perl_pp_lstat|5.013009||Viu
+Perl_pp_mapstart|5.013009||Viu
+Perl_pp_msgctl|5.013009||Viu
+Perl_pp_msgget|5.013009||Viu
+Perl_pp_msgrcv|5.013009||Viu
+Perl_pp_msgsnd|5.013009||Viu
+Perl_pp_nbit_xor|5.021009||Viu
+Perl_pp_orassign|5.013009||Viu
+Perl_pp_padany|5.013009||Viu
+Perl_pp_pop|5.013009||Viu
+Perl_pp_read|5.013009||Viu
+Perl_pp_recv|5.013009||Viu
+Perl_pp_regcmaybe|5.013009||Viu
+Perl_pp_rindex|5.013009||Viu
+Perl_pp_rv2hv|5.013009||Viu
+Perl_pp_say|5.013009||Viu
+Perl_pp_sbit_xor|5.021009||Viu
+Perl_pp_scalar|5.013009||Viu
+Perl_pp_schomp|5.013009||Viu
+Perl_pp_scope|5.013009||Viu
+Perl_pp_seek|5.013009||Viu
+Perl_pp_semop|5.013009||Viu
+Perl_pp_send|5.013009||Viu
+Perl_pp_sge|5.013009||Viu
+Perl_pp_sgrent|5.013009||Viu
+Perl_pp_sgt|5.013009||Viu
+Perl_pp_shmctl|5.013009||Viu
+Perl_pp_shmget|5.013009||Viu
+Perl_pp_shmread|5.013009||Viu
+Perl_pp_shutdown|5.013009||Viu
+Perl_pp_slt|5.013009||Viu
+Perl_pp_snetent|5.013009||Viu
+Perl_pp_socket|5.013009||Viu
+Perl_pp_sprotoent|5.013009||Viu
+Perl_pp_spwent|5.013009||Viu
+Perl_pp_sqrt|5.013009||Viu
+Perl_pp_sservent|5.013009||Viu
+Perl_pp_ssockopt|5.013009||Viu
+Perl_pp_symlink|5.013009||Viu
+Perl_pp_transr|5.013009||Viu
+Perl_pp_unlink|5.013009||Viu
+Perl_pp_utime|5.013009||Viu
+Perl_pp_values|5.013009||Viu
+PERL_PRESERVE_IVUV|5.007001||Viu
+PERL_PRIeldbl|5.006001|5.006001|Vn
+PERL_PRIfldbl|5.006000|5.006000|Vn
+PERL_PRIgldbl|5.006000|5.006000|Vn
+PerlProc_abort|5.005000||Viu
+PerlProc_crypt|5.005000||Viu
+PerlProc_DynaLoad|5.006000||Viu
+PerlProc_execl|5.005000||Viu
+PerlProc_execv|5.005000||Viu
+PerlProc_execvp|5.005000||Viu
+PerlProc__exit|5.005000||Viu
+PerlProc_exit|5.005000||Viu
+PerlProc_fork|5.006000||Viu
+PerlProc_getegid|5.005000||Viu
+PerlProc_geteuid|5.005000||Viu
+PerlProc_getgid|5.005000||Viu
+PerlProc_getlogin|5.005000||Viu
+PerlProc_GetOSError|5.006000||Viu
+PerlProc_getpid|5.006000||Viu
+PerlProc_gettimeofday|5.008000||Viu
+PerlProc_getuid|5.005000||Viu
+PerlProc_kill|5.005000||Viu
+PerlProc_killpg|5.005000||Viu
+PerlProc_lasthost|5.007001||Viu
+PerlProc_longjmp|5.005000||Viu
+PerlProc_pause|5.005000||Viu
+PerlProc_pclose|5.005000||Viu
+PerlProc_pipe|5.005000||Viu
+PerlProc_pipe_cloexec|5.027008||Viu
+PerlProc_popen|5.005000||Viu
+PerlProc_popen_list|5.007001||Viu
+PerlProc_setgid|5.005000||Viu
+PerlProc_setjmp|5.005000||Viu
+PerlProc_setuid|5.005000||Viu
+PerlProc_signal|5.005000||Viu
+PerlProc_sleep|5.005000||Viu
+PerlProc_spawnvp|5.008000||Viu
+PerlProc_times|5.005000||Viu
+PerlProc_wait|5.005000||Viu
+PerlProc_waitpid|5.005000||Viu
+perl_pthread_mutex_lock|5.023006||Viu
+perl_pthread_mutex_unlock|5.023006||Viu
+PERL_PV_ESCAPE_ALL|5.009004|5.003007|p
+PERL_PV_ESCAPE_DWIM|5.019008||Viu
+PERL_PV_ESCAPE_DWIM_ALL_HEX|||Viu
+PERL_PV_ESCAPE_FIRSTCHAR|5.009004|5.003007|p
+PERL_PV_ESCAPE_NOBACKSLASH|5.009004|5.003007|p
+PERL_PV_ESCAPE_NOCLEAR|5.009004|5.003007|p
+PERL_PV_ESCAPE_NONASCII|5.013009|5.013009|
+PERL_PV_ESCAPE_QUOTE|5.009004|5.003007|p
+PERL_PV_ESCAPE_RE|5.009005|5.003007|p
+PERL_PV_ESCAPE_UNI|5.009004|5.003007|p
+PERL_PV_ESCAPE_UNI_DETECT|5.009004|5.003007|p
+PERL_PV_PRETTY_DUMP|5.009004||pcV
+PERL_PV_PRETTY_ELLIPSES|5.010000|5.003007|p
+PERL_PV_PRETTY_EXACTSIZE|5.021005||Viu
+PERL_PV_PRETTY_LTGT|5.009004|5.003007|p
+PERL_PV_PRETTY_NOCLEAR|5.010000||pcV
+PERL_PV_PRETTY_QUOTE|5.009004|5.003007|p
+PERL_PV_PRETTY_REGPROP|5.009004||pcV
+PERL_QUAD_MAX|5.003007|5.003007|p
+PERL_QUAD_MIN|5.003007|5.003007|p
+PERL_READ_LOCK|5.033005||Viu
+PERL_READ_UNLOCK|5.033005||Viu
+PERL_REENTR_API|5.009005||Viu
+PERL_REENTR_H|5.027001||Viu
+PERL_REENTR_USING_ASCTIME_R|5.031011||Viu
+PERL_REENTR_USING_CRYPT_R|5.031011||Viu
+PERL_REENTR_USING_CTERMID_R|5.031011||Viu
+PERL_REENTR_USING_CTIME_R|5.031011||Viu
+PERL_REENTR_USING_ENDGRENT_R|5.031011||Viu
+PERL_REENTR_USING_ENDHOSTENT_R|5.031011||Viu
+PERL_REENTR_USING_ENDNETENT_R|5.031011||Viu
+PERL_REENTR_USING_ENDPROTOENT_R|5.031011||Viu
+PERL_REENTR_USING_ENDPWENT_R|5.031011||Viu
+PERL_REENTR_USING_ENDSERVENT_R|5.031011||Viu
+PERL_REENTR_USING_GETGRENT_R|5.031011||Viu
+PERL_REENTR_USING_GETGRGID_R|5.031011||Viu
+PERL_REENTR_USING_GETGRNAM_R|5.031011||Viu
+PERL_REENTR_USING_GETHOSTBYADDR_R|5.031011||Viu
+PERL_REENTR_USING_GETHOSTBYNAME_R|5.031011||Viu
+PERL_REENTR_USING_GETHOSTENT_R|5.031011||Viu
+PERL_REENTR_USING_GETLOGIN_R|5.031011||Viu
+PERL_REENTR_USING_GETNETBYADDR_R|5.031011||Viu
+PERL_REENTR_USING_GETNETBYNAME_R|5.031011||Viu
+PERL_REENTR_USING_GETNETENT_R|5.031011||Viu
+PERL_REENTR_USING_GETPROTOBYNAME_R|5.031011||Viu
+PERL_REENTR_USING_GETPROTOBYNUMBER_R|5.031011||Viu
+PERL_REENTR_USING_GETPROTOENT_R|5.031011||Viu
+PERL_REENTR_USING_GETPWENT_R|5.031011||Viu
+PERL_REENTR_USING_GETPWNAM_R|5.031011||Viu
+PERL_REENTR_USING_GETPWUID_R|5.031011||Viu
+PERL_REENTR_USING_GETSERVBYNAME_R|5.031011||Viu
+PERL_REENTR_USING_GETSERVBYPORT_R|5.031011||Viu
+PERL_REENTR_USING_GETSERVENT_R|5.031011||Viu
+PERL_REENTR_USING_GETSPNAM_R|5.031011||Viu
+PERL_REENTR_USING_GMTIME_R|5.031011||Viu
+PERL_REENTR_USING_LOCALTIME_R|5.031011||Viu
+PERL_REENTR_USING_READDIR64_R|5.031011||Viu
+PERL_REENTR_USING_READDIR_R|5.031011||Viu
+PERL_REENTR_USING_SETGRENT_R|5.031011||Viu
+PERL_REENTR_USING_SETHOSTENT_R|5.031011||Viu
+PERL_REENTR_USING_SETLOCALE_R|5.031011||Viu
+PERL_REENTR_USING_SETNETENT_R|5.031011||Viu
+PERL_REENTR_USING_SETPROTOENT_R|5.031011||Viu
+PERL_REENTR_USING_SETPWENT_R|5.031011||Viu
+PERL_REENTR_USING_SETSERVENT_R|5.031011||Viu
+PERL_REENTR_USING_STRERROR_R|5.031011||Viu
+PERL_REENTR_USING_TMPNAM_R|5.031011||Viu
+PERL_REENTR_USING_TTYNAME_R|5.031011||Viu
+PERL_REGCHARCLASS_H|5.027001||Viu
+PERL_REGCOMP_H|5.029006||Viu
+PERL_REGMATCH_SLAB_SLOTS|5.009004||Viu
+PERL_RELOCATABLE_INC|5.017002|5.017002|Vn
+PERL_REVISION|5.006000|5.006000|d
+perl_run|5.003007|5.003007|n
+PERL_RW_MUTEX_DESTROY|5.033005||Viu
+PERL_RW_MUTEX_INIT|5.033005||Viu
+Perl_safesysmalloc_size|5.010001||Viu
+PERL_SAWAMPERSAND|5.017010||Viu
+PERL_SCAN_ALLOW_MEDIAL_UNDERSCORES|5.031009||Viu
+PERL_SCAN_ALLOW_UNDERSCORES|5.007003|5.003007|p
+PERL_SCAN_DISALLOW_PREFIX|5.007003|5.003007|p
+PERL_SCAN_GREATER_THAN_UV_MAX|5.007003|5.003007|p
+PERL_SCAN_NOTIFY_ILLDIGIT|5.031008||Viu
+PERL_SCAN_SILENT_ILLDIGIT|5.008001|5.003007|p
+PERL_SCAN_SILENT_NON_PORTABLE|5.015001||Viu
+PERL_SCAN_SILENT_OVERFLOW|5.031009||Viu
+PERL_SCAN_TRAILING|5.021002|5.021002|
+PERL_SCNfldbl|5.006001|5.006001|Vn
+PERL_SCRIPT_MODE|5.004005||Viu
+PERL_SEEN_HV_FUNC_H|5.017010||Viu
+PERL_SEEN_HV_MACRO_H|5.027001||Viu
+PERL_SET_CONTEXT|5.006000||Viu
+PERL_SET_INTERP|5.006000||Viu
+Perl_setlocale|5.027002|5.027002|n
+PERL_SET_PHASE|5.015001||Viu
+PERL_SET_THX|5.006000||Viu
+Perl_sharepvn|5.006000||Viu
+PERL_SHORT_MAX|5.003007|5.003007|p
+PERL_SHORT_MIN|5.003007|5.003007|p
+PERLSI_DESTROY|5.005000||Viu
+PERLSI_DIEHOOK|5.005000||Viu
+PERL_SIGNALS_UNSAFE_FLAG|5.008001|5.003007|p
+Perl_signbit|5.009005|5.009005|xn
+PERLSI_MAGIC|5.005000||Viu
+PERLSI_MAIN|5.005000||Viu
+PERLSI_MULTICALL|5.023000||Viu
+Perl_sin|5.006000|5.006000|n
+Perl_sinh|5.021004|5.021004|n
+PerlSIO_canset_cnt|5.007001||Viu
+PerlSIO_clearerr|5.007001||Viu
+PerlSIO_fast_gets|5.007001||Viu
+PerlSIO_fclose|5.007001||Viu
+PerlSIO_fdopen|5.007001||Viu
+PerlSIO_fdupopen|5.007001||Viu
+PerlSIO_feof|5.007001||Viu
+PerlSIO_ferror|5.007001||Viu
+PerlSIO_fflush|5.007001||Viu
+PerlSIO_fgetc|5.007001||Viu
+PerlSIO_fgetpos|5.007001||Viu
+PerlSIO_fgets|5.007001||Viu
+PerlSIO_fileno|5.007001||Viu
+PerlSIO_fopen|5.007001||Viu
+PerlSIO_fputc|5.007001||Viu
+PerlSIO_fputs|5.007001||Viu
+PerlSIO_fread|5.007001||Viu
+PerlSIO_freopen|5.007001||Viu
+PerlSIO_fseek|5.007001||Viu
+PerlSIO_fsetpos|5.007001||Viu
+PerlSIO_ftell|5.007001||Viu
+PerlSIO_fwrite|5.007001||Viu
+PerlSIO_get_base|5.007001||Viu
+PerlSIO_get_bufsiz|5.007001||Viu
+PerlSIO_get_cnt|5.007001||Viu
+PerlSIO_get_ptr|5.007001||Viu
+PerlSIO_has_base|5.007001||Viu
+PerlSIO_has_cntptr|5.007001||Viu
+PerlSIO_init|5.007001||Viu
+PerlSIO_printf|5.007001||Viu
+PerlSIO_rewind|5.007001||Viu
+PerlSIO_setbuf|5.007001||Viu
+PerlSIO_set_cnt|5.007001||Viu
+PerlSIO_setlinebuf|5.007001||Viu
+PerlSIO_set_ptr|5.007001||Viu
+PerlSIO_setvbuf|5.007001||Viu
+PerlSIO_stderr|5.007001||Viu
+PerlSIO_stdin|5.007001||Viu
+PerlSIO_stdout|5.007001||Viu
+PerlSIO_stdoutf|5.007001||Viu
+PerlSIO_tmpfile|5.007001||Viu
+PerlSIO_ungetc|5.007001||Viu
+PERLSI_OVERLOAD|5.005000||Viu
+PerlSIO_vprintf|5.007001||Viu
+PERL_SIPHASH_FNC|5.025008||Viu
+PERLSI_REGCOMP|5.031011||Viu
+PERLSI_REQUIRE|5.005000||Viu
+PERLSI_SIGNAL|5.005000||Viu
+PERLSI_SORT|5.005000||Viu
+PERLSI_UNDEF|5.005000||Viu
+PERLSI_UNKNOWN|5.005000||Viu
+PERLSI_WARNHOOK|5.005000||Viu
+PERL_SNPRINTF_CHECK|5.021002||Viu
+PerlSock_accept|5.005000||Viu
+PerlSock_accept_cloexec|5.027008||Viu
+PerlSock_bind|5.005000||Viu
+PerlSock_closesocket|5.006000||Viu
+PerlSock_connect|5.005000||Viu
+PerlSock_endhostent|5.005000||Viu
+PerlSock_endnetent|5.005000||Viu
+PerlSock_endprotoent|5.005000||Viu
+PerlSock_endservent|5.005000||Viu
+PerlSock_gethostbyaddr|5.005000||Viu
+PerlSock_gethostbyname|5.005000||Viu
+PerlSock_gethostent|5.005000||Viu
+PerlSock_gethostname|5.005000||Viu
+PerlSock_getnetbyaddr|5.005000||Viu
+PerlSock_getnetbyname|5.005000||Viu
+PerlSock_getnetent|5.005000||Viu
+PerlSock_getpeername|5.005000||Viu
+PerlSock_getprotobyname|5.005000||Viu
+PerlSock_getprotobynumber|5.005000||Viu
+PerlSock_getprotoent|5.005000||Viu
+PerlSock_getservbyname|5.005000||Viu
+PerlSock_getservbyport|5.005000||Viu
+PerlSock_getservent|5.005000||Viu
+PerlSock_getsockname|5.005000||Viu
+PerlSock_getsockopt|5.005000||Viu
+PerlSock_htonl|5.005000||Viu
+PerlSock_htons|5.005000||Viu
+PerlSock_inet_addr|5.005000||Viu
+PerlSock_inet_ntoa|5.005000||Viu
+PerlSock_listen|5.005000||Viu
+PerlSock_ntohl|5.005000||Viu
+PerlSock_ntohs|5.005000||Viu
+PerlSock_recv|5.005000||Viu
+PerlSock_recvfrom|5.005000||Viu
+PerlSock_select|5.005000||Viu
+PerlSock_send|5.005000||Viu
+PerlSock_sendto|5.005000||Viu
+PerlSock_sethostent|5.005000||Viu
+PerlSock_setnetent|5.005000||Viu
+PerlSock_setprotoent|5.005000||Viu
+PerlSock_setservent|5.005000||Viu
+PerlSock_setsockopt|5.005000||Viu
+PerlSock_shutdown|5.005000||Viu
+PERL_SOCKS_NEED_PROTOTYPES|5.007001||Viu
+PerlSock_socket|5.005000||Viu
+PerlSock_socket_cloexec|5.027008||Viu
+PerlSock_socketpair|5.005000||Viu
+PerlSock_socketpair_cloexec|5.027008||Viu
+Perl_sqrt|5.006000|5.006000|n
+PERL_STACK_OVERFLOW_CHECK|5.006000||Viu
+PERL_STATIC_FORCE_INLINE|5.031011||Viu
+PERL_STATIC_FORCE_INLINE_NO_RET|5.031011||Viu
+PERL_STATIC_INLINE|5.013004|5.013004|poVn
+PERL_STATIC_INLINE_NO_RET|5.017005||Viu
+PERL_STATIC_NO_RET|5.017005||Viu
+PERL_STRLEN_EXPAND_SHIFT|5.013004||Viu
+PERL_STRLEN_ROUNDUP|5.009003||Viu
+PERL_STRLEN_ROUNDUP_QUANTUM|5.009003||Viu
+Perl_strtod|5.021004||Viu
+PERL_SUB_DEPTH_WARN|5.010001||Viu
+PERL_SUBVERSION|5.006000|5.003007|d
+PERL_SYS_FPU_INIT|5.021005||Viu
+PERL_SYS_INIT3|5.006000|5.006000|
+PERL_SYS_INIT3_BODY|5.010000||Viu
+PERL_SYS_INIT|5.003007|5.003007|
+PERL_SYS_INIT_BODY|5.010000||Viu
+PERL_SYS_TERM|5.003007|5.003007|
+PERL_SYS_TERM_BODY|5.010000||Viu
+Perl_tan|5.021004|5.021004|n
+Perl_tanh|5.021004|5.021004|n
+PERL_TARGETARCH|5.007002|5.007002|Vn
+PERL_THREAD_LOCAL|5.035004|5.035004|Vn
+PERL_TIME64_CONFIG_H|5.027001||Viu
+PERL_TIME64_H|5.027001||Viu
+PERL_TRACK_MEMPOOL|5.009003||Viu
+PERL_TSA|5.023006||Viu
+PERL_TSA_ACQUIRE|5.023006||Viu
+PERL_TSA_ACTIVE|5.023006||Viu
+PERL_TSA_CAPABILITY|5.023006||Viu
+PERL_TSA_EXCLUDES|5.023006||Viu
+PERL_TSA_GUARDED_BY|5.023006||Viu
+PERL_TSA_NO_TSA|5.023006||Viu
+PERL_TSA_PT_GUARDED_BY|5.023006||Viu
+PERL_TSA_RELEASE|5.023006||Viu
+PERL_TSA_REQUIRES|5.023006||Viu
+PERL_UCHAR_MAX|5.003007|5.003007|p
+PERL_UCHAR_MIN|5.003007|5.003007|p
+PERL_UINT_MAX|5.003007|5.003007|p
+PERL_UINT_MIN|5.003007|5.003007|p
+PERL_ULONG_MAX|5.003007|5.003007|p
+PERL_ULONG_MIN|5.003007|5.003007|p
+PERL_UNICODE_ALL_FLAGS|5.008001||Viu
+PERL_UNICODE_ARGV|5.008001||Viu
+PERL_UNICODE_ARGV_FLAG|5.008001||Viu
+PERL_UNICODE_CONSTANTS_H|5.027001||Viu
+PERL_UNICODE_DEFAULT_FLAGS|5.008001||Viu
+PERL_UNICODE_IN|5.008001||Viu
+PERL_UNICODE_IN_FLAG|5.008001||Viu
+PERL_UNICODE_INOUT|5.008001||Viu
+PERL_UNICODE_INOUT_FLAG|5.008001||Viu
+PERL_UNICODE_LOCALE|5.008001||Viu
+PERL_UNICODE_LOCALE_FLAG|5.008001||Viu
+PERL_UNICODE_MAX|5.007003||Viu
+PERL_UNICODE_OUT|5.008001||Viu
+PERL_UNICODE_OUT_FLAG|5.008001||Viu
+PERL_UNICODE_STD|5.008001||Viu
+PERL_UNICODE_STDERR|5.008001||Viu
+PERL_UNICODE_STDERR_FLAG|5.008001||Viu
+PERL_UNICODE_STD_FLAG|5.008001||Viu
+PERL_UNICODE_STDIN|5.008001||Viu
+PERL_UNICODE_STDIN_FLAG|5.008001||Viu
+PERL_UNICODE_STDOUT|5.008001||Viu
+PERL_UNICODE_STDOUT_FLAG|5.008001||Viu
+PERL_UNICODE_UTF8CACHEASSERT|5.009004||Viu
+PERL_UNICODE_UTF8CACHEASSERT_FLAG|5.009004||Viu
+PERL_UNICODE_WIDESYSCALLS|5.008001||Viu
+PERL_UNICODE_WIDESYSCALLS_FLAG|5.008001||Viu
+PERL_UNLOCK_HOOK|5.009004||Viu
+PERL_UNUSED_ARG|5.009003|5.003007|p
+PERL_UNUSED_CONTEXT|5.009004|5.003007|p
+PERL_UNUSED_DECL|5.007002|5.003007|p
+PERL_UNUSED_RESULT|5.021001|5.003007|p
+PERL_UNUSED_VAR|5.007002|5.003007|p
+PERL_UQUAD_MAX|5.003007|5.003007|p
+PERL_UQUAD_MIN|5.003007|5.003007|p
+PERL_USE_DEVEL|5.010001|5.010001|Vn
+PERL_USE_GCC_BRACE_GROUPS|5.009004|5.003007|pV
+PERL_USES_PL_PIDSTATUS|5.009003||Viu
+PERL_USE_THREAD_LOCAL|5.035004||Viu
+PERL_USHORT_MAX|5.003007|5.003007|p
+PERL_USHORT_MIN|5.003007|5.003007|p
+PERL_UTF8_H|5.027001||Viu
+PERL_UTIL_H|5.025012||Viu
+Perl_va_copy|5.007001||Viu
+PERLVAR|5.005000||Viu
+PERLVARA|5.006000||Viu
+PERLVARI|5.005000||Viu
+PERL_VARIANTS_WORD_MASK|5.027007||Viu
+PERLVARIC|5.005000||Viu
+PERL_VERSION|5.006000|5.003007|d
+PERL_VERSION_EQ|5.033001||p
+PERL_VERSION_GE|5.033001|5.003007|p
+PERL_VERSION_GT|5.033001|5.003007|p
+PERL_VERSION_LE|5.033001|5.003007|p
+PERL_VERSION_LT|5.033001|5.003007|p
+PERL_VERSION_MAJOR|5.033001||Viu
+PERL_VERSION_MINOR|5.033001||Viu
+PERL_VERSION_NE|5.033001||p
+PERL_VERSION_PATCH|5.033001||Viu
+PERL_VERSION_STRING|5.010001||Viu
+PERL_WAIT_FOR_CHILDREN|5.006000||Viu
+Perl_Warn_Bit|5.033003||Viu
+Perl_warner_nocontext||5.004000|ponu
+PERL_WARNHOOK_FATAL|5.009004||Viu
+Perl_Warn_Off|5.033003||Viu
+PERL_WORD_BOUNDARY_MASK|5.027007||Viu
+PERL_WORDSIZE|5.027007||Viu
+PERL_WRITE_LOCK|5.033005||Viu
+PERL_WRITE_MSG_TO_CONSOLE|5.007003||Viu
+PERL_WRITE_UNLOCK|5.033005||Viu
+PERL_XSUB_H|5.027001||Viu
+perly_sighandler|5.031007||cVnu
+phase_name|5.035007|5.035007|
+PHOSTNAME|5.006000|5.006000|Vn
+pidgone|5.003007||Viu
+Pid_t|5.005000|5.005000|Vn
+pipe|5.005000||Viu
+PIPE_OPEN_MODE|5.008002||Viu
+PIPESOCK_MODE|5.008001||Viu
+PL_AboveLatin1|5.015008||Viu
+PL_amagic_generation|5.005000||Viu
+PL_an|5.005000||Viu
+PL_argvgv|5.005000||Viu
+PL_argvoutgv|5.005000||Viu
+PL_argvout_stack|5.006000||Viu
+PL_Assigned_invlist|5.025009||Viu
+PL_basetime|5.005000||Viu
+PL_beginav|5.005000||Viu
+PL_beginav_save|5.006001||Viu
+PL_blockhooks|5.013003||Viu
+PL_body_arenas|5.009004||Viu
+PL_body_roots|5.009003||Viu
+PL_bodytarget|5.005000||Viu
+PL_breakable_sub_gen|5.010001||Viu
+PL_bufend||5.003007|ponu
+PL_bufptr||5.003007|ponu
+PL_CCC_non0_non230|5.029008||Viu
+PL_check|5.009003|5.006000|
+PL_checkav|5.006000||Viu
+PL_checkav_save|5.008001||Viu
+PL_chopset|5.005000||Viu
+PL_clocktick|5.008001||Viu
+PL_collation_ix|5.005000||Viu
+PL_collation_name|5.005000||Viu
+PL_collation_standard|5.005000||Viu
+PL_collxfrm_base|5.005000||Viu
+PL_collxfrm_mult|5.005000||Viu
+PL_colors|5.005000||Viu
+PL_colorset|5.005000||Viu
+PL_compcv|5.005000||Viu
+PL_compiling|5.005000|5.003007|poVnu
+PL_comppad|5.008001|5.008001|x
+PL_comppad_name|5.017004|5.017004|x
+PL_comppad_name_fill|5.005000||Viu
+PL_comppad_name_floor|5.005000||Viu
+PL_constpadix|5.021004||Viu
+PL_copline||5.003007|ponu
+PL_cop_seqmax|5.005000||Viu
+PL_cshlen|5.005000||Viu
+PL_curcop|5.004005|5.003007|p
+PL_curcopdb|5.005000||Viu
+PL_curlocales|5.027009||Viu
+PL_curpad|5.005000|5.005000|x
+PL_curpm|5.005000||Viu
+PL_curpm_under|5.025007||Viu
+PL_curstack|5.005000||Viu
+PL_curstackinfo|5.005000||Viu
+PL_curstash|5.004005|5.003007|p
+PL_curstname|5.005000||Viu
+PL_custom_op_descs|5.007003||Viu
+PL_custom_op_names|5.007003||Viu
+PL_custom_ops|5.013007||Viu
+PL_cv_has_eval|5.009000||Viu
+PL_dbargs|5.005000||Viu
+PL_DBcontrol|5.021005||Viu
+PL_DBcv|5.005000||Viu
+PL_DBgv|5.005000||Viu
+PL_DBline|5.005000||Viu
+PL_DBsignal|5.005000|5.003007|poVnu
+PL_DBsignal_iv|5.021005||Viu
+PL_DBsingle|5.005000||pV
+PL_DBsingle_iv|5.021005||Viu
+PL_DBsub|5.005000||pV
+PL_DBtrace|5.005000||pV
+PL_DBtrace_iv|5.021005||Viu
+PL_debstash|5.005000|5.003007|poVnu
+PL_debug|5.005000||Viu
+PL_debug_pad|5.007003||Viu
+PL_defgv|5.004005|5.003007|p
+PL_def_layerlist|5.007003||Viu
+PL_defoutgv|5.005000||Viu
+PL_defstash|5.005000||Viu
+PL_delaymagic|5.005000||Viu
+PL_delaymagic_egid|5.015008||Viu
+PL_delaymagic_euid|5.015008||Viu
+PL_delaymagic_gid|5.015008||Viu
+PL_delaymagic_uid|5.015008||Viu
+PL_destroyhook|5.010000||Viu
+PL_diehook|5.005000|5.003007|poVnu
+PL_Dir|5.006000||Viu
+PL_dirty|5.005000|5.003007|poVnu
+PL_doswitches|5.005000||Viu
+PL_dowarn|5.005000||pV
+PL_dumper_fd|5.009003||Viu
+PL_dumpindent|5.006000||Viu
+PL_dump_re_max_len|5.023008||Viu
+PL_efloatbuf|5.006000||Viu
+PL_efloatsize|5.006000||Viu
+PL_E_FORMAT_PRECISION|5.029000||Viu
+PL_encoding|5.007003||Viu
+PL_endav|5.005000||Viu
+PL_Env|5.006000||Viu
+PL_envgv|5.005000||Viu
+PL_errgv|5.004005|5.003007|p
+PL_error_count||5.003007|ponu
+PL_errors|5.006000||Viu
+PL_e_script|5.005000||Viu
+PL_eval_root|5.005000||Viu
+PL_evalseq|5.005000||Viu
+PL_eval_start|5.005000||Viu
+PL_exit_flags|5.006000|5.006000|
+PL_exitlist|5.005000||Viu
+PL_exitlistlen|5.005000||Viu
+PL_expect||5.003007|ponu
+PL_fdpid|5.005000||Viu
+PL_filemode|5.005000||Viu
+PL_firstgv|5.005000||Viu
+PL_forkprocess|5.005000||Viu
+PL_formtarget|5.005000||Viu
+PL_GCB_invlist|5.021009||Viu
+PL_generation|5.005000||Viu
+PL_gensym|5.005000||Viu
+PL_globalstash|5.005000||Viu
+PL_globhook|5.015005||Viu
+PL_hash_rand_bits|5.017010||Viu
+PL_HASH_RAND_BITS_ENABLED|5.018000||Viu
+PL_hash_rand_bits_enabled|5.018000||Viu
+PL_hash_seed|5.033007||Viu
+PL_hash_state|5.033007||Viu
+PL_HasMultiCharFold|5.017005||Viu
+PL_hexdigit||5.003007|pn
+PL_hintgv|5.005000||Viu
+PL_hints|5.005000|5.003007|poVnu
+PL_hv_fetch_ent_mh|5.005000||Viu
+PL_incgv|5.005000||Viu
+PL_in_clean_all|5.005000||Viu
+PL_in_clean_objs|5.005000||Viu
+PL_in_eval|5.005000||Viu
+PL_initav|5.005000||Viu
+PL_in_load_module|5.008001||Viu
+PL_in_my||5.003007|ponu
+PL_in_my_stash||5.005000|ponu
+PL_inplace|5.005000||Viu
+PL_in_some_fold|5.029007||Viu
+PL_internal_random_state|5.027004||Viu
+PL_in_utf8_COLLATE_locale|5.025002||Viu
+PL_in_utf8_CTYPE_locale|5.019009||Viu
+PL_in_utf8_turkic_locale|5.029008||Viu
+PL_isarev|5.009005||Viu
+PL_keyword_plugin|5.011002|5.011002|x
+PL_known_layers|5.007003||Viu
+PL_langinfo_buf|5.027004||Viu
+PL_langinfo_bufsize|5.027004||Viu
+PL_lastfd|5.005000||Viu
+PL_lastgotoprobe|5.005000||Viu
+PL_last_in_gv|5.005000||Vi
+PL_laststatval|5.005000|5.003007|poVnu
+PL_laststype|5.005000||Viu
+PL_Latin1|5.015008||Viu
+PL_LB_invlist|5.023007||Viu
+PL_lc_numeric_mutex_depth|5.027009||Viu
+PL_lex_state||5.003007|ponu
+PL_lex_stuff||5.003007|ponu
+PL_linestr||5.003007|ponu
+PL_LIO|5.006000||Viu
+PL_locale_utf8ness|5.027009||Viu
+PL_localizing|5.005000||Viu
+PL_localpatches|5.005000||Viu
+PL_lockhook|5.007003||Viu
+PL_main_cv|5.005000||Viu
+PL_main_root|5.005000||Viu
+PL_mainstack|5.005000||Viu
+PL_main_start|5.005000||Viu
+PL_markstack|5.005000||Viu
+PL_markstack_max|5.005000||Viu
+PL_markstack_ptr|5.005000||Viu
+PL_max_intro_pending|5.005000||Viu
+PL_maxo|5.005000||Viu
+PL_maxsysfd|5.005000|5.005000|
+PL_mbrlen_ps|5.031010||Viu
+PL_mbrtowc_ps|5.031010||Viu
+PL_Mem|5.006000||Viu
+PL_mem_log|5.033005||Viu
+PL_memory_debug_header|5.009004||Viu
+PL_MemParse|5.006000||Viu
+PL_MemShared|5.006000||Viu
+PL_mess_sv|5.005000|5.004000|poVnu
+PL_min_intro_pending|5.005000||Viu
+PL_minus_a|5.005000||Viu
+PL_minus_c|5.005000||Viu
+PL_minus_E|5.009003||Viu
+PL_minus_F|5.005000||Viu
+PL_minus_l|5.005000||Viu
+PL_minus_n|5.005000||Viu
+PL_minus_p|5.005000||Viu
+PL_modcount|5.005000||Viu
+PL_modglobal|5.005000|5.005000|
+PL_multideref_pc|5.021007||Viu
+PL_my_cxt_list|5.009003||Viu
+PL_my_cxt_size|5.009003||Viu
+PL_na|5.004005|5.003007|p
+PL_nomemok|5.005000||Viu
+PL_no_modify||5.003007|ponu
+PL_numeric_name|5.005000||Viu
+PL_numeric_radix_sv|5.007002||Viu
+PL_numeric_standard|5.005000||Viu
+PL_numeric_underlying|5.027006||Viu
+PL_numeric_underlying_is_standard|5.027009||Viu
+PL_ofsgv|5.011000||Vi
+PL_oldname|5.005000||Viu
+PL_op|5.005000||Viu
+PL_op_exec_cnt|5.019002||Viu
+PL_opfreehook|5.011000|5.011000|
+PL_op_mask|5.005000||Viu
+PL_origalen|5.005000||Viu
+PL_origargc|5.005000||Viu
+PL_origargv|5.005000||Viu
+PL_origenviron|5.005000||Viu
+PL_origfilename|5.005000||Viu
+PL_ors_sv|5.007001||Viu
+PL_osname|5.005000||Viu
+PL_padix|5.005000||Viu
+PL_padix_floor|5.005000||Viu
+PL_padlist_generation|5.021007||Viu
+PL_padname_const|5.021007||Viu
+PL_padname_undef|5.021007||Viu
+PL_pad_reset_pending|5.005000||Viu
+PL_parser|5.009005|5.003007|p
+PL_patchlevel|5.005000||Viu
+PL_peepp|5.007003|5.007003|
+PL_perldb|5.005000|5.003007|poVnu
+PL_perl_destruct_level|5.004005|5.003007|p
+PL_perlio|5.007003||Viu
+PL_phase|5.013007|5.013007|
+PL_pidstatus|5.005000||Viu
+PL_Posix_ptrs|5.029000||Viu
+PL_ppaddr||5.003007|ponu
+PL_preambleav|5.005000||Viu
+PL_prevailing_version|5.035009||Viu
+PL_Private_Use|5.029009||Viu
+PL_Proc|5.006000||Viu
+PL_profiledata|5.005000||Viu
+PL_psig_name|5.006000||Viu
+PL_psig_pend|5.007001||Viu
+PL_psig_ptr|5.006000||Viu
+PL_ptr_table|5.006000||Viu
+PL_random_state|5.019004||Viu
+PL_RANDOM_STATE_TYPE|5.019004||Viu
+PL_reentrant_buffer|5.007002||Viu
+PL_reentrant_retint|5.008001||Viu
+PL_reg_curpm|5.006000||Viu
+PL_regex_pad|5.007002||Viu
+PL_regex_padav|5.007002||Viu
+PL_registered_mros|5.010001||Viu
+PL_regmatch_slab|5.009004||Viu
+PL_regmatch_state|5.009004||Viu
+PL_replgv|5.005000||Viu
+PL_restartjmpenv|5.013001||Viu
+PL_restartop|5.005000|5.005000|
+PL_rpeepp|5.013005|5.013005|
+PL_rs|5.005000||Vi
+PL_rsfp||5.003007|ponu
+PL_rsfp_filters||5.003007|ponu
+PL_runops|5.006000|5.006000|
+PL_savebegin|5.007003||Viu
+PL_savestack|5.005000||Viu
+PL_savestack_ix|5.005000||Viu
+PL_savestack_max|5.005000||Viu
+PL_sawampersand|5.005000||Viu
+PL_SB_invlist|5.021009||Viu
+PL_scopestack|5.005000||Viu
+PL_scopestack_ix|5.005000||Viu
+PL_scopestack_max|5.005000||Viu
+PL_scopestack_name|5.011002||Viu
+PL_SCX_invlist|5.027008||Viu
+PL_secondgv|5.005000||Viu
+PL_setlocale_buf|5.027009||Viu
+PL_setlocale_bufsize|5.027009||Viu
+PL_sharehook|5.007003||Viu
+PL_sighandler1p|5.031007||Viu
+PL_sighandler3p|5.031007||Viu
+PL_sighandlerp|5.005000||Viu
+PL_signalhook|5.013002||Viu
+PL_signals|5.008001|5.003007|poVnu
+PL_sig_pending|5.007001||Viu
+PL_Sock|5.006000||Viu
+PL_sortcop|5.005000||Viu
+PL_sortstash|5.005000||Viu
+PL_splitstr|5.005000||Viu
+PL_srand_called|5.006000||Viu
+PL_stack_base|5.005000|5.003007|poVnu
+PL_stack_max|5.005000||Viu
+PL_stack_sp|5.005000|5.003007|poVnu
+PL_start_env|5.005000||Viu
+PL_stashcache|5.008001||Viu
+PL_stashpad|5.017001||Viu
+PL_stashpadix|5.017001||Viu
+PL_stashpadmax|5.017001||Viu
+PL_statcache|5.005000|5.003007|poVnu
+PL_statgv|5.005000||Viu
+PL_statname|5.005000||Viu
+PL_statusvalue|5.005000||Viu
+PL_statusvalue_posix|5.009003||Viu
+PL_statusvalue_vms|5.005000||Viu
+PL_stderrgv|5.006000||Viu
+PL_stdingv|5.005000|5.003007|poVnu
+PL_StdIO|5.006000||Viu
+PL_strtab|5.005000||Viu
+PL_strxfrm_is_behaved|5.025002||Viu
+PL_strxfrm_max_cp|5.025002||Viu
+PL_strxfrm_NUL_replacement|5.025008||Viu
+PL_sub_generation|5.005000||Viu
+PL_subline|5.005000||Viu
+PL_subname|5.005000||Viu
+PL_Sv|5.005000||pcV
+PL_sv_arenaroot|5.005000|5.003007|poVnu
+PL_sv_consts|5.019002||Viu
+PL_sv_count|5.005000||Viu
+PL_sv_immortals|5.027003||Viu
+PL_sv_no|5.004005|5.003007|p
+PL_sv_root|5.005000||Viu
+PL_sv_serial|5.010001||Viu
+PL_sv_undef|5.004005|5.003007|p
+PL_sv_yes|5.004005|5.003007|p
+PL_sv_zero|5.027003|5.027003|
+PL_sys_intern|5.005000||Viu
+PL_tainted|5.005000|5.003007|poVnu
+PL_tainting|5.005000|5.003007|poVnu
+PL_taint_warn|5.007003||Viu
+PL_threadhook|5.008000||Viu
+PL_tmps_floor|5.005000||Viu
+PL_tmps_ix|5.005000||Viu
+PL_tmps_max|5.005000||Viu
+PL_tmps_stack|5.005000||Viu
+PL_tokenbuf||5.003007|ponu
+PL_top_env|5.005000||Viu
+PL_toptarget|5.005000||Viu
+PL_TR_SPECIAL_HANDLING_UTF8|5.031006||Viu
+PL_underlying_numeric_obj|5.027009||Viu
+PL_unicode|5.008001||Viu
+PL_unitcheckav|5.009005||Viu
+PL_unitcheckav_save|5.009005||Viu
+PL_unlockhook|5.007003||Viu
+PL_unsafe|5.005000||Viu
+PL_UpperLatin1|5.019005||Viu
+PLUS|5.003007||Viu
+PLUS_t8|5.035004||Viu
+PLUS_t8_p8|5.033003||Viu
+PLUS_t8_pb|5.033003||Viu
+PLUS_tb|5.035004||Viu
+PLUS_tb_p8|5.033003||Viu
+PLUS_tb_pb|5.033003||Viu
+PL_utf8cache|5.009004||Viu
+PL_utf8_charname_begin|5.017006||Viu
+PL_utf8_charname_continue|5.017006||Viu
+PL_utf8_foldclosures|5.013007||Viu
+PL_utf8_idcont|5.008000||Viu
+PL_utf8_idstart|5.008000||Viu
+PL_utf8locale|5.008001||Viu
+PL_utf8_mark|5.006000||Viu
+PL_utf8_perl_idcont|5.017008||Viu
+PL_utf8_perl_idstart|5.015004||Viu
+PL_utf8_tofold|5.007003||Viu
+PL_utf8_tolower|5.006000||Viu
+PL_utf8_tosimplefold|5.027011||Viu
+PL_utf8_totitle|5.006000||Viu
+PL_utf8_toupper|5.006000||Viu
+PL_utf8_xidcont|5.013010||Viu
+PL_utf8_xidstart|5.013010||Viu
+PL_vtbl_arylen|5.015000||Viu
+PL_vtbl_arylen_p|5.015000||Viu
+PL_vtbl_backref|5.015000||Viu
+PL_vtbl_bm|5.015000||Viu
+PL_vtbl_checkcall|5.017000||Viu
+PL_vtbl_collxfrm|5.015000||Viu
+PL_vtbl_dbline|5.015000||Viu
+PL_vtbl_debugvar|5.021005||Viu
+PL_vtbl_defelem|5.015000||Viu
+PL_vtbl_env|5.015000||Viu
+PL_vtbl_envelem|5.015000||Viu
+PL_vtbl_fm|5.015000||Viu
+PL_vtbl_hints|5.015000||Viu
+PL_vtbl_hintselem|5.015000||Viu
+PL_vtbl_isa|5.015000||Viu
+PL_vtbl_isaelem|5.015000||Viu
+PL_vtbl_lvref|5.021005||Viu
+PL_vtbl_mglob|5.015000||Viu
+PL_vtbl_nkeys|5.015000||Viu
+PL_vtbl_nonelem|5.027009||Viu
+PL_vtbl_ovrld|5.015000||Viu
+PL_vtbl_pack|5.015000||Viu
+PL_vtbl_packelem|5.015000||Viu
+PL_vtbl_pos|5.015000||Viu
+PL_vtbl_regdata|5.015000||Viu
+PL_vtbl_regdatum|5.015000||Viu
+PL_vtbl_regexp|5.015000||Viu
+PL_vtbl_sig|5.035001||Viu
+PL_vtbl_sigelem|5.015000||Viu
+PL_vtbl_substr|5.015000||Viu
+PL_vtbl_sv|5.015000||Viu
+PL_vtbl_taint|5.015000||Viu
+PL_vtbl_utf8|5.015000||Viu
+PL_vtbl_uvar|5.015000||Viu
+PL_vtbl_vec|5.015000||Viu
+PL_warnhook|5.005000||Viu
+PL_warn_locale|5.021008||Viu
+PL_watchaddr|5.006000||Viu
+PL_watchok|5.006000||Viu
+PL_WB_invlist|5.021009||Viu
+PL_wcrtomb_ps|5.031010||Viu
+PL_XPosix_ptrs|5.017008||Viu
+PL_Xpv|5.005000|5.003007|poVnu
+PL_xsubfilename|5.021006||Viu
+pm_description|5.009004||Viu
+PMf_BASE_SHIFT|5.013004||Viu
+PMf_CHARSET|5.017011||Viu
+PMf_CODELIST_PRIVATE|5.017001||Viu
+PMf_CONST|5.003007||Viu
+PMf_CONTINUE|5.004000||Viu
+PMf_EVAL|5.003007||Viu
+PMf_EXTENDED|5.003007||Viu
+PMf_EXTENDED_MORE|5.021005||Viu
+PMf_FOLD|5.003007||Viu
+PMf_GLOBAL|5.003007||Viu
+PMf_HAS_CV|5.017001||Viu
+PMf_HAS_ERROR|5.025010||Viu
+PMf_IS_QR|5.017001||Viu
+PMf_KEEP|5.003007||Viu
+PMf_KEEPCOPY|5.009005||Viu
+PMf_MULTILINE|5.003007||Viu
+PMf_NOCAPTURE|5.021008||Viu
+PMf_NONDESTRUCT|5.013002||Viu
+PMf_ONCE|5.003007||Viu
+PMf_RETAINT|5.004005||Viu
+PMf_SINGLELINE|5.003007||Viu
+PMf_SPLIT|5.017011||Viu
+PMf_STRICT|5.021008||Viu
+PMf_USED|5.009005||Viu
+PMf_USE_RE_EVAL|5.017001||Viu
+PMf_WILDCARD|5.031010||Viu
+PM_GETRE|5.007002||Viu
+pmop_dump|5.006000|5.006000|u
+PmopSTASH|5.007001||Viu
+PmopSTASHPV|5.007001||Viu
+PmopSTASHPV_set|5.007001||Viu
+PmopSTASH_set|5.007001||Viu
+pmruntime|5.003007||Viu
+PM_SETRE|5.007002||Viu
+PM_STR|5.027010||Viu
+pmtrans|5.003007||Viu
+pMY_CXT|5.009000|5.009000|p
+_pMY_CXT||5.009000|p
+pMY_CXT_||5.009000|p
+PNf|5.021007||Viu
+PNfARG|5.021007||Viu
+Poison|5.008000|5.003007|p
+PoisonFree|5.009004|5.003007|p
+PoisonNew|5.009004|5.003007|p
+PoisonPADLIST|5.021006||Viu
+POISON_SV_HEAD|||Viu
+PoisonWith|5.009004|5.003007|p
+popen|5.003007||Viu
+POPi|5.003007|5.003007|
+POPl|5.003007|5.003007|
+POPMARK|5.003007||cViu
+POP_MULTICALL|5.009003|5.009003|
+POPn|5.006000|5.003007|
+POPp|5.003007|5.003007|
+POPpbytex|5.007001|5.007001|
+POPpconstx|5.009003||Viu
+POPpx|5.005003|5.005003|
+POPs|5.003007|5.003007|
+pop_scope|5.003007|5.003007|u
+POPSTACK|5.005000||Viu
+POPSTACK_TO|5.005000||Viu
+POPu|5.004000|5.004000|
+POPul|5.006000|5.006000|
+populate_ANYOF_from_invlist|5.019005||Viu
+populate_isa|||viu
+POSIXA|5.017003||Viu
+POSIXA_t8|5.035004||Viu
+POSIXA_t8_p8|5.033003||Viu
+POSIXA_t8_pb|5.033003||Viu
+POSIXA_tb|5.035004||Viu
+POSIXA_tb_p8|5.033003||Viu
+POSIXA_tb_pb|5.033003||Viu
+POSIX_CC_COUNT|5.017008||Viu
+POSIXD|5.017003||Viu
+POSIXD_t8|5.035004||Viu
+POSIXD_t8_p8|5.033003||Viu
+POSIXD_t8_pb|5.033003||Viu
+POSIXD_tb|5.035004||Viu
+POSIXD_tb_p8|5.033003||Viu
+POSIXD_tb_pb|5.033003||Viu
+POSIXL|5.017003||Viu
+POSIXL_CLEAR|5.029004||Viu
+POSIXL_SET|5.029004||Viu
+POSIXL_t8|5.035004||Viu
+POSIXL_t8_p8|5.033003||Viu
+POSIXL_t8_pb|5.033003||Viu
+POSIXL_tb|5.035004||Viu
+POSIXL_tb_p8|5.033003||Viu
+POSIXL_tb_pb|5.033003||Viu
+POSIXL_TEST|5.029004||Viu
+POSIXL_ZERO|5.029004||Viu
+POSIXU|5.017003||Viu
+POSIXU_t8|5.035004||Viu
+POSIXU_t8_p8|5.033003||Viu
+POSIXU_t8_pb|5.033003||Viu
+POSIXU_tb|5.035004||Viu
+POSIXU_tb_p8|5.033003||Viu
+POSIXU_tb_pb|5.033003||Viu
+PP|5.003007||Viu
+pregcomp|5.009005|5.009005|
+pregexec|5.003007|5.003007|
+PREGf_ANCH|5.019009||Viu
+PREGf_ANCH_GPOS|5.019009||Viu
+PREGf_ANCH_MBOL|5.019009||Viu
+PREGf_ANCH_SBOL|5.019009||Viu
+PREGf_CUTGROUP_SEEN|5.009005||Viu
+PREGf_GPOS_FLOAT|5.019009||Viu
+PREGf_GPOS_SEEN|5.019009||Viu
+PREGf_IMPLICIT|5.009005||Viu
+PREGf_NAUGHTY|5.009005||Viu
+PREGf_NOSCAN|5.019009||Viu
+PREGf_RECURSE_SEEN|5.023009||Viu
+pregfree2|5.011000||cVu
+pregfree|5.003007|5.003007|u
+PREGf_SKIP|5.009005||Viu
+PREGf_USE_RE_EVAL|5.017001||Viu
+PREGf_VERBARG_SEEN|5.009005||Viu
+prepare_SV_for_RV|5.010001||Viu
+prescan_version|5.011004|5.011004|
+PRESCAN_VERSION|5.019008||Viu
+PREVOPER|5.003007||Viu
+PREV_RANGE_MATCHES_INVLIST|5.023002||Viu
+printbuf|5.009004||Viu
+print_bytes_for_locale|5.027002||Viu
+print_collxfrm_input_and_return|5.025004||Viu
+printf|5.003007||Viu
+PRINTF_FORMAT_NULL_OK|5.009005|5.009005|Vn
+printf_nocontext|5.007001||vdVnu
+PRIVLIB|5.003007|5.003007|Vn
+PRIVLIB_EXP|5.003007|5.003007|Vn
+PRIVSHIFT|5.003007||Viu
+process_special_blocks|5.009005||Viu
+PROCSELFEXE_PATH|5.007003|5.007003|Vn
+PRUNE|5.009005||Viu
+PRUNE_t8|5.035004||Viu
+PRUNE_t8_p8|5.033003||Viu
+PRUNE_t8_pb|5.033003||Viu
+PRUNE_tb|5.035004||Viu
+PRUNE_tb_p8|5.033003||Viu
+PRUNE_tb_pb|5.033003||Viu
+PSEUDO|5.009004||Viu
+PSEUDO_t8|5.035004||Viu
+PSEUDO_t8_p8|5.033003||Viu
+PSEUDO_t8_pb|5.033003||Viu
+PSEUDO_tb|5.035004||Viu
+PSEUDO_tb_p8|5.033003||Viu
+PSEUDO_tb_pb|5.033003||Viu
+pthread_addr_t|5.005000||Viu
+PTHREAD_ATFORK|5.007002||Viu
+pthread_attr_init|5.006000||Viu
+PTHREAD_ATTR_SETDETACHSTATE|5.006000||Viu
+pthread_condattr_default|5.005000||Viu
+PTHREAD_CREATE|5.006000||Viu
+pthread_create|5.008001||Viu
+PTHREAD_CREATE_JOINABLE|5.005000||Viu
+PTHREAD_GETSPECIFIC|5.007002||Viu
+PTHREAD_GETSPECIFIC_INT|5.006000||Viu
+pthread_key_create|5.005000||Viu
+pthread_keycreate|5.008001||Viu
+pthread_mutexattr_default|5.005000||Viu
+pthread_mutexattr_init|5.005000||Viu
+pthread_mutexattr_settype|5.005000||Viu
+pTHX_12|5.019010||Viu
+pTHX_1|5.006000||Viu
+pTHX_2|5.006000||Viu
+pTHX_3|5.006000||Viu
+pTHX_4|5.006000||Viu
+pTHX|5.006000|5.003007|p
+pTHX_5|5.009003||Viu
+pTHX_6|5.009003||Viu
+pTHX_7|5.009003||Viu
+pTHX_8|5.009003||Viu
+pTHX_9|5.009003||Viu
+pTHX_||5.003007|p
+pTHX__FORMAT|5.009002||Viu
+pTHX_FORMAT|5.009002||Viu
+pTHXo|5.006000||Viu
+pTHX__VALUE|5.009002||Viu
+pTHX_VALUE|5.009002||Viu
+pTHXx|5.006000||Viu
+PTR2IV|5.006000|5.003007|p
+PTR2nat|5.009003|5.003007|p
+PTR2NV|5.006000|5.003007|p
+PTR2ul|5.007001|5.003007|p
+PTR2UV|5.006000|5.003007|p
+Ptrdiff_t|5.029003||Viu
+ptr_hash|5.017010||Vniu
+PTRSIZE|5.005000|5.005000|Vn
+ptr_table_fetch|5.009005|5.009005|u
+ptr_table_find|5.009004||Vniu
+ptr_table_free|5.009005|5.009005|u
+ptr_table_new|5.009005|5.009005|u
+ptr_table_split|5.009005|5.009005|u
+ptr_table_store|5.009005|5.009005|u
+PTRV|5.006000|5.003007|poVnu
+PUSHi|5.003007|5.003007|
+PUSHMARK|5.003007|5.003007|
+PUSHmortal|5.009002|5.003007|p
+PUSH_MULTICALL|5.011000|5.011000|
+PUSH_MULTICALL_FLAGS|5.018000||Viu
+PUSHn|5.006000|5.003007|
+PUSHp|5.003007|5.003007|
+PUSHs|5.003007|5.003007|
+push_scope|5.003007|5.003007|u
+PUSHSTACK|5.005000||Viu
+PUSHSTACKi|5.005000||Viu
+PUSHSTACK_INIT_HWM|5.027002||Viu
+PUSHTARG|5.003007||Viu
+PUSHu|5.004000|5.003007|p
+PUTBACK|5.003007|5.003007|
+putc|5.003007||Viu
+put_charclass_bitmap_innards|5.021004||Viu
+put_charclass_bitmap_innards_common|5.023008||Viu
+put_charclass_bitmap_innards_invlist|5.023008||Viu
+put_code_point|5.021004||Viu
+putc_unlocked|5.003007||Viu
+putenv|5.005000||Viu
+put_range|5.019009||Viu
+putw|5.003007||Viu
+pv_display|5.006000|5.003007|p
+pv_escape|5.009004|5.003007|p
+pv_pretty|5.009004|5.003007|p
+pv_uni_display|5.007003|5.007003|
+pWARN_ALL|5.006000||Viu
+pWARN_NONE|5.006000||Viu
+pWARN_STD|5.006000||Viu
+PWGECOS|5.004005|5.004005|Vn
+PWPASSWD|5.005000|5.005000|Vn
+qerror|5.006000||cViu
+QR_PAT_MODS|5.009005||Viu
+QUAD_IS_INT|5.006000|5.006000|Vn
+QUAD_IS___INT64|5.015003|5.015003|Vn
+QUAD_IS_INT64_T|5.006000|5.006000|Vn
+QUAD_IS_LONG|5.006000|5.006000|Vn
+QUAD_IS_LONG_LONG|5.006000|5.006000|Vn
+QUADKIND|5.006000|5.006000|Vn
+quadmath_format_needed|5.021004||Vni
+quadmath_format_valid|5.031007||Vni
+Quad_t|5.003007|5.003007|Vn
+QUESTION_MARK_CTRL|5.021001||Viu
+RADIXCHAR|5.027010||Viu
+RANDBITS|5.003007|5.003007|Vn
+RANDOM_R_PROTO|5.008000|5.008000|Vn
+Rand_seed_t|5.006000|5.006000|Vn
+RANGE_INDICATOR|5.031006||Viu
+rck_elide_nothing|5.032001||Viu
+RD_NODATA|5.003007|5.003007|Vn
+read|5.005000||Viu
+readdir|5.005000||Viu
+readdir64|5.009000||Viu
+READDIR64_R_PROTO|5.008000|5.008000|Vn
+READDIR_R_PROTO|5.008000|5.008000|Vn
+READ_XDIGIT|5.017006|5.017006|
+realloc|5.003007||Vn
+ReANY|5.017006||cVnu
+re_compile|5.009005|5.009005|u
+RE_COMPILE_RECURSION_INIT|5.029009||Viu
+RE_COMPILE_RECURSION_LIMIT|5.029009||Viu
+re_croak|||iu
+recv|5.006000||Viu
+recvfrom|5.005000||Viu
+RE_DEBUG_COMPILE_DUMP|5.009004||Viu
+RE_DEBUG_COMPILE_FLAGS|5.009005||Viu
+RE_DEBUG_COMPILE_MASK|5.009004||Viu
+RE_DEBUG_COMPILE_OPTIMISE|5.009004||Viu
+RE_DEBUG_COMPILE_PARSE|5.009004||Viu
+RE_DEBUG_COMPILE_TEST|5.021005||Viu
+RE_DEBUG_COMPILE_TRIE|5.009004||Viu
+RE_DEBUG_EXECUTE_INTUIT|5.009004||Viu
+RE_DEBUG_EXECUTE_MASK|5.009004||Viu
+RE_DEBUG_EXECUTE_MATCH|5.009004||Viu
+RE_DEBUG_EXECUTE_TRIE|5.009004||Viu
+RE_DEBUG_EXTRA_BUFFERS|5.009005||Viu
+RE_DEBUG_EXTRA_DUMP_PRE_OPTIMIZE|5.031004||Viu
+RE_DEBUG_EXTRA_GPOS|5.011000||Viu
+RE_DEBUG_EXTRA_MASK|5.009004||Viu
+RE_DEBUG_EXTRA_OPTIMISE|5.009005||Viu
+RE_DEBUG_EXTRA_STACK|5.009005||Viu
+RE_DEBUG_EXTRA_STATE|5.009004||Viu
+RE_DEBUG_EXTRA_TRIE|5.009004||Viu
+RE_DEBUG_EXTRA_WILDCARD|5.031011||Viu
+RE_DEBUG_FLAG|5.009004||Viu
+RE_DEBUG_FLAGS|5.009002||Viu
+re_dup_guts|5.011000|5.011000|
+reentrant_free|5.008000||cVu
+reentrant_init|5.008000||cVu
+REENTRANT_PROTO_B_B|5.008000||Viu
+REENTRANT_PROTO_B_BI|5.008000||Viu
+REENTRANT_PROTO_B_BW|5.008000||Viu
+REENTRANT_PROTO_B_CCD|5.008000||Viu
+REENTRANT_PROTO_B_CCS|5.008000||Viu
+REENTRANT_PROTO_B_IBI|5.008000||Viu
+REENTRANT_PROTO_B_IBW|5.008000||Viu
+REENTRANT_PROTO_B_SB|5.008000||Viu
+REENTRANT_PROTO_B_SBI|5.008000||Viu
+REENTRANT_PROTO_I_BI|5.008000||Viu
+REENTRANT_PROTO_I_BW|5.008000||Viu
+REENTRANT_PROTO_I_CCSBWR|5.008000||Viu
+REENTRANT_PROTO_I_CCSD|5.008000||Viu
+REENTRANT_PROTO_I_CII|5.008000||Viu
+REENTRANT_PROTO_I_CIISD|5.008000||Viu
+REENTRANT_PROTO_I_CSBI|5.008000||Viu
+REENTRANT_PROTO_I_CSBIR|5.008000||Viu
+REENTRANT_PROTO_I_CSBWR|5.008000||Viu
+REENTRANT_PROTO_I_CSBWRE|5.008000||Viu
+REENTRANT_PROTO_I_CSD|5.008000||Viu
+REENTRANT_PROTO_I_CWISBWRE|5.008000||Viu
+REENTRANT_PROTO_I_CWISD|5.008000||Viu
+REENTRANT_PROTO_I_D|5.008000||Viu
+REENTRANT_PROTO_I_H|5.008000||Viu
+REENTRANT_PROTO_I_IBI|5.008000||Viu
+REENTRANT_PROTO_I_IBW|5.008000||Viu
+REENTRANT_PROTO_I_ICBI|5.008000||Viu
+REENTRANT_PROTO_I_ICSBWR|5.008000||Viu
+REENTRANT_PROTO_I_ICSD|5.008000||Viu
+REENTRANT_PROTO_I_ID|5.008000||Viu
+REENTRANT_PROTO_I_IISD|5.008000||Viu
+REENTRANT_PROTO_I_ISBWR|5.008000||Viu
+REENTRANT_PROTO_I_ISD|5.008000||Viu
+REENTRANT_PROTO_I_LISBI|5.008000||Viu
+REENTRANT_PROTO_I_LISD|5.008000||Viu
+REENTRANT_PROTO_I_SB|5.008000||Viu
+REENTRANT_PROTO_I_SBI|5.008000||Viu
+REENTRANT_PROTO_I_SBIE|5.008000||Viu
+REENTRANT_PROTO_I_SBIH|5.008000||Viu
+REENTRANT_PROTO_I_SBIR|5.008000||Viu
+REENTRANT_PROTO_I_SBWR|5.008000||Viu
+REENTRANT_PROTO_I_SBWRE|5.008000||Viu
+REENTRANT_PROTO_I_SD|5.008000||Viu
+REENTRANT_PROTO_I_TISD|5.008000||Viu
+REENTRANT_PROTO_I_TS|5.008000||Viu
+REENTRANT_PROTO_I_TSBI|5.008000||Viu
+REENTRANT_PROTO_I_TSBIR|5.008000||Viu
+REENTRANT_PROTO_I_TSBWR|5.008000||Viu
+REENTRANT_PROTO_I_TsISBWRE|5.008001||Viu
+REENTRANT_PROTO_I_TSR|5.008000||Viu
+REENTRANT_PROTO_I_UISBWRE|5.008000||Viu
+REENTRANT_PROTO_I_uISBWRE|5.008001||Viu
+REENTRANT_PROTO_S_CBI|5.008000||Viu
+REENTRANT_PROTO_S_CCSBI|5.008000||Viu
+REENTRANT_PROTO_S_CIISBIE|5.008000||Viu
+REENTRANT_PROTO_S_CSBI|5.008000||Viu
+REENTRANT_PROTO_S_CSBIE|5.008000||Viu
+REENTRANT_PROTO_S_CWISBIE|5.008000||Viu
+REENTRANT_PROTO_S_CWISBWIE|5.008000||Viu
+REENTRANT_PROTO_S_ICSBI|5.008000||Viu
+REENTRANT_PROTO_S_ISBI|5.008000||Viu
+REENTRANT_PROTO_S_LISBI|5.008000||Viu
+REENTRANT_PROTO_S_SBI|5.008000||Viu
+REENTRANT_PROTO_S_SBIE|5.008000||Viu
+REENTRANT_PROTO_S_SBW|5.008000||Viu
+REENTRANT_PROTO_S_TISBI|5.008000||Viu
+REENTRANT_PROTO_S_TS|5.031011||Viu
+REENTRANT_PROTO_S_TSBI|5.008000||Viu
+REENTRANT_PROTO_S_TSBIE|5.008000||Viu
+REENTRANT_PROTO_S_TWISBIE|5.008000||Viu
+REENTRANT_PROTO_V_D|5.008000||Viu
+REENTRANT_PROTO_V_H|5.008000||Viu
+REENTRANT_PROTO_V_ID|5.008000||Viu
+reentrant_retry|5.008000||vcVnu
+reentrant_size|5.008000||cVu
+REENTR_MEMZERO|5.009003||Viu
+re_exec_indentf|5.023009||vViu
+REF|5.003007||Viu
+ref|5.009003||Viu
+ref_array_or_hash|5.027008||Viu
+refcounted_he_chain_2hv|5.013007||cVi
+REFCOUNTED_HE_EXISTS|5.015007||Viu
+refcounted_he_fetch_pv|5.013007||cVi
+refcounted_he_fetch_pvn|5.013007||cVi
+refcounted_he_fetch_pvs|5.013007||Vi
+refcounted_he_fetch_sv|5.013007||cVi
+refcounted_he_free|5.013007||cVi
+refcounted_he_inc|5.013007||cVi
+REFCOUNTED_HE_KEY_UTF8|5.013007||Viu
+refcounted_he_new_pv|5.013007||cVi
+refcounted_he_new_pvn|5.013007||cVi
+refcounted_he_new_pvs|5.013007||Vi
+refcounted_he_new_sv|5.013007||cVi
+refcounted_he_value|5.009004||Viu
+REFF|5.004001||Viu
+REFFA|5.013010||Viu
+REFFAN|5.031001||Viu
+REFFAN_t8|5.035004||Viu
+REFFAN_t8_p8|5.033003||Viu
+REFFAN_t8_pb|5.033003||Viu
+REFFAN_tb|5.035004||Viu
+REFFAN_tb_p8|5.033003||Viu
+REFFAN_tb_pb|5.033003||Viu
+REFFA_t8|5.035004||Viu
+REFFA_t8_p8|5.033003||Viu
+REFFA_t8_pb|5.033003||Viu
+REFFA_tb|5.035004||Viu
+REFFA_tb_p8|5.033003||Viu
+REFFA_tb_pb|5.033003||Viu
+REFFL|5.004001||Viu
+REFFLN|5.031001||Viu
+REFFLN_t8|5.035004||Viu
+REFFLN_t8_p8|5.033003||Viu
+REFFLN_t8_pb|5.033003||Viu
+REFFLN_tb|5.035004||Viu
+REFFLN_tb_p8|5.033003||Viu
+REFFLN_tb_pb|5.033003||Viu
+REFFL_t8|5.035004||Viu
+REFFL_t8_p8|5.033003||Viu
+REFFL_t8_pb|5.033003||Viu
+REFFL_tb|5.035004||Viu
+REFFL_tb_p8|5.033003||Viu
+REFFL_tb_pb|5.033003||Viu
+REFFN|5.031001||Viu
+REFFN_t8|5.035004||Viu
+REFFN_t8_p8|5.033003||Viu
+REFFN_t8_pb|5.033003||Viu
+REFFN_tb|5.035004||Viu
+REFFN_tb_p8|5.033003||Viu
+REFFN_tb_pb|5.033003||Viu
+REFF_t8|5.035004||Viu
+REFF_t8_p8|5.033003||Viu
+REFF_t8_pb|5.033003||Viu
+REFF_tb|5.035004||Viu
+REFF_tb_p8|5.033003||Viu
+REFF_tb_pb|5.033003||Viu
+REFFU|5.013008||Viu
+REFFUN|5.031001||Viu
+REFFUN_t8|5.035004||Viu
+REFFUN_t8_p8|5.033003||Viu
+REFFUN_t8_pb|5.033003||Viu
+REFFUN_tb|5.035004||Viu
+REFFUN_tb_p8|5.033003||Viu
+REFFUN_tb_pb|5.033003||Viu
+REFFU_t8|5.035004||Viu
+REFFU_t8_p8|5.033003||Viu
+REFFU_t8_pb|5.033003||Viu
+REFFU_tb|5.035004||Viu
+REFFU_tb_p8|5.033003||Viu
+REFFU_tb_pb|5.033003||Viu
+REF_HE_KEY|5.009005||Viu
+refkids|5.003007||Viu
+REFN|5.031001||Viu
+REFN_t8|5.035004||Viu
+REFN_t8_p8|5.033003||Viu
+REFN_t8_pb|5.033003||Viu
+REFN_tb|5.035004||Viu
+REFN_tb_p8|5.033003||Viu
+REFN_tb_pb|5.033003||Viu
+REF_t8|5.035004||Viu
+REF_t8_p8|5.033003||Viu
+REF_t8_pb|5.033003||Viu
+REF_tb|5.035004||Viu
+REF_tb_p8|5.033003||Viu
+REF_tb_pb|5.033003||Viu
+refto|5.005000||Viu
+reg2Lanode|5.021005||Viu
+reg|5.005000||Viu
+reganode|5.005000||Viu
+REG_ANY|5.006000||Viu
+REG_ANY_t8|5.035004||Viu
+REG_ANY_t8_p8|5.033003||Viu
+REG_ANY_t8_pb|5.033003||Viu
+REG_ANY_tb|5.035004||Viu
+REG_ANY_tb_p8|5.033003||Viu
+REG_ANY_tb_pb|5.033003||Viu
+regatom|5.005000||Viu
+regbranch|5.005000||Viu
+reg_check_named_buff_matched|5.009005||Vniu
+regclass|5.005000||Viu
+regcppop|5.005000||Viu
+regcppush|5.005000||Viu
+regcp_restore|5.025006||Viu
+regcurly|5.013010||cVniu
+REG_CUTGROUP_SEEN|5.019009||Viu
+regdump|5.005000|5.005000|u
+regdump_extflags|5.009005||Viu
+regdump_intflags|5.019002||Viu
+regdupe_internal|5.009005||cVu
+regexec_flags|5.005000||cVu
+REGEX_SET|5.031010||Viu
+regex_set_precedence|5.021010||Vniu
+REGEX_SET_t8|5.035004||Viu
+REGEX_SET_t8_p8|5.033003||Viu
+REGEX_SET_t8_pb|5.033003||Viu
+REGEX_SET_tb|5.035004||Viu
+REGEX_SET_tb_p8|5.033003||Viu
+REGEX_SET_tb_pb|5.033003||Viu
+REG_EXTFLAGS_NAME_SIZE|5.020000||Viu
+regfree_internal|5.009005||cVu
+REG_GPOS_SEEN|5.019009||Viu
+reghop3|5.007001||Vniu
+reghop4|5.009005||Vniu
+reghopmaybe3|5.007001||Vniu
+reginclass|5.005000||Viu
+REG_INFTY|5.004005||Viu
+reginitcolors|5.006000||cVu
+reginsert|5.005000||Viu
+REG_INTFLAGS_NAME_SIZE|5.020000||Viu
+register|5.003007||Viu
+reg_la_NOTHING|||Viu
+reg_la_OPFAIL|||Viu
+REG_LB_SEEN|||Viu
+REG_LOOKBEHIND_SEEN|5.019009||Viu
+REG_MAGIC|5.006000||Viu
+regmatch|5.005000||Viu
+REGMATCH_STATE_MAX|5.009005||Viu
+reg_named_buff|5.009005||cViu
+reg_named_buff_all|5.009005||cVu
+reg_named_buff_exists|5.009005||cVu
+reg_named_buff_fetch|5.009005||cVu
+reg_named_buff_firstkey|5.009005||cVu
+reg_named_buff_iter|5.009005||cViu
+reg_named_buff_nextkey|5.009005||cVu
+reg_named_buff_scalar|5.009005||cVu
+regnext|5.003007||cVu
+reg_node|5.005000||Viu
+regnode_guts|5.021005||Viu
+regnode_guts_debug|||Viu
+REGNODE_MAX|5.009004||Viu
+REGNODE_SIMPLE|5.013002||Viu
+REGNODE_VARIES|5.013002||Viu
+reg_numbered_buff_fetch|5.009005||cViu
+reg_numbered_buff_length|5.009005||cViu
+reg_numbered_buff_store|5.009005||cViu
+regpiece|5.005000||Viu
+regpnode|5.031010||Viu
+regprop|5.003007||Viu
+reg_qr_package|5.009005||cViu
+REG_RECURSE_SEEN|5.019009||Viu
+regrepeat|5.005000||Viu
+REG_RUN_ON_COMMENT_SEEN|5.019009||Viu
+reg_scan_name|5.009005||Viu
+reg_skipcomment|5.009005||Vniu
+regtail|5.005000||Viu
+regtail_study|5.009004||Viu
+reg_temp_copy|5.009005||cViu
+REG_TOP_LEVEL_BRANCHES_SEEN|5.019009||Viu
+regtry|5.005000||Viu
+REG_UNBOUNDED_QUANTIFIER_SEEN|5.019009||Viu
+REG_UNFOLDED_MULTI_SEEN|5.019009||Viu
+REG_VERBARG_SEEN|5.019009||Viu
+REG_ZERO_LEN_SEEN|5.019009||Viu
+re_indentf|5.023009||vViu
+re_intuit_start|5.006000||cVu
+re_intuit_string|5.006000||cVu
+rename|5.005000||Viu
+Renew|5.003007|5.003007|
+Renewc|5.003007|5.003007|
+RENUM|5.005000||Viu
+RENUM_t8|5.035004||Viu
+RENUM_t8_p8|5.033003||Viu
+RENUM_t8_pb|5.033003||Viu
+RENUM_tb|5.035004||Viu
+RENUM_tb_p8|5.033003||Viu
+RENUM_tb_pb|5.033003||Viu
+re_op_compile|5.017001||Viu
+repeatcpy|5.003007|5.003007|nu
+REPLACEMENT_CHARACTER_UTF8|5.025005|5.003007|p
+report_evil_fh|5.006001||Viu
+report_redefined_cv|5.015006||Viu
+report_uninit|5.006000||cVi
+report_wrongway_fh|5.013009||Viu
+re_printf|5.023009||vViu
+RE_PV_COLOR_DECL|5.009004||Viu
+RE_PV_QUOTED_DECL|5.009004||Viu
+require_pv|5.006000|5.006000|
+require_tie_mod|5.009005||Viu
+ReREFCNT_dec|5.005000||Viu
+ReREFCNT_inc|5.005000||Viu
+RESTORE_ERRNO|5.010001||Vi
+RESTORE_LC_NUMERIC|5.021010|5.021010|p
+restore_magic|5.009003||Viu
+restore_switched_locale|5.027009||Viu
+RE_SV_DUMPLEN|5.009004||Viu
+RE_SV_ESCAPE|5.009004||Viu
+RE_SV_TAIL|5.009004||Viu
+RETPUSHNO|5.003007||Viu
+RETPUSHUNDEF|5.003007||Viu
+RETPUSHYES|5.003007||Viu
+RE_TRIE_MAXBUF_INIT|5.009002||Viu
+RE_TRIE_MAXBUF_NAME|5.009002||Viu
+RETSETNO|5.003007||Viu
+RETSETTARG|5.021009||Viu
+RETSETUNDEF|5.003007||Viu
+RETSETYES|5.003007||Viu
+RETURN|5.003007||Viu
+RETURNOP|5.003007||Viu
+RETURNX|5.003007||Viu
+RETVAL|5.003007|5.003007|V
+rewind|5.003007||Viu
+rewinddir|5.005000||Viu
+REXEC_CHECKED|5.005000||Viu
+REXEC_COPY_SKIP_POST|5.017004||Viu
+REXEC_COPY_SKIP_PRE|5.017004||Viu
+REXEC_COPY_STR|5.005000||Viu
+REXEC_FAIL_ON_UNDERFLOW|5.019003||Viu
+REXEC_IGNOREPOS|5.006000||Viu
+REXEC_NOT_FIRST|5.006000||Viu
+REXEC_SCREAM|5.006000||Viu
+rmdir|5.005000||Viu
+RMS_DIR|5.008001||Viu
+RMS_FAC|5.008001||Viu
+RMS_FEX|5.008001||Viu
+RMS_FNF|5.008001||Viu
+RMS_IFI|5.008001||Viu
+RMS_ISI|5.008001||Viu
+RMS_PRV|5.008001||Viu
+rninstr|5.003007|5.003007|n
+ROTL32|5.017010||Viu
+ROTL64|5.017010||Viu
+ROTL_UV|5.017010||Viu
+ROTR32|5.027001||Viu
+ROTR64|5.027001||Viu
+ROTR_UV|5.027001||Viu
+rpeep|5.013005||Viu
+rsignal|5.004000|5.004000|
+rsignal_restore|5.004000||Viu
+rsignal_save|5.004000||Viu
+rsignal_state|5.004000|5.004000|u
+RsPARA|5.003007||Viu
+RsRECORD|5.005000||Viu
+RsSIMPLE|5.003007||Viu
+RsSNARF|5.003007||Viu
+run_body|5.006000||Viu
+runops_debug|5.005000||cVu
+RUNOPS_DEFAULT|5.005000||Viu
+runops_standard|5.005000||cVu
+run_user_filter|5.009003||Viu
+rv2cv_op_cv|5.013006|5.013006|
+RV2CVOPCV_FLAG_MASK|5.021004||Viu
+RV2CVOPCV_MARK_EARLY|5.013006|5.013006|
+RV2CVOPCV_MAYBE_NAME_GV|5.021004||Viu
+RV2CVOPCV_RETURN_NAME_GV|5.013006|5.013006|
+RV2CVOPCV_RETURN_STUB|5.021004||Viu
+rvpv_dup|5.008008|5.008008|u
+RX_ANCHORED_SUBSTR|5.010001||Viu
+RX_ANCHORED_UTF8|5.010001||Viu
+RXapif_ALL|5.009005||Viu
+RXapif_CLEAR|5.009005||Viu
+RXapif_DELETE|5.009005||Viu
+RXapif_EXISTS|5.009005||Viu
+RXapif_FETCH|5.009005||Viu
+RXapif_FIRSTKEY|5.009005||Viu
+RXapif_NEXTKEY|5.009005||Viu
+RXapif_ONE|5.009005||Viu
+RXapif_REGNAME|5.009005||Viu
+RXapif_REGNAMES|5.009005||Viu
+RXapif_REGNAMES_COUNT|5.009005||Viu
+RXapif_SCALAR|5.009005||Viu
+RXapif_STORE|5.009005||Viu
+RX_BUFF_IDX_CARET_FULLMATCH|5.017004||Viu
+RX_BUFF_IDX_CARET_POSTMATCH|5.017004||Viu
+RX_BUFF_IDX_CARET_PREMATCH|5.017004||Viu
+RX_BUFF_IDX_FULLMATCH|5.009005||Viu
+RX_BUFF_IDX_POSTMATCH|5.009005||Viu
+RX_BUFF_IDX_PREMATCH|5.009005||Viu
+RX_CHECK_SUBSTR|5.010001||Viu
+RX_COMPFLAGS|5.017011||Viu
+RX_ENGINE|5.010001||Viu
+RX_EXTFLAGS|5.010001||Viu
+RXf_BASE_SHIFT|5.013004||Viu
+RXf_CHECK_ALL|5.009005||Viu
+RXf_COPY_DONE|5.009005||Viu
+RXf_EVAL_SEEN|5.009005||Viu
+RXf_INTUIT_TAIL|5.009005||Viu
+RXf_IS_ANCHORED|5.019009||Viu
+RX_FLOAT_SUBSTR|5.010001||Viu
+RX_FLOAT_UTF8|5.010001||Viu
+RXf_MATCH_UTF8|5.009005||Viu
+RXf_NO_INPLACE_SUBST|5.017011||Viu
+RXf_NULL|5.010000||Viu
+RXf_PMf_CHARSET|5.013009||Viu
+RXf_PMf_COMPILETIME|5.009005||Viu
+RXf_PMf_EXTENDED|5.009005||Viu
+RXf_PMf_EXTENDED_MORE|5.021005||Viu
+RXf_PMf_FLAGCOPYMASK|5.017011||Viu
+RXf_PMf_FOLD|5.009005||Viu
+RXf_PMf_KEEPCOPY|5.009005||Viu
+RXf_PMf_MULTILINE|5.009005||Viu
+RXf_PMf_NOCAPTURE|5.021008||Viu
+RXf_PMf_SINGLELINE|5.009005||Viu
+RXf_PMf_SPLIT|5.017011||Viu
+RXf_PMf_STD_PMMOD|5.009005||Viu
+RXf_PMf_STD_PMMOD_SHIFT|5.010001||Viu
+RXf_PMf_STRICT|5.021008||Viu
+RXf_SKIPWHITE|5.009005||Viu
+RXf_SPLIT|5.009005||Viu
+RXf_START_ONLY|5.009005||Viu
+RXf_TAINTED|5.009005||Viu
+RXf_TAINTED_SEEN|5.009005||Viu
+RXf_UNBOUNDED_QUANTIFIER_SEEN|5.019009||Viu
+RXf_USE_INTUIT|5.009005||Viu
+RXf_USE_INTUIT_ML|5.009005||Viu
+RXf_USE_INTUIT_NOML|5.009005||Viu
+RXf_WHITE|5.009005||Viu
+RX_GOFS|5.010001||Viu
+RXi_GET|5.009005||Viu
+RXi_GET_DECL|5.009005||Viu
+RX_INTFLAGS|5.019009||Viu
+RXi_SET|5.009005||Viu
+RX_ISTAINTED|5.017006||Viu
+RX_LASTCLOSEPAREN|5.010001||Viu
+RX_LASTPAREN|5.010001||Viu
+RX_MATCH_COPIED|5.006000||Viu
+RX_MATCH_COPIED_off|5.006000||Viu
+RX_MATCH_COPIED_on|5.006000||Viu
+RX_MATCH_COPIED_set|5.006000||Viu
+RX_MATCH_COPY_FREE|5.009000||Viu
+RX_MATCH_TAINTED|5.005000||Viu
+RX_MATCH_TAINTED_off|5.005000||Viu
+RX_MATCH_TAINTED_on|5.005000||Viu
+RX_MATCH_TAINTED_set|5.005000||Viu
+RX_MATCH_UTF8|5.008001||Viu
+RX_MATCH_UTF8_off|5.008001||Viu
+RX_MATCH_UTF8_on|5.008001||Viu
+RX_MATCH_UTF8_set|5.008001||Viu
+RX_MINLEN|5.010001||Viu
+RX_MINLENRET|5.010001||Viu
+RX_NPARENS|5.010001||Viu
+RX_OFFS|5.010001||Viu
+RXp_COMPFLAGS|5.017011||Viu
+RXp_ENGINE|5.027003||Viu
+RXp_EXTFLAGS|5.010001||Viu
+RXp_GOFS|5.027003||Viu
+RXp_HAS_CUTGROUP|5.027003||Viu
+RXp_INTFLAGS|5.019009||Viu
+RXp_ISTAINTED|5.027003||Viu
+RXp_MATCH_COPIED|5.010001||Viu
+RXp_MATCH_COPIED_off|5.010001||Viu
+RXp_MATCH_COPIED_on|5.010001||Viu
+RXp_MATCH_COPY_FREE|5.027003||Viu
+RXp_MATCH_TAINTED|5.010001||Viu
+RXp_MATCH_TAINTED_off|5.027003||Viu
+RXp_MATCH_TAINTED_on|5.017008||Viu
+RXp_MATCH_UTF8|5.010001||Viu
+RXp_MATCH_UTF8_off|5.027003||Viu
+RXp_MATCH_UTF8_on|5.027003||Viu
+RXp_MATCH_UTF8_set|5.027003||Viu
+RXp_MINLEN|5.027003||Viu
+RXp_MINLENRET|5.027003||Viu
+RXp_NPARENS|5.027003||Viu
+RXp_OFFS|5.027003||Viu
+RXp_PAREN_NAMES|5.010001||Viu
+RX_PRECOMP|5.010001||Viu
+RX_PRECOMP_const|5.010001||Viu
+RX_PRELEN|5.010001||Viu
+RXp_SAVED_COPY|5.027003||Viu
+RXp_SUBBEG|5.027003||Viu
+RXp_SUBOFFSET|5.027003||Viu
+RXp_ZERO_LEN|5.027003||Viu
+RX_REFCNT|5.010001||Viu
+rxres_free|5.004000||Viu
+rxres_restore|5.004000||Viu
+rxres_save|5.004000||Viu
+RX_SAVED_COPY|5.011000||Viu
+RX_SUBBEG|5.010001||Viu
+RX_SUBCOFFSET|5.017004||Viu
+RX_SUBLEN|5.010001||Viu
+RX_SUBOFFSET|5.017004||Viu
+RX_TAINT_on|5.017006||Viu
+RX_UTF8|5.010001||Viu
+RX_WRAPLEN|5.010001||Viu
+RX_WRAPPED|5.010001||Viu
+RX_WRAPPED_const|5.011000||Viu
+RX_ZERO_LEN|5.019003||Viu
+safecalloc|5.003007||Viu
+Safefree|5.003007|5.003007|
+safefree|5.003007||Viu
+safemalloc|5.003007||Viu
+saferealloc|5.003007||Viu
+safesyscalloc|5.006000|5.006000|n
+safesysfree|5.006000|5.006000|n
+safesysmalloc|5.006000|5.006000|n
+safesysrealloc|5.006000|5.006000|n
+SAFE_TRIE_NODENUM|5.009002||Viu
+same_dirent|5.003007||Viu
+SANE_ERRSV|5.031003|5.031003|
+SANY|5.003007||Viu
+SANY_t8|5.035004||Viu
+SANY_t8_p8|5.033003||Viu
+SANY_t8_pb|5.033003||Viu
+SANY_tb|5.035004||Viu
+SANY_tb_p8|5.033003||Viu
+SANY_tb_pb|5.033003||Viu
+save_adelete|5.011000|5.011000|u
+SAVEADELETE|5.011000||Viu
+save_aelem|5.004005|5.004005|u
+save_aelem_flags|5.011000|5.011000|u
+save_alloc|5.006000|5.006000|u
+save_aptr|5.003007|5.003007|
+save_ary|5.003007|5.003007|
+SAVEBOOL|5.008001|5.008001|
+save_bool|5.008001||cVu
+save_clearsv|5.003007||cVu
+SAVECLEARSV|5.003007||Vi
+SAVECOMPILEWARNINGS|5.009004||Viu
+SAVECOMPPAD|5.006000||Vi
+SAVECOPFILE|5.006000||Viu
+SAVECOPFILE_FREE|5.006001||Viu
+SAVECOPLINE|5.006000||Viu
+SAVECOPSTASH_FREE|5.006001||Viu
+SAVE_DEFSV|5.004005|5.003007|p
+SAVEDELETE|5.003007|5.003007|
+save_delete|5.003007||cVu
+save_destructor|5.003007||cVu
+SAVEDESTRUCTOR|5.006000|5.006000|
+SAVEDESTRUCTOR_X|5.006000|5.006000|
+save_destructor_x|5.006000||cVu
+SAVE_ERRNO|5.010001||Vi
+SAVEFEATUREBITS|5.031006||Viu
+SAVEf_KEEPOLDELEM|5.011000||Viu
+SAVEFREECOPHH|5.013007||Viu
+SAVEFREEOP|5.010001|5.010001|
+save_freeop|5.010001||cVu
+SAVEFREEPADNAME|5.021007||Viu
+SAVEFREEPV|5.003007|5.003007|
+save_freepv|5.010001||cVu
+SAVEFREESV|5.003007|5.003007|
+save_freesv|5.010001||cVu
+SAVEf_SETMAGIC|5.011000||Viu
+SAVEGENERICPV|5.006001||Viu
+save_generic_pvref|5.006001|5.006001|u
+SAVEGENERICSV|5.005003||Viu
+save_generic_svref|5.005003|5.005003|u
+save_gp|5.004000|5.004000|
+save_hash|5.003007|5.003007|
+save_hdelete|5.011000|5.011000|u
+SAVEHDELETE|5.011000||Viu
+save_hek_flags|5.008000||Vniu
+save_helem|5.004005|5.004005|u
+save_helem_flags|5.011000|5.011000|u
+SAVEHINTS|5.005000||Viu
+save_hints|5.013005|5.013005|u
+save_hptr|5.003007|5.003007|
+SAVEI16|5.004000|5.004000|
+save_I16|5.004000||cVu
+SAVEI32|5.003007|5.003007|
+save_I32|5.003007||cVu
+SAVEI8|5.006000|5.006000|
+save_I8|5.006000||cVu
+SAVEINT|5.003007|5.003007|
+save_int|5.003007||cVu
+save_item|5.003007|5.003007|
+SAVEIV|5.003007|5.003007|
+save_iv|5.004000||cVu
+save_lines|5.005000||Viu
+save_list|5.003007|5.003007|d
+SAVELONG|5.003007|5.003007|
+save_long|5.003007||dcVu
+save_magic_flags|5.019002||Viu
+SAVE_MASK|5.013001||Viu
+SAVEMORTALIZESV|5.007001|5.007001|
+save_mortalizesv|5.010001||cVu
+save_nogv|5.003007|5.003007|du
+SAVEOP|5.005000||Viu
+save_op|5.010001|5.010001|u
+save_padsv_and_mortalize|5.010001|5.010001|u
+SAVEPADSVANDMORTALIZE|5.010001||Viu
+SAVEPADSV|||i
+SAVEPARSER|5.009005||Viu
+SAVEPPTR|5.003007|5.003007|
+save_pptr|5.003007||cVu
+save_pushi32ptr|5.013006|5.013006|u
+save_pushptr|5.010001|5.010001|u
+save_pushptri32ptr|5.010001||Viu
+save_pushptrptr|5.013006|5.013006|u
+savepv|5.003007|5.003007|
+savepvn|5.003007|5.003007|
+savepvs|5.009003|5.009003|
+save_re_context|5.006000||cVu
+save_scalar|5.003007|5.003007|
+save_scalar_at|5.005000||Viu
+save_set_svflags|5.009000|5.009000|u
+SAVESETSVFLAGS|5.009000||Viu
+savesharedpv|5.007003|5.007003|
+SAVESHAREDPV|5.007003||Viu
+savesharedpvn|5.009005|5.009005|
+save_shared_pvref|5.007003|5.007003|u
+savesharedpvs|5.013006|5.013006|
+savesharedsvpv|5.013006|5.013006|
+SAVESPTR|5.003007|5.003007|
+save_sptr|5.003007||cVu
+savestack_grow|5.003007|5.003007|u
+savestack_grow_cnt|5.008001|5.008001|u
+SAVESTACK_POS|5.004000|5.004000|
+save_strlen|5.019004||cViu
+SAVESTRLEN|5.035005|5.035005|
+savesvpv|5.009002|5.009002|
+save_svref|5.003007|5.003007|
+SAVESWITCHSTACK|5.009002||Viu
+SAVEt_ADELETE|5.011000||Viu
+SAVEt_AELEM|5.004005||Viu
+SAVEt_ALLOC|5.006000||Viu
+SAVEt_APTR|5.003007||Viu
+SAVEt_AV|5.003007||Viu
+SAVEt_BOOL|5.008001||Viu
+SAVEt_CLEARPADRANGE|5.017006||Viu
+SAVEt_CLEARSV|5.003007||Viu
+SAVEt_COMPILE_WARNINGS|5.009004||Viu
+SAVEt_COMPPAD|5.006000||Viu
+SAVEt_DELETE|5.003007||Viu
+SAVEt_DESTRUCTOR|5.003007||Viu
+SAVEt_DESTRUCTOR_X|5.006000||Viu
+SAVEt_FREECOPHH|5.013007||Viu
+SAVEt_FREEOP|5.003007||Viu
+SAVEt_FREEPADNAME|5.021007||Viu
+SAVEt_FREEPV|5.003007||Viu
+SAVEt_FREESV|5.003007||Viu
+SAVEt_GENERIC_PVREF|5.006001||Viu
+SAVEt_GENERIC_SVREF|5.005003||Viu
+SAVEt_GP|5.003007||Viu
+SAVEt_GVSLOT|5.017007||Viu
+SAVEt_GVSV|5.013005||Viu
+SAVEt_HELEM|5.004005||Viu
+SAVEt_HINTS|5.005000||Viu
+SAVEt_HINTS_HH|5.033001||Viu
+SAVEt_HPTR|5.003007||Viu
+SAVEt_HV|5.003007||Viu
+SAVEt_I16|5.004000||Viu
+SAVEt_I32|5.003007||Viu
+SAVEt_I32_SMALL|5.013001||Viu
+SAVEt_I8|5.006000||Viu
+SAVE_TIGHT_SHIFT|5.013001||Viu
+SAVEt_INT|5.003007||Viu
+SAVEt_INT_SMALL|5.013001||Viu
+SAVEt_ITEM|5.003007||Viu
+SAVEt_IV|5.003007||Viu
+SAVEt_LONG|5.003007||Viu
+SAVEt_MORTALIZESV|5.007001||Viu
+SAVETMPS|5.003007|5.003007|
+savetmps|||xu
+SAVEt_NSTAB|5.003007||Viu
+save_to_buffer|5.027004||Vniu
+SAVEt_OP|5.005000||Viu
+SAVEt_PADSV_AND_MORTALIZE|5.010001||Viu
+SAVEt_PARSER|5.009005||Viu
+SAVEt_PPTR|5.003007||Viu
+SAVEt_READONLY_OFF|5.019002||Viu
+SAVEt_REGCONTEXT|5.003007||Viu
+SAVEt_SAVESWITCHSTACK|5.009002||Viu
+SAVEt_SET_SVFLAGS|5.009000||Viu
+SAVEt_SHARED_PVREF|5.007003||Viu
+SAVEt_SPTR|5.003007||Viu
+SAVEt_STACK_POS|5.004000||Viu
+SAVEt_STRLEN|5.019004||Viu
+SAVEt_STRLEN_SMALL|5.033005||Viu
+SAVEt_SV|5.003007||Viu
+SAVEt_SVREF|5.003007||Viu
+SAVEt_TMPSFLOOR|5.023008||Viu
+SAVEt_VPTR|5.006000||Viu
+save_vptr|5.006000|5.006000|u
+SAVEVPTR|5.006000||Viu
+SAWAMPERSAND_LEFT|5.017004||Viu
+SAWAMPERSAND_MIDDLE|5.017004||Viu
+SAWAMPERSAND_RIGHT|5.017004||Viu
+sawparens|5.003007||Viu
+sb_dstr|5.003007||Viu
+sb_iters|5.003007||Viu
+sb_m|5.003007||Viu
+sb_maxiters|5.003007||Viu
+SBOL|5.003007||Viu
+SBOL_t8|5.035004||Viu
+SBOL_t8_p8|5.033003||Viu
+SBOL_t8_pb|5.033003||Viu
+SBOL_tb|5.035004||Viu
+SBOL_tb_p8|5.033003||Viu
+SBOL_tb_pb|5.033003||Viu
+sb_orig|5.003007||Viu
+SBOX32_CHURN_ROUNDS|5.027001||Viu
+SBOX32_MAX_LEN|5.027001||Viu
+SBOX32_MIX3|5.027001||Viu
+SBOX32_MIX4|5.027001||Viu
+SBOX32_SCRAMBLE32|5.027001||Viu
+SBOX32_SKIP_MASK|5.027001||Viu
+SBOX32_STATE_BITS|5.027001||Viu
+SBOX32_STATE_BYTES|5.027001||Viu
+SBOX32_STATE_WORDS|5.027001||Viu
+SBOX32_STATIC_INLINE|5.027001||Viu
+SBOX32_WARN2|5.027001||Viu
+SBOX32_WARN3|5.027001||Viu
+SBOX32_WARN4|5.027001||Viu
+SBOX32_WARN5|5.027001||Viu
+SBOX32_WARN6|5.027001||Viu
+sb_rflags|5.006000||Viu
+sb_rx|5.003007||Viu
+sb_rxres|5.004000||Viu
+sb_rxtainted|5.004000||Viu
+sb_s|5.003007||Viu
+sb_strend|5.003007||Viu
+sb_targ|5.003007||Viu
+scalar|5.003007||Viu
+scalarboolean|5.005000||Viu
+scalarkids|5.003007||Viu
+scalar_mod_type|5.006000||Vniu
+scalarvoid|5.003007||Viu
+scan_bin|5.006000|5.006000|
+scan_commit|5.005000||Viu
+scan_const|5.003007||Viu
+SCAN_DEF|5.003007||Viu
+scan_formline|5.003007||Viu
+scan_heredoc|5.003007||Viu
+scan_hex|5.006000|5.003007|
+scan_ident|5.003007||Viu
+scan_inputsymbol|5.003007||Viu
+scan_num|5.003007||cVu
+scan_oct|5.006000|5.003007|
+scan_pat|5.003007||Viu
+SCAN_REPL|5.003007||Viu
+scan_str|5.003007||xcViu
+scan_subst|5.003007||Viu
+SCAN_TR|5.003007||Viu
+scan_trans|5.003007||Viu
+scan_version|5.009001|5.009001|
+SCAN_VERSION|5.019008||Viu
+scan_vstring|5.009005|5.009005|u
+scan_word|5.003007||xcViu
+SCHED_YIELD|5.006000|5.006000|Vn
+SCOPE_SAVES_SIGNAL_MASK|5.007001||Viu
+search_const|5.010001||Viu
+seed|5.009003|5.009003|u
+seedDrand01|5.006000|5.006000|
+SEEK_CUR|5.003007||Viu
+seekdir|5.005000||Viu
+SEEK_END|5.003007||Viu
+SEEK_SET|5.003007||Viu
+select|5.005000||Viu
+Select_fd_set_t|5.003007|5.003007|Vn
+SELECT_MIN_BITS|5.005003|5.005003|Vn
+Semctl|5.004005||Viu
+semun|5.006000||Viu
+send|5.005000||Viu
+sendto|5.005000||Viu
+SEOL|5.003007||Viu
+SEOL_t8|5.035004||Viu
+SEOL_t8_p8|5.033003||Viu
+SEOL_t8_pb|5.033003||Viu
+SEOL_tb|5.035004||Viu
+SEOL_tb_p8|5.033003||Viu
+SEOL_tb_pb|5.033003||Viu
+sequence_num|5.009003||Viu
+set_ANYOF_arg|5.019005||Viu
+set_ANYOF_SYNTHETIC|5.019009||Viu
+setbuf|5.003007||Viu
+set_caret_X|5.019006||Viu
+set_context|5.006000|5.006000|nu
+setdefout|5.011000|5.011000|
+SETERRNO|5.003007||Vi
+setfd_cloexec|5.027008||Vniu
+setfd_cloexec_for_nonsysfd|5.027008||Viu
+setfd_cloexec_or_inhexec_by_sysfdness|5.027008||Viu
+setfd_inhexec|5.027008||Vniu
+setfd_inhexec_for_sysfd|5.027008||Viu
+setgid|5.005000||Viu
+setgrent|5.009000||Viu
+SETGRENT_R_HAS_FPTR|5.008000||Viu
+SETGRENT_R_PROTO|5.008000|5.008000|Vn
+sethostent|5.005000||Viu
+SETHOSTENT_R_PROTO|5.008000|5.008000|Vn
+SETi|5.003007||Viu
+setjmp|5.005000||Viu
+setlinebuf|5.005000||Viu
+setlocale|5.009000||Viu
+setlocale_debug_string|5.027002||Vniu
+SETLOCALE_LOCK|5.033005||Viu
+SETLOCALE_R_PROTO|5.008000|5.008000|Vn
+SETLOCALE_UNLOCK|5.033005||Viu
+SET_MARK_OFFSET|5.006000||Viu
+setmode|5.005000||Viu
+SETn|5.003007||Viu
+setnetent|5.005000||Viu
+SETNETENT_R_PROTO|5.008000|5.008000|Vn
+set_numeric_radix|5.006000||Viu
+SET_NUMERIC_STANDARD|5.004000||Viu
+set_numeric_standard|5.006000||cViu
+SET_NUMERIC_UNDERLYING|5.021010||Viu
+set_numeric_underlying|5.027006||cViu
+SETp|5.003007||Viu
+set_padlist|5.021006||cVniu
+setprotoent|5.005000||Viu
+SETPROTOENT_R_PROTO|5.008000|5.008000|Vn
+setpwent|5.009000||Viu
+SETPWENT_R_HAS_FPTR|5.008000||Viu
+SETPWENT_R_PROTO|5.008000|5.008000|Vn
+set_regex_pv|5.029004||Viu
+setregid|5.003007||Viu
+setreuid|5.003007||Viu
+SETs|5.003007||Viu
+setservent|5.005000||Viu
+SETSERVENT_R_PROTO|5.008000|5.008000|Vn
+setsockopt|5.005000||Viu
+setSTR_LEN|5.031005||Viu
+SET_SVANY_FOR_BODYLESS_IV|5.023008||Viu
+SET_SVANY_FOR_BODYLESS_NV|5.023008||Viu
+SETTARG|5.003007||Viu
+SET_THR|5.005000||Viu
+SET_THREAD_SELF|5.005003||Viu
+SETu|5.004000||Viu
+setuid|5.005000||Viu
+_setup_canned_invlist|5.019008||cViu
+setvbuf|5.003007||Viu
+share_hek|5.009003|5.009003|u
+share_hek_flags|5.008000||Viu
+share_hek_hek|5.009003||Viu
+sharepvn|5.005000||Viu
+SHARP_S_SKIP|5.007003||Viu
+Shmat_t|5.003007|5.003007|Vn
+SHORTSIZE|5.004000|5.004000|Vn
+should_warn_nl|5.021001||Vniu
+should_we_output_Debug_r|5.031011||Viu
+SH_PATH|5.003007|5.003007|Vn
+shutdown|5.005000||Viu
+si_dup|5.007003|5.007003|u
+S_IEXEC|5.006000||Viu
+S_IFIFO|5.011000||Viu
+S_IFMT|5.003007||Viu
+SIGABRT|5.003007||Viu
+sighandler1|5.031007||Vniu
+sighandler3|5.031007||Vniu
+sighandler|5.003007||Vniu
+SIGILL|5.003007||Viu
+Sigjmp_buf|5.003007|5.003007|Vn
+Siglongjmp|5.003007|5.003007|
+signal|5.005000||Viu
+Signal_t|5.003007|5.003007|Vn
+SIG_NAME|5.003007|5.003007|Vn
+SIG_NUM|5.003007|5.003007|Vn
+Sigsetjmp|5.003007|5.003007|
+SIG_SIZE|5.007001|5.007001|Vn
+simplify_sort|5.006000||Viu
+single_1bit_pos32|5.035003||cVnu
+single_1bit_pos64|5.035003||cVnu
+SINGLE_PAT_MOD|5.009005||Viu
+SIPHASH_SEED_STATE|5.027001||Viu
+SIPROUND|5.017006||Viu
+S_IREAD|5.006000||Viu
+S_IRGRP|5.003007||Viu
+S_IROTH|5.003007||Viu
+S_IRUSR|5.003007||Viu
+S_IRWXG|5.006000||Viu
+S_IRWXO|5.006000||Viu
+S_IRWXU|5.006000||Viu
+S_ISBLK|5.003007||Viu
+S_ISCHR|5.003007||Viu
+S_ISDIR|5.003007||Viu
+S_ISFIFO|5.003007||Viu
+S_ISGID|5.003007||Viu
+S_ISLNK|5.003007||Viu
+S_ISREG|5.003007||Viu
+S_ISSOCK|5.003007||Viu
+S_ISUID|5.003007||Viu
+SITEARCH|5.003007|5.003007|Vn
+SITEARCH_EXP|5.003007|5.003007|Vn
+SITELIB|5.003007|5.003007|Vn
+SITELIB_EXP|5.003007|5.003007|Vn
+SITELIB_STEM|5.006000|5.006000|Vn
+S_IWGRP|5.003007||Viu
+S_IWOTH|5.003007||Viu
+S_IWRITE|5.006000||Viu
+S_IWUSR|5.003007||Viu
+S_IXGRP|5.003007||Viu
+S_IXOTH|5.003007||Viu
+S_IXUSR|5.003007||Viu
+SIZE_ALIGN|5.005000||Viu
+Size_t|5.003007|5.003007|Vn
+Size_t_MAX|5.021003||Viu
+Size_t_size|5.006000|5.006000|Vn
+SKIP|5.009005||Viu
+SKIP_next|5.009005||Viu
+SKIP_next_fail|5.009005||Viu
+SKIP_next_fail_t8|5.035004||Viu
+SKIP_next_fail_t8_p8|5.033003||Viu
+SKIP_next_fail_t8_pb|5.033003||Viu
+SKIP_next_fail_tb|5.035004||Viu
+SKIP_next_fail_tb_p8|5.033003||Viu
+SKIP_next_fail_tb_pb|5.033003||Viu
+SKIP_next_t8|5.035004||Viu
+SKIP_next_t8_p8|5.033003||Viu
+SKIP_next_t8_pb|5.033003||Viu
+SKIP_next_tb|5.035004||Viu
+SKIP_next_tb_p8|5.033003||Viu
+SKIP_next_tb_pb|5.033003||Viu
+skipspace_flags|5.019002||xcViu
+SKIP_t8|5.035004||Viu
+SKIP_t8_p8|5.033003||Viu
+SKIP_t8_pb|5.033003||Viu
+SKIP_tb|5.035004||Viu
+SKIP_tb_p8|5.033003||Viu
+SKIP_tb_pb|5.033003||Viu
+skip_to_be_ignored_text|5.023004||Viu
+Slab_Alloc|5.006000||cViu
+Slab_Free|5.007003||cViu
+Slab_to_ro|5.017002||Viu
+Slab_to_rw|5.009005||Viu
+sleep|5.005000||Viu
+SLOPPYDIVIDE|5.003007||Viu
+socket|5.005000||Viu
+SOCKET_OPEN_MODE|5.008002||Viu
+socketpair|5.005000||Viu
+Sock_size_t|5.006000|5.006000|Vn
+softref2xv|||iu
+sortcv|5.009003||Viu
+sortcv_stacked|5.009003||Viu
+sortcv_xsub|5.009003||Viu
+sortsv|5.007003|5.007003|
+sortsv_flags|5.009003|5.009003|
+sortsv_flags_impl|5.031011||Viu
+SP|5.003007|5.003007|
+space_join_names_mortal|5.009004||Viu
+SPAGAIN|5.003007|5.003007|
+S_PAT_MODS|5.009005||Viu
+specialWARN|5.006000||Viu
+SRAND48_R_PROTO|5.008000|5.008000|Vn
+SRANDOM_R_PROTO|5.008000|5.008000|Vn
+SRCLOSE|5.027008||Viu
+SRCLOSE_t8|5.035004||Viu
+SRCLOSE_t8_p8|5.033003||Viu
+SRCLOSE_t8_pb|5.033003||Viu
+SRCLOSE_tb|5.035004||Viu
+SRCLOSE_tb_p8|5.033003||Viu
+SRCLOSE_tb_pb|5.033003||Viu
+SROPEN|5.027008||Viu
+SROPEN_t8|5.035004||Viu
+SROPEN_t8_p8|5.033003||Viu
+SROPEN_t8_pb|5.033003||Viu
+SROPEN_tb|5.035004||Viu
+SROPEN_tb_p8|5.033003||Viu
+SROPEN_tb_pb|5.033003||Viu
+SS_ACCVIO|5.008001||Viu
+SS_ADD_BOOL|5.017007||Viu
+SS_ADD_DPTR|5.017007||Viu
+SS_ADD_DXPTR|5.017007||Viu
+SS_ADD_END|5.017007||Viu
+SS_ADD_INT|5.017007||Viu
+SS_ADD_IV|5.017007||Viu
+SS_ADD_LONG|5.017007||Viu
+SS_ADD_PTR|5.017007||Viu
+SS_ADD_UV|5.017007||Viu
+SS_BUFFEROVF|5.021009||Viu
+ssc_add_range|5.019005||Viu
+ssc_and|5.019005||Viu
+ssc_anything|5.019005||Viu
+ssc_clear_locale|5.019005||Vniu
+ssc_cp_and|5.019005||Viu
+ssc_finalize|5.019005||Viu
+SSCHECK|5.003007||Viu
+ssc_init|5.019005||Viu
+ssc_intersection|5.019005||Viu
+ssc_is_anything|5.019005||Vniu
+ssc_is_cp_posixl_init|5.019005||Vniu
+SSC_MATCHES_EMPTY_STRING|5.021004||Viu
+ssc_or|5.019005||Viu
+ssc_union|5.019005||Viu
+SS_DEVOFFLINE|5.008001||Viu
+ss_dup|5.007003|5.007003|u
+SSGROW|5.008001||Viu
+SS_IVCHAN|5.008001||Viu
+SSize_t|5.003007|5.003007|Vn
+SSize_t_MAX|5.019004||Viu
+SS_MAXPUSH|5.017007||Viu
+SSNEW|5.006000||Viu
+SSNEWa|5.006000||Viu
+SSNEWat|5.007001||Viu
+SSNEWt|5.007001||Viu
+SS_NOPRIV|5.021001||Viu
+SS_NORMAL|5.008001||Viu
+SSPOPBOOL|5.008001||Viu
+SSPOPDPTR|5.003007||Viu
+SSPOPDXPTR|5.006000||Viu
+SSPOPINT|5.003007||Viu
+SSPOPIV|5.003007||Viu
+SSPOPLONG|5.003007||Viu
+SSPOPPTR|5.003007||Viu
+SSPOPUV|5.013001||Viu
+SSPTR|5.006000||Viu
+SSPTRt|5.007001||Viu
+SSPUSHBOOL|5.008001||Viu
+SSPUSHDPTR|5.003007||Viu
+SSPUSHDXPTR|5.006000||Viu
+SSPUSHINT|5.003007||Viu
+SSPUSHIV|5.003007||Viu
+SSPUSHLONG|5.003007||Viu
+SSPUSHPTR|5.003007||Viu
+SSPUSHUV|5.013001||Viu
+ST|5.003007|5.003007|
+stack_grow|5.003007||cVu
+STANDARD_C|5.003007||Viu
+STAR|5.003007||Viu
+STAR_t8|5.035004||Viu
+STAR_t8_p8|5.033003||Viu
+STAR_t8_pb|5.033003||Viu
+STAR_tb|5.035004||Viu
+STAR_tb_p8|5.033003||Viu
+STAR_tb_pb|5.033003||Viu
+START_EXTERN_C|5.005000|5.003007|pV
+start_glob|||xi
+START_MY_CXT|5.010000|5.010000|p
+STARTPERL|5.003007|5.003007|Vn
+start_subparse|5.004000|5.003007|pu
+StashHANDLER|5.007001||Viu
+Stat|5.003007||Viu
+stat|5.005000||Viu
+STATIC|5.005000||Viu
+STATIC_ASSERT_1|5.021007||Viu
+STATIC_ASSERT_2|5.021007||Viu
+STATIC_ASSERT_DECL|5.027001||Viu
+STATIC_ASSERT_STMT|5.021007||Viu
+Stat_t|5.004005||Viu
+STATUS_ALL_FAILURE|5.004000||Viu
+STATUS_ALL_SUCCESS|5.004000||Viu
+STATUS_CURRENT|5.004000||Viu
+STATUS_EXIT|5.009003||Viu
+STATUS_EXIT_SET|5.009003||Viu
+STATUS_NATIVE|5.004000||Viu
+STATUS_NATIVE_CHILD_SET|5.009003||Viu
+STATUS_UNIX|5.009003||Viu
+STATUS_UNIX_EXIT_SET|5.009003||Viu
+STATUS_UNIX_SET|5.009003||Viu
+STDCHAR|5.003007|5.003007|Vn
+stderr|5.003007||Viu
+ST_DEV_SIGN|5.035004|5.035004|Vn
+ST_DEV_SIZE|5.035004|5.035004|Vn
+stdin|5.003007||Viu
+STDIO_PTR_LVAL_SETS_CNT|5.007001|5.007001|Vn
+STDIO_PTR_LVALUE|5.006000|5.006000|Vn
+STDIO_STREAM_ARRAY|5.006000|5.006000|Vn
+stdize_locale|5.007001||Viu
+stdout|5.003007||Viu
+stdoutf|5.005000||Viu
+STD_PAT_MODS|5.009005||Viu
+STD_PMMOD_FLAGS_CLEAR|5.013006||Viu
+ST_INO_SIGN|5.015002|5.015002|Vn
+ST_INO_SIZE|5.015002|5.015002|Vn
+STMT_END|5.003007|5.003007|pV
+STMT_START|5.003007|5.003007|pV
+STOREFEATUREBITSHH|5.031006||Viu
+STORE_LC_NUMERIC_FORCE_TO_UNDERLYING|5.021010|5.021010|
+STORE_LC_NUMERIC_SET_STANDARD|5.027009||pVu
+STORE_LC_NUMERIC_SET_TO_NEEDED|5.021010|5.021010|
+STORE_LC_NUMERIC_SET_TO_NEEDED_IN|5.031003|5.031003|
+STORE_NUMERIC_SET_STANDARD|||piu
+strBEGINs|5.027006||Viu
+strEQ|5.003007|5.003007|
+Strerror|5.003007||Viu
+strerror|5.009000||Viu
+STRERROR_R_PROTO|5.008000|5.008000|Vn
+strGE|5.003007|5.003007|
+strGT|5.003007|5.003007|
+STRING|5.006000||Viu
+STRINGIFY|5.003007|5.003007|Vn
+STRINGl|5.031005||Viu
+STRINGs|5.031005||Viu
+strip_return|5.009003||Viu
+strLE|5.003007|5.003007|
+STR_LEN|5.006000||Viu
+STRLEN|5.027001||Viu
+STR_LENl|5.031005||Viu
+STR_LENs|5.031005||Viu
+strLT|5.003007|5.003007|
+strNE|5.003007|5.003007|
+strnEQ|5.003007|5.003007|
+strnNE|5.003007|5.003007|
+STR_SZ|5.006000||Viu
+Strtod|5.029010|5.029010|n
+Strtol|5.006000|5.006000|n
+strtoll|5.006000||Viu
+Strtoul|5.006000|5.006000|n
+strtoull|5.006000||Viu
+str_to_version|5.006000||cVu
+StructCopy|5.003007|5.003007|V
+STRUCT_OFFSET|5.004000||Viu
+STRUCT_SV|5.007001||Viu
+STR_WITH_LEN|5.009003|5.003007|pV
+study_chunk|5.005000||Viu
+sub_crush_depth|5.004000||Viu
+sublex_done|5.005000||Viu
+sublex_push|5.005000||Viu
+sublex_start|5.005000||Viu
+SUBST_TAINT_BOOLRET|5.013010||Viu
+SUBST_TAINT_PAT|5.013010||Viu
+SUBST_TAINT_REPL|5.013010||Viu
+SUBST_TAINT_RETAINT|5.013010||Viu
+SUBST_TAINT_STR|5.013010||Viu
+SUBVERSION|5.003007||Viu
+SUCCEED|5.003007||Viu
+SUCCEED_t8|5.035004||Viu
+SUCCEED_t8_p8|5.033003||Viu
+SUCCEED_t8_pb|5.033003||Viu
+SUCCEED_tb|5.035004||Viu
+SUCCEED_tb_p8|5.033003||Viu
+SUCCEED_tb_pb|5.033003||Viu
+SUSPEND|5.005000||Viu
+SUSPEND_t8|5.035004||Viu
+SUSPEND_t8_p8|5.033003||Viu
+SUSPEND_t8_pb|5.033003||Viu
+SUSPEND_tb|5.035004||Viu
+SUSPEND_tb_p8|5.033003||Viu
+SUSPEND_tb_pb|5.033003||Viu
+sv_2bool|5.013006||cV
+sv_2bool_flags|5.013006||cV
+sv_2bool_nomg|5.017002||Viu
+sv_2cv|5.003007|5.003007|
+sv_2io|5.003007|5.003007|
+sv_2iuv_common|5.009004||Viu
+sv_2iuv_non_preserve|5.007001||Viu
+sv_2iv|5.009001||cVu
+sv_2iv_flags|5.009001|5.009001|
+sv_2mortal|5.003007|5.003007|
+sv_2num|5.010000||xVi
+sv_2nv|5.013001||Viu
+sv_2nv_flags|5.013001|5.013001|
+sv_2pv|5.005000||cVu
+sv_2pvbyte|5.006000|5.003007|p
+sv_2pvbyte_flags|5.031004|5.031004|u
+sv_2pvbyte_nolen|5.009003||pcV
+sv_2pv_flags|5.007002||pcV
+sv_2pv_nolen|5.009003||pcV
+sv_2pv_nomg|5.007002||Viu
+sv_2pvutf8|5.006000|5.006000|
+sv_2pvutf8_flags|5.031004|5.031004|u
+sv_2pvutf8_nolen|5.009003||cV
+sv_2uv|5.009001||pcVu
+sv_2uv_flags|5.009001|5.009001|
+sv_add_arena|5.003007||Vi
+sv_add_backref|||iu
+SvAMAGIC|5.003007||Viu
+SvAMAGIC_off|5.003007|5.003007|nu
+SvAMAGIC_on|5.003007|5.003007|nu
+SvANY|5.003007||Viu
+SvARENA_CHAIN_SET|||Viu
+SvARENA_CHAIN|||Viu
+sv_backoff|5.003007|5.003007|n
+sv_bless|5.003007|5.003007|
+sv_buf_to_ro|5.019008||Viu
+sv_buf_to_rw|5.019008||Viu
+SvCANCOW|5.017007||Viu
+SvCANEXISTDELETE|5.011000||Viu
+SV_CATBYTES|5.021005|5.021005|
+sv_cat_decode|5.008001|5.008001|
+sv_cathek|5.021004||Viu
+sv_catpv|5.003007|5.003007|
+sv_catpvf|5.004000||vV
+sv_catpv_flags|5.013006|5.013006|
+sv_catpvf_mg|5.004005||pvV
+sv_catpvf_mg_nocontext|5.006000||pvVn
+sv_catpvf_nocontext|5.006000||vVn
+sv_catpv_mg|5.004005|5.003007|p
+sv_catpvn|5.003007|5.003007|
+sv_catpvn_flags|5.007002|5.007002|
+sv_catpvn_mg|5.004005|5.003007|p
+sv_catpvn_nomg|5.007002|5.003007|p
+sv_catpvn_nomg_maybeutf8|5.017005||Viu
+sv_catpvn_nomg_utf8_upgrade|5.017002||Viu
+sv_catpv_nomg|5.013006|5.013006|
+sv_catpvs|5.009003|5.003007|p
+sv_catpvs_flags|5.013006|5.013006|
+sv_catpvs_mg|5.013006|5.013006|
+sv_catpvs_nomg|5.013006|5.013006|
+sv_catsv|5.003007|5.003007|
+sv_catsv_flags|5.007002|5.007002|
+sv_catsv_mg|5.004005|5.003007|p
+sv_catsv_nomg|5.007002|5.003007|p
+SV_CATUTF8|5.021005|5.021005|
+sv_catxmlpvs|5.013006||Viu
+SV_CHECK_THINKFIRST|5.008001||Viu
+SV_CHECK_THINKFIRST_COW_DROP|5.009000||Viu
+sv_chop|5.003007|5.003007|
+sv_clean_all|5.003007||Vi
+sv_clean_objs|5.003007||Vi
+sv_clear|5.003007|5.003007|
+sv_cmp|5.003007|5.003007|
+sv_cmp_flags|5.013006|5.013006|
+sv_cmp_locale|5.004000|5.004000|
+sv_cmp_locale_flags|5.013006|5.013006|
+sv_collxfrm|5.013006||V
+sv_collxfrm_flags|5.013006|5.013006|
+SvCOMPILED|5.003007||Viu
+SvCOMPILED_off|5.003007||Viu
+SvCOMPILED_on|5.003007||Viu
+SV_CONST|5.019002||Viu
+SV_CONST_BINMODE|5.019002||Viu
+SV_CONST_CLEAR|5.019002||Viu
+SV_CONST_CLOSE|5.019002||Viu
+SV_CONST_DELETE|5.019002||Viu
+SV_CONST_DESTROY|5.019002||Viu
+SV_CONST_EOF|5.019002||Viu
+SV_CONST_EXISTS|5.019002||Viu
+SV_CONST_EXTEND|5.019002||Viu
+SV_CONST_FETCH|5.019002||Viu
+SV_CONST_FETCHSIZE|5.019002||Viu
+SV_CONST_FILENO|5.019002||Viu
+SV_CONST_FIRSTKEY|5.019002||Viu
+SV_CONST_GETC|5.019002||Viu
+SV_CONST_NEXTKEY|5.019002||Viu
+SV_CONST_OPEN|5.019002||Viu
+SV_CONST_POP|5.019002||Viu
+SV_CONST_PRINT|5.019002||Viu
+SV_CONST_PRINTF|5.019002||Viu
+SV_CONST_PUSH|5.019002||Viu
+SV_CONST_READ|5.019002||Viu
+SV_CONST_READLINE|5.019002||Viu
+SV_CONST_RETURN|5.009003|5.003007|poVnu
+SV_CONST_SCALAR|5.019002||Viu
+SV_CONSTS_COUNT|5.019002||Viu
+SV_CONST_SEEK|5.019002||Viu
+SV_CONST_SHIFT|5.019002||Viu
+SV_CONST_SPLICE|5.019002||Viu
+SV_CONST_STORE|5.019002||Viu
+SV_CONST_STORESIZE|5.019002||Viu
+SV_CONST_TELL|5.019002||Viu
+SV_CONST_TIEARRAY|5.019002||Viu
+SV_CONST_TIEHANDLE|5.019002||Viu
+SV_CONST_TIEHASH|5.019002||Viu
+SV_CONST_TIESCALAR|5.019002||Viu
+SV_CONST_UNSHIFT|5.019002||Viu
+SV_CONST_UNTIE|5.019002||Viu
+SV_CONST_WRITE|5.019002||Viu
+sv_copypv|5.007003|5.007003|
+sv_copypv_flags|5.017002|5.017002|
+sv_copypv_nomg|5.017002|5.017002|
+SV_COW_DROP_PV|5.008001|5.003007|p
+SV_COW_OTHER_PVS|5.009005||Viu
+SV_COW_REFCNT_MAX|5.017007||Viu
+SV_COW_SHARED_HASH_KEYS|5.009005|5.003007|poVnu
+SvCUR|5.003007|5.003007|
+SvCUR_set|5.003007|5.003007|
+sv_dec|5.003007|5.003007|
+sv_dec_nomg|5.013002|5.013002|
+sv_del_backref|5.006000||cViu
+sv_derived_from|5.004000|5.004000|
+sv_derived_from_pv|5.015004|5.015004|
+sv_derived_from_pvn|5.015004|5.015004|
+sv_derived_from_sv|5.015004|5.015004|
+sv_derived_from_svpvn|5.031006||Viu
+sv_destroyable|5.010000|5.010000|
+SvDESTROYABLE|5.010000||Viu
+sv_display|5.021002||Viu
+SV_DO_COW_SVSETSV|5.009005||Viu
+sv_does|5.009004|5.009004|
+sv_does_pv|5.015004|5.015004|
+sv_does_pvn|5.015004|5.015004|
+sv_does_sv|5.015004|5.015004|
+sv_dump|5.003007|5.003007|
+sv_dup|5.007003|5.007003|u
+sv_dup_common|5.013002||Viu
+sv_dup_inc|5.013002|5.013002|u
+sv_dup_inc_multiple|5.011000||Viu
+SvEND|5.003007|5.003007|
+SvEND_set|5.003007||Viu
+SvENDx|5.003007||Viu
+sv_eq|5.003007|5.003007|
+sv_eq_flags|5.013006|5.013006|
+sv_exp_grow|5.009003||Viu
+SVf256|5.008001||Viu
+SVf32|5.009002||Viu
+SVf|5.006000|5.003007|p
+SvFAKE|5.003007||Viu
+SvFAKE_off|5.003007||Viu
+SvFAKE_on|5.003007||Viu
+SVf_AMAGIC|5.003007||Viu
+SVfARG|5.009005|5.003007|p
+SVf_BREAK|5.003007||Viu
+SVf_FAKE|5.003007||Viu
+SVf_IOK|5.003007||Viu
+SVf_IsCOW|5.017006||Viu
+SVf_IVisUV|5.006000||Viu
+SvFLAGS|5.003007||Viu
+SVf_NOK|5.003007||Viu
+SVf_OK|5.003007||Viu
+SVf_OOK|5.003007||Viu
+sv_force_normal|5.006000|5.006000|
+sv_force_normal_flags|5.007001|5.007001|
+SV_FORCE_UTF8_UPGRADE|5.011000|5.011000|
+SVf_POK|5.003007||Viu
+SVf_PROTECT|5.021005||Viu
+SVf_READONLY|5.003007||Viu
+sv_free2|||xciu
+sv_free|5.003007|5.003007|
+sv_free_arenas|5.003007||Vi
+SVf_ROK|5.003007||Viu
+SVf_THINKFIRST|5.003007||Viu
+SVf_UTF8|5.006000|5.003007|p
+SvGAMAGIC|5.006001|5.006001|
+sv_get_backrefs|5.021008|5.021008|xn
+SvGETMAGIC|5.004005|5.003007|p
+sv_gets|5.003007|5.003007|
+SvGID|5.019001||Viu
+SV_GMAGIC|5.007002|5.003007|p
+SvGMAGICAL|5.003007||Viu
+SvGMAGICAL_off|5.003007||Viu
+SvGMAGICAL_on|5.003007||Viu
+SvGROW|5.003007|5.003007|
+sv_grow|5.003007||cV
+Sv_Grow|5.003007||Viu
+sv_grow_fresh|5.035006||cV
+SvGROW_mutable|5.009003||Viu
+SV_HAS_TRAILING_NUL|5.009004|5.003007|p
+SV_IMMEDIATE_UNREF|5.007001|5.003007|p
+SvIMMORTAL|5.004000||Viu
+SvIMMORTAL_INTERP|5.027003||Viu
+SvIMMORTAL_TRUE|5.027003||Viu
+sv_inc|5.003007|5.003007|
+sv_i_ncmp|5.009003||Viu
+sv_i_ncmp_desc|5.031011||Viu
+sv_inc_nomg|5.013002|5.013002|
+sv_insert|5.003007|5.003007|
+sv_insert_flags|5.010001|5.010001|
+SvIOK|5.003007|5.003007|
+SvIOK_nog|5.017002||Viu
+SvIOK_nogthink|5.017002||Viu
+SvIOK_notUV|5.006000|5.006000|
+SvIOK_off|5.003007|5.003007|
+SvIOK_on|5.003007|5.003007|
+SvIOK_only|5.003007|5.003007|
+SvIOK_only_UV|5.006000|5.006000|
+SvIOKp|5.003007|5.003007|
+SvIOKp_on|5.003007||Viu
+SvIOK_UV|5.006000|5.006000|
+sv_isa|5.003007|5.003007|
+sv_isa_sv|5.031007|5.031007|x
+SvIsBOOL|5.035004|5.035004|
+SvIsCOW|5.008003|5.008003|
+SvIsCOW_shared_hash|5.008003|5.008003|
+SvIS_FREED|5.009003||Viu
+sv_isobject|5.003007|5.003007|
+SvIV|5.003007|5.003007|
+sv_iv|5.005000||dcV
+SvIV_nomg|5.009001|5.003007|p
+SvIV_please|5.007001||Viu
+SvIV_please_nomg|5.013002||Viu
+SvIV_set|5.003007|5.003007|
+SvIVX|5.003007|5.003007|
+SvIVx|5.003007|5.003007|
+SvIVXx|5.003007||Viu
+sv_kill_backrefs|||xiu
+sv_len|5.003007|5.003007|
+SvLEN|5.003007|5.003007|
+SvLEN_set|5.003007|5.003007|
+sv_len_utf8|5.006000|5.006000|p
+sv_len_utf8_nomg||5.006000|p
+SvLENx|5.003007||Viu
+SvLOCK|5.007003|5.007003|
+sv_magic|5.003007|5.003007|
+SvMAGIC|5.003007||Viu
+SvMAGICAL|5.003007||Viu
+SvMAGICAL_off|5.003007||Viu
+SvMAGICAL_on|5.003007||Viu
+sv_magicext|5.007003|5.007003|
+sv_magicext_mglob|5.019002||cViu
+sv_magic_portable||5.004000|pou
+SvMAGIC_set|5.009003|5.003007|p
+sv_mortalcopy|5.003007|5.003007|
+sv_mortalcopy_flags|5.031001|5.003007|p
+SV_MUTABLE_RETURN|5.009003|5.003007|poVnu
+sv_ncmp|5.009003||Viu
+sv_ncmp_desc|5.031011||Viu
+sv_newmortal|5.003007|5.003007|
+sv_newref|5.003007||cV
+SvNIOK|5.003007|5.003007|
+SvNIOK_nog|5.017002||Viu
+SvNIOK_nogthink|5.017002||Viu
+SvNIOK_off|5.003007|5.003007|
+SvNIOKp|5.003007|5.003007|
+SvNOK|5.003007|5.003007|
+SvNOK_nog|5.017002||Viu
+SvNOK_nogthink|5.017002||Viu
+SvNOK_off|5.003007|5.003007|
+SvNOK_on|5.003007|5.003007|
+SvNOK_only|5.003007|5.003007|
+SvNOKp|5.003007|5.003007|
+SvNOKp_on|5.003007||Viu
+sv_nolocking|5.031004|5.031004|d
+sv_nosharing|5.007003|5.007003|
+SV_NOSTEAL|5.009002|5.003007|p
+sv_nounlocking|5.009004|5.009004|d
+sv_numeq|5.035009|5.035009|
+sv_numeq_flags|5.035009|5.035009|
+sv_nv|5.005000||dcV
+SvNV|5.006000|5.003007|
+SvNV_nomg|5.013002|5.003007|p
+SvNV_set|5.006000|5.003007|
+SvNVX|5.006000|5.003007|
+SvNVx|5.006000|5.003007|
+SvNVXx|5.003007||Viu
+SvOBJECT|5.003007||Viu
+SvOBJECT_off|5.003007||Viu
+SvOBJECT_on|5.003007||Viu
+SvOK|5.003007|5.003007|
+SvOK_off|5.003007||Viu
+SvOK_off_exc_UV|5.006000||Viu
+SvOKp|5.003007||Viu
+sv_only_taint_gmagic|5.021010||Vniu
+SvOOK|5.003007|5.003007|
+SvOOK_off|5.003007|5.003007|
+SvOOK_offset|5.011000|5.011000|
+SvOOK_on|5.003007||Viu
+sv_or_pv_len_utf8|5.017005||Viu
+sv_or_pv_pos_u2b|5.019004||Viu
+SvOURSTASH|5.009005||Viu
+SvOURSTASH_set|5.009005||Viu
+SvPADMY|5.003007||Viu
+SvPADMY_on|5.003007||Viu
+SVpad_OUR|5.006000||Viu
+SvPAD_OUR|5.009004||Viu
+SvPAD_OUR_on|5.009004||Viu
+SvPADSTALE|5.009000||Viu
+SvPADSTALE_off|5.009000||Viu
+SvPADSTALE_on|5.009000||Viu
+SVpad_STATE|5.009004||Viu
+SvPAD_STATE|5.009004||Viu
+SvPAD_STATE_on|5.009004||Viu
+SvPADTMP|5.003007||Viu
+SvPADTMP_off|5.003007||Viu
+SvPADTMP_on|5.003007||Viu
+SVpad_TYPED|5.007002||Viu
+SvPAD_TYPED|5.009004||Viu
+SvPAD_TYPED_on|5.009004||Viu
+SVpav_REAL|5.009003||Viu
+SVpav_REIFY|5.009003||Viu
+SvPCS_IMPORTED|5.009005||Viu
+SvPCS_IMPORTED_off|5.009005||Viu
+SvPCS_IMPORTED_on|5.009005||Viu
+SvPEEK|5.003007||Viu
+sv_peek|5.005000|5.005000|u
+SVpgv_GP|5.009005||Viu
+SVphv_CLONEABLE|5.009003||Viu
+SVphv_HASKFLAGS|5.008000||Viu
+SVphv_LAZYDEL|5.003007||Viu
+SVphv_SHAREKEYS|5.003007||Viu
+SVp_IOK|5.003007||Viu
+SVp_NOK|5.003007||Viu
+SvPOK|5.003007|5.003007|
+SvPOK_byte_nog|5.017002||Viu
+SvPOK_byte_nogthink|5.017002||Viu
+SvPOK_byte_pure_nogthink|5.017003||Viu
+SvPOK_nog|5.017002||Viu
+SvPOK_nogthink|5.017002||Viu
+SvPOK_off|5.003007|5.003007|
+SvPOK_on|5.003007|5.003007|
+SvPOK_only|5.003007|5.003007|
+SvPOK_only_UTF8|5.006000|5.006000|
+SvPOK_or_cached_IV|||Viu
+SvPOKp|5.003007|5.003007|
+SvPOKp_on|5.003007||Viu
+SvPOK_pure_nogthink|5.017003||Viu
+SvPOK_utf8_nog|5.017002||Viu
+SvPOK_utf8_nogthink|5.017002||Viu
+SvPOK_utf8_pure_nogthink|5.017003||Viu
+sv_pos_b2u|5.006000|5.006000|
+sv_pos_b2u_flags|5.019003|5.019003|
+sv_pos_b2u_midway|5.009004||Viu
+sv_pos_u2b|5.006000|5.006000|
+sv_pos_u2b_cached|5.009004||Viu
+sv_pos_u2b_flags|5.011005|5.011005|
+sv_pos_u2b_forwards|5.009004||Vniu
+sv_pos_u2b_midway|5.009004||Vniu
+SVp_POK|5.003007||Viu
+SVppv_STATIC|5.035004||Viu
+SVprv_PCS_IMPORTED|5.009005||Viu
+SVprv_WEAKREF|5.006000||Viu
+SVp_SCREAM|5.003007||Viu
+SvPV|5.003007|5.003007|
+sv_pv|5.008000||cV
+SvPVbyte|5.006000|5.003007|p
+sv_pvbyte|5.008000||cV
+SvPVbyte_force|5.009002|5.009002|
+sv_pvbyten|5.006000||dcV
+sv_pvbyten_force|5.006000||cV
+SvPVbyte_nolen|5.006000|5.006000|
+SvPVbyte_nomg|5.031004|5.031004|
+SvPVbyte_or_null|5.031004|5.031004|
+SvPVbyte_or_null_nomg|5.031004|5.031004|
+SvPVbytex|5.006000|5.006000|
+SvPVbytex_force|5.006000|5.006000|
+SvPVbytex_nolen|5.009003|5.009003|
+SvPVCLEAR|5.025006|5.025006|p
+SvPV_const|5.009003|5.003007|p
+SvPV_flags|5.007002|5.003007|p
+SvPV_flags_const|5.009003|5.003007|p
+SvPV_flags_const_nolen|5.009003||pVu
+SvPV_flags_mutable|5.009003|5.003007|p
+SvPV_force|5.003007|5.003007|p
+SvPV_force_flags|5.007002|5.003007|p
+SvPV_force_flags_mutable|5.009003|5.003007|p
+SvPV_force_flags_nolen|5.009003|5.003007|p
+SvPV_force_mutable|5.009003|5.003007|p
+SvPV_force_nolen|5.009003|5.003007|p
+SvPV_force_nomg|5.007002|5.003007|p
+SvPV_force_nomg_nolen|5.009003|5.003007|p
+SvPV_free|5.009003|5.009003|
+SvPV_mutable|5.009003|5.003007|p
+sv_pvn|5.004000||dcV
+sv_pvn_force|5.005000||cV
+sv_pvn_force_flags|5.007002|5.003007|p
+sv_pvn_force_nomg|5.007002||Viu
+sv_pvn_nomg|5.007003|5.005000|pdu
+SvPV_nolen|5.006000|5.003007|p
+SvPV_nolen_const|5.009003|5.003007|p
+SvPV_nomg|5.007002|5.003007|p
+SvPV_nomg_const|5.009003|5.003007|p
+SvPV_nomg_const_nolen|5.009003|5.003007|p
+SvPV_nomg_nolen|5.013007|5.003007|p
+SvPV_renew|5.009003|5.003007|p
+SvPV_set|5.003007|5.003007|
+SvPV_shrink_to_cur|5.009003||Viu
+SvPVutf8|5.006000|5.006000|
+sv_pvutf8|5.008000||cV
+SvPVutf8_force|5.006000|5.006000|
+sv_pvutf8n|5.006000||dcV
+sv_pvutf8n_force|5.006000||cV
+SvPVutf8_nolen|5.006000|5.006000|
+SvPVutf8_nomg|5.031004|5.031004|
+SvPVutf8_or_null|5.031004|5.031004|
+SvPVutf8_or_null_nomg|5.031004|5.031004|
+SvPVutf8x|5.006000|5.006000|
+SvPVutf8x_force|5.006000|5.006000|
+SvPVX|5.003007|5.003007|
+SvPVx|5.003007|5.003007|
+SvPVX_const|5.009003|5.003007|p
+SvPVx_const|5.009003|5.009003|
+SvPVx_force|5.005000|5.005000|
+SvPVX_mutable|5.009003|5.003007|p
+SvPVx_nolen|5.009003|5.009003|
+SvPVx_nolen_const|5.009003|5.003007|p
+SvPVXtrue|5.017002||Viu
+SvPVXx|5.003007|5.003007|
+SvREADONLY|5.003007|5.003007|
+SvREADONLY_off|5.003007|5.003007|
+SvREADONLY_on|5.003007|5.003007|
+sv_recode_to_utf8|5.007003|5.007003|
+sv_ref|5.023005|5.023005|
+SvREFCNT|5.003007|5.003007|
+SvREFCNT_dec|5.003007|5.003007|
+SvREFCNT_dec_NN|5.017007|5.017007|
+SvREFCNT_IMMORTAL|5.017008||Viu
+SvREFCNT_inc|5.003007|5.003007|pn
+SvREFCNT_inc_NN|5.009004|5.003007|pn
+SvREFCNT_inc_simple|5.009004|5.003007|pn
+SvREFCNT_inc_simple_NN|5.009004|5.003007|pn
+SvREFCNT_inc_simple_void|5.009004|5.003007|pn
+SvREFCNT_inc_simple_void_NN|5.009004|5.003007|pn
+SvREFCNT_inc_void|5.009004|5.003007|pn
+SvREFCNT_inc_void_NN|5.009004|5.003007|pn
+sv_reftype|5.003007|5.003007|
+sv_replace|5.003007|5.003007|
+sv_report_used|5.003007|5.003007|
+sv_reset|5.003007|5.003007|
+sv_resetpvn|5.017005||Viu
+SvRMAGICAL|5.003007||Viu
+SvRMAGICAL_off|5.003007||Viu
+SvRMAGICAL_on|5.003007||Viu
+SvROK|5.003007|5.003007|
+SvROK_off|5.003007|5.003007|
+SvROK_on|5.003007|5.003007|
+SvRV|5.003007|5.003007|
+SvRV_const|5.010001||Viu
+SvRV_set|5.009003|5.003007|p
+sv_rvunweaken|5.027004|5.027004|
+sv_rvweaken|5.006000|5.006000|
+SvRVx|5.003007||Viu
+SvRX|5.009005|5.003007|p
+SvRXOK|5.009005|5.003007|p
+SV_SAVED_COPY|5.009005||Viu
+SvSCREAM|5.003007||Viu
+SvSCREAM_off|5.003007||Viu
+SvSCREAM_on|5.003007||Viu
+sv_setbool|5.035004|5.035004|
+sv_setbool_mg|5.035004|5.035004|
+sv_setgid|5.019001||Viu
+sv_sethek|5.015004||cViu
+sv_setiv|5.003007|5.003007|
+sv_setiv_mg|5.004005|5.003007|p
+SvSETMAGIC|5.003007|5.003007|
+SvSetMagicSV|5.004000|5.004000|
+SvSetMagicSV_nosteal|5.004000|5.004000|
+sv_setnv|5.006000|5.003007|
+sv_setnv_mg|5.006000|5.003007|p
+sv_setpv|5.003007|5.003007|
+sv_setpv_bufsize|5.025006|5.025006|
+sv_setpvf|5.004000||vV
+sv_setpvf_mg|5.004005||pvV
+sv_setpvf_mg_nocontext|5.006000||pvVn
+sv_setpvf_nocontext|5.006000||vVn
+sv_setpviv|5.008001|5.008001|d
+sv_setpviv_mg|5.008001|5.008001|d
+sv_setpv_mg|5.004005|5.003007|p
+sv_setpvn|5.003007|5.003007|
+sv_setpvn_fresh|5.035006|5.035006|
+sv_setpvn_mg|5.004005|5.003007|p
+sv_setpvs|5.009004|5.003007|p
+sv_setpvs_mg|5.013006|5.013006|
+sv_setref_iv|5.003007|5.003007|
+sv_setref_nv|5.006000|5.003007|
+sv_setref_pv|5.003007|5.003007|
+sv_setref_pvn|5.003007|5.003007|
+sv_setref_pvs|5.013006|5.013006|
+sv_setref_uv|5.007001|5.007001|
+sv_setrv_inc|5.035004|5.035004|
+sv_setrv_inc_mg|5.035004|5.035004|
+sv_setrv_noinc|5.035004|5.035004|
+sv_setrv_noinc_mg|5.035004|5.035004|
+sv_setsv|5.003007|5.003007|
+SvSetSV|5.003007|5.003007|
+sv_setsv_cow|5.009000||xcViu
+sv_setsv_flags|5.007002|5.003007|p
+sv_setsv_mg|5.004005|5.003007|p
+sv_setsv_nomg|5.007002|5.003007|p
+SvSetSV_nosteal|5.004000|5.004000|
+sv_setuid|5.019001||Viu
+sv_set_undef|5.025008|5.025008|
+sv_setuv|5.004000|5.003007|p
+sv_setuv_mg|5.004005|5.003007|p
+SVs_GMG|5.003007||Viu
+SvSHARE|5.007003|5.007003|
+SvSHARED_HASH|5.009003|5.003007|p
+SvSHARED_HEK_FROM_PV|5.009003||Viu
+SV_SKIP_OVERLOAD|5.013001||Viu
+SV_SMAGIC|5.009003|5.003007|p
+SvSMAGICAL|5.003007||Viu
+SvSMAGICAL_off|5.003007||Viu
+SvSMAGICAL_on|5.003007||Viu
+SVs_OBJECT|5.003007||Viu
+SVs_PADMY|5.003007||Viu
+SVs_PADSTALE|5.009000|5.009000|
+SVs_PADTMP|5.003007||Viu
+SVs_RMG|5.003007||Viu
+SVs_SMG|5.003007||Viu
+SvSTASH|5.003007|5.003007|
+SvSTASH_set|5.009003|5.003007|p
+SVs_TEMP|5.003007|5.003007|
+sv_streq|5.035009|5.035009|
+sv_streq_flags|5.035009|5.035009|
+sv_string_from_errnum|5.027003|5.027003|
+SvTAIL|5.003007||Viu
+SvTAINT|5.003007|5.003007|
+sv_taint|5.009003||cV
+SvTAINTED|5.004000|5.004000|
+sv_tainted|5.004000||cV
+SvTAINTED_off|5.004000|5.004000|
+SvTAINTED_on|5.004000|5.004000|
+SvTEMP|5.003007||Viu
+SvTEMP_off|5.003007||Viu
+SvTEMP_on|5.003007||Viu
+SVt_FIRST|5.021005||Viu
+SvTHINKFIRST|5.003007||Vi
+SvTIED_mg|5.005003||Viu
+SvTIED_obj|5.005003|5.005003|
+SVt_INVLIST|||c
+SVt_IV|5.003007|5.003007|
+SVt_MASK|5.015001||Viu
+SVt_NULL|5.003007|5.003007|
+SVt_NV|5.003007|5.003007|
+SVt_PV|5.003007|5.003007|
+SVt_PVAV|5.003007|5.003007|
+SVt_PVBM|5.009005||Viu
+SVt_PVCV|5.003007|5.003007|
+SVt_PVFM|5.003007|5.003007|
+SVt_PVGV|5.003007|5.003007|
+SVt_PVHV|5.003007|5.003007|
+SVt_PVIO|5.003007|5.003007|
+SVt_PVIV|5.003007|5.003007|
+SVt_PVLV|5.003007|5.003007|
+SVt_PVMG|5.003007|5.003007|
+SVt_PVNV|5.003007|5.003007|
+SVt_REGEXP|5.011000|5.011000|
+SvTRUE|5.003007|5.003007|
+sv_true|5.005000||cV
+SvTRUE_common|5.033005||cVu
+SvTRUE_NN|5.017007|5.017007|
+SvTRUE_nomg|5.013006|5.003007|p
+SvTRUE_nomg_NN|5.017007|5.017007|
+SvTRUEx|5.003007|5.003007|
+SvTRUEx_nomg|5.017002||Viu
+SVt_RV|5.011000||Viu
+SvTYPE|5.003007|5.003007|
+SVTYPEMASK|5.003007||Viu
+SvUID|5.019001||Viu
+SV_UNDEF_RETURNS_NULL|5.011000||Viu
+sv_unglob|5.005000||Viu
+sv_uni_display|5.007003|5.007003|
+SvUNLOCK|5.007003|5.007003|
+sv_unmagic|5.003007|5.003007|
+sv_unmagicext|5.013008|5.003007|p
+sv_unref|5.003007|5.003007|
+sv_unref_flags|5.007001|5.007001|
+sv_untaint|5.004000||cV
+SvUOK|5.007001|5.006000|p
+SvUOK_nog|5.017002||Viu
+SvUOK_nogthink|5.017002||Viu
+sv_upgrade|5.003007|5.003007|
+SvUPGRADE|5.003007|5.003007|
+sv_usepvn|5.003007|5.003007|
+sv_usepvn_flags|5.009004|5.009004|
+sv_usepvn_mg|5.004005|5.003007|p
+SvUTF8|5.006000|5.003007|p
+sv_utf8_decode|5.006000|5.006000|
+sv_utf8_downgrade|5.006000|5.006000|
+sv_utf8_downgrade_flags|5.031004|5.031004|
+sv_utf8_downgrade_nomg|5.031004|5.031004|
+sv_utf8_encode|5.006000|5.006000|
+SV_UTF8_NO_ENCODING|5.008001|5.003007|pd
+SvUTF8_off|5.006000|5.006000|
+SvUTF8_on|5.006000|5.006000|
+sv_utf8_upgrade|5.007001|5.007001|
+sv_utf8_upgrade_flags|5.007002|5.007002|
+sv_utf8_upgrade_flags_grow|5.011000|5.011000|
+sv_utf8_upgrade_nomg|5.007002|5.007002|
+SvUV|5.004000|5.003007|p
+sv_uv|5.005000||pdcV
+SvUV_nomg|5.009001|5.003007|p
+SvUV_set|5.009003|5.003007|p
+SvUVX|5.004000|5.003007|p
+SvUVx|5.004000|5.003007|p
+SvUVXx|5.004000|5.003007|pd
+SvVALID|5.003007||Viu
+sv_vcatpvf|5.006000|5.004000|p
+sv_vcatpvf_mg|5.006000|5.004000|p
+sv_vcatpvfn|5.004000|5.004000|
+sv_vcatpvfn_flags|5.017002|5.017002|
+SvVOK|5.008001|5.008001|
+sv_vsetpvf|5.006000|5.004000|p
+sv_vsetpvf_mg|5.006000|5.004000|p
+sv_vsetpvfn|5.004000|5.004000|
+SvVSTRING_mg|5.009004|5.003007|p
+SvWEAKREF|5.006000||Viu
+SvWEAKREF_off|5.006000||Viu
+SvWEAKREF_on|5.006000||Viu
+swallow_bom|5.006001||Viu
+switch_category_locale_to_template|5.027009||Viu
+SWITCHSTACK|5.003007||Viu
+switch_to_global_locale|5.027009|5.003007|pn
+sync_locale|5.027009|5.003007|pn
+sys_init3|||cnu
+sys_init|||cnu
+sys_intern_clear|5.006001||Vu
+sys_intern_dup|5.006000||Vu
+sys_intern_init|5.006001||Vu
+SYSTEM_GMTIME_MAX|5.011000||Viu
+SYSTEM_GMTIME_MIN|5.011000||Viu
+SYSTEM_LOCALTIME_MAX|5.011000||Viu
+SYSTEM_LOCALTIME_MIN|5.011000||Viu
+sys_term|||cnu
+TAIL|5.005000||Viu
+TAIL_t8|5.035004||Viu
+TAIL_t8_p8|5.033003||Viu
+TAIL_t8_pb|5.033003||Viu
+TAIL_tb|5.035004||Viu
+TAIL_tb_p8|5.033003||Viu
+TAIL_tb_pb|5.033003||Viu
+TAINT|5.004000||Viu
+taint_env|5.003007|5.003007|u
+TAINT_ENV|5.003007||Viu
+TAINT_get|5.017006||Viu
+TAINT_IF|5.003007||Viu
+TAINTING_get|5.017006||Viu
+TAINTING_set|5.017006||Viu
+TAINT_NOT|5.003007||Viu
+taint_proper|5.003007|5.003007|u
+TAINT_PROPER|5.003007||Viu
+TAINT_set|5.017006||Viu
+TAINT_WARN_get|5.017006||Viu
+TAINT_WARN_set|5.017006||Viu
+TARG|5.003007|5.003007|
+TARGi|5.023005||Viu
+TARGn|5.023005||Viu
+TARGu|5.023005||Viu
+telldir|5.005000||Viu
+T_FMT|5.027010||Viu
+T_FMT_AMPM|5.027010||Viu
+THIS|5.003007|5.003007|V
+THOUSEP|5.027010||Viu
+THR|5.005000||Viu
+THREAD_CREATE_NEEDS_STACK|5.007002||Viu
+thread_locale_init|5.027009|5.027009|xnu
+thread_locale_term|5.027009|5.027009|xnu
+THREAD_RET_TYPE|5.005000||Viu
+tied_method|5.013009||vViu
+TIED_METHOD_ARGUMENTS_ON_STACK|5.013009||Viu
+TIED_METHOD_MORTALIZE_NOT_NEEDED|5.013009||Viu
+TIED_METHOD_SAY|5.013009||Viu
+times|5.005000||Viu
+Time_t|5.003007|5.003007|Vn
+Timeval|5.004000|5.004000|Vn
+TM|5.011000||Viu
+tmpfile|5.003007||Viu
+tmpnam|5.005000||Viu
+TMPNAM_R_PROTO|5.008000|5.008000|Vn
+tmps_grow_p|5.021005||cViu
+to_byte_substr|5.008000||Viu
+to_case_cp_list|5.035004||Viu
+toCTRL|5.004000||Viu
+toFOLD|5.019001|5.019001|
+toFOLD_A|5.019001|5.019001|
+_to_fold_latin1|5.015005||cVniu
+toFOLD_LC|5.019001||Viu
+toFOLD_uni|5.007003||Viu
+toFOLD_utf8|5.031005|5.031005|
+toFOLD_utf8_safe|5.025009|5.006000|p
+toFOLD_uvchr|5.023009|5.006000|p
+TO_INTERNAL_SIZE|5.023002||Viu
+tokenize_use|5.009003||Viu
+tokeq|5.005000||Viu
+tokereport|5.007001||Viu
+toLOWER|5.003007|5.003007|
+toLOWER_A|5.019001|5.019001|
+toLOWER_L1|5.019001|5.019001|
+toLOWER_LATIN1|5.013006|5.011002|
+to_lower_latin1|5.015005||Vniu
+toLOWER_LC|5.004000|5.004000|
+toLOWER_uni|5.006000||Viu
+toLOWER_utf8|5.031005|5.031005|
+toLOWER_utf8_safe|5.025009|5.006000|p
+toLOWER_uvchr|5.023009|5.006000|p
+too_few_arguments_pv|5.016000||Viu
+TOO_LATE_FOR|5.008001||Viu
+too_many_arguments_pv|5.016000||Viu
+TOPi|5.003007||Viu
+TOPl|5.003007||Viu
+TOPm1s|5.007001||Viu
+TOPMARK|5.003007||cViu
+TOPn|5.003007||Viu
+TOPp1s|5.007001||Viu
+TOPp|5.003007||Viu
+TOPpx|5.005003||Viu
+TOPs|5.003007||Viu
+TOPu|5.004000||Viu
+TOPul|5.006000||Viu
+toTITLE|5.019001|5.019001|
+toTITLE_A|5.019001|5.019001|
+toTITLE_uni|5.006000||Viu
+toTITLE_utf8|5.031005|5.031005|
+toTITLE_utf8_safe|5.025009|5.006000|p
+toTITLE_uvchr|5.023009|5.006000|p
+to_uni_fold|5.014000||cVu
+_to_uni_fold_flags|5.014000||cVu
+to_uni_lower|5.006000||cVu
+to_uni_title|5.006000||cVu
+to_uni_upper|5.006000||cVu
+toUPPER|5.003007|5.003007|
+toUPPER_A|5.019001|5.019001|
+toUPPER_LATIN1_MOD|5.011002||Viu
+toUPPER_LC|5.004000||Viu
+_to_upper_title_latin1|5.015005||Viu
+toUPPER_uni|5.006000||Viu
+toUPPER_utf8|5.031005|5.031005|
+toUPPER_utf8_safe|5.025009|5.006000|p
+toUPPER_uvchr|5.023009|5.006000|p
+_to_utf8_case|5.023006||Viu
+_to_utf8_fold_flags|5.014000||cVu
+_to_utf8_lower_flags|5.015006||cVu
+to_utf8_substr|5.008000||Viu
+_to_utf8_title_flags|5.015006||cVu
+_to_utf8_upper_flags|5.015006||cVu
+translate_substr_offsets|5.015006||Vniu
+traverse_op_tree|5.029008||Vi
+TR_DELETE|5.031006||Viu
+TRIE|5.009002||Viu
+TRIE_BITMAP|5.009004||Viu
+TRIE_BITMAP_BYTE|5.009004||Viu
+TRIE_BITMAP_CLEAR|5.009004||Viu
+TRIE_BITMAP_SET|5.009004||Viu
+TRIE_BITMAP_TEST|5.009004||Viu
+TRIEC|5.009004||Viu
+TRIE_CHARCOUNT|5.009004||Viu
+TRIEC_t8|5.035004||Viu
+TRIEC_t8_p8|5.033003||Viu
+TRIEC_t8_pb|5.033003||Viu
+TRIEC_tb|5.035004||Viu
+TRIEC_tb_p8|5.033003||Viu
+TRIEC_tb_pb|5.033003||Viu
+TRIE_next|5.009005||Viu
+TRIE_next_fail|5.009005||Viu
+TRIE_next_fail_t8|5.035004||Viu
+TRIE_next_fail_t8_p8|5.033003||Viu
+TRIE_next_fail_t8_pb|5.033003||Viu
+TRIE_next_fail_tb|5.035004||Viu
+TRIE_next_fail_tb_p8|5.033003||Viu
+TRIE_next_fail_tb_pb|5.033003||Viu
+TRIE_next_t8|5.035004||Viu
+TRIE_next_t8_p8|5.033003||Viu
+TRIE_next_t8_pb|5.033003||Viu
+TRIE_next_tb|5.035004||Viu
+TRIE_next_tb_p8|5.033003||Viu
+TRIE_next_tb_pb|5.033003||Viu
+TRIE_NODEIDX|5.009002||Viu
+TRIE_NODENUM|5.009002||Viu
+TRIE_t8|5.035004||Viu
+TRIE_t8_p8|5.033003||Viu
+TRIE_t8_pb|5.033003||Viu
+TRIE_tb|5.035004||Viu
+TRIE_tb_p8|5.033003||Viu
+TRIE_tb_pb|5.033003||Viu
+TRIE_WORDS_OFFSET|5.009005||Viu
+TR_OOB|5.031006||Viu
+TR_R_EMPTY|5.031006||Viu
+TR_SPECIAL_HANDLING|5.031006||Viu
+TRUE|5.003007||Viu
+truncate|5.006000||Viu
+TR_UNLISTED|5.031006||Viu
+TR_UNMAPPED|5.031006||Viu
+try_amagic_bin|||ciu
+tryAMAGICbin_MG|5.013002||Viu
+try_amagic_un|||ciu
+tryAMAGICunDEREF|5.006000||Viu
+tryAMAGICun_MG|5.013002||Viu
+tryAMAGICunTARGETlist|5.017002||Viu
+TS_W32_BROKEN_LOCALECONV|5.027010||Viu
+tTHX|5.009003||Viu
+ttyname|5.009000||Viu
+TTYNAME_R_PROTO|5.008000|5.008000|Vn
+turkic_fc|5.029008||Viu
+turkic_lc|5.029008||Viu
+turkic_uc|5.029008||Viu
+TWO_BYTE_UTF8_TO_NATIVE|5.019004||Viu
+TWO_BYTE_UTF8_TO_UNI|5.013008||Viu
+TYPE_CHARS|5.004000||Viu
+TYPE_DIGITS|5.004000||Viu
+U16|5.027001||Viu
+U16_MAX|5.003007||Viu
+U16_MIN|5.003007||Viu
+U16SIZE|5.006000|5.006000|Vn
+U16TYPE|5.006000|5.006000|Vn
+U_32|5.007002|5.007002|
+U32|5.027001||Viu
+U32_ALIGNMENT_REQUIRED|5.007001|5.007001|Vn
+U32_MAX|5.003007||Viu
+U32_MAX_P1|5.007002||Viu
+U32_MAX_P1_HALF|5.007002||Viu
+U32_MIN|5.003007||Viu
+U32SIZE|5.006000|5.006000|Vn
+U32TYPE|5.006000|5.006000|Vn
+U64|5.023002||Viu
+U64SIZE|5.006000|5.006000|Vn
+U64TYPE|5.006000|5.006000|Vn
+U8|5.027001||Viu
+U8_MAX|5.003007||Viu
+U8_MIN|5.003007||Viu
+U8SIZE|5.006000|5.006000|Vn
+U8TO16_LE|5.017010||Viu
+U8TO32_LE|5.017010||Viu
+U8TO64_LE|5.017006||Viu
+U8TYPE|5.006000|5.006000|Vn
+UCHARAT|5.003007||Viu
+U_I|5.003007||Viu
+Uid_t|5.003007|5.003007|Vn
+Uid_t_f|5.006000|5.006000|Vn
+Uid_t_sign|5.006000|5.006000|Vn
+Uid_t_size|5.006000|5.006000|Vn
+UINT16_C|5.003007|5.003007|
+UINT32_C|5.003007|5.003007|
+UINT32_MIN|5.006000||Viu
+UINT64_C|5.023002|5.023002|
+UINT64_MIN|5.006000||Viu
+UINTMAX_C|5.003007|5.003007|
+uiv_2buf|5.009003||Vniu
+U_L|5.003007||Viu
+umask|5.005000||Viu
+uname|5.005004||Viu
+UNDERBAR|5.009002|5.003007|p
+unexpected_non_continuation_text|5.025006||Viu
+ungetc|5.003007||Viu
+UNI_age_values_index|5.029009||Viu
+UNI_AHEX|5.029002||Viu
+UNI_ahex_values_index|5.029009||Viu
+UNI_ALNUM|5.029002||Viu
+UNI_ALPHA|5.029002||Viu
+UNI_ALPHABETIC|5.029002||Viu
+UNI_alpha_values_index|5.029009||Viu
+UNI_ASCIIHEXDIGIT|5.029002||Viu
+UNI_BASICLATIN|5.029002||Viu
+UNI_bc_values_index|5.029009||Viu
+UNI_bidic_values_index|5.029009||Viu
+UNI_bidim_values_index|5.029009||Viu
+UNI_BLANK|5.029002||Viu
+UNI_blk_values_index|5.029009||Viu
+UNI_bpt_values_index|5.029009||Viu
+UNI_cased_values_index|5.029009||Viu
+UNI_CC|5.029002||Viu
+UNI_ccc_values_index|5.029009||Viu
+UNI_ce_values_index|5.029009||Viu
+UNI_ci_values_index|5.029009||Viu
+UNI_CNTRL|5.029002||Viu
+UNICODE_ALLOW_ABOVE_IV_MAX|5.031006||Viu
+UNICODE_ALLOW_ANY|5.007003||Viu
+UNICODE_ALLOW_SUPER|5.007003||Viu
+UNICODE_ALLOW_SURROGATE|5.007003||Viu
+UNICODE_BYTE_ORDER_MARK|5.008000||Viu
+UNICODE_DISALLOW_ABOVE_31_BIT|5.023006|5.023006|
+UNICODE_DISALLOW_ILLEGAL_C9_INTERCHANGE|5.025005|5.025005|
+UNICODE_DISALLOW_ILLEGAL_INTERCHANGE|5.013009|5.013009|
+UNICODE_DISALLOW_NONCHAR|5.013009|5.013009|
+UNICODE_DISALLOW_PERL_EXTENDED|5.027002|5.027002|
+UNICODE_DISALLOW_SUPER|5.013009|5.013009|
+UNICODE_DISALLOW_SURROGATE|5.013009|5.013009|
+UNICODE_DOT_DOT_VERSION|5.023002||Viu
+UNICODE_DOT_VERSION|5.023002||Viu
+UNICODE_GOT_NONCHAR|5.027009||Viu
+UNICODE_GOT_PERL_EXTENDED|5.027009||Viu
+UNICODE_GOT_SUPER|5.027009||Viu
+UNICODE_GOT_SURROGATE|5.027009||Viu
+UNICODE_GREEK_CAPITAL_LETTER_SIGMA|5.007003||Viu
+UNICODE_GREEK_SMALL_LETTER_FINAL_SIGMA|5.007003||Viu
+UNICODE_GREEK_SMALL_LETTER_SIGMA|5.007003||Viu
+UNICODE_IS_32_CONTIGUOUS_NONCHARS|5.023006||Viu
+UNICODE_IS_BYTE_ORDER_MARK|5.007001||Viu
+UNICODE_IS_END_PLANE_NONCHAR_GIVEN_NOT_SUPER|5.023006||Viu
+UNICODE_IS_NONCHAR|5.013009|5.013009|
+UNICODE_IS_PERL_EXTENDED|5.027002||Viu
+UNICODE_IS_REPLACEMENT|5.007002|5.007002|
+UNICODE_IS_SUPER|5.013009|5.013009|
+UNICODE_IS_SURROGATE|5.007001|5.007001|
+UNICODE_MAJOR_VERSION|5.023002||Viu
+UNICODE_PAT_MOD|5.013006||Viu
+UNICODE_PAT_MODS|5.013006||Viu
+UNICODE_REPLACEMENT|5.007001|5.003007|p
+UNICODE_SURROGATE_FIRST|5.007001||Viu
+UNICODE_SURROGATE_LAST|5.007001||Viu
+UNICODE_WARN_ABOVE_31_BIT|5.023006|5.023006|
+UNICODE_WARN_ILLEGAL_C9_INTERCHANGE|5.025005|5.025005|
+UNICODE_WARN_ILLEGAL_INTERCHANGE|5.013009|5.013009|
+UNICODE_WARN_NONCHAR|5.013009|5.013009|
+UNICODE_WARN_PERL_EXTENDED|5.027002|5.027002|
+UNICODE_WARN_SUPER|5.013009|5.013009|
+UNICODE_WARN_SURROGATE|5.013009|5.013009|
+UNI_compex_values_index|5.029009||Viu
+UNI_CONTROL|5.029002||Viu
+UNI_cwcf_values_index|5.029009||Viu
+UNI_cwcm_values_index|5.029009||Viu
+UNI_cwkcf_values_index|5.029009||Viu
+UNI_cwl_values_index|5.029009||Viu
+UNI_cwt_values_index|5.029009||Viu
+UNI_cwu_values_index|5.029009||Viu
+UNI_dash_values_index|5.029009||Viu
+UNI_DECIMALNUMBER|5.029002||Viu
+UNI_dep_values_index|5.029009||Viu
+UNI_dia_values_index|5.029009||Viu
+UNI_DIGIT|5.029002||Viu
+UNI_DISPLAY_BACKSLASH|5.007003|5.007003|
+UNI_DISPLAY_BACKSPACE|5.031009|5.031009|
+UNI_DISPLAY_ISPRINT|5.007003|5.007003|
+UNI_DISPLAY_QQ|5.007003|5.007003|
+UNI_DISPLAY_REGEX|5.007003|5.007003|
+UNI_di_values_index|5.029009||Viu
+UNI_dt_values_index|5.029009||Viu
+UNI_ea_values_index|5.029009||Viu
+UNI_ebase_values_index|5.031010||Viu
+UNI_ecomp_values_index|5.031010||Viu
+UNI_emod_values_index|5.031010||Viu
+UNI_emoji_values_index|5.031010||Viu
+UNI_epres_values_index|5.031010||Viu
+UNI_extpict_values_index|5.031010||Viu
+UNI_ext_values_index|5.029009||Viu
+UNI_gcb_values_index|5.029009||Viu
+UNI_gc_values_index|5.029009||Viu
+UNI_GRAPH|5.029002||Viu
+UNI_grbase_values_index|5.029009||Viu
+UNI_grext_values_index|5.029009||Viu
+UNI_HEX|5.029002||Viu
+UNI_HEXDIGIT|5.029002||Viu
+UNI_hex_values_index|5.029009||Viu
+UNI_HORIZSPACE|5.029002||Viu
+UNI_hst_values_index|5.029009||Viu
+UNI_HYPHEN|5.029002||Viu
+UNI_hyphen_values_index|5.029009||Viu
+UNI_idc_values_index|5.029009||Viu
+UNI_identifierstatus_values_index|5.031010||Viu
+UNI_identifiertype_values_index|5.031010||Viu
+UNI_ideo_values_index|5.029009||Viu
+UNI_idsb_values_index|5.029009||Viu
+UNI_idst_values_index|5.029009||Viu
+UNI_ids_values_index|5.029009||Viu
+UNI_inpc_values_index|5.029009||Viu
+UNI_insc_values_index|5.029009||Viu
+UNI_in_values_index|5.029009||Viu
+UNI_IS_INVARIANT|5.007001||Viu
+UNI_jg_values_index|5.029009||Viu
+UNI_joinc_values_index|5.029009||Viu
+UNI_jt_values_index|5.029009||Viu
+UNI_L|5.029002||Viu
+UNI_L_AMP|5.029002||Viu
+UNI_LB__SG|5.029002||Viu
+UNI_lb_values_index|5.029009||Viu
+UNI_LC|5.029002||Viu
+UNI_LL|5.029002||Viu
+UNI_loe_values_index|5.029009||Viu
+UNI_LOWER|5.029002||Viu
+UNI_LOWERCASE|5.029002||Viu
+UNI_lower_values_index|5.029009||Viu
+UNI_LT|5.029002||Viu
+UNI_LU|5.029002||Viu
+UNI_math_values_index|5.029009||Viu
+UNI_nchar_values_index|5.029009||Viu
+UNI_ND|5.029002||Viu
+UNI_nfcqc_values_index|5.029009||Viu
+UNI_nfdqc_values_index|5.029009||Viu
+UNI_nfkcqc_values_index|5.029009||Viu
+UNI_nfkdqc_values_index|5.029009||Viu
+UNI_nt_values_index|5.029009||Viu
+UNI_nv_values_index|5.029009||Viu
+UNI_patsyn_values_index|5.029009||Viu
+UNI_patws_values_index|5.029009||Viu
+UNI_pcm_values_index|5.029009||Viu
+UNI_PERLSPACE|5.029002||Viu
+UNI_PERLWORD|5.029002||Viu
+UNI_PRINT|5.029002||Viu
+UNI_qmark_values_index|5.029009||Viu
+UNI_radical_values_index|5.029009||Viu
+UNI_ri_values_index|5.029009||Viu
+UNI_sb_values_index|5.029009||Viu
+UNI_sc_values_index|5.029009||Viu
+UNI_scx_values_index|5.029009||Viu
+UNI_sd_values_index|5.029009||Viu
+UNISKIP|5.007001||Viu
+UNISKIP_BY_MSB|5.035004||Viu
+UNI_SPACE|5.029002||Viu
+UNI_SPACEPERL|5.029002||Viu
+UNI_sterm_values_index|5.029009||Viu
+UNI_term_values_index|5.029009||Viu
+UNI_TITLECASE|5.029002||Viu
+UNI_TITLECASELETTER|5.029002||Viu
+UNI_TO_NATIVE|5.007001|5.003007|p
+UNI_uideo_values_index|5.029009||Viu
+UNI_UPPER|5.029002||Viu
+UNI_UPPERCASE|5.029002||Viu
+UNI_upper_values_index|5.029009||Viu
+UNI_vo_values_index|5.029009||Viu
+UNI_vs_values_index|5.029009||Viu
+UNI_wb_values_index|5.029009||Viu
+UNI_WHITESPACE|5.029002||Viu
+UNI_WORD|5.029002||Viu
+UNI_WSPACE|5.029002||Viu
+UNI_wspace_values_index|5.029009||Viu
+UNI_XDIGIT|5.029002||Viu
+UNI_xidc_values_index|5.029009||Viu
+UNI_xids_values_index|5.029009||Viu
+UNI_XPERLSPACE|5.029002||Viu
+UNKNOWN_ERRNO_MSG|5.019007||Viu
+UNLESSM|5.003007||Viu
+UNLESSM_t8|5.035004||Viu
+UNLESSM_t8_p8|5.033003||Viu
+UNLESSM_t8_pb|5.033003||Viu
+UNLESSM_tb|5.035004||Viu
+UNLESSM_tb_p8|5.033003||Viu
+UNLESSM_tb_pb|5.033003||Viu
+UNLIKELY|5.009004|5.003007|p
+UNLINK|5.003007||Viu
+unlink|5.005000||Viu
+unlnk|5.003007||cVu
+UNLOCK_DOLLARZERO_MUTEX|5.008001||Viu
+UNLOCK_LC_NUMERIC_STANDARD|5.021010||poVnu
+UNLOCK_NUMERIC_STANDARD|||piu
+UNOP_AUX_item_sv|5.021007||Viu
+unpack_rec|5.008001||Viu
+unpack_str|5.007003|5.007003|d
+unpackstring|5.008001|5.008001|
+unpackWARN1|5.007003||Viu
+unpackWARN2|5.007003||Viu
+unpackWARN3|5.007003||Viu
+unpackWARN4|5.007003||Viu
+unreferenced_to_tmp_stack|5.013002||Viu
+unshare_hek|5.004000||Viu
+unshare_hek_or_pvn|5.008000||Viu
+unsharepvn|5.003007|5.003007|u
+unwind_handler_stack|5.009003||Viu
+update_debugger_info|5.009005||Viu
+upg_version|5.009005|5.009005|
+UPG_VERSION|5.019008||Viu
+uproot_SV|||Viu
+Uquad_t|5.006000|5.006000|Vn
+U_S|5.003007||Viu
+usage|5.005000||Viu
+USE_64_BIT_ALL|5.006000|5.006000|Vn
+USE_64_BIT_INT|5.006000|5.006000|Vn
+USE_64_BIT_RAWIO|5.006000||Viu
+USE_64_BIT_STDIO|5.006000||Viu
+USE_BSDPGRP|5.003007||Viu
+USE_C_BACKTRACE|5.035009|5.035009|Vn
+USE_DYNAMIC_LOADING|5.003007|5.003007|Vn
+USE_ENVIRON_ARRAY|5.007001||Viu
+USE_GRENT_BUFFER|5.008000||Viu
+USE_GRENT_FPTR|5.008000||Viu
+USE_GRENT_PTR|5.008000||Viu
+USE_HASH_SEED|5.008001||Viu
+USE_HOSTENT_BUFFER|5.008000||Viu
+USE_HOSTENT_ERRNO|5.008000||Viu
+USE_HOSTENT_PTR|5.008000||Viu
+USE_ITHREADS|5.010000|5.010000|Vn
+USE_LARGE_FILES|5.006000|5.006000|Vn
+USE_LEFT|5.004000||Viu
+USE_LOCALE|5.004000||Viu
+USE_LOCALE_ADDRESS|5.027009||Viu
+USE_LOCALE_COLLATE|5.004000||Viu
+USE_LOCALE_CTYPE|5.004000||Viu
+USE_LOCALE_IDENTIFICATION|5.027009||Viu
+USE_LOCALE_MEASUREMENT|5.027009||Viu
+USE_LOCALE_MESSAGES|5.019002||Viu
+USE_LOCALE_MONETARY|5.019002||Viu
+USE_LOCALE_NUMERIC|5.004000||Viu
+USE_LOCALE_PAPER|5.027009||Viu
+USE_LOCALE_SYNTAX|5.033001||Viu
+USE_LOCALE_TELEPHONE|5.027009||Viu
+USE_LOCALE_TIME|5.021002||Viu
+USE_LOCALE_TOD|5.033001||Viu
+USEMYBINMODE|5.006000||Viu
+USE_NETENT_BUFFER|5.008000||Viu
+USE_NETENT_ERRNO|5.008000||Viu
+USE_NETENT_PTR|5.008000||Viu
+USE_PERL_ATOF|5.008000||Viu
+USE_PERLIO|5.007001|5.007001|Vn
+USE_PERL_PERTURB_KEYS|5.018000||Viu
+USE_POSIX_2008_LOCALE|5.027003||Viu
+USE_PROTOENT_BUFFER|5.008000||Viu
+USE_PROTOENT_PTR|5.008000||Viu
+USE_PWENT_BUFFER|5.008000||Viu
+USE_PWENT_FPTR|5.008000||Viu
+USE_PWENT_PTR|5.008000||Viu
+USE_REENTRANT_API|5.007003||Viu
+USER_PROP_MUTEX_INIT|5.029008||Viu
+USER_PROP_MUTEX_LOCK|5.029008||Viu
+USER_PROP_MUTEX_TERM|5.029008||Viu
+USER_PROP_MUTEX_UNLOCK|5.029008||Viu
+USE_SEMCTL_SEMID_DS|5.004005|5.004005|Vn
+USE_SEMCTL_SEMUN|5.004005|5.004005|Vn
+USE_SERVENT_BUFFER|5.008000||Viu
+USE_SERVENT_PTR|5.008000||Viu
+USE_SPENT_BUFFER|5.031011||Viu
+USE_SPENT_PTR|5.008000||Viu
+USE_STAT_BLOCKS|5.005003|5.005003|Vn
+USE_STAT_RDEV|5.003007||Viu
+USE_STDIO|5.003007||Viu
+USE_STDIO_BASE|5.006000|5.006000|Vn
+USE_STDIO_PTR|5.006000|5.006000|Vn
+USE_SYSTEM_GMTIME|5.011000||Viu
+USE_SYSTEM_LOCALTIME|5.011000||Viu
+USE_THREADS|5.006000|5.006000|Vn
+USE_THREAD_SAFE_LOCALE|5.025004||Viu
+USE_TM64|5.011000||Viu
+USE_UTF8_IN_NAMES|5.007003||Viu
+utf16_textfilter|5.011001||Viu
+utf16_to_utf8|5.035004||cViu
+utf16_to_utf8_base|5.035004||cViu
+utf16_to_utf8_reversed|5.035004||cViu
+UTF8_ACCUMULATE|5.007001||Viu
+UTF8_ALLOW_ANY|5.007001||Viu
+UTF8_ALLOW_ANYUV|5.007001||Viu
+UTF8_ALLOW_CONTINUATION|5.007001||Viu
+UTF8_ALLOW_DEFAULT|5.009004||Viu
+UTF8_ALLOW_EMPTY|5.007001||Viu
+UTF8_ALLOW_FE_FF|5.027009||Viu
+UTF8_ALLOW_FFFF|5.007001||Viu
+UTF8_ALLOW_LONG|5.007001||Viu
+UTF8_ALLOW_LONG_AND_ITS_VALUE|5.025009||Viu
+UTF8_ALLOW_NON_CONTINUATION|5.007001||Viu
+UTF8_ALLOW_OVERFLOW|5.025009||Viu
+UTF8_ALLOW_SHORT|5.007001||Viu
+UTF8_ALLOW_SURROGATE|5.007001||Viu
+UTF8_CHECK_ONLY|5.007001|5.007001|
+UTF8_CHK_SKIP|5.031006|5.006000|p
+UTF8_DISALLOW_ABOVE_31_BIT|5.023006||Viu
+UTF8_DISALLOW_FE_FF|5.013009||Viu
+UTF8_DISALLOW_ILLEGAL_C9_INTERCHANGE|5.025005|5.025005|
+UTF8_DISALLOW_ILLEGAL_INTERCHANGE|5.013009|5.013009|
+UTF8_DISALLOW_NONCHAR|5.013009|5.013009|
+UTF8_DISALLOW_PERL_EXTENDED|5.027002|5.027002|
+UTF8_DISALLOW_SUPER|5.013009|5.013009|
+UTF8_DISALLOW_SURROGATE|5.013009|5.013009|
+utf8_distance|5.006000|5.006000|
+UTF8_EIGHT_BIT_HI|5.007001||Viu
+UTF8_EIGHT_BIT_LO|5.007001||Viu
+UTF8f|5.019001|5.003007|p
+UTF8fARG|5.019002|5.003007|p
+UTF8_GOT_ABOVE_31_BIT|5.025006||Viu
+UTF8_GOT_CONTINUATION|5.025006|5.025006|
+UTF8_GOT_EMPTY|5.025006|5.025006|
+UTF8_GOT_LONG|5.025006|5.025006|
+UTF8_GOT_NONCHAR|5.025006|5.025006|
+UTF8_GOT_NON_CONTINUATION|5.025006|5.025006|
+UTF8_GOT_OVERFLOW|5.025006|5.025006|
+UTF8_GOT_PERL_EXTENDED|5.027002|5.027002|
+UTF8_GOT_SHORT|5.025006|5.025006|
+UTF8_GOT_SUPER|5.025006|5.025006|
+UTF8_GOT_SURROGATE|5.025006|5.025006|
+utf8_hop|5.006000|5.006000|n
+utf8_hop_back|5.025007|5.025007|n
+utf8_hop_forward|5.025007|5.025007|n
+utf8_hop_safe|5.025007|5.025007|n
+UTF8_IS_ABOVE_LATIN1|5.017004||Viu
+UTF8_IS_ABOVE_LATIN1_START|5.023003||Viu
+UTF8_IS_CONTINUATION|5.007001||Viu
+UTF8_IS_CONTINUED|5.007001||Viu
+UTF8_IS_DOWNGRADEABLE_START|5.007001||Viu
+UTF8_IS_INVARIANT|5.007001|5.003007|p
+UTF8_IS_NEXT_CHAR_DOWNGRADEABLE|5.017006||Viu
+UTF8_IS_NONCHAR|5.023002|5.023002|
+UTF8_IS_NONCHAR_GIVEN_THAT_NON_SUPER_AND_GE_PROBLEMATIC|5.013009||Viu
+UTF8_IS_PERL_EXTENDED|5.035004||Viu
+UTF8_IS_REPLACEMENT|||
+UTF8_IS_START|5.007001||Viu
+UTF8_IS_START_base|5.031007||Viu
+UTF8_IS_SUPER|5.023002|5.023002|
+UTF8_IS_SURROGATE|5.023002|5.023002|
+utf8_length|5.007001|5.007001|
+UTF8_MAXBYTES|5.009002|5.006000|p
+UTF8_MAXBYTES_CASE|5.009002|5.003007|p
+UTF8_MAX_FOLD_CHAR_EXPAND|5.013009||Viu
+UTF8_MAXLEN|5.006000||Viu
+utf8_mg_len_cache_update|5.013003||Viu
+utf8_mg_pos_cache_update|5.009004||Viu
+utf8n_to_uvchr|5.007001|5.007001|n
+utf8n_to_uvchr_error|5.025006|5.025006|n
+utf8n_to_uvchr_msgs|5.027009|5.027009|n
+_utf8n_to_uvchr_msgs_helper|5.029001||cVnu
+utf8n_to_uvuni|5.007001||dcV
+UTF8_SAFE_SKIP|5.029009|5.006000|p
+UTF8SKIP|5.006000|5.006000|
+UTF8_SKIP|5.023002|5.006000|p
+utf8_to_bytes|5.006001|5.006001|x
+utf8_to_utf16|5.035004||Viu
+utf8_to_utf16_base|5.035004||xcViu
+utf8_to_utf16_reversed|5.035004||Viu
+utf8_to_uvchr|5.007001|5.006001|pd
+utf8_to_uvchr_buf|5.015009|5.006001|p
+utf8_to_uvchr_buf_helper|5.031004||cVu
+utf8_to_uvuni|5.007001||dcV
+utf8_to_uvuni_buf|5.015009||dcV
+UTF8_TWO_BYTE_HI|5.011002||Viu
+UTF8_TWO_BYTE_HI_nocast|5.011002||Viu
+UTF8_TWO_BYTE_LO|5.011002||Viu
+UTF8_TWO_BYTE_LO_nocast|5.011002||Viu
+UTF8_WARN_ABOVE_31_BIT|5.023006||Viu
+UTF8_WARN_FE_FF|5.013009||Viu
+UTF8_WARN_ILLEGAL_C9_INTERCHANGE|5.025005|5.025005|
+UTF8_WARN_ILLEGAL_INTERCHANGE|5.013009|5.013009|
+UTF8_WARN_NONCHAR|5.013009|5.013009|
+UTF8_WARN_PERL_EXTENDED|5.027002|5.027002|
+UTF8_WARN_SUPER|5.013009|5.013009|
+UTF8_WARN_SURROGATE|5.013009|5.013009|
+UTF_ACCUMULATION_SHIFT|5.007001||Viu
+UTF_CONTINUATION_BYTE_INFO_BITS|5.035004||Viu
+UTF_CONTINUATION_MARK|5.007001||Viu
+UTF_CONTINUATION_MASK|5.007001||Viu
+UTF_EBCDIC_CONTINUATION_BYTE_INFO_BITS|5.035004||Viu
+UTF_FIRST_CONT_BYTE_110000|5.035004||Viu
+UTF_FIRST_CONT_BYTE|5.035004||Viu
+UTF_IS_CONTINUATION_MASK|5.023006||Viu
+UTF_MIN_ABOVE_LATIN1_BYTE|5.031006||Viu
+UTF_MIN_CONTINUATION_BYTE|5.035004||Viu
+UTF_MIN_START_BYTE|5.031006||Viu
+UTF_START_BYTE_110000|5.035004||Viu
+UTF_START_BYTE|5.035004||Viu
+UTF_START_MARK|5.007001||Viu
+UTF_START_MASK|5.007001||Viu
+UTF_TO_NATIVE|5.007001||Viu
+utilize|5.003007||Viu
+utime|5.005000||Viu
+U_V|5.006000|5.003007|
+UVCHR_IS_INVARIANT|5.019004|5.003007|p
+UVCHR_SKIP|5.022000|5.003007|p
+uvchr_to_utf8|5.007001|5.007001|
+uvchr_to_utf8_flags|5.007003|5.007003|
+uvchr_to_utf8_flags_msgs|5.027009|5.027009|
+UV_DIG|5.006000||Viu
+UVf|5.010000|5.010000|d
+UV_IS_QUAD|5.006000||Viu
+UV_MAX|5.003007|5.003007|
+UV_MAX_P1|5.007002||Viu
+UV_MAX_P1_HALF|5.007002||Viu
+UV_MIN|5.003007|5.003007|
+UVof|5.006000|5.003007|poVn
+uvoffuni_to_utf8_flags|5.027009||cV
+uvoffuni_to_utf8_flags_msgs|5.027009||cVu
+UVSIZE|5.006000|5.003007|poVn
+UVTYPE|5.006000|5.003007|poVn
+UVuf|5.006000|5.003007|poVn
+uvuni_to_utf8|5.019004||cVu
+uvuni_to_utf8_flags|5.007003||dcV
+UVxf|5.006000|5.003007|poVn
+UVXf|5.007001|5.007001|poVn
+VAL_EAGAIN|5.003007|5.003007|Vn
+validate_proto|5.019002||xcVi
+validate_suid|||iu
+valid_utf8_to_uvchr|5.015009||cVn
+valid_utf8_to_uvuni|5.015009||dcVu
+VAL_O_NONBLOCK|5.003007|5.003007|Vn
+variant_byte_number|5.031004||cVnu
+variant_under_utf8_count|5.027007||Vni
+varname|5.009003||Viu
+vcmp|5.009000|5.009000|
+VCMP|5.019008||Viu
+vcroak|5.006000|5.006000|
+vdeb|5.007003|5.007003|u
+VERB|5.009005||Viu
+VERB_t8|5.035004||Viu
+VERB_t8_p8|5.033003||Viu
+VERB_t8_pb|5.033003||Viu
+VERB_tb|5.035004||Viu
+VERB_tb_p8|5.033003||Viu
+VERB_tb_pb|5.033003||Viu
+vform|5.006000|5.006000|
+vfprintf|5.003007||Viu
+visit|5.005000||Viu
+vivify_defelem|5.004000||cViu
+vivify_ref|5.004000||Viu
+vload_module|5.006000|5.003007|p
+vmess|5.006000|5.004000|p
+vnewSVpvf|5.006000|5.004000|p
+vnormal|5.009002|5.009002|
+VNORMAL|5.019008||Viu
+vnumify|5.009000|5.009000|
+VNUMIFY|5.019008||Viu
+voidnonfinal|5.035002||Viu
+VOL|5.003007||Viu
+vstringify|5.009000|5.009000|
+VSTRINGIFY|5.019008||Viu
+VTBL_amagic|5.005003||Viu
+VTBL_amagicelem|5.005003||Viu
+VTBL_arylen|5.005003||Viu
+VTBL_bm|5.005003||Viu
+VTBL_collxfrm|5.005003||Viu
+VTBL_dbline|5.005003||Viu
+VTBL_defelem|5.005003||Viu
+VTBL_env|5.005003||Viu
+VTBL_envelem|5.005003||Viu
+VTBL_fm|5.005003||Viu
+VTBL_glob|5.005003||Viu
+VTBL_isa|5.005003||Viu
+VTBL_isaelem|5.005003||Viu
+VTBL_mglob|5.005003||Viu
+VTBL_nkeys|5.005003||Viu
+VTBL_pack|5.005003||Viu
+VTBL_packelem|5.005003||Viu
+VTBL_pos|5.005003||Viu
+VTBL_regdata|5.006000||Viu
+VTBL_regdatum|5.006000||Viu
+VTBL_regexp|5.005003||Viu
+VTBL_sigelem|5.005003||Viu
+VTBL_substr|5.005003||Viu
+VTBL_sv|5.005003||Viu
+VTBL_taint|5.005003||Viu
+VTBL_uvar|5.005003||Viu
+VTBL_vec|5.005003||Viu
+vTHX|5.006000||Viu
+VT_NATIVE|5.021004||Viu
+vtohl|5.003007||Viu
+vtohs|5.003007||Viu
+VUTIL_REPLACE_CORE|5.019008||Viu
+vverify|5.009003|5.009003|
+VVERIFY|5.019008||Viu
+vwarn|5.006000|5.003007|
+vwarner|5.006000|5.004000|p
+wait4pid|5.003007||Viu
+wait|5.005000||Viu
+want_vtbl_bm|5.015000||Viu
+want_vtbl_fm|5.015000||Viu
+warn|5.003007||vV
+WARN_ALL|5.006000|5.003007|p
+WARN_ALLstring|5.006000||Viu
+WARN_AMBIGUOUS|5.006000|5.003007|p
+WARN_ASSERTIONS||5.003007|ponu
+WARN_BAREWORD|5.006000|5.003007|p
+WARN_CLOSED|5.006000|5.003007|p
+WARN_CLOSURE|5.006000|5.003007|p
+WARN_DEBUGGING|5.006000|5.003007|p
+WARN_DEPRECATED|5.006000|5.003007|p
+WARN_DIGIT|5.006000|5.003007|p
+warner|5.006000||pvV
+warner_nocontext|5.006000||vVn
+WARN_EXEC|5.006000|5.003007|p
+WARN_EXITING|5.006000|5.003007|p
+WARN_EXPERIMENTAL|5.017004|5.017004|
+WARN_EXPERIMENTAL__ALPHA_ASSERTIONS|5.027009|5.027009|
+WARN_EXPERIMENTAL__ARGS_ARRAY_WITH_SIGNATURES|5.035009|5.035009|
+WARN_EXPERIMENTAL__BITWISE|5.021009|5.021009|
+WARN_EXPERIMENTAL__BUILTIN|5.035009|5.035009|
+WARN_EXPERIMENTAL__CONST_ATTR|5.021008|5.021008|
+WARN_EXPERIMENTAL__DECLARED_REFS|5.025003|5.025003|
+WARN_EXPERIMENTAL__DEFER|5.035004|5.035004|
+WARN_EXPERIMENTAL__FOR_LIST|5.035005|5.035005|
+WARN_EXPERIMENTAL__ISA|5.031007|5.031007|
+WARN_EXPERIMENTAL__LEXICAL_SUBS|5.017005|5.017005|
+WARN_EXPERIMENTAL__POSTDEREF|5.019005|5.019005|
+WARN_EXPERIMENTAL__PRIVATE_USE|5.029009|5.029009|
+WARN_EXPERIMENTAL__REFALIASING|5.021005|5.021005|
+WARN_EXPERIMENTAL__REGEX_SETS|5.017008|5.017008|
+WARN_EXPERIMENTAL__RE_STRICT|5.021008|5.021008|
+WARN_EXPERIMENTAL__SCRIPT_RUN|5.027008|5.027008|
+WARN_EXPERIMENTAL__SIGNATURES|5.019009|5.019009|
+WARN_EXPERIMENTAL__SMARTMATCH|5.017011|5.017011|
+WARN_EXPERIMENTAL__TRY|5.033007|5.033007|
+WARN_EXPERIMENTAL__UNIPROP_WILDCARDS|5.029009|5.029009|
+WARN_EXPERIMENTAL__VLB|5.029009|5.029009|
+WARN_GLOB|5.006000|5.003007|p
+WARN_ILLEGALPROTO|5.011004|5.011004|
+WARN_IMPRECISION|5.011000|5.011000|
+WARN_INPLACE|5.006000|5.003007|p
+WARN_INTERNAL|5.006000|5.003007|p
+WARN_IO|5.006000|5.003007|p
+WARN_LAYER|5.008000|5.003007|p
+WARN_LOCALE|5.021006|5.021006|
+WARN_MALLOC|5.006000|5.003007|p
+WARN_MISC|5.006000|5.003007|p
+WARN_MISSING|5.021002|5.021002|
+WARN_NEWLINE|5.006000|5.003007|p
+warn_nocontext|5.006000||pvVn
+WARN_NONCHAR|5.013010|5.013010|
+WARN_NONEstring|5.006000||Viu
+WARN_NON_UNICODE|5.013010|5.013010|
+WARN_NUMERIC|5.006000|5.003007|p
+WARN_ONCE|5.006000|5.003007|p
+warn_on_first_deprecated_use|5.025009||Viu
+WARN_OVERFLOW|5.006000|5.003007|p
+WARN_PACK|5.006000|5.003007|p
+WARN_PARENTHESIS|5.006000|5.003007|p
+WARN_PIPE|5.006000|5.003007|p
+WARN_PORTABLE|5.006000|5.003007|p
+WARN_PRECEDENCE|5.006000|5.003007|p
+WARN_PRINTF|5.006000|5.003007|p
+_warn_problematic_locale|5.021008||cVniu
+WARN_PROTOTYPE|5.006000|5.003007|p
+WARN_QW|5.006000|5.003007|p
+WARN_RECURSION|5.006000|5.003007|p
+WARN_REDEFINE|5.006000|5.003007|p
+WARN_REDUNDANT|5.021002|5.021002|
+WARN_REGEXP|5.006000|5.003007|p
+WARN_RESERVED|5.006000|5.003007|p
+WARN_SEMICOLON|5.006000|5.003007|p
+WARN_SEVERE|5.006000|5.003007|p
+WARN_SHADOW|5.027007|5.027007|
+WARNshift|5.011001||Viu
+WARN_SIGNAL|5.006000|5.003007|p
+WARNsize|5.006000||Viu
+WARN_SUBSTR|5.006000|5.003007|p
+WARN_SURROGATE|5.013010|5.013010|
+warn_sv|5.013001|5.003007|p
+WARN_SYNTAX|5.006000|5.003007|p
+WARN_SYSCALLS|5.019004|5.019004|
+WARN_TAINT|5.006000|5.003007|p
+WARN_THREADS|5.008000|5.003007|p
+WARN_UNINITIALIZED|5.006000|5.003007|p
+WARN_UNOPENED|5.006000|5.003007|p
+WARN_UNPACK|5.006000|5.003007|p
+WARN_UNTIE|5.006000|5.003007|p
+WARN_UTF8|5.006000|5.003007|p
+WARN_VOID|5.006000|5.003007|p
+was_lvalue_sub|||ciu
+watch|5.003007||Viu
+WB_BREAKABLE|5.023008||Viu
+WB_DQ_then_HL|5.023008||Viu
+WB_Ex_or_FO_or_ZWJ_then_foo|5.025003||Viu
+WB_HL_then_DQ|5.023008||Viu
+WB_hs_then_hs|5.023008||Viu
+WB_LE_or_HL_then_MB_or_ML_or_SQ|5.023008||Viu
+WB_MB_or_ML_or_SQ_then_LE_or_HL|5.023008||Viu
+WB_MB_or_MN_or_SQ_then_NU|5.023008||Viu
+WB_NOBREAK|5.023008||Viu
+WB_NU_then_MB_or_MN_or_SQ|5.023008||Viu
+WB_RI_then_RI|5.025003||Viu
+WCTOMB_LOCK|5.033005||Viu
+WCTOMB_UNLOCK|5.033005||Viu
+what_MULTI_CHAR_FOLD_latin1_safe|5.033005||Viu
+what_MULTI_CHAR_FOLD_utf8_safe|5.033005||Viu
+what_MULTI_CHAR_FOLD_utf8_safe_part0|5.033005||Viu
+what_MULTI_CHAR_FOLD_utf8_safe_part1|5.033005||Viu
+what_MULTI_CHAR_FOLD_utf8_safe_part2|5.033005||Viu
+what_MULTI_CHAR_FOLD_utf8_safe_part3|5.033005||Viu
+what_MULTI_CHAR_FOLD_utf8_safe_part4|5.033005||Viu
+what_MULTI_CHAR_FOLD_utf8_safe_part5|5.033005||Viu
+what_MULTI_CHAR_FOLD_utf8_safe_part6|5.033005||Viu
+what_MULTI_CHAR_FOLD_utf8_safe_part7|5.033005||Viu
+whichsig|5.003007|5.003007|
+whichsig_pv|5.015004|5.015004|
+whichsig_pvn|5.015004|5.015004|
+whichsig_sv|5.015004|5.015004|
+WHILEM|5.003007||Viu
+WHILEM_A_max|5.009005||Viu
+WHILEM_A_max_fail|5.009005||Viu
+WHILEM_A_max_fail_t8|5.035004||Viu
+WHILEM_A_max_fail_t8_p8|5.033003||Viu
+WHILEM_A_max_fail_t8_pb|5.033003||Viu
+WHILEM_A_max_fail_tb|5.035004||Viu
+WHILEM_A_max_fail_tb_p8|5.033003||Viu
+WHILEM_A_max_fail_tb_pb|5.033003||Viu
+WHILEM_A_max_t8|5.035004||Viu
+WHILEM_A_max_t8_p8|5.033003||Viu
+WHILEM_A_max_t8_pb|5.033003||Viu
+WHILEM_A_max_tb|5.035004||Viu
+WHILEM_A_max_tb_p8|5.033003||Viu
+WHILEM_A_max_tb_pb|5.033003||Viu
+WHILEM_A_min|5.009005||Viu
+WHILEM_A_min_fail|5.009005||Viu
+WHILEM_A_min_fail_t8|5.035004||Viu
+WHILEM_A_min_fail_t8_p8|5.033003||Viu
+WHILEM_A_min_fail_t8_pb|5.033003||Viu
+WHILEM_A_min_fail_tb|5.035004||Viu
+WHILEM_A_min_fail_tb_p8|5.033003||Viu
+WHILEM_A_min_fail_tb_pb|5.033003||Viu
+WHILEM_A_min_t8|5.035004||Viu
+WHILEM_A_min_t8_p8|5.033003||Viu
+WHILEM_A_min_t8_pb|5.033003||Viu
+WHILEM_A_min_tb|5.035004||Viu
+WHILEM_A_min_tb_p8|5.033003||Viu
+WHILEM_A_min_tb_pb|5.033003||Viu
+WHILEM_A_pre|5.009005||Viu
+WHILEM_A_pre_fail|5.009005||Viu
+WHILEM_A_pre_fail_t8|5.035004||Viu
+WHILEM_A_pre_fail_t8_p8|5.033003||Viu
+WHILEM_A_pre_fail_t8_pb|5.033003||Viu
+WHILEM_A_pre_fail_tb|5.035004||Viu
+WHILEM_A_pre_fail_tb_p8|5.033003||Viu
+WHILEM_A_pre_fail_tb_pb|5.033003||Viu
+WHILEM_A_pre_t8|5.035004||Viu
+WHILEM_A_pre_t8_p8|5.033003||Viu
+WHILEM_A_pre_t8_pb|5.033003||Viu
+WHILEM_A_pre_tb|5.035004||Viu
+WHILEM_A_pre_tb_p8|5.033003||Viu
+WHILEM_A_pre_tb_pb|5.033003||Viu
+WHILEM_B_max|5.009005||Viu
+WHILEM_B_max_fail|5.009005||Viu
+WHILEM_B_max_fail_t8|5.035004||Viu
+WHILEM_B_max_fail_t8_p8|5.033003||Viu
+WHILEM_B_max_fail_t8_pb|5.033003||Viu
+WHILEM_B_max_fail_tb|5.035004||Viu
+WHILEM_B_max_fail_tb_p8|5.033003||Viu
+WHILEM_B_max_fail_tb_pb|5.033003||Viu
+WHILEM_B_max_t8|5.035004||Viu
+WHILEM_B_max_t8_p8|5.033003||Viu
+WHILEM_B_max_t8_pb|5.033003||Viu
+WHILEM_B_max_tb|5.035004||Viu
+WHILEM_B_max_tb_p8|5.033003||Viu
+WHILEM_B_max_tb_pb|5.033003||Viu
+WHILEM_B_min|5.009005||Viu
+WHILEM_B_min_fail|5.009005||Viu
+WHILEM_B_min_fail_t8|5.035004||Viu
+WHILEM_B_min_fail_t8_p8|5.033003||Viu
+WHILEM_B_min_fail_t8_pb|5.033003||Viu
+WHILEM_B_min_fail_tb|5.035004||Viu
+WHILEM_B_min_fail_tb_p8|5.033003||Viu
+WHILEM_B_min_fail_tb_pb|5.033003||Viu
+WHILEM_B_min_t8|5.035004||Viu
+WHILEM_B_min_t8_p8|5.033003||Viu
+WHILEM_B_min_t8_pb|5.033003||Viu
+WHILEM_B_min_tb|5.035004||Viu
+WHILEM_B_min_tb_p8|5.033003||Viu
+WHILEM_B_min_tb_pb|5.033003||Viu
+WHILEM_t8|5.035004||Viu
+WHILEM_t8_p8|5.033003||Viu
+WHILEM_t8_pb|5.033003||Viu
+WHILEM_tb|5.035004||Viu
+WHILEM_tb_p8|5.033003||Viu
+WHILEM_tb_pb|5.033003||Viu
+WIDEST_UTYPE|5.015004|5.003007|poVnu
+win32_croak_not_implemented|5.017006||Vniu
+WIN32SCK_IS_STDSCK|5.007001||Viu
+win32_setlocale|5.027006||Viu
+withinCOUNT|5.031004||Viu
+withinCOUNT_KNOWN_VALID|5.033005||Viu
+WITH_LC_NUMERIC_SET_TO_NEEDED|5.031003|5.031003|
+WITH_LC_NUMERIC_SET_TO_NEEDED_IN|5.031003|5.031003|
+with_queued_errors|5.013001||Viu
+with_tp_UTF8ness|5.033003||Viu
+with_t_UTF8ness|5.035004||Viu
+wrap_keyword_plugin|5.027006|5.027006|x
+wrap_op_checker|5.015008|5.015008|
+write|5.005000||Viu
+write_to_stderr|5.008001||Viu
+XCPT_CATCH|5.009002|5.003007|p
+XCPT_RETHROW|5.009002|5.003007|p
+XCPT_TRY_END|5.009002|5.003007|p
+XCPT_TRY_START|5.009002|5.003007|p
+XDIGIT_VALUE|5.019008||Viu
+xio_any|5.006001||Viu
+xio_dirp|5.006001||Viu
+xiv_iv|5.009003||Viu
+xlv_targoff|5.019004||Viu
+XopDISABLE|5.013007|5.013007|V
+XOPd_xop_class|5.013007||Viu
+XOPd_xop_desc|5.013007||Viu
+XOPd_xop_name|5.013007||Viu
+XOPd_xop_peep|5.013007||Viu
+XopENABLE|5.013007|5.013007|V
+XopENTRY|5.013007|5.013007|V
+XopENTRYCUSTOM|5.019006|5.013007|V
+XopENTRY_set|5.013007|5.013007|V
+XopFLAGS|5.013007|5.013007|
+XOPf_xop_class|5.013007||Viu
+XOPf_xop_desc|5.013007||Viu
+XOPf_xop_name|5.013007||Viu
+XOPf_xop_peep|5.013007||Viu
+XORSHIFT128_set|5.027001||Viu
+XORSHIFT96_set|5.027001||Viu
+XPUSHi|5.003007|5.003007|
+XPUSHmortal|5.009002|5.003007|p
+XPUSHn|5.006000|5.003007|
+XPUSHp|5.003007|5.003007|
+XPUSHs|5.003007|5.003007|
+XPUSHTARG|5.003007||Viu
+XPUSHu|5.004000|5.003007|p
+XPUSHundef|5.006000||Viu
+xpv_len|5.017006||Viu
+XS|5.003007|5.003007|Vu
+XSANY|5.003007||Viu
+XS_APIVERSION_BOOTCHECK|5.013004|5.013004|
+XS_APIVERSION_POPMARK_BOOTCHECK|5.021006||Viu
+XS_APIVERSION_SETXSUBFN_POPMARK_BOOTCHECK|5.021006||Viu
+xs_boot_epilog|5.021006||cViu
+XS_BOTHVERSION_BOOTCHECK|5.021006||Viu
+XS_BOTHVERSION_POPMARK_BOOTCHECK|5.021006||Viu
+XS_BOTHVERSION_SETXSUBFN_POPMARK_BOOTCHECK|5.021006||Viu
+XS_DYNAMIC_FILENAME|5.009004||Viu
+XS_EXTERNAL|5.015002|5.015002|Vu
+xs_handshake|||vcniu
+XSINTERFACE_CVT|5.005000||Viu
+XSINTERFACE_CVT_ANON|5.010000||Viu
+XSINTERFACE_FUNC|5.005000||Viu
+XSINTERFACE_FUNC_SET|5.005000||Viu
+XS_INTERNAL|5.015002|5.015002|Vu
+XSprePUSH|5.006000|5.003007|poVnu
+XSPROTO|5.010000|5.003007|pVu
+XSRETURN|5.003007|5.003007|p
+XSRETURN_EMPTY|5.003007|5.003007|
+XSRETURN_IV|5.003007|5.003007|
+XSRETURN_NO|5.003007|5.003007|
+XSRETURN_NV|5.006000|5.003007|
+XSRETURN_PV|5.003007|5.003007|
+XSRETURN_PVN|5.006000||Viu
+XSRETURN_UNDEF|5.003007|5.003007|
+XSRETURN_UV|5.008001|5.003007|p
+XSRETURN_YES|5.003007|5.003007|
+XS_SETXSUBFN_POPMARK|5.021006||Viu
+XST_mIV|5.003007|5.003007|
+XST_mNO|5.003007|5.003007|
+XST_mNV|5.006000|5.003007|
+XST_mPV|5.003007|5.003007|
+XST_mPVN|5.006000||Viu
+XST_mUNDEF|5.003007|5.003007|
+XST_mUV|5.008001|5.003007|p
+XST_mYES|5.003007|5.003007|
+XS_VERSION|5.003007|5.003007|
+XS_VERSION_BOOTCHECK|5.003007|5.003007|
+xs_version_bootcheck|||iu
+XTENDED_PAT_MOD|5.009005||Viu
+xuv_uv|5.009003||Viu
+YESEXPR|5.027010||Viu
+YESSTR|5.027010||Viu
+YIELD|5.005000||Viu
+YYDEBUG|5.025006||Viu
+YYEMPTY|5.009005||Viu
+yyerror|5.003007||Viu
+yyerror_pv|5.016000||Viu
+yyerror_pvn|5.016000||Viu
+yylex|5.003007||cViu
+yyparse|5.003007||Viu
+yyquit|5.025010||Viu
+YYSTYPE_IS_DECLARED|5.009001||Viu
+YYSTYPE_IS_TRIVIAL|5.009001||Viu
+YYTOKENTYPE|5.009001||Viu
+yyunlex|5.013005||Viu
+yywarn|5.003007||Viu
+ZAPHOD32_FINALIZE|5.027001||Viu
+ZAPHOD32_MIX|5.027001||Viu
+ZAPHOD32_SCRAMBLE32|5.027001||Viu
+ZAPHOD32_STATIC_INLINE|5.027001||Viu
+ZAPHOD32_WARN2|5.027001||Viu
+ZAPHOD32_WARN3|5.027001||Viu
+ZAPHOD32_WARN4|5.027001||Viu
+ZAPHOD32_WARN5|5.027001||Viu
+ZAPHOD32_WARN6|5.027001||Viu
+Zero|5.003007|5.003007|
+ZeroD|5.009002|5.003007|p
+);
+
+if (exists $opt{'list-unsupported'}) {
+ my $f;
+ for $f (sort dictionary_order keys %API) {
+ next if $API{$f}{core_only};
+ next if $API{$f}{beyond_depr};
+ next if $API{$f}{inaccessible};
+ next if $API{$f}{experimental};
+ next unless $API{$f}{todo};
+ next if int_parse_version($API{$f}{todo}) <= $int_min_perl;
+ my $repeat = 40 - length($f);
+ $repeat = 0 if $repeat < 0;
+ print "$f ", '.'x $repeat, " ", format_version($API{$f}{todo}), "\n";
+ }
+ exit 0;
+}
+
+# Scan for hints, possible replacement candidates, etc.
+
+my(%replace, %need, %hints, %warnings, %depends);
+my $replace = 0;
+my($hint, $define, $function);
+
+sub find_api
+{
+ BEGIN { 'warnings'->unimport('uninitialized') if "$]" > '5.006' }
+ my $code = shift;
+ $code =~ s{
+ / (?: \*[^*]*\*+(?:[^$ccs][^*]*\*+)* / | /[^\r\n]*)
+ | "[^"\\]*(?:\\.[^"\\]*)*"
+ | '[^'\\]*(?:\\.[^'\\]*)*' }{}egsx;
+ grep { exists $API{$_} } $code =~ /(\w+)/mg;
+}
+
+while (<DATA>) {
+ if ($hint) {
+
+ # Here, we are in the middle of accumulating a hint or warning.
+ my $end_of_hint = 0;
+
+ # A line containing a comment end marker closes the hint. Remove that
+ # marker for processing below.
+ if (s/\s*$rcce(.*?)\s*$//) {
+ die "Nothing can follow the end of comment in '$_'\n" if length $1 > 0;
+ $end_of_hint = 1;
+ }
+
+ # Set $h to the hash of which type.
+ my $h = $hint->[0] eq 'Hint' ? \%hints : \%warnings;
+
+ # Ignore any leading and trailing white space, and an optional star comment
+ # continuation marker, then place the meat of the line into $1
+ m/^\s*(?:\*\s*)?(.*?)\s*$/;
+
+ # Add the meat of this line to the hash value of each API element it
+ # applies to
+ for (@{$hint->[1]}) {
+ $h->{$_} ||= ''; # avoid the warning older perls generate
+ $h->{$_} .= "$1\n";
+ }
+
+ # If the line had a comment close, we are through with this hint
+ undef $hint if $end_of_hint;
+
+ next;
+ }
+
+ # Set up $hint if this is the beginning of a Hint: or Warning:
+ # These are from a multi-line C comment in the file, with the first line
+ # looking like (a space has been inserted because this file can't have C
+ # comment markers in it):
+ # / * Warning: PL_expect, PL_copline, PL_rsfp
+ #
+ # $hint becomes
+ # [
+ # 'Warning',
+ # [
+ # 'PL_expect',
+ # 'PL_copline',
+ # 'PL_rsfp',
+ # ],
+ # ]
+ if (m{^\s*$rccs\s+(Hint|Warning):\s+(\w+(?:,?\s+\w+)*)\s*$}) {
+ $hint = [$1, [split /,?\s+/, $2]];
+ next;
+ }
+
+ if ($define) { # If in the middle of a definition...
+
+ # append a continuation line ending with backslash.
+ if ($define->[1] =~ /\\$/) {
+ $define->[1] .= $_;
+ }
+ else { # Otherwise this line ends the definition, make foo depend on bar
+ # (and what bar depends on) if its not one of ppp's own constructs
+ if (exists $API{$define->[0]} && $define->[1] !~ /^DPPP_\(/) {
+ my @n = find_api($define->[1]);
+ push @{$depends{$define->[0]}}, @n if @n
+ }
+ undef $define;
+ }
+ }
+
+ # For '#define foo bar' or '#define foo(a,b,c) bar', $define becomes a
+ # reference to [ foo, bar ]
+ $define = [$1, $2] if m{^\s*#\s*define\s+(\w+)(?:\([^)]*\))?\s+(.*)};
+
+ if ($function) {
+ if (/^}/) {
+ if (exists $API{$function->[0]}) {
+ my @n = find_api($function->[1]);
+ push @{$depends{$function->[0]}}, @n if @n
+ }
+ undef $function;
+ }
+ else {
+ $function->[1] .= $_;
+ }
+ }
+
+ $function = [$1, ''] if m{^DPPP_\(my_(\w+)\)};
+
+ # Set $replace to the number given for lines that look like
+ # / * Replace: \d+ * /
+ # Thus setting it to 1 starts a region where replacements are automatically
+ # done, and setting it to 0 ends that region.
+ $replace = $1 if m{^\s*$rccs\s+Replace:\s+(\d+)\s+$rcce\s*$};
+
+ # Add bar => foo to %replace for lines like '#define foo bar in a region
+ # where $replace is non-zero
+ $replace{$2} = $1 if $replace and m{^\s*#\s*define\s+(\w+)(?:\([^)]*\))?\s+(\w+)};
+
+ # Add bar => foo to %replace for lines like '#define foo bar / * Replace * /
+ $replace{$2} = $1 if m{^\s*#\s*define\s+(\w+)(?:\([^)]*\))?\s+(\w+).*$rccs\s+Replace\s+$rcce};
+
+ # Add foo => bar to %replace for lines like / * Replace foo with bar * /
+ $replace{$1} = $2 if m{^\s*$rccs\s+Replace (\w+) with (\w+.*?)\s+$rcce\s*$};
+
+ # For lines like / * foo, bar depends on baz, bat * /
+ # create a list of the elements on the rhs, and make that list apply to each
+ # element in the lhs, which becomes a key in \%depends.
+ if (m{^\s*$rccs\s+(\w+(\s*,\s*\w+)*)\s+depends\s+on\s+(\w+(\s*,\s*\w+)*)\s+$rcce\s*$}) {
+ my @deps = map { s/\s+//g; $_ } split /,/, $3;
+ my $d;
+ for $d (map { s/\s+//g; $_ } split /,/, $1) {
+ push @{$depends{$d}}, @deps;
+ }
+ }
+
+ $need{$1} = 1 if m{^#if\s+defined\(NEED_(\w+)(?:_GLOBAL)?\)};
+}
+
+for (values %depends) {
+ my %seen;
+ $_ = [sort dictionary_order grep !$seen{$_}++, @$_];
+}
+
+if (exists $opt{'api-info'}) {
+ my $f;
+ my $count = 0;
+ my $match = $opt{'api-info'} =~ m!^/(.*)/$! ? $1 : "^\Q$opt{'api-info'}\E\$";
+
+ # Sort the names, and split into two classes; one for things that are part of
+ # the API; a second for things that aren't.
+ my @ok_to_use;
+ my @shouldnt_use;
+ for $f (sort dictionary_order keys %API) {
+ next unless $f =~ /$match/;
+ my $base = int_parse_version($API{$f}{base}) if $API{$f}{base};
+ if ($base && ! $API{$f}{inaccessible} && ! $API{$f}{core_only}) {
+ push @ok_to_use, $f;
+ }
+ else {
+ push @shouldnt_use, $f;
+ }
+ }
+
+ # We normally suppress non-API items. But if the search matched no API
+ # items, output the non-ones. This allows someone to get the info for an
+ # item if they ask for it specifically enough, but doesn't normally clutter
+ # the output with irrelevant results.
+ @ok_to_use = @shouldnt_use unless @ok_to_use;
+
+ for $f (@ok_to_use) {
+ print "\n=== $f ===\n";
+ my $info = 0;
+ my $base;
+ $base = int_parse_version($API{$f}{base}) if $API{$f}{base};
+ my $todo;
+ $todo = int_parse_version($API{$f}{todo}) if $API{$f}{todo};
+
+ # Output information
+ if ($base) {
+ my $with_or= "";
+ if ( $base <= $int_min_perl
+ || ( (! $API{$f}{provided} && ! $todo)
+ || ($todo && $todo >= $base)))
+ {
+ $with_or= " with or";
+ }
+
+ my $Supported = ($API{$f}{undocumented}) ? 'Available' : 'Supported';
+ print "\n$Supported at least since perl-",
+ format_version($base), ",$with_or without $ppport.";
+ if ($API{$f}{unverified}) {
+ print "\nThis information is based on inspection of the source code",
+ " and has not been\n",
+ "verified by successful compilation.";
+ }
+ print "\n";
+ $info++;
+ }
+ if ($API{$f}{provided} || $todo) {
+ print "\nThis is only supported by $ppport, and NOT by perl versions going forward.\n" unless $base;
+ if ($todo) {
+ if (! $base || $todo < $base) {
+ my $additionally = "";
+ $additionally .= " additionally" if $base;
+ print "$ppport$additionally provides support at least back to perl-",
+ format_version($todo),
+ ".\n";
+ }
+ }
+ elsif (! $base || $base > $int_min_perl) {
+ if (exists $depends{$f}) {
+ my $max = 0;
+ for (@{$depends{$f}}) {
+ $max = int_parse_version($API{$_}{todo}) if $API{$_}{todo} && $API{$_}{todo} > $max;
+ # XXX What to assume unspecified values are? This effectively makes them MIN_PERL
+ }
+ $todo = $max if $max;
+ }
+ print "\n$ppport provides support for this, but ironically, does not",
+ " currently know,\n",
+ "for this report, the minimum version it supports for this";
+ if ($API{$f}{undocumented}) {
+ print " and many things\n",
+ "it provides that are implemented as macros and aren't",
+ " documented. You can\n",
+ "help by submitting a documentation patch";
+ }
+ print ".\n";
+ if ($todo) {
+ if ($todo <= $int_min_perl) {
+ print "It may very well be supported all the way back to ",
+ format_version(5.003_07), ".\n";
+ }
+ else {
+ print "But given the things $f depends on, it's a good",
+ " guess that it isn't\n",
+ "supported prior to ", format_version($todo), ".\n";
+ }
+ }
+ }
+ }
+ if ($API{$f}{provided}) {
+ print "Support needs to be explicitly requested by #define NEED_$f\n",
+ "(or #define NEED_${f}_GLOBAL).\n" if exists $need{$f};
+ $info++;
+ }
+
+ if ($base || ! $API{$f}{ppport_fnc}) {
+ my $email = "Send email to perl5-porters\@perl.org if you need to have this functionality.\n";
+ if ($API{$f}{inaccessible}) {
+ print "\nThis is not part of the public API, and may not even be accessible to XS code.\n";
+ $info++;
+ }
+ elsif ($API{$f}{core_only}) {
+ print "\nThis is not part of the public API, and should not be used by XS code.\n";
+ $info++;
+ }
+ elsif ($API{$f}{deprecated}) {
+ print "\nThis is deprecated and should not be used. Convert existing uses.\n";
+ $info++;
+ }
+ elsif ($API{$f}{experimental}) {
+ print "\nThe API for this is unstable and should not be used by XS code.\n", $email;
+ $info++;
+ }
+ elsif ($API{$f}{undocumented}) {
+ print "\nSince this is undocumented, the API should be considered unstable.\n";
+ if ($API{$f}{provided}) {
+ print "Consider bringing this up on the list: perl5-porters\@perl.org.\n";
+ }
+ else {
+ print "It may be that this is not intended for XS use, or it may just be\n",
+ "that no one has gotten around to documenting it.\n", $email;
+ }
+ $info++;
+ }
+ unless ($info) {
+ print "No portability information available. Check your spelling; or",
+ " this could be\na bug in Devel::PPPort. To report an issue:\n",
+ "https://github.com/Dual-Life/Devel-PPPort/issues/new\n";
+ }
+ }
+
+ print "\nDepends on: ", join(', ', @{$depends{$f}}), ".\n"
+ if exists $depends{$f};
+ if (exists $hints{$f} || exists $warnings{$f}) {
+ print "\n$hints{$f}" if exists $hints{$f};
+ print "\nWARNING:\n$warnings{$f}" if exists $warnings{$f};
+ $info++;
+ }
+ $count++;
+ }
+
+ $count or print "\nFound no API matching '$opt{'api-info'}'.";
+ print "\n";
+ exit 0;
+}
+
+if (exists $opt{'list-provided'}) {
+ my $f;
+ for $f (sort dictionary_order keys %API) {
+ next unless $API{$f}{provided};
+ my @flags;
+ push @flags, 'explicit' if exists $need{$f};
+ push @flags, 'depend' if exists $depends{$f};
+ push @flags, 'hint' if exists $hints{$f};
+ push @flags, 'warning' if exists $warnings{$f};
+ my $flags = @flags ? ' ['.join(', ', @flags).']' : '';
+ print "$f$flags\n";
+ }
+ exit 0;
+}
+
+my @files;
+my @srcext = qw( .xs .c .h .cc .cpp -c.inc -xs.inc );
+my $srcext = join '|', map { quotemeta $_ } @srcext;
+
+if (@ARGV) {
+ my %seen;
+ for (@ARGV) {
+ if (-e) {
+ if (-f) {
+ push @files, $_ unless $seen{$_}++;
+ }
+ else { warn "'$_' is not a file.\n" }
+ }
+ else {
+ my @new = grep { -f } glob $_
+ or warn "'$_' does not exist.\n";
+ push @files, grep { !$seen{$_}++ } @new;
+ }
+ }
+}
+else {
+ eval {
+ require File::Find;
+ File::Find::find(sub {
+ $File::Find::name =~ /($srcext)$/i
+ and push @files, $File::Find::name;
+ }, '.');
+ };
+ if ($@) {
+ @files = map { glob "*$_" } @srcext;
+ }
+}
+
+if (!@ARGV || $opt{filter}) {
+ my(@in, @out);
+ my %xsc = map { /(.*)\.xs$/ ? ("$1.c" => 1, "$1.cc" => 1) : () } @files;
+ for (@files) {
+ my $out = exists $xsc{$_} || /\b\Q$ppport\E$/i || !/($srcext)$/i;
+ push @{ $out ? \@out : \@in }, $_;
+ }
+ if (@ARGV && @out) {
+ warning("Skipping the following files (use --nofilter to avoid this):\n| ", join "\n| ", @out);
+ }
+ @files = @in;
+}
+
+die "No input files given!\n" unless @files;
+
+my(%files, %global, %revreplace);
+%revreplace = reverse %replace;
+my $filename;
+my $patch_opened = 0;
+
+for $filename (@files) {
+ unless (open IN, "<$filename") {
+ warn "Unable to read from $filename: $!\n";
+ next;
+ }
+
+ info("Scanning $filename ...");
+
+ my $c = do { local $/; <IN> };
+ close IN;
+
+ my %file = (orig => $c, changes => 0);
+
+ # Temporarily remove C/XS comments and strings from the code
+ my @ccom;
+
+ $c =~ s{
+ ( ^$HS*\#$HS*include\b[^\r\n]+\b(?:\Q$ppport\E|XSUB\.h)\b[^\r\n]*
+ | ^$HS*\#$HS*(?:define|elif|if(?:def)?)\b[^\r\n]* )
+ | ( ^$HS*\#[^\r\n]*
+ | "[^"\\]*(?:\\.[^"\\]*)*"
+ | '[^'\\]*(?:\\.[^'\\]*)*'
+ | / (?: \*[^*]*\*+(?:[^$ccs][^*]*\*+)* / | /[^\r\n]* ) )
+ }{ defined $2 and push @ccom, $2;
+ defined $1 ? $1 : "$ccs$#ccom$cce" }mgsex;
+
+ $file{ccom} = \@ccom;
+ $file{code} = $c;
+ $file{has_inc_ppport} = $c =~ /^$HS*#$HS*include[^\r\n]+\b\Q$ppport\E\b/m;
+
+ my $func;
+
+ for $func (keys %API) {
+ my $match = $func;
+ $match .= "|$revreplace{$func}" if exists $revreplace{$func};
+ if ($c =~ /\b(?:Perl_)?($match)\b/) {
+ $file{uses_replace}{$1}++ if exists $revreplace{$func} && $1 eq $revreplace{$func};
+ $file{uses_Perl}{$func}++ if $c =~ /\bPerl_$func\b/;
+ if (exists $API{$func}{provided}) {
+ $file{uses_provided}{$func}++;
+ if ( ! exists $API{$func}{base}
+ || int_parse_version($API{$func}{base}) > $opt{'compat-version'})
+ {
+ $file{uses}{$func}++;
+ my @deps = rec_depend($func);
+ if (@deps) {
+ $file{uses_deps}{$func} = \@deps;
+ for (@deps) {
+ $file{uses}{$_} = 0 unless exists $file{uses}{$_};
+ }
+ }
+ for ($func, @deps) {
+ $file{needs}{$_} = 'static' if exists $need{$_};
+ }
+ }
+ }
+ if ( exists $API{$func}{todo}
+ && int_parse_version($API{$func}{todo}) > $opt{'compat-version'})
+ {
+ if ($c =~ /\b$func\b/) {
+ $file{uses_todo}{$func}++;
+ }
+ }
+ }
+ }
+
+ while ($c =~ /^$HS*#$HS*define$HS+(NEED_(\w+?)(_GLOBAL)?)\b/mg) {
+ if (exists $need{$2}) {
+ $file{defined $3 ? 'needed_global' : 'needed_static'}{$2}++;
+ }
+ else { warning("Possibly wrong #define $1 in $filename") }
+ }
+
+ for (qw(uses needs uses_todo needed_global needed_static)) {
+ for $func (keys %{$file{$_}}) {
+ push @{$global{$_}{$func}}, $filename;
+ }
+ }
+
+ $files{$filename} = \%file;
+}
+
+# Globally resolve NEED_'s
+my $need;
+for $need (keys %{$global{needs}}) {
+ if (@{$global{needs}{$need}} > 1) {
+ my @targets = @{$global{needs}{$need}};
+ my @t = grep $files{$_}{needed_global}{$need}, @targets;
+ @targets = @t if @t;
+ @t = grep /\.xs$/i, @targets;
+ @targets = @t if @t;
+ my $target = shift @targets;
+ $files{$target}{needs}{$need} = 'global';
+ for (@{$global{needs}{$need}}) {
+ $files{$_}{needs}{$need} = 'extern' if $_ ne $target;
+ }
+ }
+}
+
+for $filename (@files) {
+ exists $files{$filename} or next;
+
+ info("=== Analyzing $filename ===");
+
+ my %file = %{$files{$filename}};
+ my $func;
+ my $c = $file{code};
+ my $warnings = 0;
+
+ for $func (sort dictionary_order keys %{$file{uses_Perl}}) {
+ if ($API{$func}{varargs}) {
+ unless ($API{$func}{noTHXarg}) {
+ my $changes = ($c =~ s{\b(Perl_$func\s*\(\s*)(?!aTHX_?)(\)|[^\s)]*\))}
+ { $1 . ($2 eq ')' ? 'aTHX' : 'aTHX_ ') . $2 }ge);
+ if ($changes) {
+ warning("Doesn't pass interpreter argument aTHX to Perl_$func");
+ $file{changes} += $changes;
+ }
+ }
+ }
+ else {
+ warning("Uses Perl_$func instead of $func");
+ $file{changes} += ($c =~ s{\bPerl_$func(\s*)\((\s*aTHX_?)?\s*}
+ {$func$1(}g);
+ }
+ }
+
+ for $func (sort dictionary_order keys %{$file{uses_replace}}) {
+ warning("Uses $func instead of $replace{$func}");
+ $file{changes} += ($c =~ s/\b$func\b/$replace{$func}/g);
+ }
+
+ for $func (sort dictionary_order keys %{$file{uses_provided}}) {
+ if ($file{uses}{$func}) {
+ if (exists $file{uses_deps}{$func}) {
+ diag("Uses $func, which depends on ", join(', ', @{$file{uses_deps}{$func}}));
+ }
+ else {
+ diag("Uses $func");
+ }
+ }
+ $warnings += (hint($func) || 0);
+ }
+
+ unless ($opt{quiet}) {
+ for $func (sort dictionary_order keys %{$file{uses_todo}}) {
+ next if int_parse_version($API{$func}{todo}) <= $int_min_perl;
+ print "*** WARNING: Uses $func, which may not be portable below perl ",
+ format_version($API{$func}{todo}), ", even with '$ppport'\n";
+ $warnings++;
+ }
+ }
+
+ for $func (sort dictionary_order keys %{$file{needed_static}}) {
+ my $message = '';
+ if (not exists $file{uses}{$func}) {
+ $message = "No need to define NEED_$func if $func is never used";
+ }
+ elsif (exists $file{needs}{$func} && $file{needs}{$func} ne 'static') {
+ $message = "No need to define NEED_$func when already needed globally";
+ }
+ if ($message) {
+ diag($message);
+ $file{changes} += ($c =~ s/^$HS*#$HS*define$HS+NEED_$func\b.*$LF//mg);
+ }
+ }
+
+ for $func (sort dictionary_order keys %{$file{needed_global}}) {
+ my $message = '';
+ if (not exists $global{uses}{$func}) {
+ $message = "No need to define NEED_${func}_GLOBAL if $func is never used";
+ }
+ elsif (exists $file{needs}{$func}) {
+ if ($file{needs}{$func} eq 'extern') {
+ $message = "No need to define NEED_${func}_GLOBAL when already needed globally";
+ }
+ elsif ($file{needs}{$func} eq 'static') {
+ $message = "No need to define NEED_${func}_GLOBAL when only used in this file";
+ }
+ }
+ if ($message) {
+ diag($message);
+ $file{changes} += ($c =~ s/^$HS*#$HS*define$HS+NEED_${func}_GLOBAL\b.*$LF//mg);
+ }
+ }
+
+ $file{needs_inc_ppport} = keys %{$file{uses}};
+
+ if ($file{needs_inc_ppport}) {
+ my $pp = '';
+
+ for $func (sort dictionary_order keys %{$file{needs}}) {
+ my $type = $file{needs}{$func};
+ next if $type eq 'extern';
+ my $suffix = $type eq 'global' ? '_GLOBAL' : '';
+ unless (exists $file{"needed_$type"}{$func}) {
+ if ($type eq 'global') {
+ diag("Files [@{$global{needs}{$func}}] need $func, adding global request");
+ }
+ else {
+ diag("File needs $func, adding static request");
+ }
+ $pp .= "#define NEED_$func$suffix\n";
+ }
+ }
+
+ if ($pp && ($c =~ s/^(?=$HS*#$HS*define$HS+NEED_\w+)/$pp/m)) {
+ $pp = '';
+ $file{changes}++;
+ }
+
+ unless ($file{has_inc_ppport}) {
+ diag("Needs to include '$ppport'");
+ $pp .= qq(#include "$ppport"\n)
+ }
+
+ if ($pp) {
+ $file{changes} += ($c =~ s/^($HS*#$HS*define$HS+NEED_\w+.*?)^/$1$pp/ms)
+ || ($c =~ s/^(?=$HS*#$HS*include.*\Q$ppport\E)/$pp/m)
+ || ($c =~ s/^($HS*#$HS*include.*XSUB.*\s*?)^/$1$pp/m)
+ || ($c =~ s/^/$pp/);
+ }
+ }
+ else {
+ if ($file{has_inc_ppport}) {
+ diag("No need to include '$ppport'");
+ $file{changes} += ($c =~ s/^$HS*?#$HS*include.*\Q$ppport\E.*?$LF//m);
+ }
+ }
+
+ # put back in our C comments
+ my $ix;
+ my $cppc = 0;
+ my @ccom = @{$file{ccom}};
+ for $ix (0 .. $#ccom) {
+ if (!$opt{cplusplus} && $ccom[$ix] =~ s!^//!!) {
+ $cppc++;
+ $file{changes} += $c =~ s/$rccs$ix$rcce/$ccs$ccom[$ix] $cce/;
+ }
+ else {
+ $c =~ s/$rccs$ix$rcce/$ccom[$ix]/;
+ }
+ }
+
+ if ($cppc) {
+ my $s = $cppc != 1 ? 's' : '';
+ warning("Uses $cppc C++ style comment$s, which is not portable");
+ }
+
+ my $s = $warnings != 1 ? 's' : '';
+ my $warn = $warnings ? " ($warnings warning$s)" : '';
+ info("Analysis completed$warn");
+
+ if ($file{changes}) {
+ if (exists $opt{copy}) {
+ my $newfile = "$filename$opt{copy}";
+ if (-e $newfile) {
+ error("'$newfile' already exists, refusing to write copy of '$filename'");
+ }
+ else {
+ local *F;
+ if (open F, ">$newfile") {
+ info("Writing copy of '$filename' with changes to '$newfile'");
+ print F $c;
+ close F;
+ }
+ else {
+ error("Cannot open '$newfile' for writing: $!");
+ }
+ }
+ }
+ elsif (exists $opt{patch} || $opt{changes}) {
+ if (exists $opt{patch}) {
+ unless ($patch_opened) {
+ if (open PATCH, ">$opt{patch}") {
+ $patch_opened = 1;
+ }
+ else {
+ error("Cannot open '$opt{patch}' for writing: $!");
+ delete $opt{patch};
+ $opt{changes} = 1;
+ goto fallback;
+ }
+ }
+ mydiff(\*PATCH, $filename, $c);
+ }
+ else {
+fallback:
+ info("Suggested changes:");
+ mydiff(\*STDOUT, $filename, $c);
+ }
+ }
+ else {
+ my $s = $file{changes} == 1 ? '' : 's';
+ info("$file{changes} potentially required change$s detected");
+ }
+ }
+ else {
+ info("Looks good");
+ }
+}
+
+close PATCH if $patch_opened;
+
+exit 0;
+
+
+sub try_use { eval "use @_;"; return $@ eq '' }
+
+sub mydiff
+{
+ local *F = shift;
+ my($file, $str) = @_;
+ my $diff;
+
+ if (exists $opt{diff}) {
+ $diff = run_diff($opt{diff}, $file, $str);
+ }
+
+ if (!defined $diff and try_use('Text::Diff')) {
+ $diff = Text::Diff::diff($file, \$str, { STYLE => 'Unified' });
+ $diff = <<HEADER . $diff;
+--- $file
++++ $file.patched
+HEADER
+ }
+
+ if (!defined $diff) {
+ $diff = run_diff('diff -u', $file, $str);
+ }
+
+ if (!defined $diff) {
+ $diff = run_diff('diff', $file, $str);
+ }
+
+ if (!defined $diff) {
+ error("Cannot generate a diff. Please install Text::Diff or use --copy.");
+ return;
+ }
+
+ print F $diff;
+}
+
+sub run_diff
+{
+ my($prog, $file, $str) = @_;
+ my $tmp = 'dppptemp';
+ my $suf = 'aaa';
+ my $diff = '';
+ local *F;
+
+ while (-e "$tmp.$suf") { $suf++ }
+ $tmp = "$tmp.$suf";
+
+ if (open F, ">$tmp") {
+ print F $str;
+ close F;
+
+ if (open F, "$prog $file $tmp |") {
+ while (<F>) {
+ s/\Q$tmp\E/$file.patched/;
+ $diff .= $_;
+ }
+ close F;
+ unlink $tmp;
+ return $diff;
+ }
+
+ unlink $tmp;
+ }
+ else {
+ error("Cannot open '$tmp' for writing: $!");
+ }
+
+ return undef;
+}
+
+sub rec_depend
+{
+ my($func, $seen) = @_;
+ return () unless exists $depends{$func};
+ $seen = {%{$seen||{}}};
+ return () if $seen->{$func}++;
+ my %s;
+ grep !$s{$_}++, map { ($_, rec_depend($_, $seen)) } @{$depends{$func}};
+}
+
+sub info
+{
+ $opt{quiet} and return;
+ print @_, "\n";
+}
+
+sub diag
+{
+ $opt{quiet} and return;
+ $opt{diag} and print @_, "\n";
+}
+
+sub warning
+{
+ $opt{quiet} and return;
+ print "*** ", @_, "\n";
+}
+
+sub error
+{
+ print "*** ERROR: ", @_, "\n";
+}
+
+my %given_hints;
+my %given_warnings;
+sub hint
+{
+ $opt{quiet} and return;
+ my $func = shift;
+ my $rv = 0;
+ if (exists $warnings{$func} && !$given_warnings{$func}++) {
+ my $warn = $warnings{$func};
+ $warn =~ s!^!*** !mg;
+ print "*** WARNING: $func\n", $warn;
+ $rv++;
+ }
+ if ($opt{hints} && exists $hints{$func} && !$given_hints{$func}++) {
+ my $hint = $hints{$func};
+ $hint =~ s/^/ /mg;
+ print " --- hint for $func ---\n", $hint;
+ }
+ $rv || 0;
+}
+
+sub usage
+{
+ my($usage) = do { local(@ARGV,$/)=($0); <> } =~ /^=head\d$HS+SYNOPSIS\s*^(.*?)\s*^=/ms;
+ my %M = ( 'I' => '*' );
+ $usage =~ s/^\s*perl\s+\S+/$^X $0/;
+ $usage =~ s/([A-Z])<([^>]+)>/$M{$1}$2$M{$1}/g;
+
+ print <<ENDUSAGE;
+
+Usage: $usage
+
+See perldoc $0 for details.
+
+ENDUSAGE
+
+ exit 2;
+}
+
+sub strip
+{
+ my $self = do { local(@ARGV,$/)=($0); <> };
+ my($copy) = $self =~ /^=head\d\s+COPYRIGHT\s*^(.*?)^=\w+/ms;
+ $copy =~ s/^(?=\S+)/ /gms;
+ $self =~ s/^$HS+Do NOT edit.*?(?=^-)/$copy/ms;
+ $self =~ s/^SKIP.*(?=^__DATA__)/SKIP
+if (\@ARGV && \$ARGV[0] eq '--unstrip') {
+ eval { require Devel::PPPort };
+ \$@ and die "Cannot require Devel::PPPort, please install.\\n";
+ if (eval \$Devel::PPPort::VERSION < $VERSION) {
+ die "$0 was originally generated with Devel::PPPort $VERSION.\\n"
+ . "Your Devel::PPPort is only version \$Devel::PPPort::VERSION.\\n"
+ . "Please install a newer version, or --unstrip will not work.\\n";
+ }
+ Devel::PPPort::WriteFile(\$0);
+ exit 0;
+}
+print <<END;
+
+Sorry, but this is a stripped version of \$0.
+
+To be able to use its original script and doc functionality,
+please try to regenerate this file using:
+
+ \$^X \$0 --unstrip
+
+END
+/ms;
+ my($pl, $c) = $self =~ /(.*^__DATA__)(.*)/ms;
+ $c =~ s{
+ / (?: \*[^*]*\*+(?:[^$ccs][^*]*\*+)* / | /[^\r\n]*)
+ | ( "[^"\\]*(?:\\.[^"\\]*)*"
+ | '[^'\\]*(?:\\.[^'\\]*)*' )
+ | ($HS+) }{ defined $2 ? ' ' : ($1 || '') }gsex;
+ $c =~ s!\s+$!!mg;
+ $c =~ s!^$LF!!mg;
+ $c =~ s!^\s*#\s*!#!mg;
+ $c =~ s!^\s+!!mg;
+
+ open OUT, ">$0" or die "cannot strip $0: $!\n";
+ print OUT "$pl$c\n";
+
+ exit 0;
+}
+
+__DATA__
+*/
+
+#ifndef _P_P_PORTABILITY_H_
+#define _P_P_PORTABILITY_H_
+
+#ifndef DPPP_NAMESPACE
+# define DPPP_NAMESPACE DPPP_
+#endif
+
+#define DPPP_CAT2(x,y) CAT2(x,y)
+#define DPPP_(name) DPPP_CAT2(DPPP_NAMESPACE, name)
+
+#define D_PPP_RELEASE_DATE 1647561600 /* 2022-03-18 */
+
+#if ! defined(PERL_REVISION) && ! defined(PERL_VERSION_MAJOR)
+# if ! defined(__PATCHLEVEL_H_INCLUDED__) \
+ && ! ( defined(PATCHLEVEL) && defined(SUBVERSION))
+# define PERL_PATCHLEVEL_H_IMPLICIT
+# include <patchlevel.h>
+# endif
+# if ! defined(PERL_VERSION) \
+ && ! defined(PERL_VERSION_MAJOR) \
+ && ( ! defined(SUBVERSION) || ! defined(PATCHLEVEL) )
+# include <could_not_find_Perl_patchlevel.h>
+# endif
+#endif
+
+#ifdef PERL_VERSION_MAJOR
+# define D_PPP_MAJOR PERL_VERSION_MAJOR
+#elif defined(PERL_REVISION)
+# define D_PPP_MAJOR PERL_REVISION
+#else
+# define D_PPP_MAJOR 5
+#endif
+
+#ifdef PERL_VERSION_MINOR
+# define D_PPP_MINOR PERL_VERSION_MINOR
+#elif defined(PERL_VERSION)
+# define D_PPP_MINOR PERL_VERSION
+#elif defined(PATCHLEVEL)
+# define D_PPP_MINOR PATCHLEVEL
+# define PERL_VERSION PATCHLEVEL /* back-compat */
+#else
+# error Could not find a source for PERL_VERSION_MINOR
+#endif
+
+#ifdef PERL_VERSION_PATCH
+# define D_PPP_PATCH PERL_VERSION_PATCH
+#elif defined(PERL_SUBVERSION)
+# define D_PPP_PATCH PERL_SUBVERSION
+#elif defined(SUBVERSION)
+# define D_PPP_PATCH SUBVERSION
+# define PERL_SUBVERSION SUBVERSION /* back-compat */
+#else
+# error Could not find a source for PERL_VERSION_PATCH
+#endif
+
+#if D_PPP_MAJOR < 5 || D_PPP_MAJOR == 6
+# error Devel::PPPort works only on Perl 5, Perl 7, ...
+#elif D_PPP_MAJOR != 5
+ /* Perl 7 and above: the old forms are deprecated, set up so that they
+ * assume Perl 5, and will make this look like 5.201.201.
+ *
+ * 201 is used so will be well above anything that would come from a 5
+ * series if we unexpectedly have to continue it, but still gives plenty of
+ * room, up to 255, of numbers that will fit into a byte in case there is
+ * something else unforeseen */
+# undef PERL_REVISION
+# undef PERL_VERSION
+# undef PERL_SUBVERSION
+# define D_PPP_REVISION 5
+# define D_PPP_VERSION 201
+# define D_PPP_SUBVERSION 201
+# if (defined(__clang__) /* _Pragma here doesn't work with gcc */ \
+ && ( (defined(__STDC_VERSION__) && __STDC_VERSION__ >= 199901L) \
+ || defined(_STDC_C99) \
+ || defined(__c99)))
+# define D_PPP_STRINGIFY(x) #x
+# define D_PPP_deprecate(xyz) _Pragma(D_PPP_STRINGIFY(GCC warning(D_PPP_STRINGIFY(xyz) " is deprecated")))
+# define PERL_REVISION (D_PPP_REVISION D_PPP_deprecate(PERL_REVISION))
+# define PERL_VERSION (D_PPP_REVISION D_PPP_deprecate(PERL_VERSION))
+# define PERL_SUBVERSION (D_PPP_SUBVERSION D_PPP_deprecate(PERL_SUBVERSION))
+# else
+# define PERL_REVISION D_PPP_REVISION
+# define PERL_VERSION D_PPP_REVISION
+# define PERL_SUBVERSION D_PPP_SUBVERSION
+# endif
+#endif
+
+/* Warning: PERL_PATCHLEVEL PATCHLEVEL SUBVERSION PERL_REVISION PERL_VERSION
+ * PERL_SUBVERSION PERL_BCDVERSION
+ *
+ * You should be using PERL_VERSION_xy(maj,min,ptch) instead of this, where xy
+ * is one of EQ, NE, LE, GT, LT, GE
+ */
+
+/* Replace PERL_PATCHLEVEL with PERL_VERSION_xy(5,a,b) (where xy is EQ,LT,GT...) */
+/* Replace PATCHLEVEL with PERL_VERSION_xy(5,a,b) (where xy is EQ,LT,GT...) */
+/* Replace SUBVERSION with PERL_VERSION_xy(5,a,b) (where xy is EQ,LT,GT...) */
+/* Replace PERL_REVISION with PERL_VERSION_xy(a,b,c) (where xy is EQ,LT,GT...) */
+/* Replace PERL_VERSION with PERL_VERSION_xy(5,a,b) (where xy is EQ,LT,GT...) */
+/* Replace PERL_SUBVERSION with PERL_VERSION_xy(5,a,b) (where xy is EQ,LT,GT...) */
+/* Replace PERL_BCDVERSION with PERL_VERSION_xy(5,a,b) (where xy is EQ,LT,GT...) */
+
+#define D_PPP_DEC2BCD(dec) ((((dec)/100)<<8)|((((dec)%100)/10)<<4)|((dec)%10))
+#define D_PPP_JNP_TO_BCD(j,n,p) ((D_PPP_DEC2BCD(j)<<24)|(D_PPP_DEC2BCD(n)<<12)|D_PPP_DEC2BCD(p))
+#define PERL_BCDVERSION D_PPP_JNP_TO_BCD(D_PPP_MAJOR, \
+ D_PPP_MINOR, \
+ D_PPP_PATCH)
+
+/* These differ from the versions outside D:P in using PERL_BCDVERSION instead
+ * of PERL_DECIMAL_VERSION. The formats printing in this module assume BCD, so
+ * always use it */
+#undef PERL_VERSION_EQ
+#undef PERL_VERSION_NE
+#undef PERL_VERSION_LT
+#undef PERL_VERSION_GE
+#undef PERL_VERSION_LE
+#undef PERL_VERSION_GT
+
+/* N.B. These don't work if the patch number is 42 or 92, as those are what '*'
+ * is in ASCII and EBCDIC respectively */
+#ifndef PERL_VERSION_EQ
+# define PERL_VERSION_EQ(j,n,p) \
+ (((p) == '*') ? ( (j) == D_PPP_VERSION_MAJOR \
+ && (n) == D_PPP_VERSION_MINOR) \
+ : (PERL_BCDVERSION == D_PPP_JNP_TO_BCD(j,n,p)))
+#endif
+
+#ifndef PERL_VERSION_NE
+# define PERL_VERSION_NE(j,n,p) (! PERL_VERSION_EQ(j,n,p))
+#endif
+#ifndef PERL_VERSION_LT
+# define PERL_VERSION_LT(j,n,p) /* p=='*' means _LT(j,n,0) */ \
+ (PERL_BCDVERSION < D_PPP_JNP_TO_BCD( (j), \
+ (n), \
+ (((p) == '*') ? 0 : (p))))
+#endif
+
+#ifndef PERL_VERSION_GE
+# define PERL_VERSION_GE(j,n,p) (! PERL_VERSION_LT(j,n,p))
+#endif
+#ifndef PERL_VERSION_LE
+# define PERL_VERSION_LE(j,n,p) /* p=='*' means _LT(j,n+1,0) */ \
+ (PERL_BCDVERSION < D_PPP_JNP_TO_BCD( (j), \
+ (((p) == '*') ? ((n)+1) : (n)), \
+ (((p) == '*') ? 0 : (p))))
+#endif
+
+#ifndef PERL_VERSION_GT
+# define PERL_VERSION_GT(j,n,p) (! PERL_VERSION_LE(j,n,p))
+#endif
+#ifndef dTHR
+# define dTHR dNOOP
+#endif
+#ifndef dTHX
+# define dTHX dNOOP
+#endif
+
+/* Hint: dTHX
+
+ For pre-5.6.0 thread compatibility, instead use dTHXR, available only through
+ ppport.h */
+#ifndef dTHXa
+# define dTHXa(x) dNOOP
+#endif
+#ifndef pTHX
+# define pTHX void
+#endif
+
+#ifndef pTHX_
+# define pTHX_
+#endif
+
+#ifndef aTHX
+# define aTHX
+#endif
+
+/* Hint: aTHX
+
+ For pre-5.6.0 thread compatibility, instead use aTHXR, available only through
+ ppport.h */
+#ifndef aTHX_
+# define aTHX_
+#endif
+
+/* Hint: aTHX_
+
+ For pre-5.6.0 thread compatibility, instead use aTHXR_, available only
+ through ppport.h */
+
+#if (PERL_BCDVERSION < 0x5006000)
+# ifdef USE_THREADS
+# define aTHXR thr
+# define aTHXR_ thr,
+# else
+# define aTHXR
+# define aTHXR_
+# endif
+# define dTHXR dTHR
+#else
+# define aTHXR aTHX
+# define aTHXR_ aTHX_
+# define dTHXR dTHX
+#endif
+#ifndef dTHXoa
+# define dTHXoa(x) dTHXa(x)
+#endif
+
+#ifdef I_LIMITS
+# include <limits.h>
+#endif
+
+#ifndef PERL_UCHAR_MIN
+# define PERL_UCHAR_MIN ((unsigned char)0)
+#endif
+
+#ifndef PERL_UCHAR_MAX
+# ifdef UCHAR_MAX
+# define PERL_UCHAR_MAX ((unsigned char)UCHAR_MAX)
+# else
+# ifdef MAXUCHAR
+# define PERL_UCHAR_MAX ((unsigned char)MAXUCHAR)
+# else
+# define PERL_UCHAR_MAX ((unsigned char)~(unsigned)0)
+# endif
+# endif
+#endif
+
+#ifndef PERL_USHORT_MIN
+# define PERL_USHORT_MIN ((unsigned short)0)
+#endif
+
+#ifndef PERL_USHORT_MAX
+# ifdef USHORT_MAX
+# define PERL_USHORT_MAX ((unsigned short)USHORT_MAX)
+# else
+# ifdef MAXUSHORT
+# define PERL_USHORT_MAX ((unsigned short)MAXUSHORT)
+# else
+# ifdef USHRT_MAX
+# define PERL_USHORT_MAX ((unsigned short)USHRT_MAX)
+# else
+# define PERL_USHORT_MAX ((unsigned short)~(unsigned)0)
+# endif
+# endif
+# endif
+#endif
+
+#ifndef PERL_SHORT_MAX
+# ifdef SHORT_MAX
+# define PERL_SHORT_MAX ((short)SHORT_MAX)
+# else
+# ifdef MAXSHORT /* Often used in <values.h> */
+# define PERL_SHORT_MAX ((short)MAXSHORT)
+# else
+# ifdef SHRT_MAX
+# define PERL_SHORT_MAX ((short)SHRT_MAX)
+# else
+# define PERL_SHORT_MAX ((short) (PERL_USHORT_MAX >> 1))
+# endif
+# endif
+# endif
+#endif
+
+#ifndef PERL_SHORT_MIN
+# ifdef SHORT_MIN
+# define PERL_SHORT_MIN ((short)SHORT_MIN)
+# else
+# ifdef MINSHORT
+# define PERL_SHORT_MIN ((short)MINSHORT)
+# else
+# ifdef SHRT_MIN
+# define PERL_SHORT_MIN ((short)SHRT_MIN)
+# else
+# define PERL_SHORT_MIN (-PERL_SHORT_MAX - ((3 & -1) == 3))
+# endif
+# endif
+# endif
+#endif
+
+#ifndef PERL_UINT_MAX
+# ifdef UINT_MAX
+# define PERL_UINT_MAX ((unsigned int)UINT_MAX)
+# else
+# ifdef MAXUINT
+# define PERL_UINT_MAX ((unsigned int)MAXUINT)
+# else
+# define PERL_UINT_MAX (~(unsigned int)0)
+# endif
+# endif
+#endif
+
+#ifndef PERL_UINT_MIN
+# define PERL_UINT_MIN ((unsigned int)0)
+#endif
+
+#ifndef PERL_INT_MAX
+# ifdef INT_MAX
+# define PERL_INT_MAX ((int)INT_MAX)
+# else
+# ifdef MAXINT /* Often used in <values.h> */
+# define PERL_INT_MAX ((int)MAXINT)
+# else
+# define PERL_INT_MAX ((int)(PERL_UINT_MAX >> 1))
+# endif
+# endif
+#endif
+
+#ifndef PERL_INT_MIN
+# ifdef INT_MIN
+# define PERL_INT_MIN ((int)INT_MIN)
+# else
+# ifdef MININT
+# define PERL_INT_MIN ((int)MININT)
+# else
+# define PERL_INT_MIN (-PERL_INT_MAX - ((3 & -1) == 3))
+# endif
+# endif
+#endif
+
+#ifndef PERL_ULONG_MAX
+# ifdef ULONG_MAX
+# define PERL_ULONG_MAX ((unsigned long)ULONG_MAX)
+# else
+# ifdef MAXULONG
+# define PERL_ULONG_MAX ((unsigned long)MAXULONG)
+# else
+# define PERL_ULONG_MAX (~(unsigned long)0)
+# endif
+# endif
+#endif
+
+#ifndef PERL_ULONG_MIN
+# define PERL_ULONG_MIN ((unsigned long)0L)
+#endif
+
+#ifndef PERL_LONG_MAX
+# ifdef LONG_MAX
+# define PERL_LONG_MAX ((long)LONG_MAX)
+# else
+# ifdef MAXLONG
+# define PERL_LONG_MAX ((long)MAXLONG)
+# else
+# define PERL_LONG_MAX ((long) (PERL_ULONG_MAX >> 1))
+# endif
+# endif
+#endif
+
+#ifndef PERL_LONG_MIN
+# ifdef LONG_MIN
+# define PERL_LONG_MIN ((long)LONG_MIN)
+# else
+# ifdef MINLONG
+# define PERL_LONG_MIN ((long)MINLONG)
+# else
+# define PERL_LONG_MIN (-PERL_LONG_MAX - ((3 & -1) == 3))
+# endif
+# endif
+#endif
+
+#if defined(HAS_QUAD) && (defined(convex) || defined(uts))
+# ifndef PERL_UQUAD_MAX
+# ifdef ULONGLONG_MAX
+# define PERL_UQUAD_MAX ((unsigned long long)ULONGLONG_MAX)
+# else
+# ifdef MAXULONGLONG
+# define PERL_UQUAD_MAX ((unsigned long long)MAXULONGLONG)
+# else
+# define PERL_UQUAD_MAX (~(unsigned long long)0)
+# endif
+# endif
+# endif
+
+# ifndef PERL_UQUAD_MIN
+# define PERL_UQUAD_MIN ((unsigned long long)0L)
+# endif
+
+# ifndef PERL_QUAD_MAX
+# ifdef LONGLONG_MAX
+# define PERL_QUAD_MAX ((long long)LONGLONG_MAX)
+# else
+# ifdef MAXLONGLONG
+# define PERL_QUAD_MAX ((long long)MAXLONGLONG)
+# else
+# define PERL_QUAD_MAX ((long long) (PERL_UQUAD_MAX >> 1))
+# endif
+# endif
+# endif
+
+# ifndef PERL_QUAD_MIN
+# ifdef LONGLONG_MIN
+# define PERL_QUAD_MIN ((long long)LONGLONG_MIN)
+# else
+# ifdef MINLONGLONG
+# define PERL_QUAD_MIN ((long long)MINLONGLONG)
+# else
+# define PERL_QUAD_MIN (-PERL_QUAD_MAX - ((3 & -1) == 3))
+# endif
+# endif
+# endif
+#endif
+
+/* This is based on code from 5.003 perl.h */
+#ifdef HAS_QUAD
+# ifdef cray
+#ifndef IVTYPE
+# define IVTYPE int
+#endif
+
+#ifndef IV_MIN
+# define IV_MIN PERL_INT_MIN
+#endif
+
+#ifndef IV_MAX
+# define IV_MAX PERL_INT_MAX
+#endif
+
+#ifndef UV_MIN
+# define UV_MIN PERL_UINT_MIN
+#endif
+
+#ifndef UV_MAX
+# define UV_MAX PERL_UINT_MAX
+#endif
+
+# ifdef INTSIZE
+#ifndef IVSIZE
+# define IVSIZE INTSIZE
+#endif
+
+# endif
+# else
+# if defined(convex) || defined(uts)
+#ifndef IVTYPE
+# define IVTYPE long long
+#endif
+
+#ifndef IV_MIN
+# define IV_MIN PERL_QUAD_MIN
+#endif
+
+#ifndef IV_MAX
+# define IV_MAX PERL_QUAD_MAX
+#endif
+
+#ifndef UV_MIN
+# define UV_MIN PERL_UQUAD_MIN
+#endif
+
+#ifndef UV_MAX
+# define UV_MAX PERL_UQUAD_MAX
+#endif
+
+# ifdef LONGLONGSIZE
+#ifndef IVSIZE
+# define IVSIZE LONGLONGSIZE
+#endif
+
+# endif
+# else
+#ifndef IVTYPE
+# define IVTYPE long
+#endif
+
+#ifndef IV_MIN
+# define IV_MIN PERL_LONG_MIN
+#endif
+
+#ifndef IV_MAX
+# define IV_MAX PERL_LONG_MAX
+#endif
+
+#ifndef UV_MIN
+# define UV_MIN PERL_ULONG_MIN
+#endif
+
+#ifndef UV_MAX
+# define UV_MAX PERL_ULONG_MAX
+#endif
+
+# ifdef LONGSIZE
+#ifndef IVSIZE
+# define IVSIZE LONGSIZE
+#endif
+
+# endif
+# endif
+# endif
+#ifndef IVSIZE
+# define IVSIZE 8
+#endif
+
+#ifndef LONGSIZE
+# define LONGSIZE 8
+#endif
+
+#ifndef PERL_QUAD_MIN
+# define PERL_QUAD_MIN IV_MIN
+#endif
+
+#ifndef PERL_QUAD_MAX
+# define PERL_QUAD_MAX IV_MAX
+#endif
+
+#ifndef PERL_UQUAD_MIN
+# define PERL_UQUAD_MIN UV_MIN
+#endif
+
+#ifndef PERL_UQUAD_MAX
+# define PERL_UQUAD_MAX UV_MAX
+#endif
+
+#else
+#ifndef IVTYPE
+# define IVTYPE long
+#endif
+
+#ifndef LONGSIZE
+# define LONGSIZE 4
+#endif
+
+#ifndef IV_MIN
+# define IV_MIN PERL_LONG_MIN
+#endif
+
+#ifndef IV_MAX
+# define IV_MAX PERL_LONG_MAX
+#endif
+
+#ifndef UV_MIN
+# define UV_MIN PERL_ULONG_MIN
+#endif
+
+#ifndef UV_MAX
+# define UV_MAX PERL_ULONG_MAX
+#endif
+
+#endif
+
+#ifndef IVSIZE
+# ifdef LONGSIZE
+# define IVSIZE LONGSIZE
+# else
+# define IVSIZE 4 /* A bold guess, but the best we can make. */
+# endif
+#endif
+#ifndef UVTYPE
+# define UVTYPE unsigned IVTYPE
+#endif
+
+#ifndef UVSIZE
+# define UVSIZE IVSIZE
+#endif
+
+#ifndef PERL_SIGNALS_UNSAFE_FLAG
+
+#define PERL_SIGNALS_UNSAFE_FLAG 0x0001
+
+#if (PERL_BCDVERSION < 0x5008000)
+# define D_PPP_PERL_SIGNALS_INIT PERL_SIGNALS_UNSAFE_FLAG
+#else
+# define D_PPP_PERL_SIGNALS_INIT 0
+#endif
+
+#if defined(NEED_PL_signals)
+static U32 DPPP_(my_PL_signals) = D_PPP_PERL_SIGNALS_INIT;
+#elif defined(NEED_PL_signals_GLOBAL)
+U32 DPPP_(my_PL_signals) = D_PPP_PERL_SIGNALS_INIT;
+#else
+extern U32 DPPP_(my_PL_signals);
+#endif
+#define PL_signals DPPP_(my_PL_signals)
+
+#endif
+
+/* Hint: PL_ppaddr
+ * Calling an op via PL_ppaddr requires passing a context argument
+ * for threaded builds. Since the context argument is different for
+ * 5.005 perls, you can use aTHXR (supplied by ppport.h), which will
+ * automatically be defined as the correct argument.
+ */
+
+#if (PERL_BCDVERSION <= 0x5005005)
+/* Replace: 1 */
+# define PL_ppaddr ppaddr
+# define PL_no_modify no_modify
+/* Replace: 0 */
+#endif
+
+#if (PERL_BCDVERSION <= 0x5004005)
+/* Replace: 1 */
+# define PL_DBsignal DBsignal
+# define PL_DBsingle DBsingle
+# define PL_DBsub DBsub
+# define PL_DBtrace DBtrace
+# define PL_Sv Sv
+# define PL_Xpv Xpv
+# define PL_bufend bufend
+# define PL_bufptr bufptr
+# define PL_compiling compiling
+# define PL_copline copline
+# define PL_curcop curcop
+# define PL_curstash curstash
+# define PL_debstash debstash
+# define PL_defgv defgv
+# define PL_diehook diehook
+# define PL_dirty dirty
+# define PL_dowarn dowarn
+# define PL_errgv errgv
+# define PL_error_count error_count
+# define PL_expect expect
+# define PL_hexdigit hexdigit
+# define PL_hints hints
+# define PL_in_my in_my
+# define PL_laststatval laststatval
+# define PL_lex_state lex_state
+# define PL_lex_stuff lex_stuff
+# define PL_linestr linestr
+# define PL_na na
+# define PL_perl_destruct_level perl_destruct_level
+# define PL_perldb perldb
+# define PL_rsfp_filters rsfp_filters
+# define PL_rsfp rsfp
+# define PL_stack_base stack_base
+# define PL_stack_sp stack_sp
+# define PL_statcache statcache
+# define PL_stdingv stdingv
+# define PL_sv_arenaroot sv_arenaroot
+# define PL_sv_no sv_no
+# define PL_sv_undef sv_undef
+# define PL_sv_yes sv_yes
+# define PL_tainted tainted
+# define PL_tainting tainting
+# define PL_tokenbuf tokenbuf
+# define PL_mess_sv mess_sv
+/* Replace: 0 */
+#endif
+
+/* Warning: PL_parser
+ * For perl versions earlier than 5.9.5, this is an always
+ * non-NULL dummy. Also, it cannot be dereferenced. Don't
+ * use it if you can avoid it, and unless you absolutely know
+ * what you're doing.
+ * If you always check that PL_parser is non-NULL, you can
+ * define DPPP_PL_parser_NO_DUMMY to avoid the creation of
+ * a dummy parser structure.
+ */
+
+#if (PERL_BCDVERSION >= 0x5009005)
+# ifdef DPPP_PL_parser_NO_DUMMY
+# define D_PPP_my_PL_parser_var(var) ((PL_parser ? PL_parser : \
+ (croak("panic: PL_parser == NULL in %s:%d", \
+ __FILE__, __LINE__), (yy_parser *) NULL))->var)
+# else
+# ifdef DPPP_PL_parser_NO_DUMMY_WARNING
+# define D_PPP_parser_dummy_warning(var)
+# else
+# define D_PPP_parser_dummy_warning(var) \
+ warn("warning: dummy PL_" #var " used in %s:%d", __FILE__, __LINE__),
+# endif
+# define D_PPP_my_PL_parser_var(var) ((PL_parser ? PL_parser : \
+ (D_PPP_parser_dummy_warning(var) &DPPP_(dummy_PL_parser)))->var)
+#if defined(NEED_PL_parser)
+static yy_parser DPPP_(dummy_PL_parser);
+#elif defined(NEED_PL_parser_GLOBAL)
+yy_parser DPPP_(dummy_PL_parser);
+#else
+extern yy_parser DPPP_(dummy_PL_parser);
+#endif
+
+# endif
+
+/* PL_expect, PL_copline, PL_rsfp, PL_rsfp_filters, PL_linestr, PL_bufptr, PL_bufend, PL_lex_state, PL_lex_stuff, PL_tokenbuf depends on PL_parser */
+/* Warning: PL_expect, PL_copline, PL_rsfp, PL_rsfp_filters, PL_linestr, PL_bufptr, PL_bufend, PL_lex_state, PL_lex_stuff, PL_tokenbuf
+ * Do not use this variable unless you know exactly what you're
+ * doing. It is internal to the perl parser and may change or even
+ * be removed in the future. As of perl 5.9.5, you have to check
+ * for (PL_parser != NULL) for this variable to have any effect.
+ * An always non-NULL PL_parser dummy is provided for earlier
+ * perl versions.
+ * If PL_parser is NULL when you try to access this variable, a
+ * dummy is being accessed instead and a warning is issued unless
+ * you define DPPP_PL_parser_NO_DUMMY_WARNING.
+ * If DPPP_PL_parser_NO_DUMMY is defined, the code trying to access
+ * this variable will croak with a panic message.
+ */
+
+# define PL_expect D_PPP_my_PL_parser_var(expect)
+# define PL_copline D_PPP_my_PL_parser_var(copline)
+# define PL_rsfp D_PPP_my_PL_parser_var(rsfp)
+# define PL_rsfp_filters D_PPP_my_PL_parser_var(rsfp_filters)
+# define PL_linestr D_PPP_my_PL_parser_var(linestr)
+# define PL_bufptr D_PPP_my_PL_parser_var(bufptr)
+# define PL_bufend D_PPP_my_PL_parser_var(bufend)
+# define PL_lex_state D_PPP_my_PL_parser_var(lex_state)
+# define PL_lex_stuff D_PPP_my_PL_parser_var(lex_stuff)
+# define PL_tokenbuf D_PPP_my_PL_parser_var(tokenbuf)
+# define PL_in_my D_PPP_my_PL_parser_var(in_my)
+# define PL_in_my_stash D_PPP_my_PL_parser_var(in_my_stash)
+# define PL_error_count D_PPP_my_PL_parser_var(error_count)
+
+
+#else
+
+/* ensure that PL_parser != NULL and cannot be dereferenced */
+# define PL_parser ((void *) 1)
+
+#endif
+
+#if (PERL_BCDVERSION <= 0x5003022)
+# undef start_subparse
+# if (PERL_BCDVERSION < 0x5003022)
+#ifndef start_subparse
+# define start_subparse(a, b) Perl_start_subparse()
+#endif
+
+# else
+#ifndef start_subparse
+# define start_subparse(a, b) Perl_start_subparse(b)
+#endif
+
+# endif
+
+#if (PERL_BCDVERSION < 0x5003007)
+foo
+#endif
+#endif
+
+/* newCONSTSUB from IO.xs is in the core starting with 5.004_63 */
+#if (PERL_BCDVERSION < 0x5004063) && (PERL_BCDVERSION != 0x5004005)
+
+/* And before that, we need to make sure this gets compiled for the functions
+ * that rely on it */
+#define NEED_newCONSTSUB
+
+#if defined(NEED_newCONSTSUB)
+static CV * DPPP_(my_newCONSTSUB)(HV * stash, const char * name, SV * sv);
+static
+#else
+extern CV * DPPP_(my_newCONSTSUB)(HV * stash, const char * name, SV * sv);
+#endif
+
+#if defined(NEED_newCONSTSUB) || defined(NEED_newCONSTSUB_GLOBAL)
+
+#ifdef newCONSTSUB
+# undef newCONSTSUB
+#endif
+#define newCONSTSUB(a,b,c) DPPP_(my_newCONSTSUB)(aTHX_ a,b,c)
+#define Perl_newCONSTSUB DPPP_(my_newCONSTSUB)
+
+
+/* This is just a trick to avoid a dependency of newCONSTSUB on PL_parser */
+/* (There's no PL_parser in perl < 5.005, so this is completely safe) */
+#define D_PPP_PL_copline PL_copline
+
+CV *
+DPPP_(my_newCONSTSUB)(HV *stash, const char *name, SV *sv)
+{
+ CV *cv;
+ U32 oldhints = PL_hints;
+ HV *old_cop_stash = PL_curcop->cop_stash;
+ HV *old_curstash = PL_curstash;
+ line_t oldline = PL_curcop->cop_line;
+ PL_curcop->cop_line = D_PPP_PL_copline;
+
+ PL_hints &= ~HINT_BLOCK_SCOPE;
+ if (stash)
+ PL_curstash = PL_curcop->cop_stash = stash;
+
+ cv = newSUB(
+
+ start_subparse(FALSE, 0),
+
+ newSVOP(OP_CONST, 0, newSVpv((char *) name, 0)),
+ newSVOP(OP_CONST, 0, &PL_sv_no), /* SvPV(&PL_sv_no) == "" -- GMB */
+ newSTATEOP(0, Nullch, newSVOP(OP_CONST, 0, sv))
+ );
+
+ PL_hints = oldhints;
+ PL_curcop->cop_stash = old_cop_stash;
+ PL_curstash = old_curstash;
+ PL_curcop->cop_line = oldline;
+
+ return cv;
+}
+#endif
+#endif
+#ifndef PERL_MAGIC_sv
+# define PERL_MAGIC_sv '\0'
+#endif
+
+#ifndef PERL_MAGIC_overload
+# define PERL_MAGIC_overload 'A'
+#endif
+
+#ifndef PERL_MAGIC_overload_elem
+# define PERL_MAGIC_overload_elem 'a'
+#endif
+
+#ifndef PERL_MAGIC_overload_table
+# define PERL_MAGIC_overload_table 'c'
+#endif
+
+#ifndef PERL_MAGIC_bm
+# define PERL_MAGIC_bm 'B'
+#endif
+
+#ifndef PERL_MAGIC_regdata
+# define PERL_MAGIC_regdata 'D'
+#endif
+
+#ifndef PERL_MAGIC_regdatum
+# define PERL_MAGIC_regdatum 'd'
+#endif
+
+#ifndef PERL_MAGIC_env
+# define PERL_MAGIC_env 'E'
+#endif
+
+#ifndef PERL_MAGIC_envelem
+# define PERL_MAGIC_envelem 'e'
+#endif
+
+#ifndef PERL_MAGIC_fm
+# define PERL_MAGIC_fm 'f'
+#endif
+
+#ifndef PERL_MAGIC_regex_global
+# define PERL_MAGIC_regex_global 'g'
+#endif
+
+#ifndef PERL_MAGIC_isa
+# define PERL_MAGIC_isa 'I'
+#endif
+
+#ifndef PERL_MAGIC_isaelem
+# define PERL_MAGIC_isaelem 'i'
+#endif
+
+#ifndef PERL_MAGIC_nkeys
+# define PERL_MAGIC_nkeys 'k'
+#endif
+
+#ifndef PERL_MAGIC_dbfile
+# define PERL_MAGIC_dbfile 'L'
+#endif
+
+#ifndef PERL_MAGIC_dbline
+# define PERL_MAGIC_dbline 'l'
+#endif
+
+#ifndef PERL_MAGIC_mutex
+# define PERL_MAGIC_mutex 'm'
+#endif
+
+#ifndef PERL_MAGIC_shared
+# define PERL_MAGIC_shared 'N'
+#endif
+
+#ifndef PERL_MAGIC_shared_scalar
+# define PERL_MAGIC_shared_scalar 'n'
+#endif
+
+#ifndef PERL_MAGIC_collxfrm
+# define PERL_MAGIC_collxfrm 'o'
+#endif
+
+#ifndef PERL_MAGIC_tied
+# define PERL_MAGIC_tied 'P'
+#endif
+
+#ifndef PERL_MAGIC_tiedelem
+# define PERL_MAGIC_tiedelem 'p'
+#endif
+
+#ifndef PERL_MAGIC_tiedscalar
+# define PERL_MAGIC_tiedscalar 'q'
+#endif
+
+#ifndef PERL_MAGIC_qr
+# define PERL_MAGIC_qr 'r'
+#endif
+
+#ifndef PERL_MAGIC_sig
+# define PERL_MAGIC_sig 'S'
+#endif
+
+#ifndef PERL_MAGIC_sigelem
+# define PERL_MAGIC_sigelem 's'
+#endif
+
+#ifndef PERL_MAGIC_taint
+# define PERL_MAGIC_taint 't'
+#endif
+
+#ifndef PERL_MAGIC_uvar
+# define PERL_MAGIC_uvar 'U'
+#endif
+
+#ifndef PERL_MAGIC_uvar_elem
+# define PERL_MAGIC_uvar_elem 'u'
+#endif
+
+#ifndef PERL_MAGIC_vstring
+# define PERL_MAGIC_vstring 'V'
+#endif
+
+#ifndef PERL_MAGIC_vec
+# define PERL_MAGIC_vec 'v'
+#endif
+
+#ifndef PERL_MAGIC_utf8
+# define PERL_MAGIC_utf8 'w'
+#endif
+
+#ifndef PERL_MAGIC_substr
+# define PERL_MAGIC_substr 'x'
+#endif
+
+#ifndef PERL_MAGIC_defelem
+# define PERL_MAGIC_defelem 'y'
+#endif
+
+#ifndef PERL_MAGIC_glob
+# define PERL_MAGIC_glob '*'
+#endif
+
+#ifndef PERL_MAGIC_arylen
+# define PERL_MAGIC_arylen '#'
+#endif
+
+#ifndef PERL_MAGIC_pos
+# define PERL_MAGIC_pos '.'
+#endif
+
+#ifndef PERL_MAGIC_backref
+# define PERL_MAGIC_backref '<'
+#endif
+
+#ifndef PERL_MAGIC_ext
+# define PERL_MAGIC_ext '~'
+#endif
+
+#if defined(__STDC_VERSION__) && __STDC_VERSION__ >= 199901L
+#ifndef PERL_STATIC_INLINE
+# define PERL_STATIC_INLINE static inline
+#endif
+
+#else
+#ifndef PERL_STATIC_INLINE
+# define PERL_STATIC_INLINE static
+#endif
+
+#endif
+#ifndef cBOOL
+# define cBOOL(cbool) ((cbool) ? (bool)1 : (bool)0)
+#endif
+
+#ifndef OpHAS_SIBLING
+# define OpHAS_SIBLING(o) (cBOOL((o)->op_sibling))
+#endif
+
+#ifndef OpSIBLING
+# define OpSIBLING(o) (0 + (o)->op_sibling)
+#endif
+
+#ifndef OpMORESIB_set
+# define OpMORESIB_set(o, sib) ((o)->op_sibling = (sib))
+#endif
+
+#ifndef OpLASTSIB_set
+# define OpLASTSIB_set(o, parent) ((o)->op_sibling = NULL)
+#endif
+
+#ifndef OpMAYBESIB_set
+# define OpMAYBESIB_set(o, sib, parent) ((o)->op_sibling = (sib))
+#endif
+
+#ifndef HEf_SVKEY
+# define HEf_SVKEY -2
+#endif
+
+#if defined(DEBUGGING) && !defined(__COVERITY__)
+#ifndef __ASSERT_
+# define __ASSERT_(statement) assert(statement),
+#endif
+
+#else
+#ifndef __ASSERT_
+# define __ASSERT_(statement)
+#endif
+
+#endif
+#ifndef __has_builtin
+# define __has_builtin(x) 0
+#endif
+
+#if __has_builtin(__builtin_unreachable)
+# define D_PPP_HAS_BUILTIN_UNREACHABLE
+#elif (defined(__GNUC__) && ( __GNUC__ > 4 \
+ || __GNUC__ == 4 && __GNUC_MINOR__ >= 5))
+# define D_PPP_HAS_BUILTIN_UNREACHABLE
+#endif
+
+#ifndef ASSUME
+# ifdef DEBUGGING
+# define ASSUME(x) assert(x)
+# elif defined(_MSC_VER)
+# define ASSUME(x) __assume(x)
+# elif defined(__ARMCC_VERSION)
+# define ASSUME(x) __promise(x)
+# elif defined(D_PPP_HAS_BUILTIN_UNREACHABLE)
+# define ASSUME(x) ((x) ? (void) 0 : __builtin_unreachable())
+# else
+# define ASSUME(x) assert(x)
+# endif
+#endif
+
+#ifndef NOT_REACHED
+# ifdef D_PPP_HAS_BUILTIN_UNREACHABLE
+# define NOT_REACHED \
+ STMT_START { \
+ ASSUME(!"UNREACHABLE"); __builtin_unreachable(); \
+ } STMT_END
+# elif ! defined(__GNUC__) && (defined(__sun) || defined(__hpux))
+# define NOT_REACHED
+# else
+# define NOT_REACHED ASSUME(!"UNREACHABLE")
+# endif
+#endif
+
+#ifndef WIDEST_UTYPE
+# ifdef QUADKIND
+# ifdef U64TYPE
+# define WIDEST_UTYPE U64TYPE
+# else
+# define WIDEST_UTYPE unsigned Quad_t
+# endif
+# else
+# define WIDEST_UTYPE U32
+# endif
+#endif
+
+/* These could become provided if/when they become part of the public API */
+#ifndef withinCOUNT
+# define withinCOUNT(c, l, n) \
+ (((WIDEST_UTYPE) (((c)) - ((l) | 0))) <= (((WIDEST_UTYPE) ((n) | 0))))
+#endif
+
+#ifndef inRANGE
+# define inRANGE(c, l, u) \
+ ( (sizeof(c) == sizeof(U8)) ? withinCOUNT(((U8) (c)), (l), ((u) - (l))) \
+ : (sizeof(c) == sizeof(U32)) ? withinCOUNT(((U32) (c)), (l), ((u) - (l))) \
+ : (withinCOUNT(((WIDEST_UTYPE) (c)), (l), ((u) - (l)))))
+#endif
+
+/* The '| 0' part ensures a compiler error if c is not integer (like e.g., a
+ * pointer) */
+#undef FITS_IN_8_BITS /* handy.h version uses a core-only constant */
+#ifndef FITS_IN_8_BITS
+# define FITS_IN_8_BITS(c) ( (sizeof(c) == 1) \
+ || !(((WIDEST_UTYPE)((c) | 0)) & ~0xFF))
+#endif
+
+/* Create the macro for "is'macro'_utf8_safe(s, e)". For code points below
+ * 256, it calls the equivalent _L1 macro by converting the UTF-8 to code
+ * point. That is so that it can automatically get the bug fixes done in this
+ * file. */
+#define D_PPP_IS_GENERIC_UTF8_SAFE(s, e, macro) \
+ (((e) - (s)) <= 0 \
+ ? 0 \
+ : UTF8_IS_INVARIANT((s)[0]) \
+ ? is ## macro ## _L1((s)[0]) \
+ : (((e) - (s)) < UTF8SKIP(s)) \
+ ? 0 \
+ : UTF8_IS_DOWNGRADEABLE_START((s)[0]) \
+ /* The cast in the line below is only to silence warnings */ \
+ ? is ## macro ## _L1((WIDEST_UTYPE) LATIN1_TO_NATIVE( \
+ UTF8_ACCUMULATE(NATIVE_UTF8_TO_I8((s)[0]) \
+ & UTF_START_MASK(2), \
+ (s)[1]))) \
+ : is ## macro ## _utf8(s))
+
+/* Create the macro for "is'macro'_LC_utf8_safe(s, e)". For code points below
+ * 256, it calls the equivalent _L1 macro by converting the UTF-8 to code
+ * point. That is so that it can automatically get the bug fixes done in this
+ * file. */
+#define D_PPP_IS_GENERIC_LC_UTF8_SAFE(s, e, macro) \
+ (((e) - (s)) <= 0 \
+ ? 0 \
+ : UTF8_IS_INVARIANT((s)[0]) \
+ ? is ## macro ## _LC((s)[0]) \
+ : (((e) - (s)) < UTF8SKIP(s)) \
+ ? 0 \
+ : UTF8_IS_DOWNGRADEABLE_START((s)[0]) \
+ /* The cast in the line below is only to silence warnings */ \
+ ? is ## macro ## _LC((WIDEST_UTYPE) LATIN1_TO_NATIVE( \
+ UTF8_ACCUMULATE(NATIVE_UTF8_TO_I8((s)[0]) \
+ & UTF_START_MASK(2), \
+ (s)[1]))) \
+ : is ## macro ## _utf8(s))
+
+/* A few of the early functions are broken. For these and the non-LC case,
+ * machine generated code is substituted. But that code doesn't work for
+ * locales. This is just like the above macro, but at the end, we call the
+ * macro we've generated for the above 255 case, which is correct since locale
+ * isn't involved. This will generate extra code to handle the 0-255 inputs,
+ * but hopefully it will be optimized out by the C compiler. But just in case
+ * it isn't, this macro is only used on the few versions that are broken */
+
+#define D_PPP_IS_GENERIC_LC_UTF8_SAFE_BROKEN(s, e, macro) \
+ (((e) - (s)) <= 0 \
+ ? 0 \
+ : UTF8_IS_INVARIANT((s)[0]) \
+ ? is ## macro ## _LC((s)[0]) \
+ : (((e) - (s)) < UTF8SKIP(s)) \
+ ? 0 \
+ : UTF8_IS_DOWNGRADEABLE_START((s)[0]) \
+ /* The cast in the line below is only to silence warnings */ \
+ ? is ## macro ## _LC((WIDEST_UTYPE) LATIN1_TO_NATIVE( \
+ UTF8_ACCUMULATE(NATIVE_UTF8_TO_I8((s)[0]) \
+ & UTF_START_MASK(2), \
+ (s)[1]))) \
+ : is ## macro ## _utf8_safe(s, e))
+#ifndef SvRX
+# define SvRX(rv) (SvROK((rv)) ? (SvMAGICAL(SvRV((rv))) ? (mg_find(SvRV((rv)), PERL_MAGIC_qr) ? mg_find(SvRV((rv)), PERL_MAGIC_qr)->mg_obj : NULL) : NULL) : NULL)
+#endif
+
+#ifndef SvRXOK
+# define SvRXOK(sv) (!!SvRX(sv))
+#endif
+
+#ifndef PERL_UNUSED_DECL
+# ifdef HASATTRIBUTE
+# if (defined(__GNUC__) && defined(__cplusplus)) || defined(__INTEL_COMPILER)
+# define PERL_UNUSED_DECL
+# else
+# define PERL_UNUSED_DECL __attribute__((unused))
+# endif
+# else
+# define PERL_UNUSED_DECL
+# endif
+#endif
+
+#ifndef PERL_UNUSED_ARG
+# if defined(lint) && defined(S_SPLINT_S) /* www.splint.org */
+# include <note.h>
+# define PERL_UNUSED_ARG(x) NOTE(ARGUNUSED(x))
+# else
+# define PERL_UNUSED_ARG(x) ((void)x)
+# endif
+#endif
+
+#ifndef PERL_UNUSED_VAR
+# define PERL_UNUSED_VAR(x) ((void)x)
+#endif
+
+#ifndef PERL_UNUSED_CONTEXT
+# ifdef USE_ITHREADS
+# define PERL_UNUSED_CONTEXT PERL_UNUSED_ARG(my_perl)
+# else
+# define PERL_UNUSED_CONTEXT
+# endif
+#endif
+
+#ifndef PERL_UNUSED_RESULT
+# if defined(__GNUC__) && defined(HASATTRIBUTE_WARN_UNUSED_RESULT)
+# define PERL_UNUSED_RESULT(v) STMT_START { __typeof__(v) z = (v); (void)sizeof(z); } STMT_END
+# else
+# define PERL_UNUSED_RESULT(v) ((void)(v))
+# endif
+#endif
+#ifndef NOOP
+# define NOOP /*EMPTY*/(void)0
+#endif
+
+#if (PERL_BCDVERSION < 0x5006001) && (PERL_BCDVERSION < 0x5027007)
+#undef dNOOP
+#ifndef dNOOP
+# define dNOOP struct Perl___notused_struct
+#endif
+
+#endif
+
+#ifndef NVTYPE
+# if defined(USE_LONG_DOUBLE) && defined(HAS_LONG_DOUBLE)
+# define NVTYPE long double
+# else
+# define NVTYPE double
+# endif
+typedef NVTYPE NV;
+#endif
+
+#ifndef INT2PTR
+# if (IVSIZE == PTRSIZE) && (UVSIZE == PTRSIZE)
+# define PTRV UV
+# define INT2PTR(any,d) (any)(d)
+# else
+# if PTRSIZE == LONGSIZE
+# define PTRV unsigned long
+# else
+# define PTRV unsigned
+# endif
+# define INT2PTR(any,d) (any)(PTRV)(d)
+# endif
+#endif
+
+#ifndef PTR2ul
+# if PTRSIZE == LONGSIZE
+# define PTR2ul(p) (unsigned long)(p)
+# else
+# define PTR2ul(p) INT2PTR(unsigned long,p)
+# endif
+#endif
+#ifndef PTR2nat
+# define PTR2nat(p) (PTRV)(p)
+#endif
+
+#ifndef NUM2PTR
+# define NUM2PTR(any,d) (any)PTR2nat(d)
+#endif
+
+#ifndef PTR2IV
+# define PTR2IV(p) INT2PTR(IV,p)
+#endif
+
+#ifndef PTR2UV
+# define PTR2UV(p) INT2PTR(UV,p)
+#endif
+
+#ifndef PTR2NV
+# define PTR2NV(p) NUM2PTR(NV,p)
+#endif
+
+#undef START_EXTERN_C
+#undef END_EXTERN_C
+#undef EXTERN_C
+#ifdef __cplusplus
+# define START_EXTERN_C extern "C" {
+# define END_EXTERN_C }
+# define EXTERN_C extern "C"
+#else
+# define START_EXTERN_C
+# define END_EXTERN_C
+# define EXTERN_C extern
+#endif
+
+#if (PERL_BCDVERSION < 0x5004000) || defined(PERL_GCC_PEDANTIC)
+# ifndef PERL_GCC_BRACE_GROUPS_FORBIDDEN
+#ifndef PERL_GCC_BRACE_GROUPS_FORBIDDEN
+# define PERL_GCC_BRACE_GROUPS_FORBIDDEN
+#endif
+
+# endif
+#endif
+
+#if ! defined(__GNUC__) || defined(PERL_GCC_BRACE_GROUPS_FORBIDDEN) || defined(__cplusplus)
+# undef PERL_USE_GCC_BRACE_GROUPS
+#else
+# ifndef PERL_USE_GCC_BRACE_GROUPS
+# define PERL_USE_GCC_BRACE_GROUPS
+# endif
+#endif
+
+#undef STMT_START
+#undef STMT_END
+#if defined(VOIDFLAGS) && defined(PERL_USE_GCC_BRACE_GROUPS)
+# define STMT_START (void)( /* gcc supports ``({ STATEMENTS; })'' */
+# define STMT_END )
+#else
+# if defined(VOIDFLAGS) && (VOIDFLAGS) && (defined(sun) || defined(__sun__)) && !defined(__GNUC__)
+# define STMT_START if (1)
+# define STMT_END else (void)0
+# else
+# define STMT_START do
+# define STMT_END while (0)
+# endif
+#endif
+#ifndef boolSV
+# define boolSV(b) ((b) ? &PL_sv_yes : &PL_sv_no)
+#endif
+
+/* DEFSV appears first in 5.004_56 */
+#ifndef DEFSV
+# define DEFSV GvSV(PL_defgv)
+#endif
+
+#ifndef SAVE_DEFSV
+# define SAVE_DEFSV SAVESPTR(GvSV(PL_defgv))
+#endif
+
+#ifndef DEFSV_set
+# define DEFSV_set(sv) (DEFSV = (sv))
+#endif
+
+/* Older perls (<=5.003) lack AvFILLp */
+#ifndef AvFILLp
+# define AvFILLp AvFILL
+#endif
+#ifndef av_tindex
+# define av_tindex AvFILL
+#endif
+
+#ifndef av_top_index
+# define av_top_index AvFILL
+#endif
+
+#ifndef av_count
+# define av_count(av) (AvFILL(av)+1)
+#endif
+#ifndef ERRSV
+# define ERRSV get_sv("@",FALSE)
+#endif
+
+/* Hint: gv_stashpvn
+ * This function's backport doesn't support the length parameter, but
+ * rather ignores it. Portability can only be ensured if the length
+ * parameter is used for speed reasons, but the length can always be
+ * correctly computed from the string argument.
+ */
+#ifndef gv_stashpvn
+# define gv_stashpvn(str,len,create) gv_stashpv(str,create)
+#endif
+
+/* Replace: 1 */
+#ifndef get_cv
+# define get_cv perl_get_cv
+#endif
+
+#ifndef get_sv
+# define get_sv perl_get_sv
+#endif
+
+#ifndef get_av
+# define get_av perl_get_av
+#endif
+
+#ifndef get_hv
+# define get_hv perl_get_hv
+#endif
+
+/* Replace: 0 */
+#ifndef dUNDERBAR
+# define dUNDERBAR dNOOP
+#endif
+
+#ifndef UNDERBAR
+# define UNDERBAR DEFSV
+#endif
+#ifndef dAX
+# define dAX I32 ax = MARK - PL_stack_base + 1
+#endif
+
+#ifndef dITEMS
+# define dITEMS I32 items = SP - MARK
+#endif
+#ifndef dXSTARG
+# define dXSTARG SV * targ = sv_newmortal()
+#endif
+#ifndef dAXMARK
+# define dAXMARK I32 ax = POPMARK; \
+ SV ** const mark = PL_stack_base + ax++
+#endif
+#ifndef XSprePUSH
+# define XSprePUSH (sp = PL_stack_base + ax - 1)
+#endif
+
+#if (PERL_BCDVERSION < 0x5005000)
+# undef XSRETURN
+# define XSRETURN(off) \
+ STMT_START { \
+ PL_stack_sp = PL_stack_base + ax + ((off) - 1); \
+ return; \
+ } STMT_END
+#endif
+#ifndef XSPROTO
+# define XSPROTO(name) void name(pTHX_ CV* cv)
+#endif
+
+#ifndef SVfARG
+# define SVfARG(p) ((void*)(p))
+#endif
+#ifndef PERL_ABS
+# define PERL_ABS(x) ((x) < 0 ? -(x) : (x))
+#endif
+#ifndef dVAR
+# define dVAR dNOOP
+#endif
+#ifndef SVf
+# define SVf "_"
+#endif
+#ifndef CPERLscope
+# define CPERLscope(x) x
+#endif
+#ifndef PERL_HASH
+# define PERL_HASH(hash,str,len) \
+ STMT_START { \
+ const char *s_PeRlHaSh = str; \
+ I32 i_PeRlHaSh = len; \
+ U32 hash_PeRlHaSh = 0; \
+ while (i_PeRlHaSh--) \
+ hash_PeRlHaSh = hash_PeRlHaSh * 33 + *s_PeRlHaSh++; \
+ (hash) = hash_PeRlHaSh; \
+ } STMT_END
+#endif
+
+#ifndef PERLIO_FUNCS_DECL
+# ifdef PERLIO_FUNCS_CONST
+# define PERLIO_FUNCS_DECL(funcs) const PerlIO_funcs funcs
+# define PERLIO_FUNCS_CAST(funcs) (PerlIO_funcs*)(funcs)
+# else
+# define PERLIO_FUNCS_DECL(funcs) PerlIO_funcs funcs
+# define PERLIO_FUNCS_CAST(funcs) (funcs)
+# endif
+#endif
+
+/* provide these typedefs for older perls */
+#if (PERL_BCDVERSION < 0x5009003)
+
+# ifdef ARGSproto
+typedef OP* (CPERLscope(*Perl_ppaddr_t))(ARGSproto);
+# else
+typedef OP* (CPERLscope(*Perl_ppaddr_t))(pTHX);
+# endif
+
+typedef OP* (CPERLscope(*Perl_check_t)) (pTHX_ OP*);
+
+#endif
+
+/* On versions without NATIVE_TO_ASCII, only ASCII is supported */
+#if defined(EBCDIC) && defined(NATIVE_TO_ASCI)
+#ifndef NATIVE_TO_LATIN1
+# define NATIVE_TO_LATIN1(c) NATIVE_TO_ASCII(c)
+#endif
+
+#ifndef LATIN1_TO_NATIVE
+# define LATIN1_TO_NATIVE(c) ASCII_TO_NATIVE(c)
+#endif
+
+#ifndef NATIVE_TO_UNI
+# define NATIVE_TO_UNI(c) ((c) > 255 ? (c) : NATIVE_TO_LATIN1(c))
+#endif
+
+#ifndef UNI_TO_NATIVE
+# define UNI_TO_NATIVE(c) ((c) > 255 ? (c) : LATIN1_TO_NATIVE(c))
+#endif
+
+#else
+#ifndef NATIVE_TO_LATIN1
+# define NATIVE_TO_LATIN1(c) (c)
+#endif
+
+#ifndef LATIN1_TO_NATIVE
+# define LATIN1_TO_NATIVE(c) (c)
+#endif
+
+#ifndef NATIVE_TO_UNI
+# define NATIVE_TO_UNI(c) (c)
+#endif
+
+#ifndef UNI_TO_NATIVE
+# define UNI_TO_NATIVE(c) (c)
+#endif
+
+#endif
+
+/* Warning: LATIN1_TO_NATIVE, NATIVE_TO_LATIN1 NATIVE_TO_UNI UNI_TO_NATIVE
+ EBCDIC is not supported on versions earlier than 5.7.1
+ */
+
+/* The meaning of this changed; use the modern version */
+#undef isPSXSPC
+#undef isPSXSPC_A
+#undef isPSXSPC_L1
+
+/* Hint: isPSXSPC, isPSXSPC_A, isPSXSPC_L1, isPSXSPC_utf8_safe
+ This is equivalent to the corresponding isSPACE-type macro. On perls
+ before 5.18, this matched a vertical tab and SPACE didn't. But the
+ ppport.h SPACE version does match VT in all perl releases. Since VT's are
+ extremely rarely found in real-life files, this difference effectively
+ doesn't matter */
+
+/* Hint: isSPACE, isSPACE_A, isSPACE_L1, isSPACE_utf8_safe
+ Until Perl 5.18, this did not match the vertical tab (VT). The ppport.h
+ version does match it in all perl releases. Since VT's are extremely rarely
+ found in real-life files, this difference effectively doesn't matter */
+
+#ifdef EBCDIC
+
+/* This is the first version where these macros are fully correct on EBCDIC
+ * platforms. Relying on the C library functions, as earlier releases did,
+ * causes problems with locales */
+# if (PERL_BCDVERSION < 0x5022000)
+# undef isALNUM
+# undef isALNUM_A
+# undef isALNUM_L1
+# undef isALNUMC
+# undef isALNUMC_A
+# undef isALNUMC_L1
+# undef isALPHA
+# undef isALPHA_A
+# undef isALPHA_L1
+# undef isALPHANUMERIC
+# undef isALPHANUMERIC_A
+# undef isALPHANUMERIC_L1
+# undef isASCII
+# undef isASCII_A
+# undef isASCII_L1
+# undef isBLANK
+# undef isBLANK_A
+# undef isBLANK_L1
+# undef isCNTRL
+# undef isCNTRL_A
+# undef isCNTRL_L1
+# undef isDIGIT
+# undef isDIGIT_A
+# undef isDIGIT_L1
+# undef isGRAPH
+# undef isGRAPH_A
+# undef isGRAPH_L1
+# undef isIDCONT
+# undef isIDCONT_A
+# undef isIDCONT_L1
+# undef isIDFIRST
+# undef isIDFIRST_A
+# undef isIDFIRST_L1
+# undef isLOWER
+# undef isLOWER_A
+# undef isLOWER_L1
+# undef isOCTAL
+# undef isOCTAL_A
+# undef isOCTAL_L1
+# undef isPRINT
+# undef isPRINT_A
+# undef isPRINT_L1
+# undef isPUNCT
+# undef isPUNCT_A
+# undef isPUNCT_L1
+# undef isSPACE
+# undef isSPACE_A
+# undef isSPACE_L1
+# undef isUPPER
+# undef isUPPER_A
+# undef isUPPER_L1
+# undef isWORDCHAR
+# undef isWORDCHAR_A
+# undef isWORDCHAR_L1
+# undef isXDIGIT
+# undef isXDIGIT_A
+# undef isXDIGIT_L1
+# endif
+#ifndef isASCII
+# define isASCII(c) (isCNTRL(c) || isPRINT(c))
+#endif
+
+ /* The below is accurate for all EBCDIC code pages supported by
+ * all the versions of Perl overridden by this */
+#ifndef isCNTRL
+# define isCNTRL(c) ( (c) == '\0' || (c) == '\a' || (c) == '\b' \
+ || (c) == '\f' || (c) == '\n' || (c) == '\r' \
+ || (c) == '\t' || (c) == '\v' \
+ || ((c) <= 3 && (c) >= 1) /* SOH, STX, ETX */ \
+ || (c) == 7 /* U+7F DEL */ \
+ || ((c) <= 0x13 && (c) >= 0x0E) /* SO, SI */ \
+ /* DLE, DC[1-3] */ \
+ || (c) == 0x18 /* U+18 CAN */ \
+ || (c) == 0x19 /* U+19 EOM */ \
+ || ((c) <= 0x1F && (c) >= 0x1C) /* [FGRU]S */ \
+ || (c) == 0x26 /* U+17 ETB */ \
+ || (c) == 0x27 /* U+1B ESC */ \
+ || (c) == 0x2D /* U+05 ENQ */ \
+ || (c) == 0x2E /* U+06 ACK */ \
+ || (c) == 0x32 /* U+16 SYN */ \
+ || (c) == 0x37 /* U+04 EOT */ \
+ || (c) == 0x3C /* U+14 DC4 */ \
+ || (c) == 0x3D /* U+15 NAK */ \
+ || (c) == 0x3F /* U+1A SUB */ \
+ )
+#endif
+
+#if '^' == 106 /* EBCDIC POSIX-BC */
+# define D_PPP_OUTLIER_CONTROL 0x5F
+#else /* EBCDIC 1047 037 */
+# define D_PPP_OUTLIER_CONTROL 0xFF
+#endif
+
+/* The controls are everything below blank, plus one outlier */
+#ifndef isCNTRL_L1
+# define isCNTRL_L1(c) ((WIDEST_UTYPE) (c) < ' ' \
+ || (WIDEST_UTYPE) (c) == D_PPP_OUTLIER_CONTROL)
+#endif
+
+/* The ordering of the tests in this and isUPPER are to exclude most characters
+ * early */
+#ifndef isLOWER
+# define isLOWER(c) ( (c) >= 'a' && (c) <= 'z' \
+ && ( (c) <= 'i' \
+ || ((c) >= 'j' && (c) <= 'r') \
+ || (c) >= 's'))
+#endif
+
+#ifndef isUPPER
+# define isUPPER(c) ( (c) >= 'A' && (c) <= 'Z' \
+ && ( (c) <= 'I' \
+ || ((c) >= 'J' && (c) <= 'R') \
+ || (c) >= 'S'))
+#endif
+
+#else /* Above is EBCDIC; below is ASCII */
+
+# if (PERL_BCDVERSION < 0x5004000)
+/* The implementation of these in older perl versions can give wrong results if
+ * the C program locale is set to other than the C locale */
+# undef isALNUM
+# undef isALNUM_A
+# undef isALPHA
+# undef isALPHA_A
+# undef isDIGIT
+# undef isDIGIT_A
+# undef isIDFIRST
+# undef isIDFIRST_A
+# undef isLOWER
+# undef isLOWER_A
+# undef isUPPER
+# undef isUPPER_A
+# endif
+
+# if (PERL_BCDVERSION == 0x5007000) /* this perl made space GRAPH */
+# undef isGRAPH
+# endif
+
+# if (PERL_BCDVERSION < 0x5008000) /* earlier perls omitted DEL */
+# undef isCNTRL
+# endif
+
+# if (PERL_BCDVERSION < 0x5010000)
+/* earlier perls included all of the isSPACE() characters, which is wrong. The
+ * version provided by Devel::PPPort always overrides an existing buggy
+ * version. */
+# undef isPRINT
+# undef isPRINT_A
+# endif
+
+# if (PERL_BCDVERSION < 0x5014000)
+/* earlier perls always returned true if the parameter was a signed char */
+# undef isASCII
+# undef isASCII_A
+# endif
+
+# if (PERL_BCDVERSION < 0x5017008) /* earlier perls didn't include PILCROW, SECTION SIGN */
+# undef isPUNCT_L1
+# endif
+
+# if (PERL_BCDVERSION < 0x5013007) /* khw didn't investigate why this failed */
+# undef isALNUMC_L1
+#endif
+
+# if (PERL_BCDVERSION < 0x5020000) /* earlier perls didn't include \v */
+# undef isSPACE
+# undef isSPACE_A
+# undef isSPACE_L1
+
+# endif
+#ifndef isASCII
+# define isASCII(c) ((WIDEST_UTYPE) (c) <= 127)
+#endif
+
+#ifndef isCNTRL
+# define isCNTRL(c) ((WIDEST_UTYPE) (c) < ' ' || (c) == 127)
+#endif
+
+#ifndef isCNTRL_L1
+# define isCNTRL_L1(c) ( (WIDEST_UTYPE) (c) < ' ' \
+ || inRANGE((c), 0x7F, 0x9F))
+#endif
+
+#ifndef isLOWER
+# define isLOWER(c) inRANGE((c), 'a', 'z')
+#endif
+
+#ifndef isUPPER
+# define isUPPER(c) inRANGE((c), 'A', 'Z')
+#endif
+
+#endif /* Below are definitions common to EBCDIC and ASCII */
+#ifndef isASCII_L1
+# define isASCII_L1(c) isASCII(c)
+#endif
+
+#ifndef isASCII_LC
+# define isASCII_LC(c) isASCII(c)
+#endif
+
+#ifndef isALNUM
+# define isALNUM(c) isWORDCHAR(c)
+#endif
+
+#ifndef isALNUMC
+# define isALNUMC(c) isALPHANUMERIC(c)
+#endif
+
+#ifndef isALNUMC_L1
+# define isALNUMC_L1(c) isALPHANUMERIC_L1(c)
+#endif
+
+#ifndef isALPHA
+# define isALPHA(c) (isUPPER(c) || isLOWER(c))
+#endif
+
+#ifndef isALPHA_L1
+# define isALPHA_L1(c) (isUPPER_L1(c) || isLOWER_L1(c))
+#endif
+
+#ifndef isALPHANUMERIC
+# define isALPHANUMERIC(c) (isALPHA(c) || isDIGIT(c))
+#endif
+
+#ifndef isALPHANUMERIC_L1
+# define isALPHANUMERIC_L1(c) (isALPHA_L1(c) || isDIGIT(c))
+#endif
+
+#ifndef isALPHANUMERIC_LC
+# define isALPHANUMERIC_LC(c) (isALPHA_LC(c) || isDIGIT_LC(c))
+#endif
+
+#ifndef isBLANK
+# define isBLANK(c) ((c) == ' ' || (c) == '\t')
+#endif
+
+#ifndef isBLANK_L1
+# define isBLANK_L1(c) ( isBLANK(c) \
+ || ( FITS_IN_8_BITS(c) \
+ && NATIVE_TO_LATIN1((U8) c) == 0xA0))
+#endif
+
+#ifndef isBLANK_LC
+# define isBLANK_LC(c) isBLANK(c)
+#endif
+
+#ifndef isDIGIT
+# define isDIGIT(c) inRANGE(c, '0', '9')
+#endif
+
+#ifndef isDIGIT_L1
+# define isDIGIT_L1(c) isDIGIT(c)
+#endif
+
+#ifndef isGRAPH
+# define isGRAPH(c) (isWORDCHAR(c) || isPUNCT(c))
+#endif
+
+#ifndef isGRAPH_L1
+# define isGRAPH_L1(c) ( isPRINT_L1(c) \
+ && (c) != ' ' \
+ && NATIVE_TO_LATIN1((U8) c) != 0xA0)
+#endif
+
+#ifndef isIDCONT
+# define isIDCONT(c) isWORDCHAR(c)
+#endif
+
+#ifndef isIDCONT_L1
+# define isIDCONT_L1(c) isWORDCHAR_L1(c)
+#endif
+
+#ifndef isIDCONT_LC
+# define isIDCONT_LC(c) isWORDCHAR_LC(c)
+#endif
+
+#ifndef isIDFIRST
+# define isIDFIRST(c) (isALPHA(c) || (c) == '_')
+#endif
+
+#ifndef isIDFIRST_L1
+# define isIDFIRST_L1(c) (isALPHA_L1(c) || (U8) (c) == '_')
+#endif
+
+#ifndef isIDFIRST_LC
+# define isIDFIRST_LC(c) (isALPHA_LC(c) || (U8) (c) == '_')
+#endif
+
+#ifndef isLOWER_L1
+# define isLOWER_L1(c) ( isLOWER(c) \
+ || ( FITS_IN_8_BITS(c) \
+ && ( ( NATIVE_TO_LATIN1((U8) c) >= 0xDF \
+ && NATIVE_TO_LATIN1((U8) c) != 0xF7) \
+ || NATIVE_TO_LATIN1((U8) c) == 0xAA \
+ || NATIVE_TO_LATIN1((U8) c) == 0xBA \
+ || NATIVE_TO_LATIN1((U8) c) == 0xB5)))
+#endif
+
+#ifndef isOCTAL
+# define isOCTAL(c) (((WIDEST_UTYPE)((c)) & ~7) == '0')
+#endif
+
+#ifndef isOCTAL_L1
+# define isOCTAL_L1(c) isOCTAL(c)
+#endif
+
+#ifndef isPRINT
+# define isPRINT(c) (isGRAPH(c) || (c) == ' ')
+#endif
+
+#ifndef isPRINT_L1
+# define isPRINT_L1(c) (FITS_IN_8_BITS(c) && ! isCNTRL_L1(c))
+#endif
+
+#ifndef isPSXSPC
+# define isPSXSPC(c) isSPACE(c)
+#endif
+
+#ifndef isPSXSPC_L1
+# define isPSXSPC_L1(c) isSPACE_L1(c)
+#endif
+
+#ifndef isPUNCT
+# define isPUNCT(c) ( (c) == '-' || (c) == '!' || (c) == '"' \
+ || (c) == '#' || (c) == '$' || (c) == '%' \
+ || (c) == '&' || (c) == '\'' || (c) == '(' \
+ || (c) == ')' || (c) == '*' || (c) == '+' \
+ || (c) == ',' || (c) == '.' || (c) == '/' \
+ || (c) == ':' || (c) == ';' || (c) == '<' \
+ || (c) == '=' || (c) == '>' || (c) == '?' \
+ || (c) == '@' || (c) == '[' || (c) == '\\' \
+ || (c) == ']' || (c) == '^' || (c) == '_' \
+ || (c) == '`' || (c) == '{' || (c) == '|' \
+ || (c) == '}' || (c) == '~')
+#endif
+
+#ifndef isPUNCT_L1
+# define isPUNCT_L1(c) ( isPUNCT(c) \
+ || ( FITS_IN_8_BITS(c) \
+ && ( NATIVE_TO_LATIN1((U8) c) == 0xA1 \
+ || NATIVE_TO_LATIN1((U8) c) == 0xA7 \
+ || NATIVE_TO_LATIN1((U8) c) == 0xAB \
+ || NATIVE_TO_LATIN1((U8) c) == 0xB6 \
+ || NATIVE_TO_LATIN1((U8) c) == 0xB7 \
+ || NATIVE_TO_LATIN1((U8) c) == 0xBB \
+ || NATIVE_TO_LATIN1((U8) c) == 0xBF)))
+#endif
+
+#ifndef isSPACE
+# define isSPACE(c) ( isBLANK(c) || (c) == '\n' || (c) == '\r' \
+ || (c) == '\v' || (c) == '\f')
+#endif
+
+#ifndef isSPACE_L1
+# define isSPACE_L1(c) ( isSPACE(c) \
+ || (FITS_IN_8_BITS(c) \
+ && ( NATIVE_TO_LATIN1((U8) c) == 0x85 \
+ || NATIVE_TO_LATIN1((U8) c) == 0xA0)))
+#endif
+
+#ifndef isUPPER_L1
+# define isUPPER_L1(c) ( isUPPER(c) \
+ || (FITS_IN_8_BITS(c) \
+ && ( NATIVE_TO_LATIN1((U8) c) >= 0xC0 \
+ && NATIVE_TO_LATIN1((U8) c) <= 0xDE \
+ && NATIVE_TO_LATIN1((U8) c) != 0xD7)))
+#endif
+
+#ifndef isWORDCHAR
+# define isWORDCHAR(c) (isALPHANUMERIC(c) || (c) == '_')
+#endif
+
+#ifndef isWORDCHAR_L1
+# define isWORDCHAR_L1(c) (isIDFIRST_L1(c) || isDIGIT(c))
+#endif
+
+#ifndef isWORDCHAR_LC
+# define isWORDCHAR_LC(c) (isIDFIRST_LC(c) || isDIGIT_LC(c))
+#endif
+
+#ifndef isXDIGIT
+# define isXDIGIT(c) ( isDIGIT(c) \
+ || inRANGE((c), 'a', 'f') \
+ || inRANGE((c), 'A', 'F'))
+#endif
+
+#ifndef isXDIGIT_L1
+# define isXDIGIT_L1(c) isXDIGIT(c)
+#endif
+
+#ifndef isXDIGIT_LC
+# define isXDIGIT_LC(c) isxdigit(c)
+#endif
+#ifndef isALNUM_A
+# define isALNUM_A(c) isALNUM(c)
+#endif
+
+#ifndef isALNUMC_A
+# define isALNUMC_A(c) isALNUMC(c)
+#endif
+
+#ifndef isALPHA_A
+# define isALPHA_A(c) isALPHA(c)
+#endif
+
+#ifndef isALPHANUMERIC_A
+# define isALPHANUMERIC_A(c) isALPHANUMERIC(c)
+#endif
+
+#ifndef isASCII_A
+# define isASCII_A(c) isASCII(c)
+#endif
+
+#ifndef isBLANK_A
+# define isBLANK_A(c) isBLANK(c)
+#endif
+
+#ifndef isCNTRL_A
+# define isCNTRL_A(c) isCNTRL(c)
+#endif
+
+#ifndef isDIGIT_A
+# define isDIGIT_A(c) isDIGIT(c)
+#endif
+
+#ifndef isGRAPH_A
+# define isGRAPH_A(c) isGRAPH(c)
+#endif
+
+#ifndef isIDCONT_A
+# define isIDCONT_A(c) isIDCONT(c)
+#endif
+
+#ifndef isIDFIRST_A
+# define isIDFIRST_A(c) isIDFIRST(c)
+#endif
+
+#ifndef isLOWER_A
+# define isLOWER_A(c) isLOWER(c)
+#endif
+
+#ifndef isOCTAL_A
+# define isOCTAL_A(c) isOCTAL(c)
+#endif
+
+#ifndef isPRINT_A
+# define isPRINT_A(c) isPRINT(c)
+#endif
+
+#ifndef isPSXSPC_A
+# define isPSXSPC_A(c) isPSXSPC(c)
+#endif
+
+#ifndef isPUNCT_A
+# define isPUNCT_A(c) isPUNCT(c)
+#endif
+
+#ifndef isSPACE_A
+# define isSPACE_A(c) isSPACE(c)
+#endif
+
+#ifndef isUPPER_A
+# define isUPPER_A(c) isUPPER(c)
+#endif
+
+#ifndef isWORDCHAR_A
+# define isWORDCHAR_A(c) isWORDCHAR(c)
+#endif
+
+#ifndef isXDIGIT_A
+# define isXDIGIT_A(c) isXDIGIT(c)
+#endif
+#ifndef isASCII_utf8_safe
+# define isASCII_utf8_safe(s,e) (((e) - (s)) <= 0 ? 0 : isASCII(*(s)))
+#endif
+
+#ifndef isASCII_uvchr
+# define isASCII_uvchr(c) (FITS_IN_8_BITS(c) ? isASCII_L1(c) : 0)
+#endif
+
+#if (PERL_BCDVERSION >= 0x5006000)
+# ifdef isALPHA_uni /* If one defined, all are; this is just an exemplar */
+# define D_PPP_is_ctype(upper, lower, c) \
+ (FITS_IN_8_BITS(c) \
+ ? is ## upper ## _L1(c) \
+ : is ## upper ## _uni((UV) (c))) /* _uni is old synonym */
+# else
+# define D_PPP_is_ctype(upper, lower, c) \
+ (FITS_IN_8_BITS(c) \
+ ? is ## upper ## _L1(c) \
+ : is_uni_ ## lower((UV) (c))) /* is_uni_ is even older */
+# endif
+#ifndef isALPHA_uvchr
+# define isALPHA_uvchr(c) D_PPP_is_ctype(ALPHA, alpha, c)
+#endif
+
+#ifndef isALPHANUMERIC_uvchr
+# define isALPHANUMERIC_uvchr(c) (isALPHA_uvchr(c) || isDIGIT_uvchr(c))
+#endif
+
+# ifdef is_uni_blank
+#ifndef isBLANK_uvchr
+# define isBLANK_uvchr(c) D_PPP_is_ctype(BLANK, blank, c)
+#endif
+
+# else
+#ifndef isBLANK_uvchr
+# define isBLANK_uvchr(c) (FITS_IN_8_BITS(c) \
+ ? isBLANK_L1(c) \
+ : ( (UV) (c) == 0x1680 /* Unicode 3.0 */ \
+ || inRANGE((UV) (c), 0x2000, 0x200A) \
+ || (UV) (c) == 0x202F /* Unicode 3.0 */\
+ || (UV) (c) == 0x205F /* Unicode 3.2 */\
+ || (UV) (c) == 0x3000))
+#endif
+
+# endif
+#ifndef isCNTRL_uvchr
+# define isCNTRL_uvchr(c) D_PPP_is_ctype(CNTRL, cntrl, c)
+#endif
+
+#ifndef isDIGIT_uvchr
+# define isDIGIT_uvchr(c) D_PPP_is_ctype(DIGIT, digit, c)
+#endif
+
+#ifndef isGRAPH_uvchr
+# define isGRAPH_uvchr(c) D_PPP_is_ctype(GRAPH, graph, c)
+#endif
+
+#ifndef isIDCONT_uvchr
+# define isIDCONT_uvchr(c) isWORDCHAR_uvchr(c)
+#endif
+
+#ifndef isIDFIRST_uvchr
+# define isIDFIRST_uvchr(c) D_PPP_is_ctype(IDFIRST, idfirst, c)
+#endif
+
+#ifndef isLOWER_uvchr
+# define isLOWER_uvchr(c) D_PPP_is_ctype(LOWER, lower, c)
+#endif
+
+#ifndef isPRINT_uvchr
+# define isPRINT_uvchr(c) D_PPP_is_ctype(PRINT, print, c)
+#endif
+
+#ifndef isPSXSPC_uvchr
+# define isPSXSPC_uvchr(c) isSPACE_uvchr(c)
+#endif
+
+#ifndef isPUNCT_uvchr
+# define isPUNCT_uvchr(c) D_PPP_is_ctype(PUNCT, punct, c)
+#endif
+
+#ifndef isSPACE_uvchr
+# define isSPACE_uvchr(c) D_PPP_is_ctype(SPACE, space, c)
+#endif
+
+#ifndef isUPPER_uvchr
+# define isUPPER_uvchr(c) D_PPP_is_ctype(UPPER, upper, c)
+#endif
+
+#ifndef isXDIGIT_uvchr
+# define isXDIGIT_uvchr(c) D_PPP_is_ctype(XDIGIT, xdigit, c)
+#endif
+
+#ifndef isWORDCHAR_uvchr
+# define isWORDCHAR_uvchr(c) (FITS_IN_8_BITS(c) \
+ ? isWORDCHAR_L1(c) : isALPHANUMERIC_uvchr(c))
+#endif
+#ifndef isALPHA_utf8_safe
+# define isALPHA_utf8_safe(s,e) D_PPP_IS_GENERIC_UTF8_SAFE(s, e, ALPHA)
+#endif
+
+# ifdef isALPHANUMERIC_utf8
+#ifndef isALPHANUMERIC_utf8_safe
+# define isALPHANUMERIC_utf8_safe(s,e) \
+ D_PPP_IS_GENERIC_UTF8_SAFE(s, e, ALPHANUMERIC)
+#endif
+
+# else
+#ifndef isALPHANUMERIC_utf8_safe
+# define isALPHANUMERIC_utf8_safe(s,e) \
+ (isALPHA_utf8_safe(s,e) || isDIGIT_utf8_safe(s,e))
+#endif
+
+# endif
+
+/* This was broken before 5.18, and just use this instead of worrying about
+ * which releases the official works on */
+# if 'A' == 65
+#ifndef isBLANK_utf8_safe
+# define isBLANK_utf8_safe(s,e) \
+( ( LIKELY((e) > (s)) ) ? /* Machine generated */ \
+ ( ( 0x09 == ((const U8*)s)[0] || 0x20 == ((const U8*)s)[0] ) ? 1 \
+ : ( LIKELY(((e) - (s)) >= UTF8SKIP(s)) ) ? \
+ ( ( 0xC2 == ((const U8*)s)[0] ) ? \
+ ( ( 0xA0 == ((const U8*)s)[1] ) ? 2 : 0 ) \
+ : ( 0xE1 == ((const U8*)s)[0] ) ? \
+ ( ( ( 0x9A == ((const U8*)s)[1] ) && ( 0x80 == ((const U8*)s)[2] ) ) ? 3 : 0 )\
+ : ( 0xE2 == ((const U8*)s)[0] ) ? \
+ ( ( 0x80 == ((const U8*)s)[1] ) ? \
+ ( ( inRANGE(((const U8*)s)[2], 0x80, 0x8A ) || 0xAF == ((const U8*)s)[2] ) ? 3 : 0 )\
+ : ( ( 0x81 == ((const U8*)s)[1] ) && ( 0x9F == ((const U8*)s)[2] ) ) ? 3 : 0 )\
+ : ( ( ( 0xE3 == ((const U8*)s)[0] ) && ( 0x80 == ((const U8*)s)[1] ) ) && ( 0x80 == ((const U8*)s)[2] ) ) ? 3 : 0 )\
+ : 0 ) \
+ : 0 )
+#endif
+
+# elif 'A' == 193 && '^' == 95 /* EBCDIC 1047 */
+#ifndef isBLANK_utf8_safe
+# define isBLANK_utf8_safe(s,e) \
+( ( LIKELY((e) > (s)) ) ? \
+ ( ( 0x05 == ((const U8*)s)[0] || 0x40 == ((const U8*)s)[0] ) ? 1 \
+ : ( LIKELY(((e) - (s)) >= UTF8SKIP(s)) ) ? \
+ ( ( 0x80 == ((const U8*)s)[0] ) ? \
+ ( ( 0x41 == ((const U8*)s)[1] ) ? 2 : 0 ) \
+ : ( 0xBC == ((const U8*)s)[0] ) ? \
+ ( ( ( 0x63 == ((const U8*)s)[1] ) && ( 0x41 == ((const U8*)s)[2] ) ) ? 3 : 0 )\
+ : ( 0xCA == ((const U8*)s)[0] ) ? \
+ ( ( 0x41 == ((const U8*)s)[1] ) ? \
+ ( ( inRANGE(((const U8*)s)[2], 0x41, 0x4A ) || 0x51 == ((const U8*)s)[2] ) ? 3 : 0 )\
+ : ( 0x42 == ((const U8*)s)[1] ) ? \
+ ( ( 0x56 == ((const U8*)s)[2] ) ? 3 : 0 ) \
+ : ( ( 0x43 == ((const U8*)s)[1] ) && ( 0x73 == ((const U8*)s)[2] ) ) ? 3 : 0 )\
+ : ( ( ( 0xCE == ((const U8*)s)[0] ) && ( 0x41 == ((const U8*)s)[1] ) ) && ( 0x41 == ((const U8*)s)[2] ) ) ? 3 : 0 )\
+ : 0 ) \
+: 0 )
+#endif
+
+# elif 'A' == 193 && '^' == 176 /* EBCDIC 037 */
+#ifndef isBLANK_utf8_safe
+# define isBLANK_utf8_safe(s,e) \
+( ( LIKELY((e) > (s)) ) ? \
+ ( ( 0x05 == ((const U8*)s)[0] || 0x40 == ((const U8*)s)[0] ) ? 1 \
+ : ( LIKELY(((e) - (s)) >= UTF8SKIP(s)) ) ? \
+ ( ( 0x78 == ((const U8*)s)[0] ) ? \
+ ( ( 0x41 == ((const U8*)s)[1] ) ? 2 : 0 ) \
+ : ( 0xBD == ((const U8*)s)[0] ) ? \
+ ( ( ( 0x62 == ((const U8*)s)[1] ) && ( 0x41 == ((const U8*)s)[2] ) ) ? 3 : 0 )\
+ : ( 0xCA == ((const U8*)s)[0] ) ? \
+ ( ( 0x41 == ((const U8*)s)[1] ) ? \
+ ( ( inRANGE(((const U8*)s)[2], 0x41, 0x4A ) || 0x51 == ((const U8*)s)[2] ) ? 3 : 0 )\
+ : ( 0x42 == ((const U8*)s)[1] ) ? \
+ ( ( 0x56 == ((const U8*)s)[2] ) ? 3 : 0 ) \
+ : ( ( 0x43 == ((const U8*)s)[1] ) && ( 0x72 == ((const U8*)s)[2] ) ) ? 3 : 0 )\
+ : ( ( ( 0xCE == ((const U8*)s)[0] ) && ( 0x41 == ((const U8*)s)[1] ) ) && ( 0x41 == ((const U8*)s)[2] ) ) ? 3 : 0 )\
+ : 0 ) \
+: 0 )
+#endif
+
+# else
+# error Unknown character set
+# endif
+#ifndef isCNTRL_utf8_safe
+# define isCNTRL_utf8_safe(s,e) D_PPP_IS_GENERIC_UTF8_SAFE(s, e, CNTRL)
+#endif
+
+#ifndef isDIGIT_utf8_safe
+# define isDIGIT_utf8_safe(s,e) D_PPP_IS_GENERIC_UTF8_SAFE(s, e, DIGIT)
+#endif
+
+#ifndef isGRAPH_utf8_safe
+# define isGRAPH_utf8_safe(s,e) D_PPP_IS_GENERIC_UTF8_SAFE(s, e, GRAPH)
+#endif
+
+# ifdef isIDCONT_utf8
+#ifndef isIDCONT_utf8_safe
+# define isIDCONT_utf8_safe(s,e) D_PPP_IS_GENERIC_UTF8_SAFE(s, e, IDCONT)
+#endif
+
+# else
+#ifndef isIDCONT_utf8_safe
+# define isIDCONT_utf8_safe(s,e) isWORDCHAR_utf8_safe(s,e)
+#endif
+
+# endif
+#ifndef isIDFIRST_utf8_safe
+# define isIDFIRST_utf8_safe(s,e) D_PPP_IS_GENERIC_UTF8_SAFE(s, e, IDFIRST)
+#endif
+
+#ifndef isLOWER_utf8_safe
+# define isLOWER_utf8_safe(s,e) D_PPP_IS_GENERIC_UTF8_SAFE(s, e, LOWER)
+#endif
+
+#ifndef isPRINT_utf8_safe
+# define isPRINT_utf8_safe(s,e) D_PPP_IS_GENERIC_UTF8_SAFE(s, e, PRINT)
+#endif
+
+# undef isPSXSPC_utf8_safe /* Use the modern definition */
+#ifndef isPSXSPC_utf8_safe
+# define isPSXSPC_utf8_safe(s,e) isSPACE_utf8_safe(s,e)
+#endif
+#ifndef isPUNCT_utf8_safe
+# define isPUNCT_utf8_safe(s,e) D_PPP_IS_GENERIC_UTF8_SAFE(s, e, PUNCT)
+#endif
+
+#ifndef isSPACE_utf8_safe
+# define isSPACE_utf8_safe(s,e) D_PPP_IS_GENERIC_UTF8_SAFE(s, e, SPACE)
+#endif
+
+#ifndef isUPPER_utf8_safe
+# define isUPPER_utf8_safe(s,e) D_PPP_IS_GENERIC_UTF8_SAFE(s, e, UPPER)
+#endif
+
+# ifdef isWORDCHAR_utf8
+#ifndef isWORDCHAR_utf8_safe
+# define isWORDCHAR_utf8_safe(s,e) D_PPP_IS_GENERIC_UTF8_SAFE(s, e, WORDCHAR)
+#endif
+
+# else
+#ifndef isWORDCHAR_utf8_safe
+# define isWORDCHAR_utf8_safe(s,e) \
+ (isALPHANUMERIC_utf8_safe(s,e) || (*(s)) == '_')
+#endif
+
+# endif
+
+/* This was broken before 5.12, and just use this instead of worrying about
+ * which releases the official works on */
+# if 'A' == 65
+#ifndef isXDIGIT_utf8_safe
+# define isXDIGIT_utf8_safe(s,e) \
+( ( LIKELY((e) > (s)) ) ? \
+ ( ( inRANGE(((const U8*)s)[0], 0x30, 0x39 ) || inRANGE(((const U8*)s)[0], 0x41, 0x46 ) || inRANGE(((const U8*)s)[0], 0x61, 0x66 ) ) ? 1\
+ : ( ( LIKELY(((e) - (s)) >= UTF8SKIP(s)) ) && ( 0xEF == ((const U8*)s)[0] ) ) ? ( ( 0xBC == ((const U8*)s)[1] ) ?\
+ ( ( inRANGE(((const U8*)s)[2], 0x90, 0x99 ) || inRANGE(((const U8*)s)[2], 0xA1, 0xA6 ) ) ? 3 : 0 )\
+ : ( ( 0xBD == ((const U8*)s)[1] ) && ( inRANGE(((const U8*)s)[2], 0x81, 0x86 ) ) ) ? 3 : 0 ) : 0 )\
+: 0 )
+#endif
+
+# elif 'A' == 193 && '^' == 95 /* EBCDIC 1047 */
+#ifndef isXDIGIT_utf8_safe
+# define isXDIGIT_utf8_safe(s,e) \
+( ( LIKELY((e) > (s)) ) ? \
+ ( ( inRANGE(((const U8*)s)[0], 0x81, 0x86 ) || inRANGE(((const U8*)s)[0], 0xC1, 0xC6 ) || inRANGE(((const U8*)s)[0], 0xF0, 0xF9 ) ) ? 1\
+ : ( ( ( LIKELY(((e) - (s)) >= UTF8SKIP(s)) ) && ( 0xDD == ((const U8*)s)[0] ) ) && ( 0x73 == ((const U8*)s)[1] ) ) ? ( ( 0x67 == ((const U8*)s)[2] ) ?\
+ ( ( inRANGE(((const U8*)s)[3], 0x57, 0x59 ) || inRANGE(((const U8*)s)[3], 0x62, 0x68 ) ) ? 4 : 0 )\
+ : ( ( inRANGE(((const U8*)s)[2], 0x68, 0x69 ) ) && ( inRANGE(((const U8*)s)[3], 0x42, 0x47 ) ) ) ? 4 : 0 ) : 0 )\
+: 0 )
+#endif
+
+# elif 'A' == 193 && '^' == 176 /* EBCDIC 037 */
+#ifndef isXDIGIT_utf8_safe
+# define isXDIGIT_utf8_safe(s,e) \
+( ( LIKELY((e) > (s)) ) ? \
+ ( ( inRANGE(((const U8*)s)[0], 0x81, 0x86 ) || inRANGE(((const U8*)s)[0], 0xC1, 0xC6 ) || inRANGE(((const U8*)s)[0], 0xF0, 0xF9 ) ) ? 1\
+ : ( ( ( LIKELY(((e) - (s)) >= UTF8SKIP(s)) ) && ( 0xDD == ((const U8*)s)[0] ) ) && ( 0x72 == ((const U8*)s)[1] ) ) ? ( ( 0x66 == ((const U8*)s)[2] ) ?\
+ ( ( inRANGE(((const U8*)s)[3], 0x57, 0x59 ) || 0x5F == ((const U8*)s)[3] || inRANGE(((const U8*)s)[3], 0x62, 0x67 ) ) ? 4 : 0 )\
+ : ( ( inRANGE(((const U8*)s)[2], 0x67, 0x68 ) ) && ( inRANGE(((const U8*)s)[3], 0x42, 0x47 ) ) ) ? 4 : 0 ) : 0 )\
+: 0 )
+#endif
+
+# else
+# error Unknown character set
+# endif
+#ifndef isALPHA_LC_utf8_safe
+# define isALPHA_LC_utf8_safe(s,e) D_PPP_IS_GENERIC_LC_UTF8_SAFE(s, e, ALPHA)
+#endif
+
+# ifdef isALPHANUMERIC_utf8
+#ifndef isALPHANUMERIC_LC_utf8_safe
+# define isALPHANUMERIC_LC_utf8_safe(s,e) \
+ D_PPP_IS_GENERIC_LC_UTF8_SAFE(s, e, ALPHANUMERIC)
+#endif
+
+# else
+#ifndef isALPHANUMERIC_LC_utf8_safe
+# define isALPHANUMERIC_LC_utf8_safe(s,e) \
+ (isALPHA_LC_utf8_safe(s,e) || isDIGIT_LC_utf8_safe(s,e))
+#endif
+
+# endif
+#ifndef isBLANK_LC_utf8_safe
+# define isBLANK_LC_utf8_safe(s,e) \
+ D_PPP_IS_GENERIC_LC_UTF8_SAFE_BROKEN(s, e, BLANK)
+#endif
+
+#ifndef isCNTRL_LC_utf8_safe
+# define isCNTRL_LC_utf8_safe(s,e) D_PPP_IS_GENERIC_LC_UTF8_SAFE(s, e, CNTRL)
+#endif
+
+#ifndef isDIGIT_LC_utf8_safe
+# define isDIGIT_LC_utf8_safe(s,e) D_PPP_IS_GENERIC_LC_UTF8_SAFE(s, e, DIGIT)
+#endif
+
+#ifndef isGRAPH_LC_utf8_safe
+# define isGRAPH_LC_utf8_safe(s,e) D_PPP_IS_GENERIC_LC_UTF8_SAFE(s, e, GRAPH)
+#endif
+
+# ifdef isIDCONT_utf8
+#ifndef isIDCONT_LC_utf8_safe
+# define isIDCONT_LC_utf8_safe(s,e) D_PPP_IS_GENERIC_LC_UTF8_SAFE(s, e, IDCONT)
+#endif
+
+# else
+#ifndef isIDCONT_LC_utf8_safe
+# define isIDCONT_LC_utf8_safe(s,e) isWORDCHAR_LC_utf8_safe(s,e)
+#endif
+
+# endif
+#ifndef isIDFIRST_LC_utf8_safe
+# define isIDFIRST_LC_utf8_safe(s,e) D_PPP_IS_GENERIC_LC_UTF8_SAFE(s, e, IDFIRST)
+#endif
+
+#ifndef isLOWER_LC_utf8_safe
+# define isLOWER_LC_utf8_safe(s,e) D_PPP_IS_GENERIC_LC_UTF8_SAFE(s, e, LOWER)
+#endif
+
+#ifndef isPRINT_LC_utf8_safe
+# define isPRINT_LC_utf8_safe(s,e) D_PPP_IS_GENERIC_LC_UTF8_SAFE(s, e, PRINT)
+#endif
+
+# undef isPSXSPC_LC_utf8_safe /* Use the modern definition */
+#ifndef isPSXSPC_LC_utf8_safe
+# define isPSXSPC_LC_utf8_safe(s,e) isSPACE_LC_utf8_safe(s,e)
+#endif
+#ifndef isPUNCT_LC_utf8_safe
+# define isPUNCT_LC_utf8_safe(s,e) D_PPP_IS_GENERIC_LC_UTF8_SAFE(s, e, PUNCT)
+#endif
+
+#ifndef isSPACE_LC_utf8_safe
+# define isSPACE_LC_utf8_safe(s,e) D_PPP_IS_GENERIC_LC_UTF8_SAFE(s, e, SPACE)
+#endif
+
+#ifndef isUPPER_LC_utf8_safe
+# define isUPPER_LC_utf8_safe(s,e) D_PPP_IS_GENERIC_LC_UTF8_SAFE(s, e, UPPER)
+#endif
+
+# ifdef isWORDCHAR_utf8
+#ifndef isWORDCHAR_LC_utf8_safe
+# define isWORDCHAR_LC_utf8_safe(s,e) D_PPP_IS_GENERIC_LC_UTF8_SAFE(s, e, WORDCHAR)
+#endif
+
+# else
+#ifndef isWORDCHAR_LC_utf8_safe
+# define isWORDCHAR_LC_utf8_safe(s,e) \
+ (isALPHANUMERIC_LC_utf8_safe(s,e) || (*(s)) == '_')
+#endif
+
+# endif
+#ifndef isXDIGIT_LC_utf8_safe
+# define isXDIGIT_LC_utf8_safe(s,e) \
+ D_PPP_IS_GENERIC_LC_UTF8_SAFE_BROKEN(s, e, XDIGIT)
+#endif
+
+/* Warning: isALPHANUMERIC_utf8_safe, isALPHA_utf8_safe, isASCII_utf8_safe,
+ * isBLANK_utf8_safe, isCNTRL_utf8_safe, isDIGIT_utf8_safe, isGRAPH_utf8_safe,
+ * isIDCONT_utf8_safe, isIDFIRST_utf8_safe, isLOWER_utf8_safe,
+ * isPRINT_utf8_safe, isPSXSPC_utf8_safe, isPUNCT_utf8_safe, isSPACE_utf8_safe,
+ * isUPPER_utf8_safe, isWORDCHAR_utf8_safe, isWORDCHAR_utf8_safe,
+ * isXDIGIT_utf8_safe,
+ * isALPHANUMERIC_LC_utf8_safe, isALPHA_LC_utf8_safe, isASCII_LC_utf8_safe,
+ * isBLANK_LC_utf8_safe, isCNTRL_LC_utf8_safe, isDIGIT_LC_utf8_safe,
+ * isGRAPH_LC_utf8_safe, isIDCONT_LC_utf8_safe, isIDFIRST_LC_utf8_safe,
+ * isLOWER_LC_utf8_safe, isPRINT_LC_utf8_safe, isPSXSPC_LC_utf8_safe,
+ * isPUNCT_LC_utf8_safe, isSPACE_LC_utf8_safe, isUPPER_LC_utf8_safe,
+ * isWORDCHAR_LC_utf8_safe, isWORDCHAR_LC_utf8_safe, isXDIGIT_LC_utf8_safe,
+ * isALPHANUMERIC_uvchr, isALPHA_uvchr, isASCII_uvchr, isBLANK_uvchr,
+ * isCNTRL_uvchr, isDIGIT_uvchr, isGRAPH_uvchr, isIDCONT_uvchr,
+ * isIDFIRST_uvchr, isLOWER_uvchr, isPRINT_uvchr, isPSXSPC_uvchr,
+ * isPUNCT_uvchr, isSPACE_uvchr, isUPPER_uvchr, isWORDCHAR_uvchr,
+ * isWORDCHAR_uvchr, isXDIGIT_uvchr
+ *
+ * The UTF-8 handling is buggy in early Perls, and this can give inaccurate
+ * results for code points above 0xFF, until the implementation started
+ * settling down in 5.12 and 5.14 */
+
+#endif
+
+#define D_PPP_TOO_SHORT_MSG "Malformed UTF-8 character starting with:" \
+ " \\x%02x (too short; %d bytes available, need" \
+ " %d)\n"
+/* Perls starting here had a new API which handled multi-character results */
+#if (PERL_BCDVERSION >= 0x5007003)
+#ifndef toLOWER_uvchr
+# define toLOWER_uvchr(c, s, l) UNI_TO_NATIVE(to_uni_lower(NATIVE_TO_UNI(c), s, l))
+#endif
+
+#ifndef toUPPER_uvchr
+# define toUPPER_uvchr(c, s, l) UNI_TO_NATIVE(to_uni_upper(NATIVE_TO_UNI(c), s, l))
+#endif
+
+#ifndef toTITLE_uvchr
+# define toTITLE_uvchr(c, s, l) UNI_TO_NATIVE(to_uni_title(NATIVE_TO_UNI(c), s, l))
+#endif
+
+#ifndef toFOLD_uvchr
+# define toFOLD_uvchr(c, s, l) UNI_TO_NATIVE(to_uni_fold( NATIVE_TO_UNI(c), s, l))
+#endif
+
+# if (PERL_BCDVERSION != 0x5015006) /* Just this version is broken */
+
+ /* Prefer the macro to the function */
+# if defined toLOWER_utf8
+# define D_PPP_TO_LOWER_CALLEE(s,r,l) toLOWER_utf8(s,r,l)
+# else
+# define D_PPP_TO_LOWER_CALLEE(s,r,l) to_utf8_lower(s,r,l)
+# endif
+# if defined toTITLE_utf8
+# define D_PPP_TO_TITLE_CALLEE(s,r,l) toTITLE_utf8(s,r,l)
+# else
+# define D_PPP_TO_TITLE_CALLEE(s,r,l) to_utf8_title(s,r,l)
+# endif
+# if defined toUPPER_utf8
+# define D_PPP_TO_UPPER_CALLEE(s,r,l) toUPPER_utf8(s,r,l)
+# else
+# define D_PPP_TO_UPPER_CALLEE(s,r,l) to_utf8_upper(s,r,l)
+# endif
+# if defined toFOLD_utf8
+# define D_PPP_TO_FOLD_CALLEE(s,r,l) toFOLD_utf8(s,r,l)
+# else
+# define D_PPP_TO_FOLD_CALLEE(s,r,l) to_utf8_fold(s,r,l)
+# endif
+# else /* Below is 5.15.6, which failed to make the macros available
+# outside of core, so we have to use the 'Perl_' form. khw
+# decided it was easier to just handle this case than have to
+# document the exception, and make an exception in the tests below
+# */
+# define D_PPP_TO_LOWER_CALLEE(s,r,l) \
+ Perl__to_utf8_lower_flags(aTHX_ s, r, l, 0, NULL)
+# define D_PPP_TO_TITLE_CALLEE(s,r,l) \
+ Perl__to_utf8_title_flags(aTHX_ s, r, l, 0, NULL)
+# define D_PPP_TO_UPPER_CALLEE(s,r,l) \
+ Perl__to_utf8_upper_flags(aTHX_ s, r, l, 0, NULL)
+# define D_PPP_TO_FOLD_CALLEE(s,r,l) \
+ Perl__to_utf8_fold_flags(aTHX_ s, r, l, FOLD_FLAGS_FULL, NULL)
+# endif
+
+/* The actual implementation of the backported macros. If too short, croak,
+ * otherwise call the original that doesn't have an upper limit parameter */
+# define D_PPP_GENERIC_MULTI_ARG_TO(name, s, e,r,l) \
+ (((((e) - (s)) <= 0) \
+ /* We could just do nothing, but modern perls croak */ \
+ ? (croak("Attempting case change on zero length string"), \
+ 0) /* So looks like it returns something, and will compile */ \
+ : ((e) - (s)) < UTF8SKIP(s)) \
+ ? (croak(D_PPP_TOO_SHORT_MSG, \
+ s[0], (int) ((e) - (s)), (int) UTF8SKIP(s)), \
+ 0) \
+ : D_PPP_TO_ ## name ## _CALLEE(s,r,l))
+#ifndef toUPPER_utf8_safe
+# define toUPPER_utf8_safe(s,e,r,l) \
+ D_PPP_GENERIC_MULTI_ARG_TO(UPPER,s,e,r,l)
+#endif
+
+#ifndef toLOWER_utf8_safe
+# define toLOWER_utf8_safe(s,e,r,l) \
+ D_PPP_GENERIC_MULTI_ARG_TO(LOWER,s,e,r,l)
+#endif
+
+#ifndef toTITLE_utf8_safe
+# define toTITLE_utf8_safe(s,e,r,l) \
+ D_PPP_GENERIC_MULTI_ARG_TO(TITLE,s,e,r,l)
+#endif
+
+#ifndef toFOLD_utf8_safe
+# define toFOLD_utf8_safe(s,e,r,l) \
+ D_PPP_GENERIC_MULTI_ARG_TO(FOLD,s,e,r,l)
+#endif
+
+#elif (PERL_BCDVERSION >= 0x5006000)
+
+/* Here we have UTF-8 support, but using the original API where the case
+ * changing functions merely returned the changed code point; hence they
+ * couldn't handle multi-character results. */
+
+# ifdef uvchr_to_utf8
+# define D_PPP_UV_TO_UTF8 uvchr_to_utf8
+# else
+# define D_PPP_UV_TO_UTF8 uv_to_utf8
+# endif
+
+ /* Get the utf8 of the case changed value, and store its length; then have
+ * to re-calculate the changed case value in order to return it */
+# define D_PPP_GENERIC_SINGLE_ARG_TO_UVCHR(name, c, s, l) \
+ (*(l) = (D_PPP_UV_TO_UTF8(s, \
+ UNI_TO_NATIVE(to_uni_ ## name(NATIVE_TO_UNI(c)))) - (s)), \
+ UNI_TO_NATIVE(to_uni_ ## name(NATIVE_TO_UNI(c))))
+#ifndef toLOWER_uvchr
+# define toLOWER_uvchr(c, s, l) \
+ D_PPP_GENERIC_SINGLE_ARG_TO_UVCHR(lower, c, s, l)
+#endif
+
+#ifndef toUPPER_uvchr
+# define toUPPER_uvchr(c, s, l) \
+ D_PPP_GENERIC_SINGLE_ARG_TO_UVCHR(upper, c, s, l)
+#endif
+
+#ifndef toTITLE_uvchr
+# define toTITLE_uvchr(c, s, l) \
+ D_PPP_GENERIC_SINGLE_ARG_TO_UVCHR(title, c, s, l)
+#endif
+
+#ifndef toFOLD_uvchr
+# define toFOLD_uvchr(c, s, l) toLOWER_uvchr(c, s, l)
+#endif
+
+# define D_PPP_GENERIC_SINGLE_ARG_TO_UTF8(name, s, e, r, l) \
+ (((((e) - (s)) <= 0) \
+ ? (croak("Attempting case change on zero length string"), \
+ 0) /* So looks like it returns something, and will compile */ \
+ : ((e) - (s)) < UTF8SKIP(s)) \
+ ? (croak(D_PPP_TOO_SHORT_MSG, \
+ s[0], (int) ((e) - (s)), (int) UTF8SKIP(s)), \
+ 0) \
+ /* Get the changed code point and store its UTF-8 */ \
+ : D_PPP_UV_TO_UTF8(r, to_utf8_ ## name(s)), \
+ /* Then store its length, and re-get code point for return */ \
+ *(l) = UTF8SKIP(r), to_utf8_ ## name(r))
+
+/* Warning: toUPPER_utf8_safe, toLOWER_utf8_safe, toTITLE_utf8_safe,
+ * toUPPER_uvchr, toLOWER_uvchr, toTITLE_uvchr
+ The UTF-8 case changing operations had bugs before around 5.12 or 5.14;
+ this backport does not correct them.
+
+ In perls before 7.3, multi-character case changing is not implemented; this
+ backport uses the simple case changes available in those perls. */
+#ifndef toUPPER_utf8_safe
+# define toUPPER_utf8_safe(s,e,r,l) \
+ D_PPP_GENERIC_SINGLE_ARG_TO_UTF8(upper, s, e, r, l)
+#endif
+
+#ifndef toLOWER_utf8_safe
+# define toLOWER_utf8_safe(s,e,r,l) \
+ D_PPP_GENERIC_SINGLE_ARG_TO_UTF8(lower, s, e, r, l)
+#endif
+
+#ifndef toTITLE_utf8_safe
+# define toTITLE_utf8_safe(s,e,r,l) \
+ D_PPP_GENERIC_SINGLE_ARG_TO_UTF8(title, s, e, r, l)
+#endif
+
+ /* Warning: toFOLD_utf8_safe, toFOLD_uvchr
+ The UTF-8 case changing operations had bugs before around 5.12 or 5.14;
+ this backport does not correct them.
+
+ In perls before 7.3, case folding is not implemented; instead, this
+ backport substitutes simple (not multi-character, which isn't available)
+ lowercasing. This gives the correct result in most, but not all, instances
+ */
+#ifndef toFOLD_utf8_safe
+# define toFOLD_utf8_safe(s,e,r,l) toLOWER_utf8_safe(s,e,r,l)
+#endif
+
+#endif
+
+/* Until we figure out how to support this in older perls... */
+#if (PERL_BCDVERSION >= 0x5008000)
+#ifndef HeUTF8
+# define HeUTF8(he) ((HeKLEN(he) == HEf_SVKEY) ? \
+ SvUTF8(HeKEY_sv(he)) : \
+ (U32)HeKUTF8(he))
+#endif
+
+#endif
+#ifndef C_ARRAY_LENGTH
+# define C_ARRAY_LENGTH(a) (sizeof(a)/sizeof((a)[0]))
+#endif
+
+#ifndef C_ARRAY_END
+# define C_ARRAY_END(a) ((a) + C_ARRAY_LENGTH(a))
+#endif
+#ifndef LIKELY
+# define LIKELY(x) (x)
+#endif
+
+#ifndef UNLIKELY
+# define UNLIKELY(x) (x)
+#endif
+
+#ifndef MUTABLE_PTR
+#if defined(PERL_USE_GCC_BRACE_GROUPS)
+# define MUTABLE_PTR(p) ({ void *_p = (p); _p; })
+#else
+# define MUTABLE_PTR(p) ((void *) (p))
+#endif
+#endif
+#ifndef MUTABLE_AV
+# define MUTABLE_AV(p) ((AV *)MUTABLE_PTR(p))
+#endif
+
+#ifndef MUTABLE_CV
+# define MUTABLE_CV(p) ((CV *)MUTABLE_PTR(p))
+#endif
+
+#ifndef MUTABLE_GV
+# define MUTABLE_GV(p) ((GV *)MUTABLE_PTR(p))
+#endif
+
+#ifndef MUTABLE_HV
+# define MUTABLE_HV(p) ((HV *)MUTABLE_PTR(p))
+#endif
+
+#ifndef MUTABLE_IO
+# define MUTABLE_IO(p) ((IO *)MUTABLE_PTR(p))
+#endif
+
+#ifndef MUTABLE_SV
+# define MUTABLE_SV(p) ((SV *)MUTABLE_PTR(p))
+#endif
+
+#if (PERL_BCDVERSION >= 0x5004000) && !defined(vnewSVpvf)
+#if defined(PERL_USE_GCC_BRACE_GROUPS)
+# define vnewSVpvf(pat, args) ({ SV *_sv = newSV(0); sv_vsetpvfn(_sv, (pat), strlen((pat)), (args), Null(SV**), 0, Null(bool*)); _sv; })
+#else
+# define vnewSVpvf(pat, args) ((PL_Sv = newSV(0)), sv_vsetpvfn(PL_Sv, (pat), strlen((pat)), (args), Null(SV**), 0, Null(bool*)), PL_Sv)
+#endif
+#endif
+
+#if (PERL_BCDVERSION >= 0x5004000) && !defined(sv_vcatpvf)
+# define sv_vcatpvf(sv, pat, args) sv_vcatpvfn(sv, pat, strlen(pat), args, Null(SV**), 0, Null(bool*))
+#endif
+
+#if (PERL_BCDVERSION >= 0x5004000) && !defined(sv_vsetpvf)
+# define sv_vsetpvf(sv, pat, args) sv_vsetpvfn(sv, pat, strlen(pat), args, Null(SV**), 0, Null(bool*))
+#endif
+
+#if (PERL_BCDVERSION >= 0x5004000) && !defined(sv_catpvf_mg)
+#if defined(NEED_sv_catpvf_mg)
+static void DPPP_(my_sv_catpvf_mg)(pTHX_ SV * const sv, const char * const pat, ...);
+static
+#else
+extern void DPPP_(my_sv_catpvf_mg)(pTHX_ SV * const sv, const char * const pat, ...);
+#endif
+
+#if defined(NEED_sv_catpvf_mg) || defined(NEED_sv_catpvf_mg_GLOBAL)
+
+#define Perl_sv_catpvf_mg DPPP_(my_sv_catpvf_mg)
+
+
+void
+DPPP_(my_sv_catpvf_mg)(pTHX_ SV * const sv, const char * const pat, ...)
+{
+ va_list args;
+ va_start(args, pat);
+ sv_vcatpvfn(sv, pat, strlen(pat), &args, Null(SV**), 0, Null(bool*));
+ SvSETMAGIC(sv);
+ va_end(args);
+}
+
+#endif
+#endif
+
+#ifdef PERL_IMPLICIT_CONTEXT
+#if (PERL_BCDVERSION >= 0x5004000) && !defined(sv_catpvf_mg_nocontext)
+#if defined(NEED_sv_catpvf_mg_nocontext)
+static void DPPP_(my_sv_catpvf_mg_nocontext)(SV * const sv, const char * const pat, ...);
+static
+#else
+extern void DPPP_(my_sv_catpvf_mg_nocontext)(SV * const sv, const char * const pat, ...);
+#endif
+
+#if defined(NEED_sv_catpvf_mg_nocontext) || defined(NEED_sv_catpvf_mg_nocontext_GLOBAL)
+
+#define sv_catpvf_mg_nocontext DPPP_(my_sv_catpvf_mg_nocontext)
+#define Perl_sv_catpvf_mg_nocontext DPPP_(my_sv_catpvf_mg_nocontext)
+
+
+void
+DPPP_(my_sv_catpvf_mg_nocontext)(SV * const sv, const char * const pat, ...)
+{
+ dTHX;
+ va_list args;
+ va_start(args, pat);
+ sv_vcatpvfn(sv, pat, strlen(pat), &args, Null(SV**), 0, Null(bool*));
+ SvSETMAGIC(sv);
+ va_end(args);
+}
+
+#endif
+#endif
+#endif
+
+/* sv_catpvf_mg depends on sv_catpvf_mg_nocontext */
+#ifndef sv_catpvf_mg
+# ifdef PERL_IMPLICIT_CONTEXT
+# define sv_catpvf_mg Perl_sv_catpvf_mg_nocontext
+# else
+# define sv_catpvf_mg Perl_sv_catpvf_mg
+# endif
+#endif
+
+#if (PERL_BCDVERSION >= 0x5004000) && !defined(sv_vcatpvf_mg)
+# define sv_vcatpvf_mg(sv, pat, args) \
+ STMT_START { \
+ sv_vcatpvfn(sv, pat, strlen(pat), args, Null(SV**), 0, Null(bool*)); \
+ SvSETMAGIC(sv); \
+ } STMT_END
+#endif
+
+#if (PERL_BCDVERSION >= 0x5004000) && !defined(sv_setpvf_mg)
+#if defined(NEED_sv_setpvf_mg)
+static void DPPP_(my_sv_setpvf_mg)(pTHX_ SV * const sv, const char * const pat, ...);
+static
+#else
+extern void DPPP_(my_sv_setpvf_mg)(pTHX_ SV * const sv, const char * const pat, ...);
+#endif
+
+#if defined(NEED_sv_setpvf_mg) || defined(NEED_sv_setpvf_mg_GLOBAL)
+
+#define Perl_sv_setpvf_mg DPPP_(my_sv_setpvf_mg)
+
+
+void
+DPPP_(my_sv_setpvf_mg)(pTHX_ SV * const sv, const char * const pat, ...)
+{
+ va_list args;
+ va_start(args, pat);
+ sv_vsetpvfn(sv, pat, strlen(pat), &args, Null(SV**), 0, Null(bool*));
+ SvSETMAGIC(sv);
+ va_end(args);
+}
+
+#endif
+#endif
+
+#ifdef PERL_IMPLICIT_CONTEXT
+#if (PERL_BCDVERSION >= 0x5004000) && !defined(sv_setpvf_mg_nocontext)
+#if defined(NEED_sv_setpvf_mg_nocontext)
+static void DPPP_(my_sv_setpvf_mg_nocontext)(SV * const sv, const char * const pat, ...);
+static
+#else
+extern void DPPP_(my_sv_setpvf_mg_nocontext)(SV * const sv, const char * const pat, ...);
+#endif
+
+#if defined(NEED_sv_setpvf_mg_nocontext) || defined(NEED_sv_setpvf_mg_nocontext_GLOBAL)
+
+#define sv_setpvf_mg_nocontext DPPP_(my_sv_setpvf_mg_nocontext)
+#define Perl_sv_setpvf_mg_nocontext DPPP_(my_sv_setpvf_mg_nocontext)
+
+
+void
+DPPP_(my_sv_setpvf_mg_nocontext)(SV * const sv, const char * const pat, ...)
+{
+ dTHX;
+ va_list args;
+ va_start(args, pat);
+ sv_vsetpvfn(sv, pat, strlen(pat), &args, Null(SV**), 0, Null(bool*));
+ SvSETMAGIC(sv);
+ va_end(args);
+}
+
+#endif
+#endif
+#endif
+
+/* sv_setpvf_mg depends on sv_setpvf_mg_nocontext */
+#ifndef sv_setpvf_mg
+# ifdef PERL_IMPLICIT_CONTEXT
+# define sv_setpvf_mg Perl_sv_setpvf_mg_nocontext
+# else
+# define sv_setpvf_mg Perl_sv_setpvf_mg
+# endif
+#endif
+
+#if (PERL_BCDVERSION >= 0x5004000) && !defined(sv_vsetpvf_mg)
+# define sv_vsetpvf_mg(sv, pat, args) \
+ STMT_START { \
+ sv_vsetpvfn(sv, pat, strlen(pat), args, Null(SV**), 0, Null(bool*)); \
+ SvSETMAGIC(sv); \
+ } STMT_END
+#endif
+
+/* Hint: sv_2pv_nolen
+ * Use the SvPV_nolen() or SvPV_nolen_const() macros instead of sv_2pv_nolen().
+ */
+#ifndef sv_2pv_nolen
+# define sv_2pv_nolen(sv) SvPV_nolen(sv)
+#endif
+
+#ifdef SvPVbyte
+
+/* Hint: SvPVbyte
+ * Does not work in perl-5.6.1, ppport.h implements a version
+ * borrowed from perl-5.7.3.
+ */
+
+#if (PERL_BCDVERSION < 0x5007000)
+#ifndef sv_2pvbyte
+# define sv_2pvbyte(sv, lp) (sv_utf8_downgrade((sv), 0), SvPV((sv), *(lp)))
+#endif
+
+/* Hint: sv_2pvbyte
+ * Use the SvPVbyte() macro instead of sv_2pvbyte().
+ */
+
+/* Replace sv_2pvbyte with SvPVbyte */
+
+#undef SvPVbyte
+
+#define SvPVbyte(sv, lp) \
+ ((SvFLAGS(sv) & (SVf_POK|SVf_UTF8)) == (SVf_POK) \
+ ? ((lp = SvCUR(sv)), SvPVX(sv)) : sv_2pvbyte(sv, &lp))
+
+#endif
+
+#else
+
+# define SvPVbyte SvPV
+# define sv_2pvbyte sv_2pv
+
+#endif
+#ifndef sv_2pvbyte_nolen
+# define sv_2pvbyte_nolen(sv) sv_2pv_nolen(sv)
+#endif
+
+/* Hint: sv_pvn
+ * Always use the SvPV() macro instead of sv_pvn().
+ */
+
+/* Replace sv_pvn with SvPV */
+
+/* Hint: sv_pvn_force
+ * Always use the SvPV_force() macro instead of sv_pvn_force().
+ */
+
+/* Replace sv_pvn_force with SvPV_force */
+
+/* If these are undefined, they're not handled by the core anyway */
+#ifndef SV_IMMEDIATE_UNREF
+# define SV_IMMEDIATE_UNREF 0
+#endif
+
+#ifndef SV_GMAGIC
+# define SV_GMAGIC 0
+#endif
+
+#ifndef SV_COW_DROP_PV
+# define SV_COW_DROP_PV 0
+#endif
+
+#ifndef SV_UTF8_NO_ENCODING
+# define SV_UTF8_NO_ENCODING 0
+#endif
+
+#ifndef SV_CONST_RETURN
+# define SV_CONST_RETURN 0
+#endif
+
+#ifndef SV_MUTABLE_RETURN
+# define SV_MUTABLE_RETURN 0
+#endif
+
+#ifndef SV_SMAGIC
+# define SV_SMAGIC 0
+#endif
+
+#ifndef SV_HAS_TRAILING_NUL
+# define SV_HAS_TRAILING_NUL 0
+#endif
+
+#ifndef SV_COW_SHARED_HASH_KEYS
+# define SV_COW_SHARED_HASH_KEYS 0
+#endif
+
+#if defined(PERL_USE_GCC_BRACE_GROUPS)
+#ifndef sv_2pv_flags
+# define sv_2pv_flags(sv, lp, flags) ({ SV *_sv = (sv); const I32 _flags = (flags); STRLEN *_lp = lp; _lp = _lp ? : &PL_na; (!(_flags & SV_GMAGIC) && SvGMAGICAL(_sv)) ? ({ char *_pv; SvGMAGICAL_off(_sv); _pv = sv_2pv(_sv, _lp); SvGMAGICAL_on(_sv); _pv; }) : sv_2pv(_sv, _lp); })
+#endif
+
+#ifndef sv_pvn_force_flags
+# define sv_pvn_force_flags(sv, lp, flags) ({ SV *_sv = (sv); const I32 _flags = (flags); STRLEN *_lp = lp; _lp = _lp ? : &PL_na; (!(_flags & SV_GMAGIC) && SvGMAGICAL(_sv)) ? ({ char *_pv; SvGMAGICAL_off(_sv); _pv = sv_pvn_force(_sv, _lp); SvGMAGICAL_on(_sv); _pv; }) : sv_pvn_force(_sv, _lp); })
+#endif
+
+#else
+#ifndef sv_2pv_flags
+# define sv_2pv_flags(sv, lp, flags) ((PL_Sv = (sv)), (!((flags) & SV_GMAGIC) && SvGMAGICAL(PL_Sv)) ? (SvGMAGICAL_off(PL_Sv), (PL_Xpv = (XPV *)sv_2pv(PL_Sv, (lp) ? (lp) : &PL_na)), SvGMAGICAL_on(PL_Sv), (char *)PL_Xpv) : sv_2pv(PL_Sv, (lp) ? (lp) : &PL_na))
+#endif
+
+#ifndef sv_pvn_force_flags
+# define sv_pvn_force_flags(sv, lp, flags) ((PL_Sv = (sv)), (!((flags) & SV_GMAGIC) && SvGMAGICAL(PL_Sv)) ? (SvGMAGICAL_off(PL_Sv), (PL_Xpv = (XPV *)sv_pvn_force(PL_Sv, (lp) ? (lp) : &PL_na)), SvGMAGICAL_on(PL_Sv), (char *)PL_Xpv) : sv_pvn_force(PL_Sv, (lp) ? (lp) : &PL_na))
+#endif
+
+#endif
+
+#if (PERL_BCDVERSION < 0x5008008) || ( (PERL_BCDVERSION >= 0x5009000) && (PERL_BCDVERSION < 0x5009003) )
+# define D_PPP_SVPV_NOLEN_LP_ARG &PL_na
+#else
+# define D_PPP_SVPV_NOLEN_LP_ARG 0
+#endif
+#ifndef SvPV_const
+# define SvPV_const(sv, lp) SvPV_flags_const(sv, lp, SV_GMAGIC)
+#endif
+
+#ifndef SvPV_mutable
+# define SvPV_mutable(sv, lp) SvPV_flags_mutable(sv, lp, SV_GMAGIC)
+#endif
+#ifndef SvPV_flags
+# define SvPV_flags(sv, lp, flags) \
+ ((SvFLAGS(sv) & (SVf_POK)) == SVf_POK \
+ ? ((lp = SvCUR(sv)), SvPVX(sv)) : sv_2pv_flags(sv, &lp, flags))
+#endif
+#ifndef SvPV_flags_const
+# define SvPV_flags_const(sv, lp, flags) \
+ ((SvFLAGS(sv) & (SVf_POK)) == SVf_POK \
+ ? ((lp = SvCUR(sv)), SvPVX_const(sv)) : \
+ (const char*) sv_2pv_flags(sv, &lp, flags|SV_CONST_RETURN))
+#endif
+#ifndef SvPV_flags_const_nolen
+# define SvPV_flags_const_nolen(sv, flags) \
+ ((SvFLAGS(sv) & (SVf_POK)) == SVf_POK \
+ ? SvPVX_const(sv) : \
+ (const char*) sv_2pv_flags(sv, D_PPP_SVPV_NOLEN_LP_ARG, flags|SV_CONST_RETURN))
+#endif
+#ifndef SvPV_flags_mutable
+# define SvPV_flags_mutable(sv, lp, flags) \
+ ((SvFLAGS(sv) & (SVf_POK)) == SVf_POK \
+ ? ((lp = SvCUR(sv)), SvPVX_mutable(sv)) : \
+ sv_2pv_flags(sv, &lp, flags|SV_MUTABLE_RETURN))
+#endif
+#ifndef SvPV_force
+# define SvPV_force(sv, lp) SvPV_force_flags(sv, lp, SV_GMAGIC)
+#endif
+
+#ifndef SvPV_force_nolen
+# define SvPV_force_nolen(sv) SvPV_force_flags_nolen(sv, SV_GMAGIC)
+#endif
+
+#ifndef SvPV_force_mutable
+# define SvPV_force_mutable(sv, lp) SvPV_force_flags_mutable(sv, lp, SV_GMAGIC)
+#endif
+
+#ifndef SvPV_force_nomg
+# define SvPV_force_nomg(sv, lp) SvPV_force_flags(sv, lp, 0)
+#endif
+
+#ifndef SvPV_force_nomg_nolen
+# define SvPV_force_nomg_nolen(sv) SvPV_force_flags_nolen(sv, 0)
+#endif
+#ifndef SvPV_force_flags
+# define SvPV_force_flags(sv, lp, flags) \
+ ((SvFLAGS(sv) & (SVf_POK|SVf_THINKFIRST)) == SVf_POK \
+ ? ((lp = SvCUR(sv)), SvPVX(sv)) : sv_pvn_force_flags(sv, &lp, flags))
+#endif
+#ifndef SvPV_force_flags_nolen
+# define SvPV_force_flags_nolen(sv, flags) \
+ ((SvFLAGS(sv) & (SVf_POK|SVf_THINKFIRST)) == SVf_POK \
+ ? SvPVX(sv) : sv_pvn_force_flags(sv, D_PPP_SVPV_NOLEN_LP_ARG, flags))
+#endif
+#ifndef SvPV_force_flags_mutable
+# define SvPV_force_flags_mutable(sv, lp, flags) \
+ ((SvFLAGS(sv) & (SVf_POK|SVf_THINKFIRST)) == SVf_POK \
+ ? ((lp = SvCUR(sv)), SvPVX_mutable(sv)) \
+ : sv_pvn_force_flags(sv, &lp, flags|SV_MUTABLE_RETURN))
+#endif
+#ifndef SvPV_nolen
+# define SvPV_nolen(sv) \
+ ((SvFLAGS(sv) & (SVf_POK)) == SVf_POK \
+ ? SvPVX(sv) : sv_2pv_flags(sv, D_PPP_SVPV_NOLEN_LP_ARG, SV_GMAGIC))
+#endif
+#ifndef SvPV_nolen_const
+# define SvPV_nolen_const(sv) \
+ ((SvFLAGS(sv) & (SVf_POK)) == SVf_POK \
+ ? SvPVX_const(sv) : sv_2pv_flags(sv, D_PPP_SVPV_NOLEN_LP_ARG, SV_GMAGIC|SV_CONST_RETURN))
+#endif
+
+# if defined(PERL_USE_GCC_BRACE_GROUPS)
+#ifndef SvPVx_nolen_const
+# define SvPVx_nolen_const(sv) ({SV *sV_ = (sv); SvPV_nolen_const(sV_); })
+#endif
+
+# else
+#ifndef SvPVx_nolen_const
+# define SvPVx_nolen_const(sv) (PL_Sv = sv, SvPV_nolen_const(PL_Sv))
+#endif
+
+# endif
+#ifndef SvPV_nomg
+# define SvPV_nomg(sv, lp) SvPV_flags(sv, lp, 0)
+#endif
+
+#ifndef SvPV_nomg_const
+# define SvPV_nomg_const(sv, lp) SvPV_flags_const(sv, lp, 0)
+#endif
+
+#ifndef SvPV_nomg_const_nolen
+# define SvPV_nomg_const_nolen(sv) SvPV_flags_const_nolen(sv, 0)
+#endif
+
+#ifndef SvPV_nomg_nolen
+# define SvPV_nomg_nolen(sv) ((SvFLAGS(sv) & (SVf_POK)) == SVf_POK \
+ ? SvPVX(sv) : sv_2pv_flags(sv, D_PPP_SVPV_NOLEN_LP_ARG, 0))
+#endif
+#ifndef SvPV_renew
+# define SvPV_renew(sv,n) STMT_START { SvLEN_set(sv, n); \
+ SvPV_set((sv), (char *) saferealloc( \
+ (Malloc_t)SvPVX(sv), (MEM_SIZE)((n)))); \
+ } STMT_END
+#endif
+#ifndef SvPVCLEAR
+# define SvPVCLEAR(sv) sv_setpvs((sv), "")
+#endif
+#ifndef WARN_ALL
+# define WARN_ALL 0
+#endif
+
+#ifndef WARN_CLOSURE
+# define WARN_CLOSURE 1
+#endif
+
+#ifndef WARN_DEPRECATED
+# define WARN_DEPRECATED 2
+#endif
+
+#ifndef WARN_EXITING
+# define WARN_EXITING 3
+#endif
+
+#ifndef WARN_GLOB
+# define WARN_GLOB 4
+#endif
+
+#ifndef WARN_IO
+# define WARN_IO 5
+#endif
+
+#ifndef WARN_CLOSED
+# define WARN_CLOSED 6
+#endif
+
+#ifndef WARN_EXEC
+# define WARN_EXEC 7
+#endif
+
+#ifndef WARN_LAYER
+# define WARN_LAYER 8
+#endif
+
+#ifndef WARN_NEWLINE
+# define WARN_NEWLINE 9
+#endif
+
+#ifndef WARN_PIPE
+# define WARN_PIPE 10
+#endif
+
+#ifndef WARN_UNOPENED
+# define WARN_UNOPENED 11
+#endif
+
+#ifndef WARN_MISC
+# define WARN_MISC 12
+#endif
+
+#ifndef WARN_NUMERIC
+# define WARN_NUMERIC 13
+#endif
+
+#ifndef WARN_ONCE
+# define WARN_ONCE 14
+#endif
+
+#ifndef WARN_OVERFLOW
+# define WARN_OVERFLOW 15
+#endif
+
+#ifndef WARN_PACK
+# define WARN_PACK 16
+#endif
+
+#ifndef WARN_PORTABLE
+# define WARN_PORTABLE 17
+#endif
+
+#ifndef WARN_RECURSION
+# define WARN_RECURSION 18
+#endif
+
+#ifndef WARN_REDEFINE
+# define WARN_REDEFINE 19
+#endif
+
+#ifndef WARN_REGEXP
+# define WARN_REGEXP 20
+#endif
+
+#ifndef WARN_SEVERE
+# define WARN_SEVERE 21
+#endif
+
+#ifndef WARN_DEBUGGING
+# define WARN_DEBUGGING 22
+#endif
+
+#ifndef WARN_INPLACE
+# define WARN_INPLACE 23
+#endif
+
+#ifndef WARN_INTERNAL
+# define WARN_INTERNAL 24
+#endif
+
+#ifndef WARN_MALLOC
+# define WARN_MALLOC 25
+#endif
+
+#ifndef WARN_SIGNAL
+# define WARN_SIGNAL 26
+#endif
+
+#ifndef WARN_SUBSTR
+# define WARN_SUBSTR 27
+#endif
+
+#ifndef WARN_SYNTAX
+# define WARN_SYNTAX 28
+#endif
+
+#ifndef WARN_AMBIGUOUS
+# define WARN_AMBIGUOUS 29
+#endif
+
+#ifndef WARN_BAREWORD
+# define WARN_BAREWORD 30
+#endif
+
+#ifndef WARN_DIGIT
+# define WARN_DIGIT 31
+#endif
+
+#ifndef WARN_PARENTHESIS
+# define WARN_PARENTHESIS 32
+#endif
+
+#ifndef WARN_PRECEDENCE
+# define WARN_PRECEDENCE 33
+#endif
+
+#ifndef WARN_PRINTF
+# define WARN_PRINTF 34
+#endif
+
+#ifndef WARN_PROTOTYPE
+# define WARN_PROTOTYPE 35
+#endif
+
+#ifndef WARN_QW
+# define WARN_QW 36
+#endif
+
+#ifndef WARN_RESERVED
+# define WARN_RESERVED 37
+#endif
+
+#ifndef WARN_SEMICOLON
+# define WARN_SEMICOLON 38
+#endif
+
+#ifndef WARN_TAINT
+# define WARN_TAINT 39
+#endif
+
+#ifndef WARN_THREADS
+# define WARN_THREADS 40
+#endif
+
+#ifndef WARN_UNINITIALIZED
+# define WARN_UNINITIALIZED 41
+#endif
+
+#ifndef WARN_UNPACK
+# define WARN_UNPACK 42
+#endif
+
+#ifndef WARN_UNTIE
+# define WARN_UNTIE 43
+#endif
+
+#ifndef WARN_UTF8
+# define WARN_UTF8 44
+#endif
+
+#ifndef WARN_VOID
+# define WARN_VOID 45
+#endif
+
+#ifndef WARN_ASSERTIONS
+# define WARN_ASSERTIONS 46
+#endif
+#ifndef packWARN
+# define packWARN(a) (a)
+#endif
+
+#ifndef packWARN2
+# define packWARN2(a,b) (packWARN(a) << 8 | (b))
+#endif
+
+#ifndef packWARN3
+# define packWARN3(a,b,c) (packWARN2(a,b) << 8 | (c))
+#endif
+
+#ifndef packWARN4
+# define packWARN4(a,b,c,d) (packWARN3(a,b,c) << 8 | (d))
+#endif
+
+#ifndef ckWARN
+# ifdef G_WARN_ON
+# define ckWARN(a) (PL_dowarn & G_WARN_ON)
+# else
+# define ckWARN(a) PL_dowarn
+# endif
+#endif
+#ifndef ckWARN2
+# define ckWARN2(a,b) (ckWARN(a) || ckWARN(b))
+#endif
+
+#ifndef ckWARN3
+# define ckWARN3(a,b,c) (ckWARN(c) || ckWARN2(a,b))
+#endif
+
+#ifndef ckWARN4
+# define ckWARN4(a,b,c,d) (ckWARN(d) || ckWARN3(a,b,c))
+#endif
+
+#ifndef ckWARN_d
+# ifdef isLEXWARN_off
+# define ckWARN_d(a) (isLEXWARN_off || ckWARN(a))
+# else
+# define ckWARN_d(a) 1
+# endif
+#endif
+#ifndef ckWARN2_d
+# define ckWARN2_d(a,b) (ckWARN_d(a) || ckWARN_d(b))
+#endif
+
+#ifndef ckWARN3_d
+# define ckWARN3_d(a,b,c) (ckWARN_d(c) || ckWARN2_d(a,b))
+#endif
+
+#ifndef ckWARN4_d
+# define ckWARN4_d(a,b,c,d) (ckWARN_d(d) || ckWARN3_d(a,b,c))
+#endif
+#ifndef vwarner
+# define vwarner(err, pat, argsp) \
+ STMT_START { SV *sv; \
+ PERL_UNUSED_ARG(err); \
+ sv = vnewSVpvf(pat, argsp); \
+ sv_2mortal(sv); \
+ warn("%s", SvPV_nolen(sv)); \
+ } STMT_END
+#endif
+
+#if (PERL_BCDVERSION >= 0x5004000) && !defined(warner)
+# if defined(NEED_warner)
+static void DPPP_(my_warner)(U32 err, const char * pat, ...);
+static
+#else
+extern void DPPP_(my_warner)(U32 err, const char * pat, ...);
+#endif
+
+#if defined(NEED_warner) || defined(NEED_warner_GLOBAL)
+
+#define Perl_warner DPPP_(my_warner)
+
+
+void
+DPPP_(my_warner)(U32 err, const char *pat, ...)
+{
+ va_list args;
+ va_start(args, pat);
+ vwarner(err, pat, &args);
+ va_end(args);
+}
+
+# define warner Perl_warner
+
+# define Perl_warner_nocontext Perl_warner
+
+# endif
+#endif
+
+#if (PERL_BCDVERSION >= 0x5004000) && !defined(ck_warner)
+# if defined(NEED_ck_warner)
+static void DPPP_(my_ck_warner)(pTHX_ U32 err, const char * pat, ...);
+static
+#else
+extern void DPPP_(my_ck_warner)(pTHX_ U32 err, const char * pat, ...);
+#endif
+
+#if defined(NEED_ck_warner) || defined(NEED_ck_warner_GLOBAL)
+
+#define Perl_ck_warner DPPP_(my_ck_warner)
+
+
+void
+DPPP_(my_ck_warner)(pTHX_ U32 err, const char *pat, ...)
+{
+ va_list args;
+
+ if ( ! ckWARN((err ) & 0xFF)
+ && ! ckWARN((err >> 8) & 0xFF)
+ && ! ckWARN((err >> 16) & 0xFF)
+ && ! ckWARN((err >> 24) & 0xFF))
+ {
+ return;
+ }
+
+ va_start(args, pat);
+ vwarner(err, pat, &args);
+ va_end(args);
+}
+
+# define ck_warner Perl_ck_warner
+# endif
+#endif
+
+#if (PERL_BCDVERSION >= 0x5004000) && !defined(ck_warner_d)
+# if defined(NEED_ck_warner_d)
+static void DPPP_(my_ck_warner_d)(pTHX_ U32 err, const char * pat, ...);
+static
+#else
+extern void DPPP_(my_ck_warner_d)(pTHX_ U32 err, const char * pat, ...);
+#endif
+
+#if defined(NEED_ck_warner_d) || defined(NEED_ck_warner_d_GLOBAL)
+
+#define Perl_ck_warner_d DPPP_(my_ck_warner_d)
+
+
+void
+DPPP_(my_ck_warner_d)(pTHX_ U32 err, const char *pat, ...)
+{
+ va_list args;
+
+ if ( ! ckWARN_d((err ) & 0xFF)
+ && ! ckWARN_d((err >> 8) & 0xFF)
+ && ! ckWARN_d((err >> 16) & 0xFF)
+ && ! ckWARN_d((err >> 24) & 0xFF))
+ {
+ return;
+ }
+
+ va_start(args, pat);
+ vwarner(err, pat, &args);
+ va_end(args);
+}
+
+# define ck_warner_d Perl_ck_warner_d
+
+
+# endif
+#endif
+
+#ifndef IVdf
+# if IVSIZE == LONGSIZE
+# define IVdf "ld"
+# define UVuf "lu"
+# define UVof "lo"
+# define UVxf "lx"
+# define UVXf "lX"
+# elif IVSIZE == INTSIZE
+# define IVdf "d"
+# define UVuf "u"
+# define UVof "o"
+# define UVxf "x"
+# define UVXf "X"
+# else
+# error "cannot define IV/UV formats"
+# endif
+#endif
+
+#ifndef NVef
+# if defined(USE_LONG_DOUBLE) && defined(HAS_LONG_DOUBLE) && \
+ defined(PERL_PRIfldbl) && (PERL_BCDVERSION != 0x5006000)
+ /* Not very likely, but let's try anyway. */
+# define NVef PERL_PRIeldbl
+# define NVff PERL_PRIfldbl
+# define NVgf PERL_PRIgldbl
+# else
+# define NVef "e"
+# define NVff "f"
+# define NVgf "g"
+# endif
+#endif
+#ifndef sv_setuv
+# define sv_setuv(sv, uv) \
+ STMT_START { \
+ UV TeMpUv = uv; \
+ if (TeMpUv <= IV_MAX) \
+ sv_setiv(sv, TeMpUv); \
+ else \
+ sv_setnv(sv, (double)TeMpUv); \
+ } STMT_END
+#endif
+#ifndef newSVuv
+# define newSVuv(uv) ((uv) <= IV_MAX ? newSViv((IV)uv) : newSVnv((NV)uv))
+#endif
+
+#if defined(PERL_USE_GCC_BRACE_GROUPS)
+#ifndef sv_2uv
+# define sv_2uv(sv) ({ SV *_sv = (sv); (UV) (SvNOK(_sv) ? SvNV(_sv) : sv_2nv(_sv)); })
+#endif
+
+#else
+#ifndef sv_2uv
+# define sv_2uv(sv) ((PL_Sv = (sv)), (UV) (SvNOK(PL_Sv) ? SvNV(PL_Sv) : sv_2nv(PL_Sv)))
+#endif
+
+#endif
+#ifndef SvUVX
+# define SvUVX(sv) ((UV)SvIVX(sv))
+#endif
+
+#ifndef SvUVXx
+# define SvUVXx(sv) SvUVX(sv)
+#endif
+
+#ifndef SvUV
+# define SvUV(sv) (SvIOK(sv) ? SvUVX(sv) : sv_2uv(sv))
+#endif
+
+#if defined(PERL_USE_GCC_BRACE_GROUPS)
+#ifndef SvUVx
+# define SvUVx(sv) ({ SV *_sv = (sv)); SvUV(_sv); })
+#endif
+
+#else
+#ifndef SvUVx
+# define SvUVx(sv) ((PL_Sv = (sv)), SvUV(PL_Sv))
+#endif
+
+#endif
+
+/* Hint: sv_uv
+ * Always use the SvUVx() macro instead of sv_uv().
+ */
+/* Replace sv_uv with SvUVx */
+#ifndef sv_uv
+# define sv_uv(sv) SvUVx(sv)
+#endif
+
+#if !defined(SvUOK) && defined(SvIOK_UV)
+# define SvUOK(sv) SvIOK_UV(sv)
+#endif
+#ifndef XST_mUV
+# define XST_mUV(i,v) (ST(i) = sv_2mortal(newSVuv(v)) )
+#endif
+
+#ifndef XSRETURN_UV
+# define XSRETURN_UV(v) STMT_START { XST_mUV(0,v); XSRETURN(1); } STMT_END
+#endif
+#ifndef PUSHu
+# define PUSHu(u) STMT_START { sv_setuv(TARG, (UV)(u)); PUSHTARG; } STMT_END
+#endif
+
+#ifndef XPUSHu
+# define XPUSHu(u) STMT_START { sv_setuv(TARG, (UV)(u)); XPUSHTARG; } STMT_END
+#endif
+
+#if !defined(my_strnlen)
+#if defined(NEED_my_strnlen)
+static Size_t DPPP_(my_my_strnlen)(const char * str, Size_t maxlen);
+static
+#else
+extern Size_t DPPP_(my_my_strnlen)(const char * str, Size_t maxlen);
+#endif
+
+#if defined(NEED_my_strnlen) || defined(NEED_my_strnlen_GLOBAL)
+
+#define my_strnlen DPPP_(my_my_strnlen)
+#define Perl_my_strnlen DPPP_(my_my_strnlen)
+
+
+Size_t
+DPPP_(my_my_strnlen)(const char *str, Size_t maxlen)
+{
+ const char *p = str;
+
+ while(maxlen-- && *p)
+ p++;
+
+ return p - str;
+}
+
+#endif
+#endif
+
+#ifdef HAS_MEMCMP
+#ifndef memNE
+# define memNE(s1,s2,l) (memcmp(s1,s2,l))
+#endif
+
+#ifndef memEQ
+# define memEQ(s1,s2,l) (!memcmp(s1,s2,l))
+#endif
+
+#else
+#ifndef memNE
+# define memNE(s1,s2,l) (bcmp(s1,s2,l))
+#endif
+
+#ifndef memEQ
+# define memEQ(s1,s2,l) (!bcmp(s1,s2,l))
+#endif
+
+#endif
+#ifndef memEQs
+# define memEQs(s1, l, s2) \
+ (sizeof(s2)-1 == l && memEQ(s1, (s2 ""), (sizeof(s2)-1)))
+#endif
+
+#ifndef memNEs
+# define memNEs(s1, l, s2) !memEQs(s1, l, s2)
+#endif
+#ifndef memCHRs
+# define memCHRs(s, c) ((const char *) memchr("" s "" , c, sizeof(s)-1))
+#endif
+#ifndef MoveD
+# define MoveD(s,d,n,t) memmove((char*)(d),(char*)(s), (n) * sizeof(t))
+#endif
+
+#ifndef CopyD
+# define CopyD(s,d,n,t) memcpy((char*)(d),(char*)(s), (n) * sizeof(t))
+#endif
+
+#ifdef HAS_MEMSET
+#ifndef ZeroD
+# define ZeroD(d,n,t) memzero((char*)(d), (n) * sizeof(t))
+#endif
+
+#else
+#ifndef ZeroD
+# define ZeroD(d,n,t) ((void)memzero((char*)(d), (n) * sizeof(t)), d)
+#endif
+
+#endif
+#ifndef PoisonWith
+# define PoisonWith(d,n,t,b) (void)memset((char*)(d), (U8)(b), (n) * sizeof(t))
+#endif
+
+#ifndef PoisonNew
+# define PoisonNew(d,n,t) PoisonWith(d,n,t,0xAB)
+#endif
+
+#ifndef PoisonFree
+# define PoisonFree(d,n,t) PoisonWith(d,n,t,0xEF)
+#endif
+
+#ifndef Poison
+# define Poison(d,n,t) PoisonFree(d,n,t)
+#endif
+#ifndef Newx
+# define Newx(v,n,t) New(0,v,n,t)
+#endif
+
+#ifndef Newxc
+# define Newxc(v,n,t,c) Newc(0,v,n,t,c)
+#endif
+
+#ifndef Newxz
+# define Newxz(v,n,t) Newz(0,v,n,t)
+#endif
+
+#ifdef NEED_mess_sv
+#define NEED_mess
+#endif
+
+#ifdef NEED_mess
+#define NEED_mess_nocontext
+#define NEED_vmess
+#endif
+
+#ifndef croak_sv
+#if (PERL_BCDVERSION >= 0x5007003) || ( (PERL_BCDVERSION >= 0x5006001) && (PERL_BCDVERSION < 0x5007000) )
+# if ( (PERL_BCDVERSION >= 0x5008000) && (PERL_BCDVERSION < 0x5008009) ) || ( (PERL_BCDVERSION >= 0x5009000) && (PERL_BCDVERSION < 0x5010001) )
+# define D_PPP_FIX_UTF8_ERRSV_FOR_SV(sv) \
+ STMT_START { \
+ SV *_errsv = ERRSV; \
+ SvFLAGS(_errsv) = (SvFLAGS(_errsv) & ~SVf_UTF8) | \
+ (SvFLAGS(sv) & SVf_UTF8); \
+ } STMT_END
+# else
+# define D_PPP_FIX_UTF8_ERRSV_FOR_SV(sv) STMT_START {} STMT_END
+# endif
+# define croak_sv(sv) \
+ STMT_START { \
+ SV *_sv = (sv); \
+ if (SvROK(_sv)) { \
+ sv_setsv(ERRSV, _sv); \
+ croak(NULL); \
+ } else { \
+ D_PPP_FIX_UTF8_ERRSV_FOR_SV(_sv); \
+ croak("%" SVf, SVfARG(_sv)); \
+ } \
+ } STMT_END
+#elif (PERL_BCDVERSION >= 0x5004000)
+# define croak_sv(sv) croak("%" SVf, SVfARG(sv))
+#else
+# define croak_sv(sv) croak("%s", SvPV_nolen(sv))
+#endif
+#endif
+
+#ifndef die_sv
+#if defined(NEED_die_sv)
+static OP * DPPP_(my_die_sv)(pTHX_ SV * baseex);
+static
+#else
+extern OP * DPPP_(my_die_sv)(pTHX_ SV * baseex);
+#endif
+
+#if defined(NEED_die_sv) || defined(NEED_die_sv_GLOBAL)
+
+#ifdef die_sv
+# undef die_sv
+#endif
+#define die_sv(a) DPPP_(my_die_sv)(aTHX_ a)
+#define Perl_die_sv DPPP_(my_die_sv)
+
+OP *
+DPPP_(my_die_sv)(pTHX_ SV *baseex)
+{
+ croak_sv(baseex);
+ return (OP *)NULL;
+}
+#endif
+#endif
+
+#ifndef warn_sv
+#if (PERL_BCDVERSION >= 0x5004000)
+# define warn_sv(sv) warn("%" SVf, SVfARG(sv))
+#else
+# define warn_sv(sv) warn("%s", SvPV_nolen(sv))
+#endif
+#endif
+
+#if ! defined vmess && (PERL_BCDVERSION >= 0x5004000)
+# if defined(NEED_vmess)
+static SV * DPPP_(my_vmess)(pTHX_ const char * pat, va_list * args);
+static
+#else
+extern SV * DPPP_(my_vmess)(pTHX_ const char * pat, va_list * args);
+#endif
+
+#if defined(NEED_vmess) || defined(NEED_vmess_GLOBAL)
+
+#ifdef vmess
+# undef vmess
+#endif
+#define vmess(a,b) DPPP_(my_vmess)(aTHX_ a,b)
+#define Perl_vmess DPPP_(my_vmess)
+
+
+SV*
+DPPP_(my_vmess)(pTHX_ const char* pat, va_list* args)
+{
+ mess(pat, args);
+ return PL_mess_sv;
+}
+# endif
+#endif
+
+#if (PERL_BCDVERSION < 0x5006000) && (PERL_BCDVERSION >= 0x5004000)
+#undef mess
+#endif
+
+#if !defined(mess_nocontext) && !defined(Perl_mess_nocontext) && (PERL_BCDVERSION >= 0x5004000)
+#if defined(NEED_mess_nocontext)
+static SV * DPPP_(my_mess_nocontext)(const char * pat, ...);
+static
+#else
+extern SV * DPPP_(my_mess_nocontext)(const char * pat, ...);
+#endif
+
+#if defined(NEED_mess_nocontext) || defined(NEED_mess_nocontext_GLOBAL)
+
+#define mess_nocontext DPPP_(my_mess_nocontext)
+#define Perl_mess_nocontext DPPP_(my_mess_nocontext)
+
+SV*
+DPPP_(my_mess_nocontext)(const char* pat, ...)
+{
+ dTHX;
+ SV *sv;
+ va_list args;
+ va_start(args, pat);
+ sv = vmess(pat, &args);
+ va_end(args);
+ return sv;
+}
+#endif
+#endif
+
+#ifndef mess
+#if defined(NEED_mess)
+static SV * DPPP_(my_mess)(pTHX_ const char * pat, ...);
+static
+#else
+extern SV * DPPP_(my_mess)(pTHX_ const char * pat, ...);
+#endif
+
+#if defined(NEED_mess) || defined(NEED_mess_GLOBAL)
+
+#define Perl_mess DPPP_(my_mess)
+
+SV*
+DPPP_(my_mess)(pTHX_ const char* pat, ...)
+{
+ SV *sv;
+ va_list args;
+ va_start(args, pat);
+ sv = vmess(pat, &args);
+ va_end(args);
+ return sv;
+}
+#ifdef mess_nocontext
+#define mess mess_nocontext
+#else
+#define mess Perl_mess_nocontext
+#endif
+#endif
+#endif
+
+#if ! defined mess_sv && (PERL_BCDVERSION >= 0x5004000)
+#if defined(NEED_mess_sv)
+static SV * DPPP_(my_mess_sv)(pTHX_ SV * basemsg, bool consume);
+static
+#else
+extern SV * DPPP_(my_mess_sv)(pTHX_ SV * basemsg, bool consume);
+#endif
+
+#if defined(NEED_mess_sv) || defined(NEED_mess_sv_GLOBAL)
+
+#ifdef mess_sv
+# undef mess_sv
+#endif
+#define mess_sv(a,b) DPPP_(my_mess_sv)(aTHX_ a,b)
+#define Perl_mess_sv DPPP_(my_mess_sv)
+
+SV *
+DPPP_(my_mess_sv)(pTHX_ SV *basemsg, bool consume)
+{
+ SV *tmp;
+ SV *ret;
+
+ if (SvPOK(basemsg) && SvCUR(basemsg) && *(SvEND(basemsg)-1) == '\n') {
+ if (consume)
+ return basemsg;
+ ret = mess("");
+ SvSetSV_nosteal(ret, basemsg);
+ return ret;
+ }
+
+ if (consume) {
+ sv_catsv(basemsg, mess(""));
+ return basemsg;
+ }
+
+ ret = mess("");
+ tmp = newSVsv(ret);
+ SvSetSV_nosteal(ret, basemsg);
+ sv_catsv(ret, tmp);
+ sv_dec(tmp);
+ return ret;
+}
+#endif
+#endif
+
+#ifndef warn_nocontext
+#define warn_nocontext warn
+#endif
+
+#ifndef croak_nocontext
+#define croak_nocontext croak
+#endif
+
+#ifndef croak_no_modify
+#define croak_no_modify() croak_nocontext("%s", PL_no_modify)
+#define Perl_croak_no_modify() croak_no_modify()
+#endif
+
+#ifndef croak_memory_wrap
+#if (PERL_BCDVERSION >= 0x5009002) || ( (PERL_BCDVERSION >= 0x5008006) && (PERL_BCDVERSION < 0x5009000) )
+# define croak_memory_wrap() croak_nocontext("%s", PL_memory_wrap)
+#else
+# define croak_memory_wrap() croak_nocontext("panic: memory wrap")
+#endif
+#endif
+
+#ifndef croak_xs_usage
+#if defined(NEED_croak_xs_usage)
+static void DPPP_(my_croak_xs_usage)(const CV * const cv, const char * const params);
+static
+#else
+extern void DPPP_(my_croak_xs_usage)(const CV * const cv, const char * const params);
+#endif
+
+#if defined(NEED_croak_xs_usage) || defined(NEED_croak_xs_usage_GLOBAL)
+
+#define croak_xs_usage DPPP_(my_croak_xs_usage)
+#define Perl_croak_xs_usage DPPP_(my_croak_xs_usage)
+
+#ifndef PERL_ARGS_ASSERT_CROAK_XS_USAGE
+#define PERL_ARGS_ASSERT_CROAK_XS_USAGE assert(cv); assert(params)
+
+void
+DPPP_(my_croak_xs_usage)(const CV *const cv, const char *const params)
+{
+ dTHX;
+ const GV *const gv = CvGV(cv);
+
+ PERL_ARGS_ASSERT_CROAK_XS_USAGE;
+
+ if (gv) {
+ const char *const gvname = GvNAME(gv);
+ const HV *const stash = GvSTASH(gv);
+ const char *const hvname = stash ? HvNAME(stash) : NULL;
+
+ if (hvname)
+ croak("Usage: %s::%s(%s)", hvname, gvname, params);
+ else
+ croak("Usage: %s(%s)", gvname, params);
+ } else {
+ /* Pants. I don't think that it should be possible to get here. */
+ croak("Usage: CODE(0x%" UVxf ")(%s)", PTR2UV(cv), params);
+ }
+}
+#endif
+#endif
+#endif
+#ifndef mPUSHs
+# define mPUSHs(s) PUSHs(sv_2mortal(s))
+#endif
+
+#ifndef PUSHmortal
+# define PUSHmortal PUSHs(sv_newmortal())
+#endif
+
+#ifndef mPUSHp
+# define mPUSHp(p,l) sv_setpvn(PUSHmortal, (p), (l))
+#endif
+
+#ifndef mPUSHn
+# define mPUSHn(n) sv_setnv(PUSHmortal, (NV)(n))
+#endif
+
+#ifndef mPUSHi
+# define mPUSHi(i) sv_setiv(PUSHmortal, (IV)(i))
+#endif
+
+#ifndef mPUSHu
+# define mPUSHu(u) sv_setuv(PUSHmortal, (UV)(u))
+#endif
+#ifndef mXPUSHs
+# define mXPUSHs(s) XPUSHs(sv_2mortal(s))
+#endif
+
+#ifndef XPUSHmortal
+# define XPUSHmortal XPUSHs(sv_newmortal())
+#endif
+
+#ifndef mXPUSHp
+# define mXPUSHp(p,l) STMT_START { EXTEND(sp,1); sv_setpvn(PUSHmortal, (p), (l)); } STMT_END
+#endif
+
+#ifndef mXPUSHn
+# define mXPUSHn(n) STMT_START { EXTEND(sp,1); sv_setnv(PUSHmortal, (NV)(n)); } STMT_END
+#endif
+
+#ifndef mXPUSHi
+# define mXPUSHi(i) STMT_START { EXTEND(sp,1); sv_setiv(PUSHmortal, (IV)(i)); } STMT_END
+#endif
+
+#ifndef mXPUSHu
+# define mXPUSHu(u) STMT_START { EXTEND(sp,1); sv_setuv(PUSHmortal, (UV)(u)); } STMT_END
+#endif
+
+/* Replace: 1 */
+#ifndef call_sv
+# define call_sv perl_call_sv
+#endif
+
+#ifndef call_pv
+# define call_pv perl_call_pv
+#endif
+
+#ifndef call_argv
+# define call_argv perl_call_argv
+#endif
+
+#ifndef call_method
+# define call_method perl_call_method
+#endif
+
+#ifndef eval_sv
+# define eval_sv perl_eval_sv
+#endif
+
+#if (PERL_BCDVERSION >= 0x5003098) && (PERL_BCDVERSION < 0x5006000)
+#ifndef eval_pv
+# define eval_pv perl_eval_pv
+#endif
+
+#endif
+/* Replace: 0 */
+
+#if (PERL_BCDVERSION < 0x5006000)
+#ifndef Perl_eval_sv
+# define Perl_eval_sv perl_eval_sv
+#endif
+
+#if (PERL_BCDVERSION >= 0x5003098)
+#ifndef Perl_eval_pv
+# define Perl_eval_pv perl_eval_pv
+#endif
+
+#endif
+#endif
+#ifndef G_LIST
+# define G_LIST G_ARRAY /* Replace */
+#endif
+#ifndef PERL_LOADMOD_DENY
+# define PERL_LOADMOD_DENY 0x1
+#endif
+
+#ifndef PERL_LOADMOD_NOIMPORT
+# define PERL_LOADMOD_NOIMPORT 0x2
+#endif
+
+#ifndef PERL_LOADMOD_IMPORT_OPS
+# define PERL_LOADMOD_IMPORT_OPS 0x4
+#endif
+
+#if defined(PERL_USE_GCC_BRACE_GROUPS)
+# define D_PPP_CROAK_IF_ERROR(cond) ({ \
+ SV *_errsv; \
+ ( (cond) \
+ && (_errsv = ERRSV) \
+ && (SvROK(_errsv) || SvTRUE(_errsv)) \
+ && (croak_sv(_errsv), 1)); \
+ })
+#else
+ PERL_STATIC_INLINE void D_PPP_CROAK_IF_ERROR(int cond) {
+ dTHX;
+ SV *errsv;
+ if (!cond) return;
+ errsv = ERRSV;
+ if (SvROK(errsv) || SvTRUE(errsv)) croak_sv(errsv);
+ }
+# define D_PPP_CROAK_IF_ERROR(cond) D_PPP_CROAK_IF_ERROR(cond)
+#endif
+
+#ifndef G_METHOD
+# define G_METHOD 64
+# ifdef call_sv
+# undef call_sv
+# endif
+# if (PERL_BCDVERSION < 0x5006000)
+# define call_sv(sv, flags) ((flags) & G_METHOD ? perl_call_method((char *) SvPV_nolen_const(sv), \
+ (flags) & ~G_METHOD) : perl_call_sv(sv, flags))
+# else
+# define call_sv(sv, flags) ((flags) & G_METHOD ? Perl_call_method(aTHX_ (char *) SvPV_nolen_const(sv), \
+ (flags) & ~G_METHOD) : Perl_call_sv(aTHX_ sv, flags))
+# endif
+#endif
+
+#ifndef G_RETHROW
+# define G_RETHROW 8192
+# ifdef eval_sv
+# undef eval_sv
+# endif
+# if defined(PERL_USE_GCC_BRACE_GROUPS)
+# define eval_sv(sv, flags) ({ I32 _flags = (flags); I32 _ret = Perl_eval_sv(aTHX_ sv, (_flags & ~G_RETHROW)); D_PPP_CROAK_IF_ERROR(_flags & G_RETHROW); _ret; })
+# else
+# define eval_sv(sv, flags) ((PL_na = Perl_eval_sv(aTHX_ sv, ((flags) & ~G_RETHROW))), D_PPP_CROAK_IF_ERROR((flags) & G_RETHROW), (I32)PL_na)
+# endif
+#endif
+
+/* Older Perl versions have broken croak_on_error=1 */
+#if (PERL_BCDVERSION < 0x5031002)
+# ifdef eval_pv
+# undef eval_pv
+# if defined(PERL_USE_GCC_BRACE_GROUPS)
+# define eval_pv(p, croak_on_error) ({ SV *_sv = Perl_eval_pv(aTHX_ p, 0); D_PPP_CROAK_IF_ERROR(croak_on_error); _sv; })
+# else
+# define eval_pv(p, croak_on_error) ((PL_Sv = Perl_eval_pv(aTHX_ p, 0)), D_PPP_CROAK_IF_ERROR(croak_on_error), PL_Sv)
+# endif
+# endif
+#endif
+
+/* This is backport for Perl 5.3.97d and older which do not provide perl_eval_pv */
+#ifndef eval_pv
+#if defined(NEED_eval_pv)
+static SV * DPPP_(my_eval_pv)(const char * p, I32 croak_on_error);
+static
+#else
+extern SV * DPPP_(my_eval_pv)(const char * p, I32 croak_on_error);
+#endif
+
+#if defined(NEED_eval_pv) || defined(NEED_eval_pv_GLOBAL)
+
+#ifdef eval_pv
+# undef eval_pv
+#endif
+#define eval_pv(a,b) DPPP_(my_eval_pv)(aTHX_ a,b)
+#define Perl_eval_pv DPPP_(my_eval_pv)
+
+
+SV*
+DPPP_(my_eval_pv)(const char *p, I32 croak_on_error)
+{
+ dSP;
+ SV* sv = newSVpv(p, 0);
+
+ PUSHMARK(sp);
+ eval_sv(sv, G_SCALAR);
+ SvREFCNT_dec(sv);
+
+ SPAGAIN;
+ sv = POPs;
+ PUTBACK;
+
+ D_PPP_CROAK_IF_ERROR(croak_on_error);
+
+ return sv;
+}
+
+#endif
+#endif
+
+#if ! defined(vload_module) && defined(start_subparse)
+#if defined(NEED_vload_module)
+static void DPPP_(my_vload_module)(U32 flags, SV * name, SV * ver, va_list * args);
+static
+#else
+extern void DPPP_(my_vload_module)(U32 flags, SV * name, SV * ver, va_list * args);
+#endif
+
+#if defined(NEED_vload_module) || defined(NEED_vload_module_GLOBAL)
+
+#ifdef vload_module
+# undef vload_module
+#endif
+#define vload_module(a,b,c,d) DPPP_(my_vload_module)(aTHX_ a,b,c,d)
+#define Perl_vload_module DPPP_(my_vload_module)
+
+
+void
+DPPP_(my_vload_module)(U32 flags, SV *name, SV *ver, va_list *args)
+{
+ dTHR;
+ dVAR;
+ OP *veop, *imop;
+
+ OP * const modname = newSVOP(OP_CONST, 0, name);
+ /* 5.005 has a somewhat hacky force_normal that doesn't croak on
+ SvREADONLY() if PL_compiling is true. Current perls take care in
+ ck_require() to correctly turn off SvREADONLY before calling
+ force_normal_flags(). This seems a better fix than fudging PL_compiling
+ */
+ SvREADONLY_off(((SVOP*)modname)->op_sv);
+ modname->op_private |= OPpCONST_BARE;
+ if (ver) {
+ veop = newSVOP(OP_CONST, 0, ver);
+ }
+ else
+ veop = NULL;
+ if (flags & PERL_LOADMOD_NOIMPORT) {
+ imop = sawparens(newNULLLIST());
+ }
+ else if (flags & PERL_LOADMOD_IMPORT_OPS) {
+ imop = va_arg(*args, OP*);
+ }
+ else {
+ SV *sv;
+ imop = NULL;
+ sv = va_arg(*args, SV*);
+ while (sv) {
+ imop = append_elem(OP_LIST, imop, newSVOP(OP_CONST, 0, sv));
+ sv = va_arg(*args, SV*);
+ }
+ }
+ {
+ const line_t ocopline = PL_copline;
+ COP * const ocurcop = PL_curcop;
+ const int oexpect = PL_expect;
+
+ utilize(!(flags & PERL_LOADMOD_DENY), start_subparse(FALSE, 0),
+#if (PERL_BCDVERSION > 0x5003000)
+ veop,
+#endif
+ modname, imop);
+ PL_expect = oexpect;
+ PL_copline = ocopline;
+ PL_curcop = ocurcop;
+ }
+}
+
+#endif
+#endif
+
+#ifndef load_module
+#if defined(NEED_load_module)
+static void DPPP_(my_load_module)(U32 flags, SV * name, SV * ver, ...);
+static
+#else
+extern void DPPP_(my_load_module)(U32 flags, SV * name, SV * ver, ...);
+#endif
+
+#if defined(NEED_load_module) || defined(NEED_load_module_GLOBAL)
+
+#ifdef load_module
+# undef load_module
+#endif
+#define load_module DPPP_(my_load_module)
+#define Perl_load_module DPPP_(my_load_module)
+
+
+void
+DPPP_(my_load_module)(U32 flags, SV *name, SV *ver, ...)
+{
+ va_list args;
+ va_start(args, ver);
+ vload_module(flags, name, ver, &args);
+ va_end(args);
+}
+
+#endif
+#endif
+#ifndef newRV_inc
+# define newRV_inc(sv) newRV(sv) /* Replace */
+#endif
+
+#ifndef newRV_noinc
+#if defined(PERL_USE_GCC_BRACE_GROUPS)
+# define newRV_noinc(sv) ({ SV *_sv = (SV *)newRV((sv)); SvREFCNT_dec((sv)); _sv; })
+#else
+# define newRV_noinc(sv) ((PL_Sv = (SV *)newRV((sv))), SvREFCNT_dec((sv)), PL_Sv)
+#endif
+#endif
+
+/*
+ * Boilerplate macros for initializing and accessing interpreter-local
+ * data from C. All statics in extensions should be reworked to use
+ * this, if you want to make the extension thread-safe. See ext/re/re.xs
+ * for an example of the use of these macros.
+ *
+ * Code that uses these macros is responsible for the following:
+ * 1. #define MY_CXT_KEY to a unique string, e.g. "DynaLoader_guts"
+ * 2. Declare a typedef named my_cxt_t that is a structure that contains
+ * all the data that needs to be interpreter-local.
+ * 3. Use the START_MY_CXT macro after the declaration of my_cxt_t.
+ * 4. Use the MY_CXT_INIT macro such that it is called exactly once
+ * (typically put in the BOOT: section).
+ * 5. Use the members of the my_cxt_t structure everywhere as
+ * MY_CXT.member.
+ * 6. Use the dMY_CXT macro (a declaration) in all the functions that
+ * access MY_CXT.
+ */
+
+#if defined(MULTIPLICITY) || defined(PERL_OBJECT) || \
+ defined(PERL_CAPI) || defined(PERL_IMPLICIT_CONTEXT)
+
+#ifndef START_MY_CXT
+
+/* This must appear in all extensions that define a my_cxt_t structure,
+ * right after the definition (i.e. at file scope). The non-threads
+ * case below uses it to declare the data as static. */
+#define START_MY_CXT
+
+#if (PERL_BCDVERSION < 0x5004068)
+/* Fetches the SV that keeps the per-interpreter data. */
+#define dMY_CXT_SV \
+ SV *my_cxt_sv = get_sv(MY_CXT_KEY, FALSE)
+#else /* >= perl5.004_68 */
+#define dMY_CXT_SV \
+ SV *my_cxt_sv = *hv_fetch(PL_modglobal, MY_CXT_KEY, \
+ sizeof(MY_CXT_KEY)-1, TRUE)
+#endif /* < perl5.004_68 */
+
+/* This declaration should be used within all functions that use the
+ * interpreter-local data. */
+#define dMY_CXT \
+ dMY_CXT_SV; \
+ my_cxt_t *my_cxtp = INT2PTR(my_cxt_t*,SvUV(my_cxt_sv))
+
+/* Creates and zeroes the per-interpreter data.
+ * (We allocate my_cxtp in a Perl SV so that it will be released when
+ * the interpreter goes away.) */
+#define MY_CXT_INIT \
+ dMY_CXT_SV; \
+ /* newSV() allocates one more than needed */ \
+ my_cxt_t *my_cxtp = (my_cxt_t*)SvPVX(newSV(sizeof(my_cxt_t)-1));\
+ Zero(my_cxtp, 1, my_cxt_t); \
+ sv_setuv(my_cxt_sv, PTR2UV(my_cxtp))
+
+/* This macro must be used to access members of the my_cxt_t structure.
+ * e.g. MYCXT.some_data */
+#define MY_CXT (*my_cxtp)
+
+/* Judicious use of these macros can reduce the number of times dMY_CXT
+ * is used. Use is similar to pTHX, aTHX etc. */
+#define pMY_CXT my_cxt_t *my_cxtp
+#define pMY_CXT_ pMY_CXT,
+#define _pMY_CXT ,pMY_CXT
+#define aMY_CXT my_cxtp
+#define aMY_CXT_ aMY_CXT,
+#define _aMY_CXT ,aMY_CXT
+
+#endif /* START_MY_CXT */
+
+#ifndef MY_CXT_CLONE
+/* Clones the per-interpreter data. */
+#define MY_CXT_CLONE \
+ dMY_CXT_SV; \
+ my_cxt_t *my_cxtp = (my_cxt_t*)SvPVX(newSV(sizeof(my_cxt_t)-1));\
+ Copy(INT2PTR(my_cxt_t*, SvUV(my_cxt_sv)), my_cxtp, 1, my_cxt_t);\
+ sv_setuv(my_cxt_sv, PTR2UV(my_cxtp))
+#endif
+
+#else /* single interpreter */
+
+#ifndef START_MY_CXT
+
+#define START_MY_CXT static my_cxt_t my_cxt;
+#define dMY_CXT_SV dNOOP
+#define dMY_CXT dNOOP
+#define MY_CXT_INIT NOOP
+#define MY_CXT my_cxt
+
+#define pMY_CXT void
+#define pMY_CXT_
+#define _pMY_CXT
+#define aMY_CXT
+#define aMY_CXT_
+#define _aMY_CXT
+
+#endif /* START_MY_CXT */
+
+#ifndef MY_CXT_CLONE
+#define MY_CXT_CLONE NOOP
+#endif
+
+#endif
+
+#ifndef SvREFCNT_inc
+# ifdef PERL_USE_GCC_BRACE_GROUPS
+# define SvREFCNT_inc(sv) \
+ ({ \
+ SV * const _sv = (SV*)(sv); \
+ if (_sv) \
+ (SvREFCNT(_sv))++; \
+ _sv; \
+ })
+# else
+# define SvREFCNT_inc(sv) \
+ ((PL_Sv=(SV*)(sv)) ? (++(SvREFCNT(PL_Sv)),PL_Sv) : NULL)
+# endif
+#endif
+
+#ifndef SvREFCNT_inc_simple
+# ifdef PERL_USE_GCC_BRACE_GROUPS
+# define SvREFCNT_inc_simple(sv) \
+ ({ \
+ if (sv) \
+ (SvREFCNT(sv))++; \
+ (SV *)(sv); \
+ })
+# else
+# define SvREFCNT_inc_simple(sv) \
+ ((sv) ? (SvREFCNT(sv)++,(SV*)(sv)) : NULL)
+# endif
+#endif
+
+#ifndef SvREFCNT_inc_NN
+# ifdef PERL_USE_GCC_BRACE_GROUPS
+# define SvREFCNT_inc_NN(sv) \
+ ({ \
+ SV * const _sv = (SV*)(sv); \
+ SvREFCNT(_sv)++; \
+ _sv; \
+ })
+# else
+# define SvREFCNT_inc_NN(sv) \
+ (PL_Sv=(SV*)(sv),++(SvREFCNT(PL_Sv)),PL_Sv)
+# endif
+#endif
+
+#ifndef SvREFCNT_inc_void
+# ifdef PERL_USE_GCC_BRACE_GROUPS
+# define SvREFCNT_inc_void(sv) \
+ ({ \
+ SV * const _sv = (SV*)(sv); \
+ if (_sv) \
+ (void)(SvREFCNT(_sv)++); \
+ })
+# else
+# define SvREFCNT_inc_void(sv) \
+ (void)((PL_Sv=(SV*)(sv)) ? ++(SvREFCNT(PL_Sv)) : 0)
+# endif
+#endif
+#ifndef SvREFCNT_inc_simple_void
+# define SvREFCNT_inc_simple_void(sv) STMT_START { if (sv) SvREFCNT(sv)++; } STMT_END
+#endif
+
+#ifndef SvREFCNT_inc_simple_NN
+# define SvREFCNT_inc_simple_NN(sv) (++SvREFCNT(sv), (SV*)(sv))
+#endif
+
+#ifndef SvREFCNT_inc_void_NN
+# define SvREFCNT_inc_void_NN(sv) (void)(++SvREFCNT((SV*)(sv)))
+#endif
+
+#ifndef SvREFCNT_inc_simple_void_NN
+# define SvREFCNT_inc_simple_void_NN(sv) (void)(++SvREFCNT((SV*)(sv)))
+#endif
+
+#ifndef newSV_type
+#if defined(PERL_USE_GCC_BRACE_GROUPS)
+# define newSV_type(t) ({ SV *_sv = newSV(0); sv_upgrade(_sv, (t)); _sv; })
+#else
+# define newSV_type(t) ((PL_Sv = newSV(0)), sv_upgrade(PL_Sv, (t)), PL_Sv)
+#endif
+#endif
+
+#if (PERL_BCDVERSION < 0x5006000)
+# define D_PPP_CONSTPV_ARG(x) ((char *) (x))
+#else
+# define D_PPP_CONSTPV_ARG(x) (x)
+#endif
+#ifndef newSVpvn
+# define newSVpvn(data,len) ((data) \
+ ? ((len) ? newSVpv((data), (len)) : newSVpv("", 0)) \
+ : newSV(0))
+#endif
+#ifndef newSVpvn_utf8
+# define newSVpvn_utf8(s, len, u) newSVpvn_flags((s), (len), (u) ? SVf_UTF8 : 0)
+#endif
+#ifndef SVf_UTF8
+# define SVf_UTF8 0
+#endif
+
+#ifndef newSVpvn_flags
+# if defined(PERL_USE_GCC_BRACE_GROUPS)
+# define newSVpvn_flags(s, len, flags) \
+ ({ \
+ SV * sv = newSVpvn(D_PPP_CONSTPV_ARG(s), (len)); \
+ SvFLAGS(sv) |= ((flags) & SVf_UTF8); \
+ if ((flags) & SVs_TEMP) sv = sv_2mortal(sv); \
+ sv; \
+ })
+# else
+ PERL_STATIC_INLINE SV* D_PPP_newSVpvn_flags(const char *const s, const STRLEN len, const U32 flags)
+ {
+ dTHX;
+ SV * sv = newSVpvn(s, len);
+ SvFLAGS(sv) |= (flags & SVf_UTF8);
+ if (flags & SVs_TEMP) return sv_2mortal(sv);
+ return sv;
+ }
+# define newSVpvn_flags(s, len, flags) D_PPP_newSVpvn_flags((s), (len), (flags))
+# endif
+#endif
+#ifndef SV_NOSTEAL
+# define SV_NOSTEAL 16
+#endif
+
+#if ( (PERL_BCDVERSION >= 0x5007003) && (PERL_BCDVERSION < 0x5008007) ) || ( (PERL_BCDVERSION >= 0x5009000) && (PERL_BCDVERSION < 0x5009002) )
+#undef sv_setsv_flags
+#if defined(PERL_USE_GCC_BRACE_GROUPS)
+#define sv_setsv_flags(dstr, sstr, flags) \
+ STMT_START { \
+ if (((flags) & SV_NOSTEAL) && (sstr) && (SvFLAGS((SV *)(sstr)) & SVs_TEMP)) { \
+ SvTEMP_off((SV *)(sstr)); \
+ Perl_sv_setsv_flags(aTHX_ (dstr), (sstr), (flags) & ~SV_NOSTEAL); \
+ SvTEMP_on((SV *)(sstr)); \
+ } else { \
+ Perl_sv_setsv_flags(aTHX_ (dstr), (sstr), (flags) & ~SV_NOSTEAL); \
+ } \
+ } STMT_END
+#else
+#define sv_setsv_flags(dstr, sstr, flags) \
+ ( \
+ (((flags) & SV_NOSTEAL) && (sstr) && (SvFLAGS((SV *)(sstr)) & SVs_TEMP)) ? ( \
+ SvTEMP_off((SV *)(sstr)), \
+ Perl_sv_setsv_flags(aTHX_ (dstr), (sstr), (flags) & ~SV_NOSTEAL), \
+ SvTEMP_on((SV *)(sstr)), \
+ 1 \
+ ) : ( \
+ Perl_sv_setsv_flags(aTHX_ (dstr), (sstr), (flags) & ~SV_NOSTEAL), \
+ 1 \
+ ) \
+ )
+#endif
+#endif
+
+#if defined(PERL_USE_GCC_BRACE_GROUPS)
+#ifndef sv_setsv_flags
+# define sv_setsv_flags(dstr, sstr, flags) \
+ STMT_START { \
+ if (((flags) & SV_NOSTEAL) && (sstr) && (SvFLAGS((SV *)(sstr)) & SVs_TEMP)) { \
+ SvTEMP_off((SV *)(sstr)); \
+ if (!((flags) & SV_GMAGIC) && (sstr) && SvGMAGICAL((SV *)(sstr))) { \
+ SvGMAGICAL_off((SV *)(sstr)); \
+ sv_setsv((dstr), (sstr)); \
+ SvGMAGICAL_on((SV *)(sstr)); \
+ } else { \
+ sv_setsv((dstr), (sstr)); \
+ } \
+ SvTEMP_on((SV *)(sstr)); \
+ } else { \
+ if (!((flags) & SV_GMAGIC) && (sstr) && SvGMAGICAL((SV *)(sstr))) { \
+ SvGMAGICAL_off((SV *)(sstr)); \
+ sv_setsv((dstr), (sstr)); \
+ SvGMAGICAL_on((SV *)(sstr)); \
+ } else { \
+ sv_setsv((dstr), (sstr)); \
+ } \
+ } \
+ } STMT_END
+#endif
+
+#else
+#ifndef sv_setsv_flags
+# define sv_setsv_flags(dstr, sstr, flags) \
+ ( \
+ (((flags) & SV_NOSTEAL) && (sstr) && (SvFLAGS((SV *)(sstr)) & SVs_TEMP)) ? ( \
+ SvTEMP_off((SV *)(sstr)), \
+ (!((flags) & SV_GMAGIC) && (sstr) && SvGMAGICAL((SV *)(sstr))) ? ( \
+ SvGMAGICAL_off((SV *)(sstr)), \
+ sv_setsv((dstr), (sstr)), \
+ SvGMAGICAL_on((SV *)(sstr)), \
+ 1 \
+ ) : ( \
+ sv_setsv((dstr), (sstr)), \
+ 1 \
+ ), \
+ SvTEMP_on((SV *)(sstr)), \
+ 1 \
+ ) : ( \
+ (!((flags) & SV_GMAGIC) && (sstr) && SvGMAGICAL((SV *)(sstr))) ? ( \
+ SvGMAGICAL_off((SV *)(sstr)), \
+ sv_setsv((dstr), (sstr)), \
+ SvGMAGICAL_on((SV *)(sstr)), \
+ 1 \
+ ) : ( \
+ sv_setsv((dstr), (sstr)), \
+ 1 \
+ ) \
+ ) \
+ )
+#endif
+
+#endif
+
+#ifndef newSVsv_flags
+# if defined(PERL_USE_GCC_BRACE_GROUPS)
+# define newSVsv_flags(sv, flags) \
+ ({ \
+ SV *n= newSV(0); \
+ sv_setsv_flags(n, (sv), (flags)); \
+ n; \
+ })
+# else
+ PERL_STATIC_INLINE SV* D_PPP_newSVsv_flags(SV *const old, I32 flags)
+ {
+ dTHX;
+ SV *n= newSV(0);
+ sv_setsv_flags(n, old, flags);
+ return n;
+ }
+# define newSVsv_flags(sv, flags) D_PPP_newSVsv_flags(sv, flags)
+# endif
+#endif
+#ifndef newSVsv_nomg
+# define newSVsv_nomg(sv) newSVsv_flags((sv), SV_NOSTEAL)
+#endif
+
+#if (PERL_BCDVERSION >= 0x5017005)
+#ifndef sv_mortalcopy_flags
+# define sv_mortalcopy_flags(sv, flags) Perl_sv_mortalcopy_flags(aTHX_ (sv), (flags))
+#endif
+
+#else
+#ifndef sv_mortalcopy_flags
+# define sv_mortalcopy_flags(sv, flags) sv_2mortal(newSVsv_flags((sv), (flags)))
+#endif
+
+#endif
+#ifndef SvMAGIC_set
+# define SvMAGIC_set(sv, val) \
+ STMT_START { assert(SvTYPE(sv) >= SVt_PVMG); \
+ (((XPVMG*) SvANY(sv))->xmg_magic = (val)); } STMT_END
+#endif
+
+#if (PERL_BCDVERSION < 0x5009003)
+#ifndef SvPVX_const
+# define SvPVX_const(sv) ((const char*) (0 + SvPVX(sv)))
+#endif
+
+#ifndef SvPVX_mutable
+# define SvPVX_mutable(sv) (0 + SvPVX(sv))
+#endif
+#ifndef SvRV_set
+# define SvRV_set(sv, val) \
+ STMT_START { assert(SvTYPE(sv) >= SVt_RV); \
+ (((XRV*) SvANY(sv))->xrv_rv = (val)); } STMT_END
+#endif
+
+#else
+#ifndef SvPVX_const
+# define SvPVX_const(sv) ((const char*)((sv)->sv_u.svu_pv))
+#endif
+
+#ifndef SvPVX_mutable
+# define SvPVX_mutable(sv) ((sv)->sv_u.svu_pv)
+#endif
+#ifndef SvRV_set
+# define SvRV_set(sv, val) \
+ STMT_START { assert(SvTYPE(sv) >= SVt_RV); \
+ ((sv)->sv_u.svu_rv = (val)); } STMT_END
+#endif
+
+#endif
+#ifndef SvSTASH_set
+# define SvSTASH_set(sv, val) \
+ STMT_START { assert(SvTYPE(sv) >= SVt_PVMG); \
+ (((XPVMG*) SvANY(sv))->xmg_stash = (val)); } STMT_END
+#endif
+
+#if (PERL_BCDVERSION < 0x5004000)
+#ifndef SvUV_set
+# define SvUV_set(sv, val) \
+ STMT_START { assert(SvTYPE(sv) == SVt_IV || SvTYPE(sv) >= SVt_PVIV); \
+ (((XPVIV*) SvANY(sv))->xiv_iv = (IV) (val)); } STMT_END
+#endif
+
+#else
+#ifndef SvUV_set
+# define SvUV_set(sv, val) \
+ STMT_START { assert(SvTYPE(sv) == SVt_IV || SvTYPE(sv) >= SVt_PVIV); \
+ (((XPVUV*) SvANY(sv))->xuv_uv = (val)); } STMT_END
+#endif
+
+#endif
+
+/* Hint: newSVpvn_share
+ * The SVs created by this function only mimic the behaviour of
+ * shared PVs without really being shared. Only use if you know
+ * what you're doing.
+ */
+
+#ifndef newSVpvn_share
+
+#if defined(NEED_newSVpvn_share)
+static SV * DPPP_(my_newSVpvn_share)(pTHX_ const char * s, I32 len, U32 hash);
+static
+#else
+extern SV * DPPP_(my_newSVpvn_share)(pTHX_ const char * s, I32 len, U32 hash);
+#endif
+
+#if defined(NEED_newSVpvn_share) || defined(NEED_newSVpvn_share_GLOBAL)
+
+#ifdef newSVpvn_share
+# undef newSVpvn_share
+#endif
+#define newSVpvn_share(a,b,c) DPPP_(my_newSVpvn_share)(aTHX_ a,b,c)
+#define Perl_newSVpvn_share DPPP_(my_newSVpvn_share)
+
+
+SV *
+DPPP_(my_newSVpvn_share)(pTHX_ const char *s, I32 len, U32 hash)
+{
+ SV *sv;
+ if (len < 0)
+ len = -len;
+ if (!hash)
+ PERL_HASH(hash, (char*) s, len);
+ sv = newSVpvn((char *) s, len);
+ sv_upgrade(sv, SVt_PVIV);
+ SvIVX(sv) = hash;
+ SvREADONLY_on(sv);
+ SvPOK_on(sv);
+ return sv;
+}
+
+#endif
+
+#endif
+#ifndef SvSHARED_HASH
+# define SvSHARED_HASH(sv) (0 + SvUVX(sv))
+#endif
+#ifndef HvNAME_get
+# define HvNAME_get(hv) HvNAME(hv)
+#endif
+#ifndef HvNAMELEN_get
+# define HvNAMELEN_get(hv) (HvNAME_get(hv) ? (I32)strlen(HvNAME_get(hv)) : 0)
+#endif
+
+#if (PERL_BCDVERSION >= 0x5009002) && (PERL_BCDVERSION <= 0x5009003) /* 5.9.2 and 5.9.3 ignore the length param */
+#undef gv_fetchpvn_flags
+#endif
+
+#ifdef GV_NOADD_MASK
+# define D_PPP_GV_NOADD_MASK GV_NOADD_MASK
+#else
+# define D_PPP_GV_NOADD_MASK 0xE0
+#endif
+#ifndef gv_fetchpvn_flags
+# define gv_fetchpvn_flags(name, len, flags, sv_type) gv_fetchpv(SvPVX(sv_2mortal(newSVpvn((name), (len)))), ((flags) & D_PPP_GV_NOADD_MASK) ? FALSE : TRUE, (I32)(sv_type))
+#endif
+#ifndef GvSVn
+# define GvSVn(gv) GvSV(gv)
+#endif
+
+#ifndef isGV_with_GP
+# define isGV_with_GP(gv) isGV(gv)
+#endif
+
+#ifndef gv_fetchsv
+# define gv_fetchsv(name, flags, svt) gv_fetchpv(SvPV_nolen_const(name), flags, svt)
+#endif
+#ifndef get_cvn_flags
+# define get_cvn_flags(name, namelen, flags) get_cv(name, flags)
+#endif
+
+#ifndef gv_init_pvn
+# define gv_init_pvn(gv, stash, ptr, len, flags) gv_init(gv, stash, ptr, len, flags & GV_ADDMULTI ? TRUE : FALSE)
+#endif
+
+/* concatenating with "" ensures that only literal strings are accepted as argument
+ * note that STR_WITH_LEN() can't be used as argument to macros or functions that
+ * under some configurations might be macros
+ */
+#ifndef STR_WITH_LEN
+# define STR_WITH_LEN(s) (s ""), (sizeof(s)-1)
+#endif
+#ifndef newSVpvs
+# define newSVpvs(str) newSVpvn(str "", sizeof(str) - 1)
+#endif
+
+#ifndef newSVpvs_flags
+# define newSVpvs_flags(str, flags) newSVpvn_flags(str "", sizeof(str) - 1, flags)
+#endif
+
+#ifndef newSVpvs_share
+# define newSVpvs_share(str) newSVpvn_share(str "", sizeof(str) - 1, 0)
+#endif
+
+#ifndef sv_catpvs
+# define sv_catpvs(sv, str) sv_catpvn(sv, str "", sizeof(str) - 1)
+#endif
+
+#ifndef sv_setpvs
+# define sv_setpvs(sv, str) sv_setpvn(sv, str "", sizeof(str) - 1)
+#endif
+
+#ifndef hv_fetchs
+# define hv_fetchs(hv, key, lval) hv_fetch(hv, key "", sizeof(key) - 1, lval)
+#endif
+
+#ifndef hv_stores
+# define hv_stores(hv, key, val) hv_store(hv, key "", sizeof(key) - 1, val, 0)
+#endif
+#ifndef gv_fetchpvs
+# define gv_fetchpvs(name, flags, svt) gv_fetchpvn_flags(name "", sizeof(name) - 1, flags, svt)
+#endif
+
+#ifndef gv_stashpvs
+# define gv_stashpvs(name, flags) gv_stashpvn(name "", sizeof(name) - 1, flags)
+#endif
+#ifndef get_cvs
+# define get_cvs(name, flags) get_cvn_flags(name "", sizeof(name)-1, flags)
+#endif
+
+#undef SvGETMAGIC
+#ifndef SvGETMAGIC
+# define SvGETMAGIC(x) ((void)(UNLIKELY(SvGMAGICAL(x)) && mg_get(x)))
+#endif
+
+/* That's the best we can do... */
+#ifndef sv_catpvn_nomg
+# define sv_catpvn_nomg sv_catpvn
+#endif
+
+#ifndef sv_catsv_nomg
+# define sv_catsv_nomg sv_catsv
+#endif
+
+#ifndef sv_setsv_nomg
+# define sv_setsv_nomg sv_setsv
+#endif
+
+#ifndef sv_pvn_nomg
+# define sv_pvn_nomg sv_pvn
+#endif
+
+#ifdef SVf_IVisUV
+#if defined(PERL_USE_GCC_BRACE_GROUPS)
+#ifndef SvIV_nomg
+# define SvIV_nomg(sv) (!SvGMAGICAL((sv)) ? SvIV((sv)) : ({ SV *_sviv = sv_mortalcopy_flags((sv), SV_NOSTEAL); IV _iv = SvIV(_sviv); SvFLAGS((sv)) = (SvFLAGS((sv)) & ~SVf_IVisUV) | (SvFLAGS(_sviv) & SVf_IVisUV); _iv; }))
+#endif
+
+#ifndef SvUV_nomg
+# define SvUV_nomg(sv) (!SvGMAGICAL((sv)) ? SvUV((sv)) : ({ SV *_svuv = sv_mortalcopy_flags((sv), SV_NOSTEAL); UV _uv = SvUV(_svuv); SvFLAGS((sv)) = (SvFLAGS((sv)) & ~SVf_IVisUV) | (SvFLAGS(_svuv) & SVf_IVisUV); _uv; }))
+#endif
+
+#else
+#ifndef SvIV_nomg
+# define SvIV_nomg(sv) (!SvGMAGICAL((sv)) ? SvIV((sv)) : ((PL_Sv = sv_mortalcopy_flags((sv), SV_NOSTEAL)), sv_upgrade(PL_Sv, SVt_PVIV), (SvIVX(PL_Sv) = SvIV(PL_Sv)), (SvFLAGS((sv)) = (SvFLAGS((sv)) & ~SVf_IVisUV) | (SvFLAGS(PL_Sv) & SVf_IVisUV)), SvIVX(PL_Sv)))
+#endif
+
+#ifndef SvUV_nomg
+# define SvUV_nomg(sv) (!SvGMAGICAL((sv)) ? SvIV((sv)) : ((PL_Sv = sv_mortalcopy_flags((sv), SV_NOSTEAL)), sv_upgrade(PL_Sv, SVt_PVIV), (SvUVX(PL_Sv) = SvUV(PL_Sv)), (SvFLAGS((sv)) = (SvFLAGS((sv)) & ~SVf_IVisUV) | (SvFLAGS(PL_Sv) & SVf_IVisUV)), SvUVX(PL_Sv)))
+#endif
+
+#endif
+#else
+#ifndef SvIV_nomg
+# define SvIV_nomg(sv) (!SvGMAGICAL((sv)) ? SvIV((sv)) : SvIVx(sv_mortalcopy_flags((sv), SV_NOSTEAL)))
+#endif
+
+#ifndef SvUV_nomg
+# define SvUV_nomg(sv) (!SvGMAGICAL((sv)) ? SvUV((sv)) : SvUVx(sv_mortalcopy_flags((sv), SV_NOSTEAL)))
+#endif
+
+#endif
+#ifndef SvNV_nomg
+# define SvNV_nomg(sv) (!SvGMAGICAL((sv)) ? SvNV((sv)) : SvNVx(sv_mortalcopy_flags((sv), SV_NOSTEAL)))
+#endif
+
+#ifndef SvTRUE_nomg
+# define SvTRUE_nomg(sv) (!SvGMAGICAL((sv)) ? SvTRUE((sv)) : SvTRUEx(sv_mortalcopy_flags((sv), SV_NOSTEAL)))
+#endif
+
+#ifndef sv_catpv_mg
+# define sv_catpv_mg(sv, ptr) \
+ STMT_START { \
+ SV *TeMpSv = sv; \
+ sv_catpv(TeMpSv,ptr); \
+ SvSETMAGIC(TeMpSv); \
+ } STMT_END
+#endif
+
+#ifndef sv_catpvn_mg
+# define sv_catpvn_mg(sv, ptr, len) \
+ STMT_START { \
+ SV *TeMpSv = sv; \
+ sv_catpvn(TeMpSv,ptr,len); \
+ SvSETMAGIC(TeMpSv); \
+ } STMT_END
+#endif
+
+#ifndef sv_catsv_mg
+# define sv_catsv_mg(dsv, ssv) \
+ STMT_START { \
+ SV *TeMpSv = dsv; \
+ sv_catsv(TeMpSv,ssv); \
+ SvSETMAGIC(TeMpSv); \
+ } STMT_END
+#endif
+
+#ifndef sv_setiv_mg
+# define sv_setiv_mg(sv, i) \
+ STMT_START { \
+ SV *TeMpSv = sv; \
+ sv_setiv(TeMpSv,i); \
+ SvSETMAGIC(TeMpSv); \
+ } STMT_END
+#endif
+
+#ifndef sv_setnv_mg
+# define sv_setnv_mg(sv, num) \
+ STMT_START { \
+ SV *TeMpSv = sv; \
+ sv_setnv(TeMpSv,num); \
+ SvSETMAGIC(TeMpSv); \
+ } STMT_END
+#endif
+
+#ifndef sv_setpv_mg
+# define sv_setpv_mg(sv, ptr) \
+ STMT_START { \
+ SV *TeMpSv = sv; \
+ sv_setpv(TeMpSv,ptr); \
+ SvSETMAGIC(TeMpSv); \
+ } STMT_END
+#endif
+
+#ifndef sv_setpvn_mg
+# define sv_setpvn_mg(sv, ptr, len) \
+ STMT_START { \
+ SV *TeMpSv = sv; \
+ sv_setpvn(TeMpSv,ptr,len); \
+ SvSETMAGIC(TeMpSv); \
+ } STMT_END
+#endif
+
+#ifndef sv_setsv_mg
+# define sv_setsv_mg(dsv, ssv) \
+ STMT_START { \
+ SV *TeMpSv = dsv; \
+ sv_setsv(TeMpSv,ssv); \
+ SvSETMAGIC(TeMpSv); \
+ } STMT_END
+#endif
+
+#ifndef sv_setuv_mg
+# define sv_setuv_mg(sv, i) \
+ STMT_START { \
+ SV *TeMpSv = sv; \
+ sv_setuv(TeMpSv,i); \
+ SvSETMAGIC(TeMpSv); \
+ } STMT_END
+#endif
+
+#ifndef sv_usepvn_mg
+# define sv_usepvn_mg(sv, ptr, len) \
+ STMT_START { \
+ SV *TeMpSv = sv; \
+ sv_usepvn(TeMpSv,ptr,len); \
+ SvSETMAGIC(TeMpSv); \
+ } STMT_END
+#endif
+#ifndef SvVSTRING_mg
+# define SvVSTRING_mg(sv) (SvMAGICAL(sv) ? mg_find(sv, PERL_MAGIC_vstring) : NULL)
+#endif
+
+/* Hint: sv_magic_portable
+ * This is a compatibility function that is only available with
+ * Devel::PPPort. It is NOT in the perl core.
+ * Its purpose is to mimic the 5.8.0 behaviour of sv_magic() when
+ * it is being passed a name pointer with namlen == 0. In that
+ * case, perl 5.8.0 and later store the pointer, not a copy of it.
+ * The compatibility can be provided back to perl 5.004. With
+ * earlier versions, the code will not compile.
+ */
+
+#if (PERL_BCDVERSION < 0x5004000)
+
+ /* code that uses sv_magic_portable will not compile */
+
+#elif (PERL_BCDVERSION < 0x5008000)
+
+# define sv_magic_portable(sv, obj, how, name, namlen) \
+ STMT_START { \
+ SV *SvMp_sv = (sv); \
+ char *SvMp_name = (char *) (name); \
+ I32 SvMp_namlen = (namlen); \
+ if (SvMp_name && SvMp_namlen == 0) \
+ { \
+ MAGIC *mg; \
+ sv_magic(SvMp_sv, obj, how, 0, 0); \
+ mg = SvMAGIC(SvMp_sv); \
+ mg->mg_len = -42; /* XXX: this is the tricky part */ \
+ mg->mg_ptr = SvMp_name; \
+ } \
+ else \
+ { \
+ sv_magic(SvMp_sv, obj, how, SvMp_name, SvMp_namlen); \
+ } \
+ } STMT_END
+
+#else
+
+# define sv_magic_portable(a, b, c, d, e) sv_magic(a, b, c, d, e)
+
+#endif
+
+#if !defined(mg_findext)
+#if defined(NEED_mg_findext)
+static MAGIC * DPPP_(my_mg_findext)(const SV * sv, int type, const MGVTBL * vtbl);
+static
+#else
+extern MAGIC * DPPP_(my_mg_findext)(const SV * sv, int type, const MGVTBL * vtbl);
+#endif
+
+#if defined(NEED_mg_findext) || defined(NEED_mg_findext_GLOBAL)
+
+#define mg_findext DPPP_(my_mg_findext)
+#define Perl_mg_findext DPPP_(my_mg_findext)
+
+
+MAGIC *
+DPPP_(my_mg_findext)(const SV * sv, int type, const MGVTBL *vtbl) {
+ if (sv) {
+ MAGIC *mg;
+
+#ifdef AvPAD_NAMELIST
+ assert(!(SvTYPE(sv) == SVt_PVAV && AvPAD_NAMELIST(sv)));
+#endif
+
+ for (mg = SvMAGIC (sv); mg; mg = mg->mg_moremagic) {
+ if (mg->mg_type == type && mg->mg_virtual == vtbl)
+ return mg;
+ }
+ }
+
+ return NULL;
+}
+
+#endif
+#endif
+
+#if !defined(sv_unmagicext)
+#if defined(NEED_sv_unmagicext)
+static int DPPP_(my_sv_unmagicext)(pTHX_ SV * const sv, const int type, MGVTBL * vtbl);
+static
+#else
+extern int DPPP_(my_sv_unmagicext)(pTHX_ SV * const sv, const int type, MGVTBL * vtbl);
+#endif
+
+#if defined(NEED_sv_unmagicext) || defined(NEED_sv_unmagicext_GLOBAL)
+
+#ifdef sv_unmagicext
+# undef sv_unmagicext
+#endif
+#define sv_unmagicext(a,b,c) DPPP_(my_sv_unmagicext)(aTHX_ a,b,c)
+#define Perl_sv_unmagicext DPPP_(my_sv_unmagicext)
+
+
+int
+DPPP_(my_sv_unmagicext)(pTHX_ SV *const sv, const int type, MGVTBL *vtbl)
+{
+ MAGIC* mg;
+ MAGIC** mgp;
+
+ if (SvTYPE(sv) < SVt_PVMG || !SvMAGIC(sv))
+ return 0;
+ mgp = &(SvMAGIC(sv));
+ for (mg = *mgp; mg; mg = *mgp) {
+ const MGVTBL* const virt = mg->mg_virtual;
+ if (mg->mg_type == type && virt == vtbl) {
+ *mgp = mg->mg_moremagic;
+ if (virt && virt->svt_free)
+ virt->svt_free(aTHX_ sv, mg);
+ if (mg->mg_ptr && mg->mg_type != PERL_MAGIC_regex_global) {
+ if (mg->mg_len > 0)
+ Safefree(mg->mg_ptr);
+ else if (mg->mg_len == HEf_SVKEY) /* Questionable on older perls... */
+ SvREFCNT_dec(MUTABLE_SV(mg->mg_ptr));
+ else if (mg->mg_type == PERL_MAGIC_utf8)
+ Safefree(mg->mg_ptr);
+ }
+ if (mg->mg_flags & MGf_REFCOUNTED)
+ SvREFCNT_dec(mg->mg_obj);
+ Safefree(mg);
+ }
+ else
+ mgp = &mg->mg_moremagic;
+ }
+ if (SvMAGIC(sv)) {
+ if (SvMAGICAL(sv)) /* if we're under save_magic, wait for restore_magic; */
+ mg_magical(sv); /* else fix the flags now */
+ }
+ else {
+ SvMAGICAL_off(sv);
+ SvFLAGS(sv) |= (SvFLAGS(sv) & (SVp_IOK|SVp_NOK|SVp_POK)) >> PRIVSHIFT;
+ }
+ return 0;
+}
+
+#endif
+#endif
+
+#ifdef USE_ITHREADS
+#ifndef CopFILE
+# define CopFILE(c) ((c)->cop_file)
+#endif
+
+#ifndef CopFILEGV
+# define CopFILEGV(c) (CopFILE(c) ? gv_fetchfile(CopFILE(c)) : Nullgv)
+#endif
+
+#ifndef CopFILE_set
+# define CopFILE_set(c,pv) ((c)->cop_file = savepv(pv))
+#endif
+
+#ifndef CopFILESV
+# define CopFILESV(c) (CopFILE(c) ? GvSV(gv_fetchfile(CopFILE(c))) : Nullsv)
+#endif
+
+#ifndef CopFILEAV
+# define CopFILEAV(c) (CopFILE(c) ? GvAV(gv_fetchfile(CopFILE(c))) : Nullav)
+#endif
+
+#ifndef CopSTASHPV
+# define CopSTASHPV(c) ((c)->cop_stashpv)
+#endif
+
+#ifndef CopSTASHPV_set
+# define CopSTASHPV_set(c,pv) ((c)->cop_stashpv = ((pv) ? savepv(pv) : Nullch))
+#endif
+
+#ifndef CopSTASH
+# define CopSTASH(c) (CopSTASHPV(c) ? gv_stashpv(CopSTASHPV(c),GV_ADD) : Nullhv)
+#endif
+
+#ifndef CopSTASH_set
+# define CopSTASH_set(c,hv) CopSTASHPV_set(c, (hv) ? HvNAME(hv) : Nullch)
+#endif
+
+#ifndef CopSTASH_eq
+# define CopSTASH_eq(c,hv) ((hv) && (CopSTASHPV(c) == HvNAME(hv) \
+ || (CopSTASHPV(c) && HvNAME(hv) \
+ && strEQ(CopSTASHPV(c), HvNAME(hv)))))
+#endif
+
+#else
+#ifndef CopFILEGV
+# define CopFILEGV(c) ((c)->cop_filegv)
+#endif
+
+#ifndef CopFILEGV_set
+# define CopFILEGV_set(c,gv) ((c)->cop_filegv = (GV*)SvREFCNT_inc(gv))
+#endif
+
+#ifndef CopFILE_set
+# define CopFILE_set(c,pv) CopFILEGV_set((c), gv_fetchfile(pv))
+#endif
+
+#ifndef CopFILESV
+# define CopFILESV(c) (CopFILEGV(c) ? GvSV(CopFILEGV(c)) : Nullsv)
+#endif
+
+#ifndef CopFILEAV
+# define CopFILEAV(c) (CopFILEGV(c) ? GvAV(CopFILEGV(c)) : Nullav)
+#endif
+
+#ifndef CopFILE
+# define CopFILE(c) (CopFILESV(c) ? SvPVX(CopFILESV(c)) : Nullch)
+#endif
+
+#ifndef CopSTASH
+# define CopSTASH(c) ((c)->cop_stash)
+#endif
+
+#ifndef CopSTASH_set
+# define CopSTASH_set(c,hv) ((c)->cop_stash = (hv))
+#endif
+
+#ifndef CopSTASHPV
+# define CopSTASHPV(c) (CopSTASH(c) ? HvNAME(CopSTASH(c)) : Nullch)
+#endif
+
+#ifndef CopSTASHPV_set
+# define CopSTASHPV_set(c,pv) CopSTASH_set((c), gv_stashpv(pv,GV_ADD))
+#endif
+
+#ifndef CopSTASH_eq
+# define CopSTASH_eq(c,hv) (CopSTASH(c) == (hv))
+#endif
+
+#endif /* USE_ITHREADS */
+
+#if (PERL_BCDVERSION >= 0x5006000)
+#ifndef caller_cx
+
+# if defined(NEED_caller_cx) || defined(NEED_caller_cx_GLOBAL)
+static I32
+DPPP_dopoptosub_at(const PERL_CONTEXT *cxstk, I32 startingblock)
+{
+ I32 i;
+
+ for (i = startingblock; i >= 0; i--) {
+ const PERL_CONTEXT * const cx = &cxstk[i];
+ switch (CxTYPE(cx)) {
+ default:
+ continue;
+ case CXt_EVAL:
+ case CXt_SUB:
+ case CXt_FORMAT:
+ return i;
+ }
+ }
+ return i;
+}
+# endif
+
+# if defined(NEED_caller_cx)
+static const PERL_CONTEXT * DPPP_(my_caller_cx)(pTHX_ I32 level, const PERL_CONTEXT * * dbcxp);
+static
+#else
+extern const PERL_CONTEXT * DPPP_(my_caller_cx)(pTHX_ I32 level, const PERL_CONTEXT * * dbcxp);
+#endif
+
+#if defined(NEED_caller_cx) || defined(NEED_caller_cx_GLOBAL)
+
+#ifdef caller_cx
+# undef caller_cx
+#endif
+#define caller_cx(a,b) DPPP_(my_caller_cx)(aTHX_ a,b)
+#define Perl_caller_cx DPPP_(my_caller_cx)
+
+
+const PERL_CONTEXT *
+DPPP_(my_caller_cx)(pTHX_ I32 level, const PERL_CONTEXT **dbcxp)
+{
+ I32 cxix = DPPP_dopoptosub_at(cxstack, cxstack_ix);
+ const PERL_CONTEXT *cx;
+ const PERL_CONTEXT *ccstack = cxstack;
+ const PERL_SI *top_si = PL_curstackinfo;
+
+ for (;;) {
+ /* we may be in a higher stacklevel, so dig down deeper */
+ while (cxix < 0 && top_si->si_type != PERLSI_MAIN) {
+ top_si = top_si->si_prev;
+ ccstack = top_si->si_cxstack;
+ cxix = DPPP_dopoptosub_at(ccstack, top_si->si_cxix);
+ }
+ if (cxix < 0)
+ return NULL;
+ /* caller() should not report the automatic calls to &DB::sub */
+ if (PL_DBsub && GvCV(PL_DBsub) && cxix >= 0 &&
+ ccstack[cxix].blk_sub.cv == GvCV(PL_DBsub))
+ level++;
+ if (!level--)
+ break;
+ cxix = DPPP_dopoptosub_at(ccstack, cxix - 1);
+ }
+
+ cx = &ccstack[cxix];
+ if (dbcxp) *dbcxp = cx;
+
+ if (CxTYPE(cx) == CXt_SUB || CxTYPE(cx) == CXt_FORMAT) {
+ const I32 dbcxix = DPPP_dopoptosub_at(ccstack, cxix - 1);
+ /* We expect that ccstack[dbcxix] is CXt_SUB, anyway, the
+ field below is defined for any cx. */
+ /* caller() should not report the automatic calls to &DB::sub */
+ if (PL_DBsub && GvCV(PL_DBsub) && dbcxix >= 0 && ccstack[dbcxix].blk_sub.cv == GvCV(PL_DBsub))
+ cx = &ccstack[dbcxix];
+ }
+
+ return cx;
+}
+
+# endif
+#endif /* caller_cx */
+#endif /* 5.6.0 */
+#ifndef IN_PERL_COMPILETIME
+# define IN_PERL_COMPILETIME (PL_curcop == &PL_compiling)
+#endif
+
+#ifndef IN_LOCALE_RUNTIME
+# define IN_LOCALE_RUNTIME (PL_curcop->op_private & HINT_LOCALE)
+#endif
+
+#ifndef IN_LOCALE_COMPILETIME
+# define IN_LOCALE_COMPILETIME (PL_hints & HINT_LOCALE)
+#endif
+
+#ifndef IN_LOCALE
+# define IN_LOCALE (IN_PERL_COMPILETIME ? IN_LOCALE_COMPILETIME : IN_LOCALE_RUNTIME)
+#endif
+#ifndef IS_NUMBER_IN_UV
+# define IS_NUMBER_IN_UV 0x01
+#endif
+
+#ifndef IS_NUMBER_GREATER_THAN_UV_MAX
+# define IS_NUMBER_GREATER_THAN_UV_MAX 0x02
+#endif
+
+#ifndef IS_NUMBER_NOT_INT
+# define IS_NUMBER_NOT_INT 0x04
+#endif
+
+#ifndef IS_NUMBER_NEG
+# define IS_NUMBER_NEG 0x08
+#endif
+
+#ifndef IS_NUMBER_INFINITY
+# define IS_NUMBER_INFINITY 0x10
+#endif
+
+#ifndef IS_NUMBER_NAN
+# define IS_NUMBER_NAN 0x20
+#endif
+#ifndef GROK_NUMERIC_RADIX
+# define GROK_NUMERIC_RADIX(sp, send) grok_numeric_radix(sp, send)
+#endif
+#ifndef PERL_SCAN_GREATER_THAN_UV_MAX
+# define PERL_SCAN_GREATER_THAN_UV_MAX 0x02
+#endif
+
+#ifndef PERL_SCAN_SILENT_ILLDIGIT
+# define PERL_SCAN_SILENT_ILLDIGIT 0x04
+#endif
+
+#ifndef PERL_SCAN_ALLOW_UNDERSCORES
+# define PERL_SCAN_ALLOW_UNDERSCORES 0x01
+#endif
+
+#ifndef PERL_SCAN_DISALLOW_PREFIX
+# define PERL_SCAN_DISALLOW_PREFIX 0x02
+#endif
+
+#ifndef grok_numeric_radix
+#if defined(NEED_grok_numeric_radix)
+static bool DPPP_(my_grok_numeric_radix)(pTHX_ const char * * sp, const char * send);
+static
+#else
+extern bool DPPP_(my_grok_numeric_radix)(pTHX_ const char * * sp, const char * send);
+#endif
+
+#if defined(NEED_grok_numeric_radix) || defined(NEED_grok_numeric_radix_GLOBAL)
+
+#ifdef grok_numeric_radix
+# undef grok_numeric_radix
+#endif
+#define grok_numeric_radix(a,b) DPPP_(my_grok_numeric_radix)(aTHX_ a,b)
+#define Perl_grok_numeric_radix DPPP_(my_grok_numeric_radix)
+
+bool
+DPPP_(my_grok_numeric_radix)(pTHX_ const char **sp, const char *send)
+{
+#ifdef USE_LOCALE_NUMERIC
+#ifdef PL_numeric_radix_sv
+ if (PL_numeric_radix_sv && IN_LOCALE) {
+ STRLEN len;
+ char* radix = SvPV(PL_numeric_radix_sv, len);
+ if (*sp + len <= send && memEQ(*sp, radix, len)) {
+ *sp += len;
+ return TRUE;
+ }
+ }
+#else
+ /* older perls don't have PL_numeric_radix_sv so the radix
+ * must manually be requested from locale.h
+ */
+#include <locale.h>
+ dTHR; /* needed for older threaded perls */
+ struct lconv *lc = localeconv();
+ char *radix = lc->decimal_point;
+ if (radix && IN_LOCALE) {
+ STRLEN len = strlen(radix);
+ if (*sp + len <= send && memEQ(*sp, radix, len)) {
+ *sp += len;
+ return TRUE;
+ }
+ }
+#endif
+#endif /* USE_LOCALE_NUMERIC */
+ /* always try "." if numeric radix didn't match because
+ * we may have data from different locales mixed */
+ if (*sp < send && **sp == '.') {
+ ++*sp;
+ return TRUE;
+ }
+ return FALSE;
+}
+#endif
+#endif
+
+#ifndef grok_number
+#if defined(NEED_grok_number)
+static int DPPP_(my_grok_number)(pTHX_ const char * pv, STRLEN len, UV * valuep);
+static
+#else
+extern int DPPP_(my_grok_number)(pTHX_ const char * pv, STRLEN len, UV * valuep);
+#endif
+
+#if defined(NEED_grok_number) || defined(NEED_grok_number_GLOBAL)
+
+#ifdef grok_number
+# undef grok_number
+#endif
+#define grok_number(a,b,c) DPPP_(my_grok_number)(aTHX_ a,b,c)
+#define Perl_grok_number DPPP_(my_grok_number)
+
+int
+DPPP_(my_grok_number)(pTHX_ const char *pv, STRLEN len, UV *valuep)
+{
+ const char *s = pv;
+ const char *send = pv + len;
+ const UV max_div_10 = UV_MAX / 10;
+ const char max_mod_10 = UV_MAX % 10;
+ int numtype = 0;
+ int sawinf = 0;
+ int sawnan = 0;
+
+ while (s < send && isSPACE(*s))
+ s++;
+ if (s == send) {
+ return 0;
+ } else if (*s == '-') {
+ s++;
+ numtype = IS_NUMBER_NEG;
+ }
+ else if (*s == '+')
+ s++;
+
+ if (s == send)
+ return 0;
+
+ /* next must be digit or the radix separator or beginning of infinity */
+ if (isDIGIT(*s)) {
+ /* UVs are at least 32 bits, so the first 9 decimal digits cannot
+ overflow. */
+ UV value = *s - '0';
+ /* This construction seems to be more optimiser friendly.
+ (without it gcc does the isDIGIT test and the *s - '0' separately)
+ With it gcc on arm is managing 6 instructions (6 cycles) per digit.
+ In theory the optimiser could deduce how far to unroll the loop
+ before checking for overflow. */
+ if (++s < send) {
+ int digit = *s - '0';
+ if (digit >= 0 && digit <= 9) {
+ value = value * 10 + digit;
+ if (++s < send) {
+ digit = *s - '0';
+ if (digit >= 0 && digit <= 9) {
+ value = value * 10 + digit;
+ if (++s < send) {
+ digit = *s - '0';
+ if (digit >= 0 && digit <= 9) {
+ value = value * 10 + digit;
+ if (++s < send) {
+ digit = *s - '0';
+ if (digit >= 0 && digit <= 9) {
+ value = value * 10 + digit;
+ if (++s < send) {
+ digit = *s - '0';
+ if (digit >= 0 && digit <= 9) {
+ value = value * 10 + digit;
+ if (++s < send) {
+ digit = *s - '0';
+ if (digit >= 0 && digit <= 9) {
+ value = value * 10 + digit;
+ if (++s < send) {
+ digit = *s - '0';
+ if (digit >= 0 && digit <= 9) {
+ value = value * 10 + digit;
+ if (++s < send) {
+ digit = *s - '0';
+ if (digit >= 0 && digit <= 9) {
+ value = value * 10 + digit;
+ if (++s < send) {
+ /* Now got 9 digits, so need to check
+ each time for overflow. */
+ digit = *s - '0';
+ while (digit >= 0 && digit <= 9
+ && (value < max_div_10
+ || (value == max_div_10
+ && digit <= max_mod_10))) {
+ value = value * 10 + digit;
+ if (++s < send)
+ digit = *s - '0';
+ else
+ break;
+ }
+ if (digit >= 0 && digit <= 9
+ && (s < send)) {
+ /* value overflowed.
+ skip the remaining digits, don't
+ worry about setting *valuep. */
+ do {
+ s++;
+ } while (s < send && isDIGIT(*s));
+ numtype |=
+ IS_NUMBER_GREATER_THAN_UV_MAX;
+ goto skip_value;
+ }
+ }
+ }
+ }
+ }
+ }
+ }
+ }
+ }
+ }
+ }
+ }
+ }
+ }
+ }
+ }
+ }
+ }
+ numtype |= IS_NUMBER_IN_UV;
+ if (valuep)
+ *valuep = value;
+
+ skip_value:
+ if (GROK_NUMERIC_RADIX(&s, send)) {
+ numtype |= IS_NUMBER_NOT_INT;
+ while (s < send && isDIGIT(*s)) /* optional digits after the radix */
+ s++;
+ }
+ }
+ else if (GROK_NUMERIC_RADIX(&s, send)) {
+ numtype |= IS_NUMBER_NOT_INT | IS_NUMBER_IN_UV; /* valuep assigned below */
+ /* no digits before the radix means we need digits after it */
+ if (s < send && isDIGIT(*s)) {
+ do {
+ s++;
+ } while (s < send && isDIGIT(*s));
+ if (valuep) {
+ /* integer approximation is valid - it's 0. */
+ *valuep = 0;
+ }
+ }
+ else
+ return 0;
+ } else if (*s == 'I' || *s == 'i') {
+ s++; if (s == send || (*s != 'N' && *s != 'n')) return 0;
+ s++; if (s == send || (*s != 'F' && *s != 'f')) return 0;
+ s++; if (s < send && (*s == 'I' || *s == 'i')) {
+ s++; if (s == send || (*s != 'N' && *s != 'n')) return 0;
+ s++; if (s == send || (*s != 'I' && *s != 'i')) return 0;
+ s++; if (s == send || (*s != 'T' && *s != 't')) return 0;
+ s++; if (s == send || (*s != 'Y' && *s != 'y')) return 0;
+ s++;
+ }
+ sawinf = 1;
+ } else if (*s == 'N' || *s == 'n') {
+ /* XXX TODO: There are signaling NaNs and quiet NaNs. */
+ s++; if (s == send || (*s != 'A' && *s != 'a')) return 0;
+ s++; if (s == send || (*s != 'N' && *s != 'n')) return 0;
+ s++;
+ sawnan = 1;
+ } else
+ return 0;
+
+ if (sawinf) {
+ numtype &= IS_NUMBER_NEG; /* Keep track of sign */
+ numtype |= IS_NUMBER_INFINITY | IS_NUMBER_NOT_INT;
+ } else if (sawnan) {
+ numtype &= IS_NUMBER_NEG; /* Keep track of sign */
+ numtype |= IS_NUMBER_NAN | IS_NUMBER_NOT_INT;
+ } else if (s < send) {
+ /* we can have an optional exponent part */
+ if (*s == 'e' || *s == 'E') {
+ /* The only flag we keep is sign. Blow away any "it's UV" */
+ numtype &= IS_NUMBER_NEG;
+ numtype |= IS_NUMBER_NOT_INT;
+ s++;
+ if (s < send && (*s == '-' || *s == '+'))
+ s++;
+ if (s < send && isDIGIT(*s)) {
+ do {
+ s++;
+ } while (s < send && isDIGIT(*s));
+ }
+ else
+ return 0;
+ }
+ }
+ while (s < send && isSPACE(*s))
+ s++;
+ if (s >= send)
+ return numtype;
+ if (len == 10 && memEQ(pv, "0 but true", 10)) {
+ if (valuep)
+ *valuep = 0;
+ return IS_NUMBER_IN_UV;
+ }
+ return 0;
+}
+#endif
+#endif
+
+/*
+ * The grok_* routines have been modified to use warn() instead of
+ * Perl_warner(). Also, 'hexdigit' was the former name of PL_hexdigit,
+ * which is why the stack variable has been renamed to 'xdigit'.
+ */
+
+#ifndef grok_bin
+#if defined(NEED_grok_bin)
+static UV DPPP_(my_grok_bin)(pTHX_ const char * start, STRLEN * len_p, I32 * flags, NV * result);
+static
+#else
+extern UV DPPP_(my_grok_bin)(pTHX_ const char * start, STRLEN * len_p, I32 * flags, NV * result);
+#endif
+
+#if defined(NEED_grok_bin) || defined(NEED_grok_bin_GLOBAL)
+
+#ifdef grok_bin
+# undef grok_bin
+#endif
+#define grok_bin(a,b,c,d) DPPP_(my_grok_bin)(aTHX_ a,b,c,d)
+#define Perl_grok_bin DPPP_(my_grok_bin)
+
+UV
+DPPP_(my_grok_bin)(pTHX_ const char *start, STRLEN *len_p, I32 *flags, NV *result)
+{
+ const char *s = start;
+ STRLEN len = *len_p;
+ UV value = 0;
+ NV value_nv = 0;
+
+ const UV max_div_2 = UV_MAX / 2;
+ bool allow_underscores = *flags & PERL_SCAN_ALLOW_UNDERSCORES;
+ bool overflowed = FALSE;
+
+ if (!(*flags & PERL_SCAN_DISALLOW_PREFIX)) {
+ /* strip off leading b or 0b.
+ for compatibility silently suffer "b" and "0b" as valid binary
+ numbers. */
+ if (len >= 1) {
+ if (s[0] == 'b') {
+ s++;
+ len--;
+ }
+ else if (len >= 2 && s[0] == '0' && s[1] == 'b') {
+ s+=2;
+ len-=2;
+ }
+ }
+ }
+
+ for (; len-- && *s; s++) {
+ char bit = *s;
+ if (bit == '0' || bit == '1') {
+ /* Write it in this wonky order with a goto to attempt to get the
+ compiler to make the common case integer-only loop pretty tight.
+ With gcc seems to be much straighter code than old scan_bin. */
+ redo:
+ if (!overflowed) {
+ if (value <= max_div_2) {
+ value = (value << 1) | (bit - '0');
+ continue;
+ }
+ /* Bah. We're just overflowed. */
+ warn("Integer overflow in binary number");
+ overflowed = TRUE;
+ value_nv = (NV) value;
+ }
+ value_nv *= 2.0;
+ /* If an NV has not enough bits in its mantissa to
+ * represent a UV this summing of small low-order numbers
+ * is a waste of time (because the NV cannot preserve
+ * the low-order bits anyway): we could just remember when
+ * did we overflow and in the end just multiply value_nv by the
+ * right amount. */
+ value_nv += (NV)(bit - '0');
+ continue;
+ }
+ if (bit == '_' && len && allow_underscores && (bit = s[1])
+ && (bit == '0' || bit == '1'))
+ {
+ --len;
+ ++s;
+ goto redo;
+ }
+ if (!(*flags & PERL_SCAN_SILENT_ILLDIGIT))
+ warn("Illegal binary digit '%c' ignored", *s);
+ break;
+ }
+
+ if ( ( overflowed && value_nv > 4294967295.0)
+#if UVSIZE > 4
+ || (!overflowed && value > 0xffffffff )
+#endif
+ ) {
+ warn("Binary number > 0b11111111111111111111111111111111 non-portable");
+ }
+ *len_p = s - start;
+ if (!overflowed) {
+ *flags = 0;
+ return value;
+ }
+ *flags = PERL_SCAN_GREATER_THAN_UV_MAX;
+ if (result)
+ *result = value_nv;
+ return UV_MAX;
+}
+#endif
+#endif
+
+#ifndef grok_hex
+#if defined(NEED_grok_hex)
+static UV DPPP_(my_grok_hex)(pTHX_ const char * start, STRLEN * len_p, I32 * flags, NV * result);
+static
+#else
+extern UV DPPP_(my_grok_hex)(pTHX_ const char * start, STRLEN * len_p, I32 * flags, NV * result);
+#endif
+
+#if defined(NEED_grok_hex) || defined(NEED_grok_hex_GLOBAL)
+
+#ifdef grok_hex
+# undef grok_hex
+#endif
+#define grok_hex(a,b,c,d) DPPP_(my_grok_hex)(aTHX_ a,b,c,d)
+#define Perl_grok_hex DPPP_(my_grok_hex)
+
+UV
+DPPP_(my_grok_hex)(pTHX_ const char *start, STRLEN *len_p, I32 *flags, NV *result)
+{
+ const char *s = start;
+ STRLEN len = *len_p;
+ UV value = 0;
+ NV value_nv = 0;
+
+ const UV max_div_16 = UV_MAX / 16;
+ bool allow_underscores = *flags & PERL_SCAN_ALLOW_UNDERSCORES;
+ bool overflowed = FALSE;
+ const char *xdigit;
+
+ if (!(*flags & PERL_SCAN_DISALLOW_PREFIX)) {
+ /* strip off leading x or 0x.
+ for compatibility silently suffer "x" and "0x" as valid hex numbers.
+ */
+ if (len >= 1) {
+ if (s[0] == 'x') {
+ s++;
+ len--;
+ }
+ else if (len >= 2 && s[0] == '0' && s[1] == 'x') {
+ s+=2;
+ len-=2;
+ }
+ }
+ }
+
+ for (; len-- && *s; s++) {
+ xdigit = strchr((char *) PL_hexdigit, *s);
+ if (xdigit) {
+ /* Write it in this wonky order with a goto to attempt to get the
+ compiler to make the common case integer-only loop pretty tight.
+ With gcc seems to be much straighter code than old scan_hex. */
+ redo:
+ if (!overflowed) {
+ if (value <= max_div_16) {
+ value = (value << 4) | ((xdigit - PL_hexdigit) & 15);
+ continue;
+ }
+ warn("Integer overflow in hexadecimal number");
+ overflowed = TRUE;
+ value_nv = (NV) value;
+ }
+ value_nv *= 16.0;
+ /* If an NV has not enough bits in its mantissa to
+ * represent a UV this summing of small low-order numbers
+ * is a waste of time (because the NV cannot preserve
+ * the low-order bits anyway): we could just remember when
+ * did we overflow and in the end just multiply value_nv by the
+ * right amount of 16-tuples. */
+ value_nv += (NV)((xdigit - PL_hexdigit) & 15);
+ continue;
+ }
+ if (*s == '_' && len && allow_underscores && s[1]
+ && (xdigit = strchr((char *) PL_hexdigit, s[1])))
+ {
+ --len;
+ ++s;
+ goto redo;
+ }
+ if (!(*flags & PERL_SCAN_SILENT_ILLDIGIT))
+ warn("Illegal hexadecimal digit '%c' ignored", *s);
+ break;
+ }
+
+ if ( ( overflowed && value_nv > 4294967295.0)
+#if UVSIZE > 4
+ || (!overflowed && value > 0xffffffff )
+#endif
+ ) {
+ warn("Hexadecimal number > 0xffffffff non-portable");
+ }
+ *len_p = s - start;
+ if (!overflowed) {
+ *flags = 0;
+ return value;
+ }
+ *flags = PERL_SCAN_GREATER_THAN_UV_MAX;
+ if (result)
+ *result = value_nv;
+ return UV_MAX;
+}
+#endif
+#endif
+
+#ifndef grok_oct
+#if defined(NEED_grok_oct)
+static UV DPPP_(my_grok_oct)(pTHX_ const char * start, STRLEN * len_p, I32 * flags, NV * result);
+static
+#else
+extern UV DPPP_(my_grok_oct)(pTHX_ const char * start, STRLEN * len_p, I32 * flags, NV * result);
+#endif
+
+#if defined(NEED_grok_oct) || defined(NEED_grok_oct_GLOBAL)
+
+#ifdef grok_oct
+# undef grok_oct
+#endif
+#define grok_oct(a,b,c,d) DPPP_(my_grok_oct)(aTHX_ a,b,c,d)
+#define Perl_grok_oct DPPP_(my_grok_oct)
+
+UV
+DPPP_(my_grok_oct)(pTHX_ const char *start, STRLEN *len_p, I32 *flags, NV *result)
+{
+ const char *s = start;
+ STRLEN len = *len_p;
+ UV value = 0;
+ NV value_nv = 0;
+
+ const UV max_div_8 = UV_MAX / 8;
+ bool allow_underscores = *flags & PERL_SCAN_ALLOW_UNDERSCORES;
+ bool overflowed = FALSE;
+
+ for (; len-- && *s; s++) {
+ /* gcc 2.95 optimiser not smart enough to figure that this subtraction
+ out front allows slicker code. */
+ int digit = *s - '0';
+ if (digit >= 0 && digit <= 7) {
+ /* Write it in this wonky order with a goto to attempt to get the
+ compiler to make the common case integer-only loop pretty tight.
+ */
+ redo:
+ if (!overflowed) {
+ if (value <= max_div_8) {
+ value = (value << 3) | digit;
+ continue;
+ }
+ /* Bah. We're just overflowed. */
+ warn("Integer overflow in octal number");
+ overflowed = TRUE;
+ value_nv = (NV) value;
+ }
+ value_nv *= 8.0;
+ /* If an NV has not enough bits in its mantissa to
+ * represent a UV this summing of small low-order numbers
+ * is a waste of time (because the NV cannot preserve
+ * the low-order bits anyway): we could just remember when
+ * did we overflow and in the end just multiply value_nv by the
+ * right amount of 8-tuples. */
+ value_nv += (NV)digit;
+ continue;
+ }
+ if (digit == ('_' - '0') && len && allow_underscores
+ && (digit = s[1] - '0') && (digit >= 0 && digit <= 7))
+ {
+ --len;
+ ++s;
+ goto redo;
+ }
+ /* Allow \octal to work the DWIM way (that is, stop scanning
+ * as soon as non-octal characters are seen, complain only iff
+ * someone seems to want to use the digits eight and nine). */
+ if (digit == 8 || digit == 9) {
+ if (!(*flags & PERL_SCAN_SILENT_ILLDIGIT))
+ warn("Illegal octal digit '%c' ignored", *s);
+ }
+ break;
+ }
+
+ if ( ( overflowed && value_nv > 4294967295.0)
+#if UVSIZE > 4
+ || (!overflowed && value > 0xffffffff )
+#endif
+ ) {
+ warn("Octal number > 037777777777 non-portable");
+ }
+ *len_p = s - start;
+ if (!overflowed) {
+ *flags = 0;
+ return value;
+ }
+ *flags = PERL_SCAN_GREATER_THAN_UV_MAX;
+ if (result)
+ *result = value_nv;
+ return UV_MAX;
+}
+#endif
+#endif
+
+#if !defined(my_snprintf)
+#if defined(NEED_my_snprintf)
+static int DPPP_(my_my_snprintf)(char * buffer, const Size_t len, const char * format, ...);
+static
+#else
+extern int DPPP_(my_my_snprintf)(char * buffer, const Size_t len, const char * format, ...);
+#endif
+
+#if defined(NEED_my_snprintf) || defined(NEED_my_snprintf_GLOBAL)
+
+#define my_snprintf DPPP_(my_my_snprintf)
+#define Perl_my_snprintf DPPP_(my_my_snprintf)
+
+
+int
+DPPP_(my_my_snprintf)(char *buffer, const Size_t len, const char *format, ...)
+{
+ dTHX;
+ int retval;
+ va_list ap;
+ va_start(ap, format);
+#ifdef HAS_VSNPRINTF
+ retval = vsnprintf(buffer, len, format, ap);
+#else
+ retval = vsprintf(buffer, format, ap);
+#endif
+ va_end(ap);
+ if (retval < 0 || (len > 0 && (Size_t)retval >= len))
+ Perl_croak(aTHX_ "panic: my_snprintf buffer overflow");
+ return retval;
+}
+
+#endif
+#endif
+
+#if !defined(my_sprintf)
+#if defined(NEED_my_sprintf)
+static int DPPP_(my_my_sprintf)(char * buffer, const char * pat, ...);
+static
+#else
+extern int DPPP_(my_my_sprintf)(char * buffer, const char * pat, ...);
+#endif
+
+#if defined(NEED_my_sprintf) || defined(NEED_my_sprintf_GLOBAL)
+
+#define my_sprintf DPPP_(my_my_sprintf)
+
+
+/* Warning: my_sprintf
+ It's safer to use my_snprintf instead
+*/
+
+/* Replace my_sprintf with my_snprintf */
+
+int
+DPPP_(my_my_sprintf)(char *buffer, const char* pat, ...)
+{
+ va_list args;
+ va_start(args, pat);
+ vsprintf(buffer, pat, args);
+ va_end(args);
+ return strlen(buffer);
+}
+
+#endif
+#endif
+
+#ifdef NO_XSLOCKS
+# ifdef dJMPENV
+# define dXCPT dJMPENV; int rEtV = 0
+# define XCPT_TRY_START JMPENV_PUSH(rEtV); if (rEtV == 0)
+# define XCPT_TRY_END JMPENV_POP;
+# define XCPT_CATCH if (rEtV != 0)
+# define XCPT_RETHROW JMPENV_JUMP(rEtV)
+# else
+# define dXCPT Sigjmp_buf oldTOP; int rEtV = 0
+# define XCPT_TRY_START Copy(top_env, oldTOP, 1, Sigjmp_buf); rEtV = Sigsetjmp(top_env, 1); if (rEtV == 0)
+# define XCPT_TRY_END Copy(oldTOP, top_env, 1, Sigjmp_buf);
+# define XCPT_CATCH if (rEtV != 0)
+# define XCPT_RETHROW Siglongjmp(top_env, rEtV)
+# endif
+#endif
+
+#if !defined(my_strlcat)
+#if defined(NEED_my_strlcat)
+static Size_t DPPP_(my_my_strlcat)(char * dst, const char * src, Size_t size);
+static
+#else
+extern Size_t DPPP_(my_my_strlcat)(char * dst, const char * src, Size_t size);
+#endif
+
+#if defined(NEED_my_strlcat) || defined(NEED_my_strlcat_GLOBAL)
+
+#define my_strlcat DPPP_(my_my_strlcat)
+#define Perl_my_strlcat DPPP_(my_my_strlcat)
+
+
+Size_t
+DPPP_(my_my_strlcat)(char *dst, const char *src, Size_t size)
+{
+ Size_t used, length, copy;
+
+ used = strlen(dst);
+ length = strlen(src);
+ if (size > 0 && used < size - 1) {
+ copy = (length >= size - used) ? size - used - 1 : length;
+ memcpy(dst + used, src, copy);
+ dst[used + copy] = '\0';
+ }
+ return used + length;
+}
+#endif
+#endif
+
+#if !defined(my_strlcpy)
+#if defined(NEED_my_strlcpy)
+static Size_t DPPP_(my_my_strlcpy)(char * dst, const char * src, Size_t size);
+static
+#else
+extern Size_t DPPP_(my_my_strlcpy)(char * dst, const char * src, Size_t size);
+#endif
+
+#if defined(NEED_my_strlcpy) || defined(NEED_my_strlcpy_GLOBAL)
+
+#define my_strlcpy DPPP_(my_my_strlcpy)
+#define Perl_my_strlcpy DPPP_(my_my_strlcpy)
+
+
+Size_t
+DPPP_(my_my_strlcpy)(char *dst, const char *src, Size_t size)
+{
+ Size_t length, copy;
+
+ length = strlen(src);
+ if (size > 0) {
+ copy = (length >= size) ? size - 1 : length;
+ memcpy(dst, src, copy);
+ dst[copy] = '\0';
+ }
+ return length;
+}
+
+#endif
+#endif
+
+#ifdef SVf_UTF8
+#ifndef SvUTF8
+# define SvUTF8(sv) (SvFLAGS(sv) & SVf_UTF8)
+#endif
+
+#endif
+
+#if (PERL_BCDVERSION == 0x5019001) /* 5.19.1 does not have UTF8fARG, only broken UTF8f */
+#undef UTF8f
+#endif
+
+#ifdef SVf_UTF8
+#ifndef UTF8f
+# define UTF8f SVf
+#endif
+
+#ifndef UTF8fARG
+# define UTF8fARG(u,l,p) newSVpvn_flags((p), (l), ((u) ? SVf_UTF8 : 0) | SVs_TEMP)
+#endif
+
+#endif
+
+#define D_PPP_MIN(a,b) (((a) <= (b)) ? (a) : (b))
+#ifndef UNICODE_REPLACEMENT
+# define UNICODE_REPLACEMENT 0xFFFD
+#endif
+
+#ifdef UTF8_MAXLEN
+#ifndef UTF8_MAXBYTES
+# define UTF8_MAXBYTES UTF8_MAXLEN
+#endif
+
+#endif
+#ifndef UTF_START_MARK
+# define UTF_START_MARK(len) \
+ (((len) > 7) ? 0xFF : (0xFF & (0xFE << (7-(len)))))
+#endif
+
+/* On non-EBCDIC was valid for some releases earlier than this, but easier to
+ * just do one check */
+#if (PERL_BCDVERSION < 0x5018000)
+# undef UTF8_MAXBYTES_CASE
+#endif
+
+#if 'A' == 65
+# define D_PPP_BYTE_INFO_BITS 6 /* 6 bits meaningful in continuation bytes */
+#ifndef UTF8_MAXBYTES_CASE
+# define UTF8_MAXBYTES_CASE 13
+#endif
+
+#else
+# define D_PPP_BYTE_INFO_BITS 5 /* 5 bits meaningful in continuation bytes */
+#ifndef UTF8_MAXBYTES_CASE
+# define UTF8_MAXBYTES_CASE 15
+#endif
+
+#endif
+#ifndef UTF_ACCUMULATION_SHIFT
+# define UTF_ACCUMULATION_SHIFT D_PPP_BYTE_INFO_BITS
+#endif
+
+#ifdef NATIVE_TO_UTF
+#ifndef NATIVE_UTF8_TO_I8
+# define NATIVE_UTF8_TO_I8(c) NATIVE_TO_UTF(c)
+#endif
+
+#else /* System doesn't support EBCDIC */
+#ifndef NATIVE_UTF8_TO_I8
+# define NATIVE_UTF8_TO_I8(c) (c)
+#endif
+
+#endif
+
+#ifdef UTF_TO_NATIVE
+#ifndef I8_TO_NATIVE_UTF8
+# define I8_TO_NATIVE_UTF8(c) UTF_TO_NATIVE(c)
+#endif
+
+#else /* System doesn't support EBCDIC */
+#ifndef I8_TO_NATIVE_UTF8
+# define I8_TO_NATIVE_UTF8(c) (c)
+#endif
+
+#endif
+#ifndef UTF_START_MASK
+# define UTF_START_MASK(len) \
+ (((len) >= 7) ? 0x00 : (0x1F >> ((len)-2)))
+#endif
+
+#ifndef UTF_IS_CONTINUATION_MASK
+# define UTF_IS_CONTINUATION_MASK \
+ ((U8) (0xFF << UTF_ACCUMULATION_SHIFT))
+#endif
+
+#ifndef UTF_CONTINUATION_MARK
+# define UTF_CONTINUATION_MARK \
+ (UTF_IS_CONTINUATION_MASK & 0xB0)
+#endif
+
+#ifndef UTF_MIN_START_BYTE
+# define UTF_MIN_START_BYTE \
+ ((UTF_CONTINUATION_MARK >> UTF_ACCUMULATION_SHIFT) | UTF_START_MARK(2))
+#endif
+#ifndef UTF_MIN_ABOVE_LATIN1_BYTE
+# define UTF_MIN_ABOVE_LATIN1_BYTE \
+ ((0x100 >> UTF_ACCUMULATION_SHIFT) | UTF_START_MARK(2))
+#endif
+
+#if (PERL_BCDVERSION < 0x5007000) /* Was the complement of what should have been */
+# undef UTF8_IS_DOWNGRADEABLE_START
+#endif
+#ifndef UTF8_IS_DOWNGRADEABLE_START
+# define UTF8_IS_DOWNGRADEABLE_START(c) \
+ inRANGE(NATIVE_UTF8_TO_I8(c), \
+ UTF_MIN_START_BYTE, UTF_MIN_ABOVE_LATIN1_BYTE - 1)
+#endif
+
+#ifndef UTF_CONTINUATION_MASK
+# define UTF_CONTINUATION_MASK \
+ ((U8) ((1U << UTF_ACCUMULATION_SHIFT) - 1))
+#endif
+#ifndef UTF8_ACCUMULATE
+# define UTF8_ACCUMULATE(base, added) \
+ (((base) << UTF_ACCUMULATION_SHIFT) \
+ | ((NATIVE_UTF8_TO_I8(added)) \
+ & UTF_CONTINUATION_MASK))
+#endif
+#ifndef UTF8_ALLOW_ANYUV
+# define UTF8_ALLOW_ANYUV 0
+#endif
+
+#ifndef UTF8_ALLOW_EMPTY
+# define UTF8_ALLOW_EMPTY 0x0001
+#endif
+
+#ifndef UTF8_ALLOW_CONTINUATION
+# define UTF8_ALLOW_CONTINUATION 0x0002
+#endif
+
+#ifndef UTF8_ALLOW_NON_CONTINUATION
+# define UTF8_ALLOW_NON_CONTINUATION 0x0004
+#endif
+
+#ifndef UTF8_ALLOW_SHORT
+# define UTF8_ALLOW_SHORT 0x0008
+#endif
+
+#ifndef UTF8_ALLOW_LONG
+# define UTF8_ALLOW_LONG 0x0010
+#endif
+
+#ifndef UTF8_ALLOW_OVERFLOW
+# define UTF8_ALLOW_OVERFLOW 0x0080
+#endif
+
+#ifndef UTF8_ALLOW_ANY
+# define UTF8_ALLOW_ANY ( UTF8_ALLOW_CONTINUATION \
+ |UTF8_ALLOW_NON_CONTINUATION \
+ |UTF8_ALLOW_SHORT \
+ |UTF8_ALLOW_LONG \
+ |UTF8_ALLOW_OVERFLOW)
+#endif
+
+#if defined UTF8SKIP
+
+/* Don't use official versions because they use MIN, which may not be available */
+#undef UTF8_SAFE_SKIP
+#undef UTF8_CHK_SKIP
+#ifndef UTF8_SAFE_SKIP
+# define UTF8_SAFE_SKIP(s, e) ( \
+ ((((e) - (s)) <= 0) \
+ ? 0 \
+ : D_PPP_MIN(((e) - (s)), UTF8SKIP(s))))
+#endif
+#ifndef UTF8_CHK_SKIP
+# define UTF8_CHK_SKIP(s) \
+ (s[0] == '\0' ? 1 : ((U8) D_PPP_MIN(my_strnlen((char *) (s), UTF8SKIP(s)), \
+ UTF8SKIP(s))))
+#endif
+
+/* UTF8_CHK_SKIP depends on my_strnlen */
+#ifndef UTF8_SKIP
+# define UTF8_SKIP(s) UTF8SKIP(s)
+#endif
+
+#endif
+
+#if 'A' == 65
+#ifndef UTF8_IS_INVARIANT
+# define UTF8_IS_INVARIANT(c) isASCII(c)
+#endif
+
+#else
+#ifndef UTF8_IS_INVARIANT
+# define UTF8_IS_INVARIANT(c) (isASCII(c) || isCNTRL_L1(c))
+#endif
+
+#endif
+#ifndef UVCHR_IS_INVARIANT
+# define UVCHR_IS_INVARIANT(c) UTF8_IS_INVARIANT(c)
+#endif
+
+#ifdef UVCHR_IS_INVARIANT
+# if 'A' != 65 || UVSIZE < 8
+ /* 32 bit platform, which includes UTF-EBCDIC on the releases this is
+ * backported to */
+# define D_PPP_UVCHR_SKIP_UPPER(c) 7
+# else
+# define D_PPP_UVCHR_SKIP_UPPER(c) \
+ (((WIDEST_UTYPE) (c)) < \
+ (((WIDEST_UTYPE) 1) << (6 * D_PPP_BYTE_INFO_BITS)) ? 7 : 13)
+# endif
+#ifndef UVCHR_SKIP
+# define UVCHR_SKIP(c) \
+ UVCHR_IS_INVARIANT(c) ? 1 : \
+ (WIDEST_UTYPE) (c) < (32 * (1U << ( D_PPP_BYTE_INFO_BITS))) ? 2 : \
+ (WIDEST_UTYPE) (c) < (16 * (1U << (2 * D_PPP_BYTE_INFO_BITS))) ? 3 : \
+ (WIDEST_UTYPE) (c) < ( 8 * (1U << (3 * D_PPP_BYTE_INFO_BITS))) ? 4 : \
+ (WIDEST_UTYPE) (c) < ( 4 * (1U << (4 * D_PPP_BYTE_INFO_BITS))) ? 5 : \
+ (WIDEST_UTYPE) (c) < ( 2 * (1U << (5 * D_PPP_BYTE_INFO_BITS))) ? 6 : \
+ D_PPP_UVCHR_SKIP_UPPER(c)
+#endif
+
+#endif
+
+#ifdef is_ascii_string
+#ifndef is_invariant_string
+# define is_invariant_string(s,l) is_ascii_string(s,l)
+#endif
+
+#ifndef is_utf8_invariant_string
+# define is_utf8_invariant_string(s,l) is_ascii_string(s,l)
+#endif
+
+/* Hint: is_ascii_string, is_invariant_string
+ is_utf8_invariant_string() does the same thing and is preferred because its
+ name is more accurate as to what it does */
+#endif
+
+#ifdef ibcmp_utf8
+#ifndef foldEQ_utf8
+# define foldEQ_utf8(s1,pe1,l1,u1,s2,pe2,l2,u2) \
+ cBOOL(! ibcmp_utf8(s1,pe1,l1,u1,s2,pe2,l2,u2))
+#endif
+
+#endif
+
+#if defined(is_utf8_string) && defined(UTF8SKIP)
+#ifndef isUTF8_CHAR
+# define isUTF8_CHAR(s, e) ( \
+ (e) <= (s) || ! is_utf8_string(s, UTF8_SAFE_SKIP(s, e)) \
+ ? 0 \
+ : UTF8SKIP(s))
+#endif
+
+#endif
+
+#if 'A' == 65
+#ifndef BOM_UTF8
+# define BOM_UTF8 "\xEF\xBB\xBF"
+#endif
+
+#ifndef REPLACEMENT_CHARACTER_UTF8
+# define REPLACEMENT_CHARACTER_UTF8 "\xEF\xBF\xBD"
+#endif
+
+#elif '^' == 95
+#ifndef BOM_UTF8
+# define BOM_UTF8 "\xDD\x73\x66\x73"
+#endif
+
+#ifndef REPLACEMENT_CHARACTER_UTF8
+# define REPLACEMENT_CHARACTER_UTF8 "\xDD\x73\x73\x71"
+#endif
+
+#elif '^' == 176
+#ifndef BOM_UTF8
+# define BOM_UTF8 "\xDD\x72\x65\x72"
+#endif
+
+#ifndef REPLACEMENT_CHARACTER_UTF8
+# define REPLACEMENT_CHARACTER_UTF8 "\xDD\x72\x72\x70"
+#endif
+
+#else
+# error Unknown character set
+#endif
+
+#if (PERL_BCDVERSION < 0x5035010)
+ /* Versions prior to 5.31.4 accepted things that are now considered
+ * malformations, and didn't return -1 on error with warnings enabled.
+ * Versions before 5.35.10 dereferenced empty input without checking */
+# undef utf8_to_uvchr_buf
+#endif
+
+/* This implementation brings modern, generally more restricted standards to
+ * utf8_to_uvchr_buf. Some of these are security related, and clearly must
+ * be done. But its arguable that the others need not, and hence should not.
+ * The reason they're here is that a module that intends to play with the
+ * latest perls should be able to work the same in all releases. An example is
+ * that perl no longer accepts any UV for a code point, but limits them to
+ * IV_MAX or below. This is for future internal use of the larger code points.
+ * If it turns out that some of these changes are breaking code that isn't
+ * intended to work with modern perls, the tighter restrictions could be
+ * relaxed. khw thinks this is unlikely, but has been wrong in the past. */
+
+/* 5.6.0 is the first release with UTF-8, and we don't implement this function
+ * there due to its likely lack of still being in use, and the underlying
+ * implementation is very different from later ones, without the later
+ * safeguards, so would require extra work to deal with */
+#if (PERL_BCDVERSION >= 0x5006001) && ! defined(utf8_to_uvchr_buf)
+ /* Choose which underlying implementation to use. At least one must be
+ * present or the perl is too early to handle this function */
+# if defined(utf8n_to_uvchr) || defined(utf8_to_uvchr) || defined(utf8_to_uv)
+# if defined(utf8n_to_uvchr) /* This is the preferred implementation */
+# define D_PPP_utf8_to_uvchr_buf_callee utf8n_to_uvchr
+# elif /* Must be at least 5.6.1 from #if above; \
+ If have both regular and _simple, regular has all args */ \
+ defined(utf8_to_uv) && defined(utf8_to_uv_simple)
+# define D_PPP_utf8_to_uvchr_buf_callee utf8_to_uv
+# elif defined(utf8_to_uvchr) /* The below won't work well on error input */
+# define D_PPP_utf8_to_uvchr_buf_callee(s, curlen, retlen, flags) \
+ utf8_to_uvchr((U8 *)(s), (retlen))
+# else
+# define D_PPP_utf8_to_uvchr_buf_callee(s, curlen, retlen, flags) \
+ utf8_to_uv((U8 *)(s), (retlen))
+# endif
+# endif
+
+# if defined(NEED_utf8_to_uvchr_buf)
+static UV DPPP_(my_utf8_to_uvchr_buf)(pTHX_ const U8 * s, const U8 * send, STRLEN * retlen);
+static
+#else
+extern UV DPPP_(my_utf8_to_uvchr_buf)(pTHX_ const U8 * s, const U8 * send, STRLEN * retlen);
+#endif
+
+#if defined(NEED_utf8_to_uvchr_buf) || defined(NEED_utf8_to_uvchr_buf_GLOBAL)
+
+#ifdef utf8_to_uvchr_buf
+# undef utf8_to_uvchr_buf
+#endif
+#define utf8_to_uvchr_buf(a,b,c) DPPP_(my_utf8_to_uvchr_buf)(aTHX_ a,b,c)
+#define Perl_utf8_to_uvchr_buf DPPP_(my_utf8_to_uvchr_buf)
+
+
+UV
+DPPP_(my_utf8_to_uvchr_buf)(pTHX_ const U8 *s, const U8 *send, STRLEN *retlen)
+{
+# if (PERL_BCDVERSION >= 0x5031004) /* But from above, must be < 5.35.10 */
+# if (PERL_BCDVERSION != 0x5035009)
+
+ /* Versions less than 5.35.9 could dereference s on zero length, so
+ * pass it something where no harm comes from that. */
+ if (send <= s) s = send = (U8 *) "?";
+ return Perl_utf8_to_uvchr_buf_helper(aTHX_ s, send, retlen);
+
+# else /* Below is 5.35.9, which also works on non-empty input, but
+ for empty input, can wrongly dereference, and additionally is
+ also just plain broken */
+ if (send > s) return Perl_utf8_to_uvchr_buf_helper(aTHX_ s, send, retlen);
+ if (! ckWARN_d(WARN_UTF8)) {
+ if (retlen) *retlen = 0;
+ return UNICODE_REPLACEMENT;
+ }
+ else {
+ s = send = (U8 *) "?";
+
+ /* Call just for its warning */
+ (void) Perl__utf8n_to_uvchr_msgs_helper(s, 0, NULL, 0, NULL, NULL);
+ if (retlen) *retlen = (STRLEN) -1;
+ return 0;
+ }
+
+# endif
+# else
+
+ UV ret;
+ STRLEN curlen;
+ bool overflows = 0;
+ const U8 *cur_s = s;
+ const bool do_warnings = ckWARN_d(WARN_UTF8);
+# if (PERL_BCDVERSION < 0x5026000) && ! defined(EBCDIC)
+ STRLEN overflow_length = 0;
+# endif
+
+ if (send > s) {
+ curlen = send - s;
+ }
+ else {
+ assert(0); /* Modern perls die under this circumstance */
+ curlen = 0;
+ if (! do_warnings) { /* Handle empty here if no warnings needed */
+ if (retlen) *retlen = 0;
+ return UNICODE_REPLACEMENT;
+ }
+ }
+
+# if (PERL_BCDVERSION < 0x5026000) && ! defined(EBCDIC)
+
+ /* Perl did not properly detect overflow for much of its history on
+ * non-EBCDIC platforms, often returning an overlong value which may or may
+ * not have been tolerated in the call. Also, earlier versions, when they
+ * did detect overflow, may have disallowed it completely. Modern ones can
+ * replace it with the REPLACEMENT CHARACTER, depending on calling
+ * parameters. Therefore detect it ourselves in releases it was
+ * problematic in. */
+
+ if (curlen > 0 && UNLIKELY(*s >= 0xFE)) {
+
+ /* First, on a 32-bit machine the first byte being at least \xFE
+ * automatically is overflow, as it indicates something requiring more
+ * than 31 bits */
+ if (sizeof(ret) < 8) {
+ overflows = 1;
+ overflow_length = (*s == 0xFE) ? 7 : 13;
+ }
+ else {
+ const U8 highest[] = /* 2*63-1 */
+ "\xFF\x80\x87\xBF\xBF\xBF\xBF\xBF\xBF\xBF\xBF\xBF\xBF";
+ const U8 *cur_h = highest;
+
+ for (cur_s = s; cur_s < send; cur_s++, cur_h++) {
+ if (UNLIKELY(*cur_s == *cur_h)) {
+ continue;
+ }
+
+ /* If this byte is larger than the corresponding highest UTF-8
+ * byte, the sequence overflows; otherwise the byte is less
+ * than (as we handled the equality case above), and so the
+ * sequence doesn't overflow */
+ overflows = *cur_s > *cur_h;
+ break;
+
+ }
+
+ /* Here, either we set the bool and broke out of the loop, or got
+ * to the end and all bytes are the same which indicates it doesn't
+ * overflow. If it did overflow, it would be this number of bytes
+ * */
+ overflow_length = 13;
+ }
+ }
+
+ if (UNLIKELY(overflows)) {
+ ret = 0;
+
+ if (! do_warnings && retlen) {
+ *retlen = overflow_length;
+ }
+ }
+ else
+
+# endif /* < 5.26 */
+
+ /* Here, we are either in a release that properly detects overflow, or
+ * we have checked for overflow and the next statement is executing as
+ * part of the above conditional where we know we don't have overflow.
+ *
+ * The modern versions allow anything that evaluates to a legal UV, but
+ * not overlongs nor an empty input */
+ ret = D_PPP_utf8_to_uvchr_buf_callee(
+ (U8 *) /* Early perls: no const */
+ s, curlen, retlen, (UTF8_ALLOW_ANYUV
+ & ~(UTF8_ALLOW_LONG|UTF8_ALLOW_EMPTY)));
+
+# if (PERL_BCDVERSION >= 0x5026000) && (PERL_BCDVERSION < 0x5028000)
+
+ /* But actually, more modern versions restrict the UV to being no more than
+ * what an IV can hold, so it could still have gotten it wrong about
+ * overflowing. */
+ if (UNLIKELY(ret > IV_MAX)) {
+ overflows = 1;
+ }
+
+# endif
+
+ if (UNLIKELY(overflows)) {
+ if (! do_warnings) {
+ if (retlen) {
+ *retlen = D_PPP_MIN(*retlen, UTF8SKIP(s));
+ *retlen = D_PPP_MIN(*retlen, curlen);
+ }
+ return UNICODE_REPLACEMENT;
+ }
+ else {
+
+ /* We use the error message in use from 5.8-5.26 */
+ Perl_warner(aTHX_ packWARN(WARN_UTF8),
+ "Malformed UTF-8 character (overflow at 0x%" UVxf
+ ", byte 0x%02x, after start byte 0x%02x)",
+ ret, *cur_s, *s);
+ if (retlen) {
+ *retlen = (STRLEN) -1;
+ }
+ return 0;
+ }
+ }
+
+ /* Here, did not overflow, but if it failed for some other reason, and
+ * warnings are off, to emulate the behavior of the real utf8_to_uvchr(),
+ * try again, allowing anything. (Note a return of 0 is ok if the input
+ * was '\0') */
+ if (UNLIKELY(ret == 0 && (curlen == 0 || *s != '\0'))) {
+
+ /* If curlen is 0, we already handled the case where warnings are
+ * disabled, so this 'if' will be true, and so later on, we know that
+ * 's' is dereferencible */
+ if (do_warnings) {
+ if (retlen) {
+ *retlen = (STRLEN) -1;
+ }
+ }
+ else {
+ ret = D_PPP_utf8_to_uvchr_buf_callee(
+ (U8 *) /* Early perls: no const */
+ s, curlen, retlen, UTF8_ALLOW_ANY);
+ /* Override with the REPLACEMENT character, as that is what the
+ * modern version of this function returns */
+ ret = UNICODE_REPLACEMENT;
+
+# if (PERL_BCDVERSION < 0x5016000)
+
+ /* Versions earlier than this don't necessarily return the proper
+ * length. It should not extend past the end of string, nor past
+ * what the first byte indicates the length is, nor past the
+ * continuation characters */
+ if (retlen && (IV) *retlen >= 0) {
+ unsigned int i = 1;
+
+ *retlen = D_PPP_MIN(*retlen, curlen);
+ *retlen = D_PPP_MIN(*retlen, UTF8SKIP(s));
+ do {
+# ifdef UTF8_IS_CONTINUATION
+ if (! UTF8_IS_CONTINUATION(s[i]))
+# else /* Versions without the above don't support EBCDIC anyway */
+ if (s[i] < 0x80 || s[i] > 0xBF)
+# endif
+ {
+ *retlen = i;
+ break;
+ }
+ } while (++i < *retlen);
+ }
+
+# endif /* end of < 5.16.0 */
+
+ }
+ }
+
+ return ret;
+
+# endif /* end of < 5.31.4 */
+
+}
+
+# endif
+#endif
+
+#if defined(UTF8SKIP) && defined(utf8_to_uvchr_buf)
+#undef utf8_to_uvchr /* Always redefine this unsafe function so that it refuses
+ to read past a NUL, making it much less likely to read
+ off the end of the buffer. A NUL indicates the start
+ of the next character anyway. If the input isn't
+ NUL-terminated, the function remains unsafe, as it
+ always has been. */
+#ifndef utf8_to_uvchr
+# define utf8_to_uvchr(s, lp) \
+ ((*(s) == '\0') \
+ ? utf8_to_uvchr_buf(s,((s)+1), lp) /* Handle single NUL specially */ \
+ : utf8_to_uvchr_buf(s, (s) + UTF8_CHK_SKIP(s), (lp)))
+#endif
+
+#endif
+
+/* Hint: utf8_to_uvchr
+ Use utf8_to_uvchr_buf() instead. But ONLY if you KNOW the upper bound
+ of the input string (not resorting to using UTF8SKIP, etc., to infer it).
+ The backported utf8_to_uvchr() will do a better job to prevent most cases
+ of trying to read beyond the end of the buffer */
+
+/* Replace utf8_to_uvchr with utf8_to_uvchr_buf */
+
+#ifdef sv_len_utf8
+# if (PERL_BCDVERSION >= 0x5017005)
+# ifndef sv_len_utf8_nomg
+# if defined(PERL_USE_GCC_BRACE_GROUPS)
+# define sv_len_utf8_nomg(sv) \
+ ({ \
+ SV *sv_ = (sv); \
+ sv_len_utf8(!SvGMAGICAL(sv_) \
+ ? sv_ \
+ : sv_mortalcopy_flags(sv_, SV_NOSTEAL)); \
+ })
+# else
+ PERL_STATIC_INLINE STRLEN D_PPP_sv_len_utf8_nomg(SV * sv)
+ {
+ dTHX;
+ if (SvGMAGICAL(sv))
+ return sv_len_utf8(sv_mortalcopy_flags(sv,
+ SV_NOSTEAL));
+ else return sv_len_utf8(sv);
+ }
+# define sv_len_utf8_nomg(sv) D_PPP_sv_len_utf8_nomg(sv)
+# endif
+# endif
+# else /* < 5.17.5 */
+ /* Older Perl versions have broken sv_len_utf8() when passed sv does not
+ * have SVf_UTF8 flag set */
+ /* Also note that SvGETMAGIC() may change presence of SVf_UTF8 flag */
+# undef sv_len_utf8
+# if defined(PERL_USE_GCC_BRACE_GROUPS)
+# define sv_len_utf8_nomg(sv) \
+ ({ \
+ SV *sv2 = (sv); \
+ STRLEN len; \
+ if (SvUTF8(sv2)) { \
+ if (SvGMAGICAL(sv2)) \
+ len = Perl_sv_len_utf8(aTHX_ \
+ sv_mortalcopy_flags(sv2, \
+ SV_NOSTEAL));\
+ else \
+ len = Perl_sv_len_utf8(aTHX_ sv2); \
+ } \
+ else SvPV_nomg(sv2, len); \
+ len; \
+ })
+# define sv_len_utf8(sv) ({ SV *_sv1 = (sv); \
+ SvGETMAGIC(_sv1); \
+ sv_len_utf8_nomg(_sv1); \
+ })
+# else /* Below is no brace groups */
+ PERL_STATIC_INLINE STRLEN D_PPP_sv_len_utf8_nomg(SV * sv)
+ {
+ dTHX;
+ STRLEN len;
+ if (SvUTF8(sv)) {
+ if (SvGMAGICAL(sv))
+ len = Perl_sv_len_utf8(aTHX_
+ sv_mortalcopy_flags(sv,
+ SV_NOSTEAL));
+ else
+ len = Perl_sv_len_utf8(aTHX_ sv);
+ }
+ else SvPV_nomg(sv, len);
+ return len;
+ }
+# define sv_len_utf8_nomg(sv) D_PPP_sv_len_utf8_nomg(sv)
+
+ PERL_STATIC_INLINE STRLEN D_PPP_sv_len_utf8(SV * sv)
+ {
+ dTHX;
+ SvGETMAGIC(sv);
+ return sv_len_utf8_nomg(sv);
+ }
+# define sv_len_utf8(sv) D_PPP_sv_len_utf8(sv)
+# endif
+# endif /* End of < 5.17.5 */
+#endif
+#ifndef PERL_PV_ESCAPE_QUOTE
+# define PERL_PV_ESCAPE_QUOTE 0x0001
+#endif
+
+#ifndef PERL_PV_PRETTY_QUOTE
+# define PERL_PV_PRETTY_QUOTE PERL_PV_ESCAPE_QUOTE
+#endif
+
+#ifndef PERL_PV_PRETTY_ELLIPSES
+# define PERL_PV_PRETTY_ELLIPSES 0x0002
+#endif
+
+#ifndef PERL_PV_PRETTY_LTGT
+# define PERL_PV_PRETTY_LTGT 0x0004
+#endif
+
+#ifndef PERL_PV_ESCAPE_FIRSTCHAR
+# define PERL_PV_ESCAPE_FIRSTCHAR 0x0008
+#endif
+
+#ifndef PERL_PV_ESCAPE_UNI
+# define PERL_PV_ESCAPE_UNI 0x0100
+#endif
+
+#ifndef PERL_PV_ESCAPE_UNI_DETECT
+# define PERL_PV_ESCAPE_UNI_DETECT 0x0200
+#endif
+
+#ifndef PERL_PV_ESCAPE_ALL
+# define PERL_PV_ESCAPE_ALL 0x1000
+#endif
+
+#ifndef PERL_PV_ESCAPE_NOBACKSLASH
+# define PERL_PV_ESCAPE_NOBACKSLASH 0x2000
+#endif
+
+#ifndef PERL_PV_ESCAPE_NOCLEAR
+# define PERL_PV_ESCAPE_NOCLEAR 0x4000
+#endif
+
+#ifndef PERL_PV_ESCAPE_RE
+# define PERL_PV_ESCAPE_RE 0x8000
+#endif
+
+#ifndef PERL_PV_PRETTY_NOCLEAR
+# define PERL_PV_PRETTY_NOCLEAR PERL_PV_ESCAPE_NOCLEAR
+#endif
+#ifndef PERL_PV_PRETTY_DUMP
+# define PERL_PV_PRETTY_DUMP PERL_PV_PRETTY_ELLIPSES|PERL_PV_PRETTY_QUOTE
+#endif
+
+#ifndef PERL_PV_PRETTY_REGPROP
+# define PERL_PV_PRETTY_REGPROP PERL_PV_PRETTY_ELLIPSES|PERL_PV_PRETTY_LTGT|PERL_PV_ESCAPE_RE
+#endif
+
+/* Hint: pv_escape
+ * Note that unicode functionality is only backported to
+ * those perl versions that support it. For older perl
+ * versions, the implementation will fall back to bytes.
+ */
+
+#ifndef pv_escape
+#if defined(NEED_pv_escape)
+static char * DPPP_(my_pv_escape)(pTHX_ SV * dsv, char const * const str, const STRLEN count, const STRLEN max, STRLEN * const escaped, const U32 flags);
+static
+#else
+extern char * DPPP_(my_pv_escape)(pTHX_ SV * dsv, char const * const str, const STRLEN count, const STRLEN max, STRLEN * const escaped, const U32 flags);
+#endif
+
+#if defined(NEED_pv_escape) || defined(NEED_pv_escape_GLOBAL)
+
+#ifdef pv_escape
+# undef pv_escape
+#endif
+#define pv_escape(a,b,c,d,e,f) DPPP_(my_pv_escape)(aTHX_ a,b,c,d,e,f)
+#define Perl_pv_escape DPPP_(my_pv_escape)
+
+
+char *
+DPPP_(my_pv_escape)(pTHX_ SV *dsv, char const * const str,
+ const STRLEN count, const STRLEN max,
+ STRLEN * const escaped, const U32 flags)
+{
+ const char esc = flags & PERL_PV_ESCAPE_RE ? '%' : '\\';
+ const char dq = flags & PERL_PV_ESCAPE_QUOTE ? '"' : esc;
+ char octbuf[32] = "%123456789ABCDF";
+ STRLEN wrote = 0;
+ STRLEN chsize = 0;
+ STRLEN readsize = 1;
+#if defined(is_utf8_string) && defined(utf8_to_uvchr_buf)
+ bool isuni = flags & PERL_PV_ESCAPE_UNI ? 1 : 0;
+#endif
+ const char *pv = str;
+ const char * const end = pv + count;
+ octbuf[0] = esc;
+
+ if (!(flags & PERL_PV_ESCAPE_NOCLEAR))
+ sv_setpvs(dsv, "");
+
+#if defined(is_utf8_string) && defined(utf8_to_uvchr_buf)
+ if ((flags & PERL_PV_ESCAPE_UNI_DETECT) && is_utf8_string((U8*)pv, count))
+ isuni = 1;
+#endif
+
+ for (; pv < end && (!max || wrote < max) ; pv += readsize) {
+ const UV u =
+#if defined(is_utf8_string) && defined(utf8_to_uvchr_buf)
+ isuni ? utf8_to_uvchr_buf((U8*)pv, end, &readsize) :
+#endif
+ (U8)*pv;
+ const U8 c = (U8)u & 0xFF;
+
+ if (u > 255 || (flags & PERL_PV_ESCAPE_ALL)) {
+ if (flags & PERL_PV_ESCAPE_FIRSTCHAR)
+ chsize = my_snprintf(octbuf, sizeof octbuf,
+ "%" UVxf, u);
+ else
+ chsize = my_snprintf(octbuf, sizeof octbuf,
+ "%cx{%" UVxf "}", esc, u);
+ } else if (flags & PERL_PV_ESCAPE_NOBACKSLASH) {
+ chsize = 1;
+ } else {
+ if (c == dq || c == esc || !isPRINT(c)) {
+ chsize = 2;
+ switch (c) {
+ case '\\' : /* fallthrough */
+ case '%' : if (c == esc)
+ octbuf[1] = esc;
+ else
+ chsize = 1;
+ break;
+ case '\v' : octbuf[1] = 'v'; break;
+ case '\t' : octbuf[1] = 't'; break;
+ case '\r' : octbuf[1] = 'r'; break;
+ case '\n' : octbuf[1] = 'n'; break;
+ case '\f' : octbuf[1] = 'f'; break;
+ case '"' : if (dq == '"')
+ octbuf[1] = '"';
+ else
+ chsize = 1;
+ break;
+ default: chsize = my_snprintf(octbuf, sizeof octbuf,
+ pv < end && isDIGIT((U8)*(pv+readsize))
+ ? "%c%03o" : "%c%o", esc, c);
+ }
+ } else {
+ chsize = 1;
+ }
+ }
+ if (max && wrote + chsize > max) {
+ break;
+ } else if (chsize > 1) {
+ sv_catpvn(dsv, octbuf, chsize);
+ wrote += chsize;
+ } else {
+ char tmp[2];
+ my_snprintf(tmp, sizeof tmp, "%c", c);
+ sv_catpvn(dsv, tmp, 1);
+ wrote++;
+ }
+ if (flags & PERL_PV_ESCAPE_FIRSTCHAR)
+ break;
+ }
+ if (escaped != NULL)
+ *escaped= pv - str;
+ return SvPVX(dsv);
+}
+
+#endif
+#endif
+
+#ifndef pv_pretty
+#if defined(NEED_pv_pretty)
+static char * DPPP_(my_pv_pretty)(pTHX_ SV * dsv, char const * const str, const STRLEN count, const STRLEN max, char const * const start_color, char const * const end_color, const U32 flags);
+static
+#else
+extern char * DPPP_(my_pv_pretty)(pTHX_ SV * dsv, char const * const str, const STRLEN count, const STRLEN max, char const * const start_color, char const * const end_color, const U32 flags);
+#endif
+
+#if defined(NEED_pv_pretty) || defined(NEED_pv_pretty_GLOBAL)
+
+#ifdef pv_pretty
+# undef pv_pretty
+#endif
+#define pv_pretty(a,b,c,d,e,f,g) DPPP_(my_pv_pretty)(aTHX_ a,b,c,d,e,f,g)
+#define Perl_pv_pretty DPPP_(my_pv_pretty)
+
+
+char *
+DPPP_(my_pv_pretty)(pTHX_ SV *dsv, char const * const str, const STRLEN count,
+ const STRLEN max, char const * const start_color, char const * const end_color,
+ const U32 flags)
+{
+ const U8 dq = (flags & PERL_PV_PRETTY_QUOTE) ? '"' : '%';
+ STRLEN escaped;
+
+ if (!(flags & PERL_PV_PRETTY_NOCLEAR))
+ sv_setpvs(dsv, "");
+
+ if (dq == '"')
+ sv_catpvs(dsv, "\"");
+ else if (flags & PERL_PV_PRETTY_LTGT)
+ sv_catpvs(dsv, "<");
+
+ if (start_color != NULL)
+ sv_catpv(dsv, D_PPP_CONSTPV_ARG(start_color));
+
+ pv_escape(dsv, str, count, max, &escaped, flags | PERL_PV_ESCAPE_NOCLEAR);
+
+ if (end_color != NULL)
+ sv_catpv(dsv, D_PPP_CONSTPV_ARG(end_color));
+
+ if (dq == '"')
+ sv_catpvs(dsv, "\"");
+ else if (flags & PERL_PV_PRETTY_LTGT)
+ sv_catpvs(dsv, ">");
+
+ if ((flags & PERL_PV_PRETTY_ELLIPSES) && escaped < count)
+ sv_catpvs(dsv, "...");
+
+ return SvPVX(dsv);
+}
+
+#endif
+#endif
+
+#ifndef pv_display
+#if defined(NEED_pv_display)
+static char * DPPP_(my_pv_display)(pTHX_ SV * dsv, const char * pv, STRLEN cur, STRLEN len, STRLEN pvlim);
+static
+#else
+extern char * DPPP_(my_pv_display)(pTHX_ SV * dsv, const char * pv, STRLEN cur, STRLEN len, STRLEN pvlim);
+#endif
+
+#if defined(NEED_pv_display) || defined(NEED_pv_display_GLOBAL)
+
+#ifdef pv_display
+# undef pv_display
+#endif
+#define pv_display(a,b,c,d,e) DPPP_(my_pv_display)(aTHX_ a,b,c,d,e)
+#define Perl_pv_display DPPP_(my_pv_display)
+
+
+char *
+DPPP_(my_pv_display)(pTHX_ SV *dsv, const char *pv, STRLEN cur, STRLEN len, STRLEN pvlim)
+{
+ pv_pretty(dsv, pv, cur, pvlim, NULL, NULL, PERL_PV_PRETTY_DUMP);
+ if (len > cur && pv[cur] == '\0')
+ sv_catpvs(dsv, "\\0");
+ return SvPVX(dsv);
+}
+
+#endif
+#endif
+
+#if PERL_VERSION_LT(5,27,9)
+#ifndef LC_NUMERIC_LOCK
+# define LC_NUMERIC_LOCK
+#endif
+
+#ifndef LC_NUMERIC_UNLOCK
+# define LC_NUMERIC_UNLOCK
+#endif
+
+# if PERL_VERSION_LT(5,19,0)
+# undef STORE_LC_NUMERIC_SET_STANDARD
+# undef RESTORE_LC_NUMERIC
+# undef DECLARATION_FOR_LC_NUMERIC_MANIPULATION
+# ifdef USE_LOCALE
+#ifndef DECLARATION_FOR_LC_NUMERIC_MANIPULATION
+# define DECLARATION_FOR_LC_NUMERIC_MANIPULATION char *LoC_
+#endif
+
+#ifndef STORE_NUMERIC_SET_STANDARD
+# define STORE_NUMERIC_SET_STANDARD() \
+ LoC_ = savepv(setlocale(LC_NUMERIC, NULL)); \
+ SAVEFREEPV(LoC_); \
+ setlocale(LC_NUMERIC, "C");
+#endif
+
+#ifndef RESTORE_LC_NUMERIC
+# define RESTORE_LC_NUMERIC() \
+ setlocale(LC_NUMERIC, LoC_);
+#endif
+
+# else
+#ifndef DECLARATION_FOR_LC_NUMERIC_MANIPULATION
+# define DECLARATION_FOR_LC_NUMERIC_MANIPULATION
+#endif
+
+#ifndef STORE_LC_NUMERIC_SET_STANDARD
+# define STORE_LC_NUMERIC_SET_STANDARD()
+#endif
+
+#ifndef RESTORE_LC_NUMERIC
+# define RESTORE_LC_NUMERIC()
+#endif
+
+# endif
+# endif
+#endif
+
+#ifndef LOCK_NUMERIC_STANDARD
+# define LOCK_NUMERIC_STANDARD()
+#endif
+
+#ifndef UNLOCK_NUMERIC_STANDARD
+# define UNLOCK_NUMERIC_STANDARD()
+#endif
+
+/* The names of these changed in 5.28 */
+#ifndef LOCK_LC_NUMERIC_STANDARD
+# define LOCK_LC_NUMERIC_STANDARD LOCK_NUMERIC_STANDARD
+#endif
+
+#ifndef UNLOCK_LC_NUMERIC_STANDARD
+# define UNLOCK_LC_NUMERIC_STANDARD UNLOCK_NUMERIC_STANDARD
+#endif
+
+/* If this doesn't exist, it's not needed, so is void noop */
+#ifndef switch_to_global_locale
+# define switch_to_global_locale()
+#endif
+
+/* Originally, this didn't return a value, but in perls like that, the value
+ * should always be TRUE. Add a return to Perl_sync_locale() when it's
+ * available. And actually do a sync when its not, if locales are available on
+ * this system. */
+#ifdef sync_locale
+# if (PERL_BCDVERSION < 0x5027009)
+# if (PERL_BCDVERSION >= 0x5021003)
+# undef sync_locale
+# define sync_locale() (Perl_sync_locale(aTHX), 1)
+# elif defined(sync_locale) /* These should only be the 5.20 maints*/
+# undef sync_locale /* Just copy their defn and return 1 */
+# define sync_locale() (new_ctype(setlocale(LC_CTYPE, NULL)), \
+ new_collate(setlocale(LC_COLLATE, NULL)), \
+ set_numeric_local(), \
+ new_numeric(setlocale(LC_NUMERIC, NULL)), \
+ 1)
+# elif defined(new_ctype) && defined(LC_CTYPE)
+# define sync_locale() (new_ctype(setlocale(LC_CTYPE, NULL)), 1)
+# endif
+# endif
+#endif
+#ifndef sync_locale
+# define sync_locale() 1
+#endif
+
+#endif /* _P_P_PORTABILITY_H_ */
+
+/* End of File ppport.h */
--- /dev/null
+exclude = [
+ ".build/**",
+ "DateTime-*",
+ "blib/**",
+ "lib/DateTime/Conflicts.pm",
+ "t/00-*",
+ "t/author-*",
+ "t/release-*",
+ "t/zzz-*",
+ "xt/author/**",
+ "xt/release/**",
+]
+
+[commands.omegasort-gitignore]
+type = "both"
+include = "**/.gitignore"
+cmd = [ "omegasort", "--sort=path", "--unique" ]
+lint_flags = "--check"
+tidy_flags = "--in-place"
+ok_exit_codes = 0
+lint_failure_exit_codes = 1
+
+[commands.omegasort-stopwords]
+type = "both"
+include = ".stopwords"
+cmd = [ "omegasort", "--sort=text", "--case-insensitive", "--unique" ]
+lint_flags = "--check"
+tidy_flags = "--in-place"
+ok_exit_codes = 0
+lint_failure_exit_codes = 1
+
+[commands.perlcritic]
+type = "lint"
+include = [ "**/*.{pl,pm,t,psgi}" ]
+cmd = [ "perlcritic", "--profile=$PRECIOUS_ROOT/perlcriticrc" ]
+ok_exit_codes = 0
+lint_failure_exit_codes = 2
+
+[commands.perltidy]
+type = "both"
+include = [ "**/*.{pl,pm,t,psgi}" ]
+cmd = [ "perltidy", "--profile=$PRECIOUS_ROOT/perltidyrc" ]
+lint_flags = [ "--assert-tidy", "--no-standard-output", "--outfile=/dev/null" ]
+tidy_flags = [ "--backup-and-modify-in-place", "--backup-file-extension=/" ]
+ok_exit_codes = 0
+lint_failure_exit_codes = 2
+ignore_stderr = "Begin Error Output Stream"
+
+[commands.podchecker]
+type = "lint"
+include = [ "**/*.{pl,pm,pod}" ]
+cmd = [ "podchecker", "--warnings", "--warnings" ]
+ok_exit_codes = [ 0, 2 ]
+lint_failure_exit_codes = 1
+ignore_stderr = [
+ ".+ pod syntax OK",
+ ".+ does not contain any pod commands",
+]
+
+[commands.podtidy]
+type = "tidy"
+include = [ "**/*.{pl,pm,pod}" ]
+cmd = [ "podtidy", "--columns", "80", "--inplace", "--nobackup" ]
+ok_exit_codes = 0
+lint_failure_exit_codes = 1
--- /dev/null
+do { my $x = {
+ 'configure' => {
+ 'requires' => {
+ 'Dist::CheckConflicts' => '0.02',
+ 'ExtUtils::MakeMaker' => '0'
+ },
+ 'suggests' => {
+ 'JSON::PP' => '2.27300'
+ }
+ },
+ 'develop' => {
+ 'requires' => {
+ 'Capture::Tiny' => '0',
+ 'Cwd' => '0',
+ 'Devel::PPPort' => '3.23',
+ 'Encode' => '0',
+ 'File::Basename' => '0',
+ 'File::Spec' => '0',
+ 'FindBin' => '0',
+ 'Perl::Critic' => '1.138',
+ 'Perl::Critic::Moose' => '1.05',
+ 'Perl::Tidy' => '20210111',
+ 'Pod::Checker' => '1.74',
+ 'Pod::Coverage::TrustPod' => '0',
+ 'Pod::Tidy' => '0.10',
+ 'Pod::Wordlist' => '0',
+ 'Storable' => '0',
+ 'Test::CPAN::Changes' => '0.19',
+ 'Test::CPAN::Meta::JSON' => '0.16',
+ 'Test::CleanNamespaces' => '0.15',
+ 'Test::DependentModules' => '0',
+ 'Test::EOL' => '0',
+ 'Test::Fatal' => '0',
+ 'Test::Mojibake' => '0',
+ 'Test::More' => '0.96',
+ 'Test::NoTabs' => '0',
+ 'Test::Pod' => '1.41',
+ 'Test::Pod::Coverage' => '1.08',
+ 'Test::Portability::Files' => '0',
+ 'Test::Spelling' => '0.12',
+ 'Test::Version' => '2.05',
+ 'Test::Warnings' => '0.005',
+ 'Test::Without::Module' => '0',
+ 'autodie' => '0',
+ 'utf8' => '0'
+ }
+ },
+ 'runtime' => {
+ 'requires' => {
+ 'Carp' => '0',
+ 'DateTime::Locale' => '1.06',
+ 'DateTime::TimeZone' => '2.44',
+ 'Dist::CheckConflicts' => '0.02',
+ 'POSIX' => '0',
+ 'Params::ValidationCompiler' => '0.26',
+ 'Scalar::Util' => '0',
+ 'Specio' => '0.18',
+ 'Specio::Declare' => '0',
+ 'Specio::Exporter' => '0',
+ 'Specio::Library::Builtins' => '0',
+ 'Specio::Library::Numeric' => '0',
+ 'Specio::Library::String' => '0',
+ 'Specio::Subs' => '0',
+ 'Try::Tiny' => '0',
+ 'XSLoader' => '0',
+ 'integer' => '0',
+ 'namespace::autoclean' => '0.19',
+ 'overload' => '0',
+ 'parent' => '0',
+ 'perl' => '5.008004',
+ 'strict' => '0',
+ 'warnings' => '0',
+ 'warnings::register' => '0'
+ }
+ },
+ 'test' => {
+ 'recommends' => {
+ 'CPAN::Meta' => '2.120900'
+ },
+ 'requires' => {
+ 'CPAN::Meta::Check' => '0.011',
+ 'CPAN::Meta::Requirements' => '0',
+ 'ExtUtils::MakeMaker' => '0',
+ 'File::Spec' => '0',
+ 'Storable' => '0',
+ 'Test::Fatal' => '0',
+ 'Test::More' => '0.96',
+ 'Test::Warnings' => '0.005',
+ 'Test::Without::Module' => '0',
+ 'utf8' => '0'
+ }
+ }
+ };
+ $x;
+ }
\ No newline at end of file
--- /dev/null
+#!perl
+
+use strict;
+use warnings;
+
+# This test was generated by Dist::Zilla::Plugin::Test::ReportPrereqs 0.029
+
+use Test::More tests => 1;
+
+use ExtUtils::MakeMaker;
+use File::Spec;
+
+# from $version::LAX
+my $lax_version_re =
+ qr/(?: undef | (?: (?:[0-9]+) (?: \. | (?:\.[0-9]+) (?:_[0-9]+)? )?
+ |
+ (?:\.[0-9]+) (?:_[0-9]+)?
+ ) | (?:
+ v (?:[0-9]+) (?: (?:\.[0-9]+)+ (?:_[0-9]+)? )?
+ |
+ (?:[0-9]+)? (?:\.[0-9]+){2,} (?:_[0-9]+)?
+ )
+ )/x;
+
+# hide optional CPAN::Meta modules from prereq scanner
+# and check if they are available
+my $cpan_meta = "CPAN::Meta";
+my $cpan_meta_pre = "CPAN::Meta::Prereqs";
+my $HAS_CPAN_META = eval "require $cpan_meta; $cpan_meta->VERSION('2.120900')" && eval "require $cpan_meta_pre"; ## no critic
+
+# Verify requirements?
+my $DO_VERIFY_PREREQS = 1;
+
+sub _max {
+ my $max = shift;
+ $max = ( $_ > $max ) ? $_ : $max for @_;
+ return $max;
+}
+
+sub _merge_prereqs {
+ my ($collector, $prereqs) = @_;
+
+ # CPAN::Meta::Prereqs object
+ if (ref $collector eq $cpan_meta_pre) {
+ return $collector->with_merged_prereqs(
+ CPAN::Meta::Prereqs->new( $prereqs )
+ );
+ }
+
+ # Raw hashrefs
+ for my $phase ( keys %$prereqs ) {
+ for my $type ( keys %{ $prereqs->{$phase} } ) {
+ for my $module ( keys %{ $prereqs->{$phase}{$type} } ) {
+ $collector->{$phase}{$type}{$module} = $prereqs->{$phase}{$type}{$module};
+ }
+ }
+ }
+
+ return $collector;
+}
+
+my @include = qw(
+
+);
+
+my @exclude = qw(
+
+);
+
+# Add static prereqs to the included modules list
+my $static_prereqs = do './t/00-report-prereqs.dd';
+
+# Merge all prereqs (either with ::Prereqs or a hashref)
+my $full_prereqs = _merge_prereqs(
+ ( $HAS_CPAN_META ? $cpan_meta_pre->new : {} ),
+ $static_prereqs
+);
+
+# Add dynamic prereqs to the included modules list (if we can)
+my ($source) = grep { -f } 'MYMETA.json', 'MYMETA.yml';
+my $cpan_meta_error;
+if ( $source && $HAS_CPAN_META
+ && (my $meta = eval { CPAN::Meta->load_file($source) } )
+) {
+ $full_prereqs = _merge_prereqs($full_prereqs, $meta->prereqs);
+}
+else {
+ $cpan_meta_error = $@; # capture error from CPAN::Meta->load_file($source)
+ $source = 'static metadata';
+}
+
+my @full_reports;
+my @dep_errors;
+my $req_hash = $HAS_CPAN_META ? $full_prereqs->as_string_hash : $full_prereqs;
+
+# Add static includes into a fake section
+for my $mod (@include) {
+ $req_hash->{other}{modules}{$mod} = 0;
+}
+
+for my $phase ( qw(configure build test runtime develop other) ) {
+ next unless $req_hash->{$phase};
+ next if ($phase eq 'develop' and not $ENV{AUTHOR_TESTING});
+
+ for my $type ( qw(requires recommends suggests conflicts modules) ) {
+ next unless $req_hash->{$phase}{$type};
+
+ my $title = ucfirst($phase).' '.ucfirst($type);
+ my @reports = [qw/Module Want Have/];
+
+ for my $mod ( sort keys %{ $req_hash->{$phase}{$type} } ) {
+ next if grep { $_ eq $mod } @exclude;
+
+ my $want = $req_hash->{$phase}{$type}{$mod};
+ $want = "undef" unless defined $want;
+ $want = "any" if !$want && $want == 0;
+
+ if ($mod eq 'perl') {
+ push @reports, ['perl', $want, $]];
+ next;
+ }
+
+ my $req_string = $want eq 'any' ? 'any version required' : "version '$want' required";
+
+ my $file = $mod;
+ $file =~ s{::}{/}g;
+ $file .= ".pm";
+ my ($prefix) = grep { -e File::Spec->catfile($_, $file) } @INC;
+
+ if ($prefix) {
+ my $have = MM->parse_version( File::Spec->catfile($prefix, $file) );
+ $have = "undef" unless defined $have;
+ push @reports, [$mod, $want, $have];
+
+ if ( $DO_VERIFY_PREREQS && $HAS_CPAN_META && $type eq 'requires' ) {
+ if ( $have !~ /\A$lax_version_re\z/ ) {
+ push @dep_errors, "$mod version '$have' cannot be parsed ($req_string)";
+ }
+ elsif ( ! $full_prereqs->requirements_for( $phase, $type )->accepts_module( $mod => $have ) ) {
+ push @dep_errors, "$mod version '$have' is not in required range '$want'";
+ }
+ }
+ }
+ else {
+ push @reports, [$mod, $want, "missing"];
+
+ if ( $DO_VERIFY_PREREQS && $type eq 'requires' ) {
+ push @dep_errors, "$mod is not installed ($req_string)";
+ }
+ }
+ }
+
+ if ( @reports ) {
+ push @full_reports, "=== $title ===\n\n";
+
+ my $ml = _max( map { length $_->[0] } @reports );
+ my $wl = _max( map { length $_->[1] } @reports );
+ my $hl = _max( map { length $_->[2] } @reports );
+
+ if ($type eq 'modules') {
+ splice @reports, 1, 0, ["-" x $ml, "", "-" x $hl];
+ push @full_reports, map { sprintf(" %*s %*s\n", -$ml, $_->[0], $hl, $_->[2]) } @reports;
+ }
+ else {
+ splice @reports, 1, 0, ["-" x $ml, "-" x $wl, "-" x $hl];
+ push @full_reports, map { sprintf(" %*s %*s %*s\n", -$ml, $_->[0], $wl, $_->[1], $hl, $_->[2]) } @reports;
+ }
+
+ push @full_reports, "\n";
+ }
+ }
+}
+
+if ( @full_reports ) {
+ diag "\nVersions for all modules listed in $source (including optional ones):\n\n", @full_reports;
+}
+
+if ( $cpan_meta_error || @dep_errors ) {
+ diag "\n*** WARNING WARNING WARNING WARNING WARNING WARNING WARNING WARNING ***\n";
+}
+
+if ( $cpan_meta_error ) {
+ my ($orig_source) = grep { -f } 'MYMETA.json', 'MYMETA.yml';
+ diag "\nCPAN::Meta->load_file('$orig_source') failed with: $cpan_meta_error\n";
+}
+
+if ( @dep_errors ) {
+ diag join("\n",
+ "\nThe following REQUIRED prerequisites were not satisfied:\n",
+ @dep_errors,
+ "\n"
+ );
+}
+
+pass('Reported prereqs');
+
+# vim: ts=4 sts=4 sw=4 et:
--- /dev/null
+use strict;
+use warnings;
+
+use Test::More 0.88;
+
+undef $ENV{PERL_DATETIME_DEFAULT_TZ};
+
+use_ok('DateTime');
+
+done_testing();
--- /dev/null
+use strict;
+use warnings;
+
+use Test::More;
+
+use DateTime;
+
+undef $ENV{PERL_DATETIME_DEFAULT_TZ};
+
+{
+ my $dt = DateTime->new(
+ year => 1870, month => 10, day => 21,
+ hour => 12, minute => 10, second => 45,
+ nanosecond => 123456,
+ time_zone => 'UTC'
+ );
+
+ is( $dt->year, '1870', 'Year accessor, outside of the epoch' );
+ is( $dt->month, '10', 'Month accessor, outside the epoch' );
+ is( $dt->day, '21', 'Day accessor, outside the epoch' );
+ is( $dt->hour, '12', 'Hour accessor, outside the epoch' );
+ is( $dt->minute, '10', 'Minute accessor, outside the epoch' );
+ is( $dt->second, '45', 'Second accessor, outside the epoch' );
+ is( $dt->nanosecond, '123456', 'nanosecond accessor, outside the epoch' );
+
+ $dt = DateTime->from_object( object => $dt );
+ is( $dt->year, '1870', 'Year should be identical' );
+ is( $dt->month, '10', 'Month should be identical' );
+ is( $dt->day, '21', 'Day should be identical' );
+ is( $dt->hour, '12', 'Hour should be identical' );
+ is( $dt->minute, '10', 'Minute should be identical' );
+ is( $dt->second, '45', 'Second should be identical' );
+ is( $dt->nanosecond, '123456', 'nanosecond should be identical' );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 1870, month => 10, day => 21,
+ hour => 12, minute => 10, second => 45,
+ time_zone => 'UTC'
+ );
+ is( $dt->minute, '10', 'Minute accessor, outside the epoch' );
+ is( $dt->second, '45', 'Second accessor, outside the epoch' );
+}
+
+done_testing();
--- /dev/null
+use strict;
+use warnings;
+
+use Test::Fatal;
+use Test::More;
+
+use DateTime;
+
+undef $ENV{PERL_DATETIME_DEFAULT_TZ};
+
+my @last_day = ( 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 );
+my @leap_last_day = @last_day;
+$leap_last_day[1]++;
+
+foreach my $month ( 1 .. 12 ) {
+ my $dt = DateTime->last_day_of_month(
+ year => 2001,
+ month => $month,
+ time_zone => 'UTC',
+ );
+
+ is( $dt->year, 2001, 'check year' );
+ is( $dt->month, $month, 'check month' );
+ is( $dt->day, $last_day[ $month - 1 ], 'check day' );
+}
+
+foreach my $month ( 1 .. 12 ) {
+ my $dt = DateTime->last_day_of_month(
+ year => 2004,
+ month => $month,
+ time_zone => 'UTC',
+ );
+
+ is( $dt->year, 2004, 'check year' );
+ is( $dt->month, $month, 'check month' );
+ is( $dt->day, $leap_last_day[ $month - 1 ], 'check day' );
+}
+
+{
+ is(
+ exception {
+ DateTime->last_day_of_month(
+ year => 2000, month => 1,
+ nanosecond => 2000
+ );
+ },
+ undef,
+ 'last_day_of_month should accept nanosecond'
+ );
+}
+
+done_testing();
--- /dev/null
+use strict;
+use warnings;
+
+use Test::More;
+
+use DateTime;
+
+undef $ENV{PERL_DATETIME_DEFAULT_TZ};
+
+{
+ my $d = DateTime->new(
+ year => 2001,
+ month => 7,
+ day => 5,
+ hour => 2,
+ minute => 12,
+ second => 50,
+ time_zone => 'UTC',
+ );
+
+ is( $d->year, 2001, '->year' );
+ is( $d->ce_year, 2001, '->ce_year' );
+ is( $d->month, 7, '->month' );
+ is( $d->quarter, 3, '->quarter' );
+ is( $d->month_0, 6, '->month_0' );
+ is( $d->month_name, 'July', '->month_name' );
+ is( $d->month_abbr, 'Jul', '->month_abbr' );
+ is( $d->day_of_month, 5, '->day_of_month' );
+ is( $d->day_of_month_0, 4, '->day_of_month_0' );
+ is( $d->day, 5, '->day' );
+ is( $d->day_0, 4, '->day_0' );
+ is( $d->mday, 5, '->mday' );
+ is( $d->mday_0, 4, '->mday_0' );
+ is( $d->mday, 5, '->mday' );
+ is( $d->mday_0, 4, '->mday_0' );
+ is( $d->hour, 2, '->hour' );
+ is( $d->hour_1, 2, '->hour_1' );
+ is( $d->hour_12, 2, '->hour_12' );
+ is( $d->hour_12_0, 2, '->hour_12_0' );
+ is( $d->minute, 12, '->minute' );
+ is( $d->min, 12, '->min' );
+ is( $d->second, 50, '->second' );
+ is( $d->sec, 50, '->sec' );
+
+ is( $d->day_of_year, 186, '->day_of_year' );
+ is( $d->day_of_year_0, 185, '->day_of_year' );
+ is( $d->day_of_quarter, 5, '->day_of_quarter' );
+ is( $d->doq, 5, '->doq' );
+ is( $d->day_of_quarter_0, 4, '->day_of_quarter_0' );
+ is( $d->doq_0, 4, '->doq_0' );
+ is( $d->day_of_week, 4, '->day_of_week' );
+ is( $d->day_of_week_0, 3, '->day_of_week_0' );
+ is( $d->week_of_month, 1, '->week_of_month' );
+ is( $d->weekday_of_month, 1, '->weekday_of_month' );
+ is( $d->wday, 4, '->wday' );
+ is( $d->wday_0, 3, '->wday_0' );
+ is( $d->dow, 4, '->dow' );
+ is( $d->dow_0, 3, '->dow_0' );
+ is( $d->day_name, 'Thursday', '->day_name' );
+ is( $d->day_abbr, 'Thu', '->day_abrr' );
+
+ is( $d->ymd, '2001-07-05', '->ymd' );
+ is( $d->ymd('!'), '2001!07!05', q{->ymd('!')} );
+ is( $d->date, '2001-07-05', '->date' );
+ is( $d->date('!'), '2001!07!05', q{->date('!')} );
+
+ is( $d->mdy, '07-05-2001', '->mdy' );
+ is( $d->mdy('!'), '07!05!2001', q{->mdy('!')} );
+
+ is( $d->dmy, '05-07-2001', '->dmy' );
+ is( $d->dmy('!'), '05!07!2001', q{->dmy('!')} );
+
+ is( $d->hms, '02:12:50', '->hms' );
+ is( $d->hms('!'), '02!12!50', q{->hms('!')} );
+ is( $d->time, '02:12:50', '->hms' );
+ is( $d->time('!'), '02!12!50', q{->time('!')} );
+
+ is( $d->datetime, '2001-07-05T02:12:50', '->datetime' );
+ is( $d->datetime(q{ }), '2001-07-05 02:12:50', q{->datetime(q{ }} );
+ is( $d->iso8601, '2001-07-05T02:12:50', '->iso8601' );
+ is(
+ $d->iso8601(q{ }), '2001-07-05T02:12:50',
+ '->iso8601 ignores arguments'
+ );
+
+ ok( !$d->is_leap_year, '->is_leap_year' );
+ ok( !$d->is_last_day_of_month, '->is_last_day_of_month' );
+ ok( !$d->is_last_day_of_quarter, '->is_last_day_of_quarter' );
+ ok( !$d->is_last_day_of_year, '->is_last_day_of_year' );
+
+ is( $d->month_length, 31, '->month_length' );
+ is( $d->quarter_length, 92, '->quarter_length' );
+ is( $d->year_length, 365, '->year_length' );
+
+ is( $d->era_abbr, 'AD', '->era_abbr' );
+ is( $d->era, $d->era_abbr, '->era (deprecated)' );
+ is( $d->era_name, 'Anno Domini', '->era_abbr' );
+
+ is( $d->quarter_abbr, 'Q3', '->quarter_abbr' );
+ is( $d->quarter_name, '3rd quarter', '->quarter_name' );
+}
+
+{
+ my $leap_d = DateTime->new(
+ year => 2004,
+ month => 7,
+ day => 5,
+ hour => 2,
+ minute => 12,
+ second => 50,
+ time_zone => 'UTC',
+ );
+
+ ok( $leap_d->is_leap_year, '->is_leap_year' );
+ is( $leap_d->year_length, 366, '->year_length' );
+}
+
+{
+ my @tests = (
+ { year => 2017, month => 8, day => 19, expect => 0 },
+ { year => 2017, month => 8, day => 31, expect => 1 },
+ { year => 2017, month => 2, day => 28, expect => 1 },
+ { year => 2016, month => 2, day => 28, expect => 0 },
+ );
+
+ for my $t (@tests) {
+ my $expect = delete $t->{expect};
+
+ my $dt = DateTime->new($t);
+
+ my $is = $dt->is_last_day_of_month;
+ ok( ( $expect ? $is : !$is ), '->is_last_day_of_month' );
+ }
+}
+
+{
+ my @tests = (
+ { year => 2017, month => 8, day => 19, expect => 0 },
+ { year => 2017, month => 3, day => 31, expect => 1 },
+ { year => 2017, month => 6, day => 30, expect => 1 },
+ { year => 2017, month => 9, day => 30, expect => 1 },
+ { year => 2017, month => 12, day => 31, expect => 1 },
+ );
+
+ for my $t (@tests) {
+ my $expect = delete $t->{expect};
+
+ my $dt = DateTime->new($t);
+
+ my $is = $dt->is_last_day_of_quarter;
+ ok( ( $expect ? $is : !$is ), '->is_last_day_of_quarter' );
+ }
+}
+
+{
+ my @tests = (
+ { year => 2017, month => 8, day => 19, expect => 0 },
+ { year => 2017, month => 12, day => 31, expect => 1 },
+ );
+
+ for my $t (@tests) {
+ my $expect = delete $t->{expect};
+
+ my $dt = DateTime->new($t);
+
+ my $is = $dt->is_last_day_of_year;
+ ok( ( $expect ? $is : !$is ), '->is_last_day_of_year' );
+ }
+}
+
+{
+ my @tests = (
+ { year => 2016, month => 2, day => 1, expect => 29 },
+ { year => 2017, month => 2, day => 1, expect => 28 },
+ );
+
+ for my $t (@tests) {
+ my $expect = delete $t->{expect};
+
+ my $dt = DateTime->new($t);
+ is( $dt->month_length, $expect, '->month_length' );
+ }
+}
+
+{
+ my $sunday = DateTime->new(
+ year => 2003,
+ month => 1,
+ day => 26,
+ time_zone => 'UTC',
+ );
+
+ is( $sunday->day_of_week, 7, 'Sunday is day 7' );
+}
+
+{
+ my $monday = DateTime->new(
+ year => 2003,
+ month => 1,
+ day => 27,
+ time_zone => 'UTC',
+ );
+
+ is( $monday->day_of_week, 1, 'Monday is day 1' );
+}
+
+{
+ # time zone offset should not affect the values returned
+ my $d = DateTime->new(
+ year => 2001,
+ month => 7,
+ day => 5,
+ hour => 2,
+ minute => 12,
+ second => 50,
+ time_zone => '-0124',
+ );
+
+ is( $d->year, 2001, '->year' );
+ is( $d->ce_year, 2001, '->ce_year' );
+ is( $d->month, 7, '->month' );
+ is( $d->day_of_month, 5, '->day_of_month' );
+ is( $d->hour, 2, '->hour' );
+ is( $d->hour_1, 2, '->hour_1' );
+ is( $d->minute, 12, '->minute' );
+ is( $d->second, 50, '->second' );
+}
+
+{
+ my $dt0 = DateTime->new( year => 1, time_zone => 'UTC' );
+
+ is( $dt0->year, 1, 'year 1 is year 1' );
+ is( $dt0->ce_year, 1, 'ce_year 1 is year 1' );
+ is( $dt0->era_abbr, 'AD', 'era is AD' );
+ is( $dt0->year_with_era, '1AD', 'year_with_era is 1AD' );
+ is( $dt0->christian_era, 'AD', 'christian_era is AD' );
+ is(
+ $dt0->year_with_christian_era, '1AD',
+ 'year_with_christian_era is 1AD'
+ );
+ is( $dt0->secular_era, 'CE', 'secular_era is CE' );
+ is( $dt0->year_with_secular_era, '1CE', 'year_with_secular_era is 1CE' );
+
+ $dt0->subtract( years => 1 );
+
+ is( $dt0->year, 0, 'year 1 minus 1 is year 0' );
+ is( $dt0->ce_year, -1, 'ce_year 1 minus 1 is year -1' );
+ is( $dt0->era_abbr, 'BC', 'era is BC' );
+ is( $dt0->year_with_era, '1BC', 'year_with_era is 1BC' );
+ is( $dt0->christian_era, 'BC', 'christian_era is BC' );
+ is(
+ $dt0->year_with_christian_era, '1BC',
+ 'year_with_christian_era is 1BC'
+ );
+ is( $dt0->secular_era, 'BCE', 'secular_era is BCE' );
+ is(
+ $dt0->year_with_secular_era, '1BCE',
+ 'year_with_secular_era is 1BCE'
+ );
+}
+
+{
+ my $dt_neg = DateTime->new( year => -10, time_zone => 'UTC', );
+ is( $dt_neg->year, -10, 'Year -10 is -10' );
+ is( $dt_neg->ce_year, -11, 'year -10 is ce_year -11' );
+
+ my $dt1 = $dt_neg + DateTime::Duration->new( years => 10 );
+ is( $dt1->year, 0, 'year is 0 after adding ten years to year -10' );
+ is(
+ $dt1->ce_year, -1,
+ 'ce_year is -1 after adding ten years to year -10'
+ );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 50, month => 2,
+ hour => 3, minute => 20, second => 5,
+ time_zone => 'UTC',
+ );
+
+ is( $dt->ymd('%s'), '0050%s02%s01', 'use %s as separator in ymd' );
+ is( $dt->mdy('%s'), '02%s01%s0050', 'use %s as separator in mdy' );
+ is( $dt->dmy('%s'), '01%s02%s0050', 'use %s as separator in dmy' );
+
+ is( $dt->hms('%s'), '03%s20%s05', 'use %s as separator in hms' );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 12345,
+ month => 2,
+ day => 3,
+ );
+
+ is( $dt->ymd, '12345-02-03', '5 digit year in ymd' );
+ is( $dt->mdy, '02-03-12345', '5 digit year in mdy' );
+ is( $dt->dmy, '03-02-12345', '5 digit year in dmy' );
+}
+
+# test doy in leap year
+{
+ my $dt = DateTime->new(
+ year => 2000, month => 1, day => 5,
+ time_zone => 'UTC',
+ );
+
+ is( $dt->day_of_year, 5, 'doy for 2000-01-05 should be 5' );
+ is( $dt->day_of_year_0, 4, 'doy_0 for 2000-01-05 should be 4' );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 2000, month => 2, day => 29,
+ time_zone => 'UTC',
+ );
+
+ is( $dt->day_of_year, 60, 'doy for 2000-02-29 should be 60' );
+ is( $dt->day_of_year_0, 59, 'doy_0 for 2000-02-29 should be 59' );
+}
+
+{
+ my $dt = DateTime->new(
+ year => -6, month => 2, day => 25,
+ time_zone => 'UTC',
+ );
+
+ is( $dt->ymd, '-0006-02-25', 'ymd is -0006-02-25' );
+ is(
+ $dt->iso8601, '-0006-02-25T00:00:00',
+ 'iso8601 is -0005-02-25T00:00:00'
+ );
+ is( $dt->year, -6, 'year is -6' );
+ is( $dt->ce_year, -7, 'ce_year is -7' );
+}
+
+{
+ my $dt = DateTime->new( year => 1995, month => 2, day => 1 );
+
+ is( $dt->quarter, 1, '->quarter is 1' );
+ is( $dt->day_of_quarter, 32, '->day_of_quarter' );
+ is( $dt->quarter_length, 90, '->quarter_length' );
+}
+
+{
+ my $dt = DateTime->new( year => 1995, month => 5, day => 1 );
+
+ is( $dt->quarter, 2, '->quarter is 2' );
+ is( $dt->day_of_quarter, 31, '->day_of_quarter' );
+ is( $dt->quarter_length, 91, '->quarter_length' );
+}
+
+{
+ my $dt = DateTime->new( year => 1995, month => 8, day => 1 );
+
+ is( $dt->quarter, 3, '->quarter is 3' );
+ is( $dt->day_of_quarter, 32, '->day_of_quarter' );
+ is( $dt->quarter_length, 92, '->quarter_length' );
+}
+
+{
+ my $dt = DateTime->new( year => 1995, month => 11, day => 1 );
+
+ is( $dt->quarter, 4, '->quarter is 4' );
+ is( $dt->day_of_quarter, 32, '->day_of_quarter' );
+ is( $dt->quarter_length, 92, '->quarter_length' );
+}
+
+{
+ my $dt = DateTime->new( year => 1996, month => 2, day => 1 );
+
+ is( $dt->quarter, 1, '->quarter is 1' );
+ is( $dt->day_of_quarter, 32, '->day_of_quarter' );
+ is( $dt->quarter_length, 91, '->quarter_length' );
+}
+
+{
+ my $dt = DateTime->new( year => 1996, month => 5, day => 1 );
+
+ is( $dt->quarter, 2, '->quarter is 2' );
+ is( $dt->day_of_quarter, 31, '->day_of_quarter' );
+ is( $dt->quarter_length, 91, '->quarter_length' );
+}
+
+{
+ my $dt = DateTime->new( year => 1996, month => 8, day => 1 );
+
+ is( $dt->quarter, 3, '->quarter is 3' );
+ is( $dt->day_of_quarter, 32, '->day_of_quarter' );
+ is( $dt->quarter_length, 92, '->quarter_length' );
+}
+
+{
+ my $dt = DateTime->new( year => 1996, month => 11, day => 1 );
+
+ is( $dt->quarter, 4, '->quarter is 4' );
+ is( $dt->day_of_quarter, 32, '->day_of_quarter' );
+ is( $dt->quarter_length, 92, '->quarter_length' );
+}
+
+# nano, micro, and milli seconds
+{
+ my $dt = DateTime->new( year => 1996, nanosecond => 500_000_000 );
+
+ is( $dt->nanosecond, 500_000_000, 'nanosecond is 500,000,000' );
+ is( $dt->microsecond, 500_000, 'microsecond is 500,000' );
+ is( $dt->millisecond, 500, 'millisecond is 500' );
+
+ $dt->set( nanosecond => 500_000_500 );
+
+ is( $dt->nanosecond, 500_000_500, 'nanosecond is 500,000,500' );
+ is( $dt->microsecond, 500_000, 'microsecond is 500,000' );
+ is( $dt->millisecond, 500, 'millisecond is 500' );
+
+ $dt->set( nanosecond => 499_999_999 );
+
+ is( $dt->nanosecond, 499_999_999, 'nanosecond is 499,999,999' );
+ is( $dt->microsecond, 499_999, 'microsecond is 499,999' );
+ is( $dt->millisecond, 499, 'millisecond is 499' );
+
+ $dt->set( nanosecond => 450_000_001 );
+
+ is( $dt->nanosecond, 450_000_001, 'nanosecond is 450,000,001' );
+ is( $dt->microsecond, 450_000, 'microsecond is 450,000' );
+ is( $dt->millisecond, 450, 'millisecond is 450' );
+
+ $dt->set( nanosecond => 450_500_000 );
+
+ is( $dt->nanosecond, 450_500_000, 'nanosecond is 450,500,000' );
+ is( $dt->microsecond, 450_500, 'microsecond is 450,500' );
+ is( $dt->millisecond, 450, 'millisecond is 450' );
+}
+
+{
+ my $dt = DateTime->new( year => 2003, month => 5, day => 7 );
+ is( $dt->weekday_of_month, 1, '->weekday_of_month' );
+ is( $dt->week_of_month, 2, '->week_of_month' );
+}
+
+{
+ my $dt = DateTime->new( year => 2003, month => 5, day => 8 );
+ is( $dt->weekday_of_month, 2, '->weekday_of_month' );
+ is( $dt->week_of_month, 2, '->week_of_month' );
+}
+
+{
+ my $dt = DateTime->new( year => 1000, hour => 23 );
+ is( $dt->hour, 23, '->hour' );
+ is( $dt->hour_1, 23, '->hour_1' );
+ is( $dt->hour_12, 11, '->hour_12' );
+ is( $dt->hour_12_0, 11, '->hour_12_0' );
+}
+
+{
+ my $dt = DateTime->new( year => 1000, hour => 0 );
+ is( $dt->hour, 0, '->hour' );
+ is( $dt->hour_1, 24, '->hour_1' );
+ is( $dt->hour_12, 12, '->hour_12' );
+ is( $dt->hour_12_0, 0, '->hour_12_0' );
+}
+
+SKIP:
+{
+ ## no critic (BuiltinFunctions::ProhibitStringyEval)
+ skip 'These tests require Test::Warn', 9
+ unless eval 'use Test::Warn; 1';
+
+ my $dt = DateTime->new( year => 2000 );
+ warnings_like(
+ sub { $dt->year(2001) }, qr/is a read-only/,
+ 'year() is read-only'
+ );
+ warnings_like(
+ sub { $dt->month(5) }, qr/is a read-only/,
+ 'month() is read-only'
+ );
+ warnings_like(
+ sub { $dt->day(5) }, qr/is a read-only/,
+ 'day() is read-only'
+ );
+ warnings_like(
+ sub { $dt->hour(5) }, qr/is a read-only/,
+ 'hour() is read-only'
+ );
+ warnings_like(
+ sub { $dt->minute(5) }, qr/is a read-only/,
+ 'minute() is read-only'
+ );
+ warnings_like(
+ sub { $dt->second(5) }, qr/is a read-only/,
+ 'second() is read-only'
+ );
+ warnings_like(
+ sub { $dt->nanosecond(5) }, qr/is a read-only/,
+ 'nanosecond() is read-only'
+ );
+ warnings_like(
+ sub { $dt->time_zone('America/Chicago') }, qr/is a read-only/,
+ 'time_zone() is read-only'
+ );
+ warnings_like(
+ sub { $dt->locale('en_US') }, qr/is a read-only/,
+ 'locale() is read-only'
+ );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 2020,
+ month => 11,
+ day => 6,
+ hour => 9,
+ minute => 20,
+ second => 48,
+ time_zone => 'UTC',
+ );
+ is(
+ $dt->rfc3339, '2020-11-06T09:20:48Z',
+ '->rfc3339 with UTC'
+ );
+
+ $dt = DateTime->new(
+ year => 2020,
+ month => 11,
+ day => 6,
+ hour => 9,
+ minute => 20,
+ second => 48,
+ time_zone => 'America/Chicago',
+ );
+ is(
+ $dt->rfc3339, '2020-11-06T09:20:48-06:00',
+ '->rfc3339 with America/Chicago'
+ );
+
+ $dt = DateTime->new(
+ year => 2020,
+ month => 11,
+ day => 6,
+ hour => 9,
+ minute => 20,
+ second => 48,
+ time_zone => '+02:15:32',
+ );
+ is(
+ $dt->rfc3339, '2020-11-06T09:20:48+02:15:32',
+ '->rfc3339 with raw offset time zone'
+ );
+
+ $dt = DateTime->new(
+ year => 2020,
+ month => 11,
+ day => 6,
+ hour => 9,
+ minute => 20,
+ second => 48,
+ );
+ is(
+ $dt->rfc3339, '2020-11-06T09:20:48',
+ '->rfc3339 with no offset when tz is floating'
+ );
+}
+
+done_testing();
--- /dev/null
+use strict;
+use warnings;
+
+use Test::More;
+use Test::Fatal;
+
+use DateTime;
+
+undef $ENV{PERL_DATETIME_DEFAULT_TZ};
+
+{
+
+ # Tests creating objects from epoch time
+ my $t1 = DateTime->from_epoch( epoch => 0 );
+ is( $t1->epoch, 0, 'epoch should be 0' );
+
+ is( $t1->second, 0, 'seconds are correct on epoch 0' );
+ is( $t1->minute, 0, 'minutes are correct on epoch 0' );
+ is( $t1->hour, 0, 'hours are correct on epoch 0' );
+ is( $t1->day, 1, 'days are correct on epoch 0' );
+ is( $t1->month, 1, 'months are correct on epoch 0' );
+ is( $t1->year, 1970, 'year is correct on epoch 0' );
+
+ is(
+ DateTime->from_epoch(0), $t1,
+ 'passing one arg (0) to from_epoch returns expected result'
+ );
+}
+
+{
+ my $dt = DateTime->from_epoch( epoch => '3600' );
+ is(
+ $dt->epoch, 3600,
+ 'creation test from epoch = 3600 (compare to epoch)'
+ );
+}
+
+{
+
+ # these tests could break if the time changed during the next three lines
+ my $now = time;
+ my $nowtest = DateTime->now();
+ my $nowtest2 = DateTime->from_epoch( epoch => $now );
+ is( $nowtest->hour, $nowtest2->hour, 'Hour: Create without args' );
+ is( $nowtest->month, $nowtest2->month, 'Month : Create without args' );
+ is( $nowtest->minute, $nowtest2->minute, 'Minute: Create without args' );
+}
+
+{
+ my $epochtest = DateTime->from_epoch( epoch => '997121000' );
+
+ is(
+ $epochtest->epoch, 997121000,
+ 'epoch method returns correct value'
+ );
+ is( $epochtest->hour, 18, 'hour' );
+ is( $epochtest->min, 3, 'minute' );
+
+ is(
+ DateTime->from_epoch(997121000), $epochtest,
+ 'passing one arg (997121000) to from_epoch returns expected result'
+ );
+}
+
+{
+ my $dt = DateTime->from_epoch( epoch => 3600 );
+ $dt->set_time_zone('+0100');
+
+ is( $dt->epoch, 3600, 'epoch is 3600' );
+ is( $dt->hour, 2, 'hour is 2' );
+}
+
+{
+
+ my $dt = DateTime->new(
+ year => 1970,
+ month => 1,
+ day => 1,
+ hour => 0,
+ time_zone => '-0100',
+ );
+
+ is( $dt->epoch, 3600, 'epoch is 3600' );
+}
+
+{
+
+ my $dt = DateTime->from_epoch(
+ epoch => 0,
+ time_zone => '-0100',
+ );
+
+ is( $dt->offset, -3600, 'offset should be -3600' );
+ is( $dt->epoch, 0, 'epoch is 0' );
+}
+
+# Adding/subtracting should affect epoch
+{
+ my $expected = 1049160602;
+ my $epochtest = DateTime->from_epoch( epoch => $expected );
+
+ is(
+ $epochtest->epoch, $expected,
+ "epoch method returns correct value ($expected)"
+ );
+ is( $epochtest->hour, 1, 'hour' );
+ is( $epochtest->min, 30, 'minute' );
+
+ $epochtest->add( hours => 2 );
+ $expected += 2 * 60 * 60;
+
+ is( $epochtest->hour, 3, 'adjusted hour' );
+ is(
+ $epochtest->epoch, $expected,
+ "epoch method returns correct adjusted value ($expected)"
+ );
+
+}
+
+{
+ my $dt = DateTime->from_epoch( epoch => 0.5 );
+ is(
+ $dt->nanosecond, 500_000_000,
+ 'nanosecond should be 500,000,000 with 0.5 as epoch'
+ );
+
+ is( $dt->epoch, 0, 'epoch should be 0' );
+ is( $dt->hires_epoch, 0.5, 'hires_epoch should be 0.5' );
+}
+
+{
+ my $dt = DateTime->from_epoch( epoch => -0.5 );
+ is(
+ $dt->nanosecond, 500_000_000,
+ 'nanosecond should be 500,000,000 with -0.5 as epoch'
+ );
+
+ is( $dt->epoch, -1, 'epoch should be -1' );
+ is( $dt->hires_epoch, -0.5, 'hires_epoch should be -0.5' );
+}
+
+{
+ my $dt = DateTime->from_epoch( epoch => 1609459199.999999 );
+ is(
+ $dt->nanosecond, 999999000,
+ 'nanosecond should be 999,999,000 with 1609459199.999999 as epoch'
+ );
+
+ is( $dt->epoch, 1609459199, 'epoch should be 1609459199' );
+}
+
+{
+ my $dt = DateTime->from_epoch( epoch => 0.1234567891 );
+ is(
+ $dt->nanosecond, 123_457_000,
+ 'nanosecond should be rounded to 123,457,000 when given 0.1234567891'
+ );
+}
+
+{
+ my $dt = DateTime->from_epoch( epoch => -0.1234567891 );
+ is(
+ $dt->nanosecond, 876_543_000,
+ 'nanosecond should be rounded to 876,543,000 when given -0.1234567891'
+ );
+}
+
+{
+ is(
+ DateTime->new( year => 1904 )->epoch, -2082844800,
+ 'epoch should work back to at least 1904'
+ );
+
+ my $dt = DateTime->from_epoch( epoch => -2082844800 );
+ is( $dt->year, 1904, 'year should be 1904' );
+ is( $dt->month, 1, 'month should be 1904' );
+ is( $dt->day, 1, 'day should be 1904' );
+}
+
+{
+ for my $pair (
+ [ 1 => -62135596800 ],
+ [ 99 => -59042995200 ],
+ [ 100 => -59011459200 ],
+ [ 999 => -30641760000 ],
+ ) {
+
+ my ( $year, $epoch ) = @{$pair};
+
+ is(
+ DateTime->new( year => $year )->epoch, $epoch,
+ "epoch for $year is $epoch"
+ );
+ }
+}
+
+{
+
+ package Number::Overloaded;
+ use overload
+ '0+' => sub { $_[0]->{num} },
+ fallback => 1;
+
+ sub new { bless { num => $_[1] }, $_[0] }
+}
+
+{
+ my $time = Number::Overloaded->new(12345);
+
+ my $dt = DateTime->from_epoch( epoch => $time );
+ is( $dt->epoch, 12345, 'can pass overloaded object to from_epoch' );
+
+ $time = Number::Overloaded->new(12345.1234);
+ $dt = DateTime->from_epoch( epoch => $time );
+ is( $dt->epoch, 12345, 'decimal epoch in overloaded object' );
+
+ is(
+ DateTime->from_epoch($time), $dt,
+ 'passing one arg (object with number overload) to from_epoch returns expected result'
+ );
+}
+
+{
+ my $time = Number::Overloaded->new(-12345);
+ my $dt = DateTime->from_epoch( epoch => $time );
+
+ is( $dt->epoch, -12345, 'negative epoch in overloaded object' );
+}
+
+{
+ my @tests = (
+ 'asldkjlkjd',
+ '1234 foo',
+ 'adlkj 1234',
+ );
+
+ for my $test (@tests) {
+ like(
+ exception { DateTime->from_epoch( epoch => $test ) },
+ qr/Validation failed for type named Num/,
+ qq{'$test' is not a valid epoch value}
+ );
+ }
+}
+
+done_testing();
--- /dev/null
+use strict;
+use warnings;
+
+use Test::More;
+
+use DateTime;
+
+undef $ENV{PERL_DATETIME_DEFAULT_TZ};
+
+{
+ my $dt = DateTime->new(
+ year => 1996, month => 11, day => 22,
+ hour => 18, minute => 30, second => 20,
+ time_zone => 'UTC',
+ );
+
+ is( $dt->month, 11, 'check month' );
+
+ $dt->set( month => 5 );
+ is( $dt->year, 1996, 'check year after setting month' );
+ is( $dt->month, 5, 'check month after setting it' );
+ is( $dt->day, 22, 'check day after setting month' );
+ is( $dt->hour, 18, 'check hour after setting month' );
+ is( $dt->minute, 30, 'check minute after setting month' );
+ is( $dt->second, 20, 'check second after setting month' );
+
+ $dt->set_time_zone('-060001');
+ is( $dt->year, 1996, 'check year after setting time zone' );
+ is( $dt->month, 5, 'check month after setting time zone' );
+ is( $dt->day, 22, 'check day after setting time zone' );
+ is( $dt->hour, 12, 'check hour after setting time zone' );
+ is( $dt->minute, 30, 'check minute after setting time zone' );
+ is( $dt->second, 19, 'check second after setting time zone' );
+ is(
+ $dt->offset, -21601,
+ 'check time zone offset after setting new time zone'
+ );
+
+ $dt->set_time_zone('+0100');
+ is( $dt->year, 1996, 'check year after setting time zone' );
+ is( $dt->month, 5, 'check month after setting time zone' );
+ is( $dt->day, 22, 'check day after setting time zone' );
+ is( $dt->hour, 19, 'check hour after setting time zone' );
+ is( $dt->minute, 30, 'check minute after setting time zone' );
+ is( $dt->second, 20, 'check second after setting time zone' );
+ is(
+ $dt->offset, 3600,
+ 'check time zone offset after setting new time zone'
+ );
+
+ $dt->set( hour => 17 );
+ is( $dt->year, 1996, 'check year after setting hour' );
+ is( $dt->month, 5, 'check month after setting hour' );
+ is( $dt->day, 22, 'check day after setting hour' );
+ is( $dt->hour, 17, 'check hour after setting hour' );
+ is( $dt->minute, 30, 'check minute after setting hour' );
+ is( $dt->second, 20, 'check second after setting hour' );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 1996, month => 11, day => 22,
+ hour => 18, minute => 30, second => 20,
+ time_zone => 'UTC',
+ );
+
+ $dt->set_year(2000);
+ is( $dt->year, 2000, 'check year after set_year' );
+
+ $dt->set_month(5);
+ is( $dt->month, 5, 'check month after set_month' );
+
+ $dt->set_day(6);
+ is( $dt->day, 6, 'check day after set_day' );
+
+ $dt->set_hour(7);
+ is( $dt->hour, 7, 'check hour after set_hour' );
+
+ $dt->set_minute(8);
+ is( $dt->minute, 8, 'check minute after set_minute' );
+
+ $dt->set_second(9);
+ is( $dt->second, 9, 'check second after set_second' );
+
+ $dt->set_nanosecond(9999);
+ is( $dt->nanosecond, 9999, 'check nanosecond after set_nanosecond' );
+
+ $dt->set_locale('fr_FR');
+ is( $dt->month_name, 'mai', 'check month name after set_locale' );
+}
+
+done_testing();
--- /dev/null
+use strict;
+use warnings;
+
+use Test::More;
+use Test::Fatal;
+
+use DateTime;
+
+undef $ENV{PERL_DATETIME_DEFAULT_TZ};
+
+{
+ my $dt = DateTime->new(
+ year => 1996, month => 11, day => 22,
+ hour => 18, minute => 30, second => 20,
+ time_zone => 'UTC',
+ );
+ $dt->add( weeks => 8 );
+
+ is( $dt->year, 1997, 'year rollover' );
+ is( $dt->month, 1, 'month set on year rollover' );
+ is( $dt->datetime, '1997-01-17T18:30:20', 'okay on year rollover' );
+
+ $dt->add( weeks => 2 );
+ is( $dt->datetime, '1997-01-31T18:30:20', 'Adding weeks' );
+
+ $dt->add( seconds => 15 );
+ is( $dt->datetime, '1997-01-31T18:30:35', 'Adding seconds' );
+
+ $dt->add( minutes => 12 );
+ is( $dt->datetime, '1997-01-31T18:42:35', 'Adding minutes' );
+
+ $dt->add( minutes => 25, hours => 3, seconds => 7 );
+ is( $dt->datetime, '1997-01-31T22:07:42', 'Adding h,m,s' );
+}
+
+{
+ # Now, test the adding of durations
+ my $dt = DateTime->new(
+ year => 1986, month => 1, day => 28,
+ hour => 16, minute => 38,
+ time_zone => 'UTC'
+ );
+
+ $dt->add( minutes => 1, seconds => 12 );
+ is(
+ $dt->datetime, '1986-01-28T16:39:12',
+ 'Adding durations with minutes and seconds works'
+ );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 1986, month => 1, day => 28,
+ hour => 16, minute => 38,
+ time_zone => 'UTC'
+ );
+
+ $dt->add( seconds => 30 );
+ is(
+ $dt->datetime, '1986-01-28T16:38:30',
+ 'Adding durations with seconds only works'
+ );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 1986, month => 1, day => 28,
+ hour => 16, minute => 38,
+ time_zone => 'UTC'
+ );
+
+ $dt->add( hours => 1, minutes => 10 );
+ is(
+ $dt->datetime, '1986-01-28T17:48:00',
+ 'Adding durations with hours and minutes works'
+ );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 1986, month => 1, day => 28,
+ hour => 16, minute => 38,
+ time_zone => 'UTC'
+ );
+
+ $dt->add( days => 3 );
+ is(
+ $dt->datetime, '1986-01-31T16:38:00',
+ 'Adding durations with days only works'
+ );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 1986, month => 1, day => 28,
+ hour => 16, minute => 38,
+ time_zone => 'UTC'
+ );
+
+ $dt->add( days => 3, hours => 2 );
+ is(
+ $dt->datetime, '1986-01-31T18:38:00',
+ 'Adding durations with days and hours works'
+ );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 1986, month => 1, day => 28,
+ hour => 16, minute => 38,
+ time_zone => 'UTC'
+ );
+
+ $dt->add( days => 3, hours => 2, minutes => 20, seconds => 15 );
+ is(
+ $dt->datetime, '1986-01-31T18:58:15',
+ 'Adding durations with days, hours, minutes, and seconds works'
+ );
+}
+
+{
+ # Add 15M - this test failed at one point in N::I::Time
+ my $dt = DateTime->new(
+ year => 2001, month => 4, day => 5,
+ hour => 16,
+ time_zone => 'UTC'
+ );
+
+ $dt->add( minutes => 15 );
+ is(
+ $dt->datetime, '2001-04-05T16:15:00',
+ 'Adding minutes to an ical string'
+ );
+
+ # Subtract a duration
+ $dt->add( minutes => -15 );
+ is( $dt->datetime, '2001-04-05T16:00:00', 'Back where we started' );
+}
+
+{
+ # Syntactic sugar works as well
+ my $dt = DateTime->new(
+ year => 2016, month => 11, day => 11,
+ hour => 17,
+ time_zone => 'UTC'
+ );
+ my $duration = DateTime::Duration->new( years => 1 );
+ $dt->add($duration);
+ is(
+ $dt->datetime, '2017-11-11T17:00:00',
+ 'Adding a Duration object via ->add works',
+ );
+ $duration = DateTime::Duration->new( months => 5, days => 1 );
+ $dt->subtract($duration);
+ is(
+ $dt->datetime, '2017-06-10T17:00:00',
+ 'Subtracting a Duration object via ->subtract works',
+ );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 1986, month => 1, day => 28,
+ hour => 16, minute => 38,
+ time_zone => 'UTC'
+ );
+
+ $dt->add( seconds => 60 );
+ is(
+ $dt->datetime, '1986-01-28T16:39:00',
+ 'adding positive seconds with seconds works'
+ );
+ $dt->add( seconds => -120 );
+ is(
+ $dt->datetime, '1986-01-28T16:37:00',
+ 'adding negative seconds with seconds works'
+ );
+}
+
+{
+ # test sub months
+ my $dt = DateTime->new(
+ year => 2001, month => 1, day => 31,
+ time_zone => 'UTC',
+ );
+ $dt->add( days => 1 );
+ is( $dt->date, '2001-02-01', 'february 1st' );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 2001, month => 2, day => 28,
+ time_zone => 'UTC',
+ );
+ $dt->add( days => 1 );
+ is( $dt->date, '2001-03-01', 'march 1st' );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 2001, month => 3, day => 31,
+ time_zone => 'UTC',
+ );
+ $dt->add( days => 1 );
+ is( $dt->date, '2001-04-01', 'april 1st' );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 2001, month => 4, day => 30,
+ time_zone => 'UTC',
+ );
+ $dt->add( days => 1 );
+ is( $dt->date, '2001-05-01', 'may 1st' );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 2001, month => 5, day => 31,
+ time_zone => 'UTC',
+ );
+ $dt->add( days => 1 );
+ is( $dt->date, '2001-06-01', 'june 1st' );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 2001, month => 6, day => 30,
+ time_zone => 'UTC',
+ );
+ $dt->add( days => 1 );
+ is( $dt->date, '2001-07-01', 'july 1st' );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 2001, month => 7, day => 31,
+ time_zone => 'UTC',
+ );
+ $dt->add( days => 1 );
+ is( $dt->date, '2001-08-01', 'august 1st' );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 2001, month => 8, day => 31,
+ time_zone => 'UTC',
+ );
+ $dt->add( days => 1 );
+ is( $dt->date, '2001-09-01', 'september 1st' );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 2001, month => 9, day => 30,
+ time_zone => 'UTC',
+ );
+ $dt->add( days => 1 );
+ is( $dt->date, '2001-10-01', 'october 1st' );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 2001, month => 10, day => 31,
+ time_zone => 'UTC',
+ );
+ $dt->add( days => 1 );
+ is( $dt->date, '2001-11-01', 'november 1st' );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 2001, month => 11, day => 30,
+ time_zone => 'UTC',
+ );
+ $dt->add( days => 1 );
+ is( $dt->date, '2001-12-01', 'december 1st' );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 2001, month => 12, day => 31,
+ time_zone => 'UTC',
+ );
+ $dt->add( days => 1 );
+ is( $dt->date, '2002-01-01', 'january 1st' );
+}
+
+{
+ # Before leap day, not a leap year ...
+ my $dt = DateTime->new(
+ year => 2001, month => 2, day => 28,
+ time_zone => 'UTC',
+ );
+ $dt->add( years => 1 );
+ is( $dt->date, '2002-02-28', 'Adding a year' );
+ $dt->add( years => 17 );
+ is( $dt->date, '2019-02-28', 'Adding 17 years' );
+}
+
+{
+ # After leap day, not a leap year ...
+ my $dt = DateTime->new(
+ year => 2001, month => 3, day => 28,
+ time_zone => 'UTC',
+ );
+ $dt->add( years => 1 );
+ is( $dt->date, '2002-03-28', 'Adding a year' );
+ $dt->add( years => 17 );
+ is( $dt->date, '2019-03-28', 'Adding 17 years' );
+}
+
+{
+ # On leap day, in a leap year ...
+ my $dt = DateTime->new(
+ year => 2000, month => 2, day => 29,
+ time_zone => 'UTC',
+ );
+ $dt->add( years => 1 );
+ is( $dt->date, '2001-03-01', 'Adding a year' );
+ $dt->add( years => 17 );
+ is( $dt->date, '2018-03-01', 'Adding 17 years' );
+}
+
+{
+ # Before leap day, in a leap year ...
+ my $dt = DateTime->new(
+ year => 2000, month => 2, day => 28,
+ time_zone => 'UTC',
+ );
+ $dt->add( years => 1 );
+ is( $dt->date, '2001-02-28', 'Adding a year' );
+ $dt->add( years => 17 );
+ is( $dt->date, '2018-02-28', 'Adding 17 years' );
+}
+
+{
+ # After leap day, in a leap year ...
+ my $dt = DateTime->new(
+ year => 2000, month => 3, day => 28,
+ time_zone => 'UTC',
+ );
+ $dt->add( years => 1 );
+ is( $dt->date, '2001-03-28', 'Adding a year' );
+ $dt->add( years => 17 );
+ is( $dt->date, '2018-03-28', 'Adding 17 years' );
+}
+
+{
+ # Test a bunch of years, before leap day
+ for ( 1 .. 99 ) {
+ my $dt = DateTime->new(
+ year => 2000, month => 2, day => 28,
+ time_zone => 'UTC',
+ );
+ $dt->add( years => $_ );
+ my $x = sprintf '%02d', $_;
+ is( $dt->date, "20${x}-02-28", "Adding $_ years" );
+ }
+
+ # Test a bunch of years, after leap day
+ for ( 1 .. 99 ) {
+ my $dt = DateTime->new(
+ year => 2000, month => 3, day => 28,
+ time_zone => 'UTC',
+ );
+ $dt->add( years => $_ );
+ my $x = sprintf '%02d', $_;
+ is( $dt->date, "20${x}-03-28", "Adding $_ years" );
+ }
+}
+
+# And more of the same, starting on a non-leap year
+
+{
+ # Test a bunch of years, before leap day
+ for ( 1 .. 97 ) {
+ my $dt = DateTime->new(
+ year => 2002, month => 2, day => 28,
+ time_zone => 'UTC',
+ );
+ $dt->add( years => $_ );
+ my $x = sprintf '%02d', $_ + 2;
+ is( $dt->date, "20${x}-02-28", "Adding $_ years" );
+ }
+
+ # Test a bunch of years, after leap day
+ for ( 1 .. 97 ) {
+ my $dt = DateTime->new(
+ year => 2002, month => 3, day => 28,
+ time_zone => 'UTC',
+ );
+ $dt->add( years => $_ );
+ my $x = sprintf '%02d', $_ + 2;
+ is( $dt->date, "20${x}-03-28", "Adding $_ years" );
+ }
+}
+
+{
+ # subtract years
+ for ( 1 .. 97 ) {
+ my $dt = DateTime->new(
+ year => 1999, month => 3, day => 1,
+ time_zone => 'UTC',
+ );
+ $dt->add( years => -$_ );
+ my $x = sprintf '%02d', 99 - $_;
+ is( $dt->date, "19${x}-03-01", "Subtracting $_ years" );
+ }
+}
+
+# test some old bugs
+
+{
+ # bug adding months where current month + months added were > 25
+ my $dt = DateTime->new(
+ year => 1997, month => 12, day => 1,
+ time_zone => 'UTC',
+ );
+ $dt->add( months => 14 );
+ is( $dt->date, '1999-02-01', 'Adding months--rollover year' );
+}
+
+{
+ # bug subtracting months with year rollover
+ my $dt = DateTime->new(
+ year => 1997, month => 1, day => 1,
+ time_zone => 'UTC',
+ );
+ $dt->add( months => -1 );
+ is( $dt->date, '1996-12-01', 'Subtracting months--rollover year' );
+
+ my $new = $dt + DateTime::Duration->new( years => 2 );
+ is( $new->date, '1998-12-01', 'test + overloading' );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 1997, month => 1, day => 1,
+ hour => 1, minute => 1, second => 59,
+ nanosecond => 500000000,
+ time_zone => 'UTC',
+ );
+
+ $dt->add( nanoseconds => 500000000 );
+ is( $dt->second, 0, 'fractional second rollover' );
+ $dt->add( nanoseconds => 123000000 );
+ is( $dt->fractional_second, 0.123, 'as fractional_second' );
+}
+
+{
+ my $dt = DateTime->new( year => 2003, month => 2, day => 28 );
+ $dt->add( months => 1, days => 1 );
+
+ is( $dt->ymd, '2003-04-01', 'order of units in date math' );
+}
+
+{
+ my $dt = DateTime->new( year => 2003, hour => 12, minute => 1 );
+ $dt->add( minutes => 30, seconds => -1 );
+
+ is( $dt->hour, 12, 'hour is 12' );
+ is( $dt->minute, 30, 'minute is 30' );
+ is( $dt->second, 59, 'second is 59' );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 2014,
+ month => 7,
+ day => 1,
+ time_zone => 'floating',
+ );
+
+ $dt->add( days => 2 );
+ is( $dt->date, '2014-07-03', 'adding 2 days to a floating datetime' );
+}
+
+{
+ my $dt = DateTime->new( year => 0, month => 1, day => 1 );
+ my $dt2;
+ is(
+ exception { $dt2 = $dt->clone->add( days => 268_526_345 ) },
+ undef,
+ 'no exception adding 268,526,345 days to 0000-01-01'
+ );
+
+ if ($dt2) {
+ is(
+ $dt2->ymd(),
+ '735200-02-29',
+ 'adding 268,526,345 days produces 735200-02-29'
+ );
+ }
+}
+
+done_testing();
--- /dev/null
+use strict;
+use warnings;
+
+use Test::More;
+
+use DateTime;
+
+undef $ENV{PERL_DATETIME_DEFAULT_TZ};
+
+my $date1 = DateTime->new(
+ year => 1997, month => 10, day => 24,
+ hour => 12, minute => 0, second => 0,
+ time_zone => 'UTC'
+);
+my $date2 = DateTime->new(
+ year => 1997, month => 10, day => 24,
+ hour => 12, minute => 0, second => 0,
+ time_zone => 'UTC'
+);
+
+# make sure that comparing to itself eq 0
+my $identity = $date1->compare($date2);
+ok( $identity == 0, 'Identity comparison' );
+
+$date2 = DateTime->new(
+ year => 1997, month => 10, day => 24,
+ hour => 12, minute => 0, second => 1,
+ time_zone => 'UTC'
+);
+ok( $date1->compare($date2) == -1, 'Comparison $a < $b, 1 second diff' );
+
+$date2 = DateTime->new(
+ year => 1997, month => 10, day => 24,
+ hour => 12, minute => 1, second => 0,
+ time_zone => 'UTC'
+);
+ok( $date1->compare($date2) == -1, 'Comparison $a < $b, 1 minute diff' );
+
+$date2 = DateTime->new(
+ year => 1997, month => 10, day => 24,
+ hour => 13, minute => 0, second => 0,
+ time_zone => 'UTC'
+);
+ok( $date1->compare($date2) == -1, 'Comparison $a < $b, 1 hour diff' );
+
+$date2 = DateTime->new(
+ year => 1997, month => 10, day => 25,
+ hour => 12, minute => 0, second => 0,
+ time_zone => 'UTC'
+);
+ok( $date1->compare($date2) == -1, 'Comparison $a < $b, 1 day diff' );
+
+$date2 = DateTime->new(
+ year => 1997, month => 11, day => 24,
+ hour => 12, minute => 0, second => 0,
+ time_zone => 'UTC'
+);
+ok( $date1->compare($date2) == -1, 'Comparison $a < $b, 1 month diff' );
+
+$date2 = DateTime->new(
+ year => 1998, month => 10, day => 24,
+ hour => 12, minute => 0, second => 0,
+ time_zone => 'UTC'
+);
+ok( $date1->compare($date2) == -1, 'Comparison $a < $b, 1 year diff' );
+
+# $a > $b tests
+
+$date2 = DateTime->new(
+ year => 1997, month => 10, day => 24,
+ hour => 11, minute => 59, second => 59,
+ time_zone => 'UTC'
+);
+ok( $date1->compare($date2) == 1, 'Comparison $a > $b, 1 second diff' );
+
+$date2 = DateTime->new(
+ year => 1997, month => 10, day => 24,
+ hour => 11, minute => 59, second => 0,
+ time_zone => 'UTC'
+);
+ok( $date1->compare($date2) == 1, 'Comparison $a > $b, 1 minute diff' );
+
+$date2 = DateTime->new(
+ year => 1997, month => 10, day => 24,
+ hour => 11, minute => 0, second => 0,
+ time_zone => 'UTC'
+);
+ok( $date1->compare($date2) == 1, 'Comparison $a > $b, 1 hour diff' );
+
+$date2 = DateTime->new(
+ year => 1997, month => 10, day => 23,
+ hour => 12, minute => 0, second => 0,
+ time_zone => 'UTC'
+);
+ok( $date1->compare($date2) == 1, 'Comparison $a > $b, 1 day diff' );
+
+$date2 = DateTime->new(
+ year => 1997, month => 9, day => 24,
+ hour => 12, minute => 0, second => 0,
+ time_zone => 'UTC'
+);
+ok( $date1->compare($date2) == 1, 'Comparison $a > $b, 1 month diff' );
+
+$date2 = DateTime->new(
+ year => 1996, month => 10, day => 24,
+ hour => 12, minute => 0, second => 0,
+ time_zone => 'UTC'
+);
+ok( $date1->compare($date2) == 1, 'Comparison $a > $b, 1 year diff' );
+
+my $infinity = DateTime::INFINITY;
+
+ok( $date1->compare($infinity) == -1, 'Comparison $a < inf' );
+
+ok( $date1->compare( -$infinity ) == 1, 'Comparison $a > -inf' );
+
+# comparison overloading, and infinity
+
+ok( ( $date1 <=> $infinity ) == -1, 'Comparison overload $a <=> inf' );
+
+ok( ( $infinity <=> $date1 ) == 1, 'Comparison overload $inf <=> $a' );
+
+# comparison with floating time
+{
+ my $dt1 = DateTime->new(
+ year => 1997, month => 10, day => 24,
+ hour => 12, minute => 0, second => 0,
+ time_zone => 'America/Chicago'
+ );
+ my $dt2 = DateTime->new(
+ year => 1997, month => 10, day => 24,
+ hour => 12, minute => 0, second => 0,
+ time_zone => 'floating'
+ );
+
+ is(
+ DateTime->compare( $dt1, $dt2 ), 0,
+ 'Comparison with floating time (cmp)'
+ );
+ is( ( $dt1 <=> $dt2 ), 0, 'Comparison with floating time (<=>)' );
+ is( ( $dt1 cmp $dt2 ), 0, 'Comparison with floating time (cmp)' );
+ is(
+ DateTime->compare_ignore_floating( $dt1, $dt2 ), 1,
+ 'Comparison with floating time (cmp)'
+ );
+}
+
+# sub-second
+{
+ my $dt1 = DateTime->new(
+ year => 1997, month => 10, day => 24,
+ hour => 12, minute => 0, second => 0,
+ nanosecond => 100,
+ );
+
+ my $dt2 = DateTime->new(
+ year => 1997, month => 10, day => 24,
+ hour => 12, minute => 0, second => 0,
+ nanosecond => 200,
+ );
+
+ is(
+ DateTime->compare( $dt1, $dt2 ), -1,
+ 'Comparison with floating time (cmp)'
+ );
+ is( ( $dt1 <=> $dt2 ), -1, 'Comparison with floating time (<=>)' );
+ is( ( $dt1 cmp $dt2 ), -1, 'Comparison with floating time (cmp)' );
+}
+
+{
+ my $dt1 = DateTime->new(
+ year => 2000, month => 10, day => 24,
+ hour => 12, minute => 0, second => 0,
+ nanosecond => 10000,
+ );
+
+ my $dt2 = DateTime->new(
+ year => 2000, month => 10, day => 24,
+ hour => 12, minute => 0, second => 0,
+ nanosecond => 10000,
+ );
+
+ is(
+ DateTime->compare( $dt1, $dt2 ), 0,
+ 'Comparison with floating time (cmp)'
+ );
+ is( ( $dt1 <=> $dt2 ), 0, 'Comparison with floating time (<=>)' );
+ is( ( $dt1 cmp $dt2 ), 0, 'Comparison with floating time (cmp)' );
+ is(
+ DateTime->compare_ignore_floating( $dt1, $dt2 ), 0,
+ 'Comparison with compare_ignore_floating (cmp)'
+ );
+}
+
+{
+
+ package DT::Test;
+
+ sub new {
+ my $class = shift;
+ return bless [@_], $class;
+ }
+
+ sub utc_rd_values { @{ $_[0] } }
+}
+
+{
+ my $dt = DateTime->new( year => 1950 );
+ my @values = $dt->utc_rd_values;
+
+ $values[2] += 50;
+
+ my $dt_test1 = DT::Test->new(@values);
+
+ ok( $dt < $dt_test1, 'comparison works across different classes' );
+
+ $values[0] -= 1;
+
+ my $dt_test2 = DT::Test->new(@values);
+
+ ok( $dt > $dt_test2, 'comparison works across different classes' );
+}
+
+{
+ my $dt = DateTime->now;
+ ok(
+ $dt->is_between( _add( $dt, -1 ), _add( $dt, 1 ) ),
+ 'is_between 1 minute before and 1 minute after'
+ );
+ ok(
+ !$dt->is_between( _add( $dt, 1 ), _add( $dt, 2 ) ),
+ 'not is_between 1 minute after and 2 minutes after'
+ );
+ ok(
+ !$dt->is_between( _add( $dt, 1 ), _add( $dt, -1 ) ),
+ 'not is_between 1 minute after and 1 minute before (wrong order for lower and upper)'
+ );
+ ok(
+ !$dt->is_between( $dt, _add( $dt, 1 ) ),
+ 'not is_between same datetime and 1 minute after'
+ );
+ ok(
+ !$dt->is_between( _add( $dt, -1 ), $dt ),
+ 'not is_between 1 minute before and same datetime'
+ );
+}
+
+sub _add {
+ shift->clone->add( minutes => shift );
+}
+
+done_testing();
--- /dev/null
+use strict;
+use warnings;
+
+use Test::More;
+
+use DateTime;
+
+undef $ENV{PERL_DATETIME_DEFAULT_TZ};
+
+## no critic (Subroutines::ProtectPrivateSubs)
+
+# test _ymd2rd and _rd2ymd for various dates
+# 2 tests are performed for each date (on _ymd2rd and _rd2ymd)
+# dates are specified as [rd,year,month,day]
+for ( # min and max supported days (for 32-bit system)
+ [ -( 2**28 ), -734951, 9, 7 ],
+ [ 2**28, 734952, 4, 25 ],
+
+ # some miscellaneous dates (these are actually epoch dates for
+ # various calendars from Calendrical Calculations (1st ed) Table
+ # 1.1)
+ [ -1721425, -4713, 11, 24 ],
+ [ -1373427, -3760, 9, 7 ],
+ [ -1137142, -3113, 8, 11 ],
+ [ -1132959, -3101, 1, 23 ],
+ [ -963099, -2636, 2, 15 ],
+ [ -1, 0, 12, 30 ], [ 1, 1, 1, 1 ],
+ [ 2796, 8, 8, 27 ],
+ [ 103605, 284, 8, 29 ],
+ [ 226896, 622, 3, 22 ],
+ [ 227015, 622, 7, 19 ],
+ [ 654415, 1792, 9, 22 ],
+ [ 673222, 1844, 3, 21 ]
+) {
+ is(
+ join( '/', DateTime->_rd2ymd( $_->[0] ) ),
+ join( '/', @{$_}[ 1 .. 3 ] ),
+ $_->[0] . " \t=> " . join '/', @{$_}[ 1 .. 3 ]
+ );
+
+ is(
+ DateTime->_ymd2rd( @{$_}[ 1 .. 3 ] ), $_->[0],
+ join( '/', @{$_}[ 1 .. 3 ] ) . " \t=> " . $_->[0]
+ );
+}
+
+# normalization tests
+for (
+ [ -1753469, -4797, -33, 1 ],
+ [ -1753469, -4803, 39, 1 ],
+ [ -1753105, -4796, -34, 28 ],
+ [ -1753105, -4802, 38, 28 ]
+) {
+ is(
+ DateTime->_ymd2rd( @{$_}[ 1 .. 3 ] ), $_->[0],
+ join( '/', @{$_}[ 1 .. 3 ] )
+ . " \t=> "
+ . $_->[0]
+ . ' (normalization)'
+ );
+}
+
+# test first and last day of each month from Jan -4800..Dec 4800
+# this test bails after the first failure with a not ok.
+# if it completes successfully, only one ok is issued.
+
+my @mlen = ( 0, 31, 0, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 );
+my ( $dno, $y, $m, $dno2, $y2, $m2, $d2, $mlen ) = ( -1753530, -4800, 1 );
+
+while ( $y <= 4800 ) {
+
+ # test $y,$m,1
+ ++$dno;
+ $dno2 = DateTime->_ymd2rd( $y, $m, 1 );
+ if ( $dno != $dno2 ) {
+ is(
+ $dno2, $dno,
+ "greg torture test: _ymd2rd($y,$m,1) should be $dno"
+ );
+ last;
+ }
+ ( $y2, $m2, $d2 ) = DateTime->_rd2ymd($dno);
+
+ if ( $y2 != $y || $m2 != $m || $d2 != 1 ) {
+ is(
+ "$y2/$m2/$d2", "$y/$m/1",
+ "greg torture test: _rd2ymd($dno) should be $y/$m/1"
+ );
+ last;
+ }
+
+ # test $y,$m,$mlen
+ $mlen = $mlen[$m] || ( $y % 4 ? 28 : $y % 100 ? 29 : $y % 400 ? 28 : 29 );
+ $dno += $mlen - 1;
+ $dno2 = DateTime->_ymd2rd( $y, $m, $mlen );
+ if ( $dno != $dno2 ) {
+ is(
+ $dno2, $dno,
+ "greg torture test: _ymd2rd($y,$m,$mlen) should be $dno"
+ );
+ last;
+ }
+ ( $y2, $m2, $d2 ) = DateTime->_rd2ymd($dno);
+
+ if ( $y2 != $y || $m2 != $m || $d2 != $mlen ) {
+ is(
+ "$y2/$m2/$d2", "$y/$m/$mlen",
+ "greg torture test: _rd2ymd($dno) should be $y/$m/$mlen"
+ );
+ last;
+ }
+
+ # and on to the next month...
+ if ( ++$m > 12 ) {
+ $m = 1;
+ ++$y;
+ }
+}
+
+pass('greg torture test') if $y == 4801;
+
+done_testing();
--- /dev/null
+use strict;
+use warnings;
+
+use Test::More;
+
+use DateTime;
+
+undef $ENV{PERL_DATETIME_DEFAULT_TZ};
+
+{
+ my $date1 = DateTime->new(
+ year => 2001, month => 5, day => 10,
+ hour => 4, minute => 3, second => 2,
+ nanosecond => 12,
+ time_zone => 'UTC'
+ );
+
+ my $date2 = DateTime->new(
+ year => 2001, month => 6, day => 12,
+ hour => 5, minute => 7, second => 23,
+ nanosecond => 7,
+ time_zone => 'UTC'
+ );
+
+ my $dur = $date2 - $date1;
+
+ is( $dur->delta_months, 1, 'delta_months should be 1' );
+ is( $dur->delta_days, 2, 'delta_days should be 2' );
+ is( $dur->delta_minutes, 64, 'delta_minutes should be 64' );
+ is( $dur->delta_seconds, 20, 'delta_seconds should be 20' );
+ is(
+ $dur->delta_nanoseconds, 999_999_995,
+ 'delta_nanoseconds should be 999,999,995'
+ );
+
+ is( $dur->years, 0, 'Years' );
+ is( $dur->months, 1, 'Months' );
+ is( $dur->weeks, 0, 'Weeks' );
+ is( $dur->days, 2, 'Days' );
+ is( $dur->hours, 1, 'Hours' );
+ is( $dur->minutes, 4, 'Minutes' );
+ is( $dur->seconds, 20, 'Seconds' );
+ is( $dur->nanoseconds, 999_999_995, 'Nanoseconds' );
+}
+
+{
+ my $date1 = DateTime->new(
+ year => 2001, month => 5, day => 10,
+ hour => 4, minute => 3, second => 2,
+ time_zone => 'UTC'
+ );
+
+ my $date2 = DateTime->new(
+ year => 2001, month => 6, day => 12,
+ hour => 5, minute => 7, second => 23,
+ time_zone => 'UTC'
+ );
+
+ my $dur = $date1 - $date2;
+
+ is( $dur->delta_months, -1, 'delta_months should be -1' );
+ is( $dur->delta_days, -2, 'delta_days should be -2' );
+ is( $dur->delta_minutes, -64, 'delta_minutes should be 64' );
+ is( $dur->delta_seconds, -21, 'delta_seconds should be 20' );
+ is( $dur->delta_nanoseconds, 0, 'delta_nanoseconds should be 0' );
+
+ is( $dur->years, 0, 'Years' );
+ is( $dur->months, 1, 'Months' );
+ is( $dur->weeks, 0, 'Weeks' );
+ is( $dur->days, 2, 'Days' );
+ is( $dur->hours, 1, 'Hours' );
+ is( $dur->minutes, 4, 'Minutes' );
+ is( $dur->seconds, 21, 'Seconds' );
+ is( $dur->nanoseconds, 0, 'Nanoseconds' );
+
+ $dur = $date1 - $date1;
+ is( $dur->delta_days, 0, 'date minus itself should have no delta days' );
+ is(
+ $dur->delta_seconds, 0,
+ 'date minus itself should have no delta seconds'
+ );
+
+ my $new = $date1 - DateTime::Duration->new( years => 2 );
+ is( $new->datetime, '1999-05-10T04:03:02', 'test - overloading' );
+}
+
+{
+ my $d = DateTime->new(
+ year => 2001, month => 10, day => 19,
+ hour => 5, minute => 1, second => 1,
+ time_zone => 'UTC'
+ );
+
+ my $d2 = $d->clone;
+ $d2->subtract(
+ weeks => 1,
+ days => 1,
+ hours => 1,
+ minutes => 1,
+ seconds => 1,
+ );
+
+ ok( defined $d2, 'Defined' );
+ is(
+ $d2->datetime, '2001-10-11T04:00:00',
+ 'Subtract and get the right thing'
+ );
+}
+
+# based on bug report from Eric Cholet
+{
+ my $dt1 = DateTime->new(
+ year => 2003, month => 2, day => 9,
+ hour => 0, minute => 0, second => 1,
+ time_zone => 'UTC',
+ );
+
+ my $dt2 = DateTime->new(
+ year => 2003, month => 2, day => 7,
+ hour => 23, minute => 59, second => 59,
+ time_zone => 'UTC',
+ );
+
+ my $dur1 = $dt1->subtract_datetime($dt2);
+
+ is( $dur1->delta_days, 1, 'delta_days should be 1' );
+ is( $dur1->delta_seconds, 2, 'delta_seconds should be 2' );
+
+ my $dt3 = $dt2 + $dur1;
+
+ is(
+ DateTime->compare( $dt1, $dt3 ), 0,
+ 'adding difference back to dt1 should give same datetime'
+ );
+
+ my $dur2 = $dt2->subtract_datetime($dt1);
+
+ is( $dur2->delta_days, -1, 'delta_days should be -1' );
+ is( $dur2->delta_seconds, -2, 'delta_seconds should be -2' );
+
+ my $dt4 = $dt1 + $dur2;
+
+ is(
+ DateTime->compare( $dt2, $dt4 ), 0,
+ 'adding difference back to dt2 should give same datetime'
+ );
+}
+
+# test if the day changes because of a nanosecond subtract
+{
+ my $dt = DateTime->new(
+ year => 2001, month => 6, day => 12,
+ hour => 0, minute => 0, second => 0,
+ time_zone => 'UTC'
+ );
+ $dt->subtract( nanoseconds => 1 );
+ is( $dt->nanosecond, 999999999, 'negative nanoseconds normalize ok' );
+ is( $dt->second, 59, 'seconds normalize ok' );
+ is( $dt->minute, 59, 'minutes normalize ok' );
+ is( $dt->hour, 23, 'hours normalize ok' );
+ is( $dt->day, 11, 'days normalize ok' );
+}
+
+# test for a bug when nanoseconds were greater in earlier datetime
+{
+ my $dt1 = DateTime->new(
+ year => 2000, month => 1, day => 5,
+ hour => 0, minute => 10, second => 0,
+ nanosecond => 1,
+ time_zone => 'UTC',
+ );
+
+ my $dt2 = DateTime->new(
+ year => 2000, month => 1, day => 6,
+ hour => 0, minute => 10, second => 0,
+ nanosecond => 0,
+ time_zone => 'UTC',
+ );
+ my $dur = $dt2 - $dt1;
+
+ is( $dur->delta_days, 0, 'delta_days is 0' );
+ is( $dur->delta_minutes, 1439, 'delta_minutes is 1439' );
+ is( $dur->delta_seconds, 59, 'delta_seconds is 59' );
+ is(
+ $dur->delta_nanoseconds, 999_999_999,
+ 'delta_nanoseconds is 999,999,999'
+ );
+ ok( $dur->is_positive, 'duration is positive' );
+}
+
+{
+ my $dt1 = DateTime->new(
+ year => 2000, month => 1, day => 5,
+ hour => 0, minute => 10, second => 0,
+ nanosecond => 20,
+ time_zone => 'UTC',
+ );
+
+ my $dt2 = DateTime->new(
+ year => 2000, month => 1, day => 5,
+ hour => 0, minute => 10, second => 0,
+ nanosecond => 10,
+ time_zone => 'UTC',
+ );
+
+ my $dur = $dt2 - $dt1;
+
+ is( $dur->delta_days, 0, 'days is 0' );
+ is( $dur->delta_seconds, 0, 'seconds is 0' );
+ is( $dur->delta_nanoseconds, -10, 'nanoseconds is -10' );
+ ok( $dur->is_negative, 'duration is negative' );
+}
+
+{
+ my $dt1 = DateTime->new(
+ year => 2000, month => 1, day => 5,
+ hour => 0, minute => 11, second => 0,
+ nanosecond => 20,
+ time_zone => 'UTC',
+ );
+
+ my $dt2 = DateTime->new(
+ year => 2000, month => 1, day => 5,
+ hour => 0, minute => 10, second => 0,
+ nanosecond => 10,
+ time_zone => 'UTC',
+ );
+
+ my $dur = $dt2 - $dt1;
+
+ is( $dur->delta_days, 0, 'delta_days is 0' );
+ is( $dur->delta_minutes, -1, 'delta_minutes is -1' );
+ is( $dur->delta_seconds, 0, 'delta_seconds is 0' );
+ is( $dur->delta_nanoseconds, -10, 'nanoseconds is -10' );
+ ok( $dur->is_negative, 'duration is negative' );
+}
+
+{
+ my $dt1 = DateTime->new(
+ year => 2000, month => 1, day => 5,
+ hour => 0, minute => 10, second => 0,
+ nanosecond => 20,
+ time_zone => 'UTC',
+ );
+
+ my $dt2 = DateTime->new(
+ year => 2000, month => 1, day => 5,
+ hour => 0, minute => 11, second => 0,
+ nanosecond => 10,
+ time_zone => 'UTC',
+ );
+
+ my $dur = $dt2 - $dt1;
+
+ is( $dur->delta_days, 0, 'days is 0' );
+ is( $dur->delta_seconds, 59, 'seconds is 59' );
+ is( $dur->delta_nanoseconds, 999_999_990, 'nanoseconds is 999,999,990' );
+ ok( $dur->is_positive, 'duration is positive' );
+}
+
+{
+ my $dt1 = DateTime->new(
+ year => 2000, month => 1, day => 5,
+ hour => 0, minute => 11, second => 0,
+ nanosecond => 10,
+ time_zone => 'UTC',
+ );
+
+ my $dt2 = DateTime->new(
+ year => 2000, month => 1, day => 5,
+ hour => 0, minute => 10, second => 0,
+ nanosecond => 20,
+ time_zone => 'UTC',
+ );
+
+ my $dur = $dt2 - $dt1;
+
+ is( $dur->delta_days, 0, 'days is 0' );
+ is( $dur->delta_seconds, -59, 'seconds is -59' );
+ is(
+ $dur->delta_nanoseconds, -999_999_990,
+ 'nanoseconds is -999,999,990'
+ );
+ ok( $dur->is_negative, 'duration is negative' );
+}
+
+{
+ my $dt1 = DateTime->new(
+ year => 2000, month => 1, day => 5,
+ hour => 0, minute => 11, second => 0,
+ nanosecond => 20,
+ time_zone => 'UTC',
+ );
+
+ my $dur = $dt1 - $dt1;
+
+ is( $dur->delta_days, 0, 'days is 0' );
+ is( $dur->delta_seconds, 0, 'seconds is 0' );
+ is( $dur->delta_nanoseconds, 0, 'nanoseconds is 0' );
+ ok( !$dur->is_positive, 'not positive' );
+ ok( !$dur->is_negative, 'not negative' );
+}
+
+{
+ my $dt1 = DateTime->new( year => 2003, month => 12, day => 31 );
+ my $dt2 = $dt1->clone->subtract( months => 1 );
+
+ is( $dt2->year, 2003, '2003-12-31 - 1 month = 2003-11-30' );
+ is( $dt2->month, 11, '2003-12-31 - 1 month = 2003-11-30' );
+ is( $dt2->day, 30, '2003-12-31 - 1 month = 2003-11-30' );
+}
+
+{
+ my $date1 = DateTime->new(
+ year => 2001, month => 5, day => 10,
+ hour => 4, minute => 3, second => 2,
+ nanosecond => 12,
+ time_zone => 'UTC'
+ );
+
+ my $date2 = DateTime->new(
+ year => 2001, month => 6, day => 12,
+ hour => 5, minute => 7, second => 23,
+ nanosecond => 7,
+ time_zone => 'UTC'
+ );
+
+ my $dur = $date2->subtract_datetime_absolute($date1);
+
+ is( $dur->delta_months, 0, 'delta_months is 0' );
+ is( $dur->delta_minutes, 0, 'delta_minutes is 0' );
+ is( $dur->delta_seconds, 2_855_060, 'delta_seconds is 2,855,060' );
+ is(
+ $dur->delta_nanoseconds, 999_999_995,
+ 'delta_seconds is 999,999,995'
+ );
+}
+
+{
+ my $date1 = DateTime->new(
+ year => 2001, month => 5, day => 10,
+ hour => 4, minute => 3, second => 2,
+ time_zone => 'UTC'
+ );
+
+ my $date2 = DateTime->new(
+ year => 2001, month => 6, day => 12,
+ hour => 5, minute => 7, second => 23,
+ time_zone => 'UTC'
+ );
+
+ my $dur = $date1->subtract_datetime_absolute($date2);
+
+ is( $dur->delta_months, 0, 'delta_months is 0' );
+ is( $dur->delta_minutes, 0, 'delta_minutes is 0' );
+ is( $dur->delta_seconds, -2_855_061, 'delta_seconds is -2,855,061' );
+ is( $dur->delta_nanoseconds, 0, 'delta_nanoseconds is 0' );
+}
+
+{
+ my $date1 = DateTime->new( year => 2003, month => 9, day => 30 );
+ my $date2 = DateTime->new( year => 2003, month => 10, day => 1 );
+
+ my $date3 = DateTime->new( year => 2003, month => 10, day => 31 );
+ my $date4 = DateTime->new( year => 2003, month => 11, day => 1 );
+
+ my $date5 = DateTime->new( year => 2003, month => 2, day => 28 );
+ my $date6 = DateTime->new( year => 2003, month => 3, day => 1 );
+
+ my $date7 = DateTime->new( year => 2003, month => 1, day => 31 );
+ my $date8 = DateTime->new( year => 2003, month => 2, day => 1 );
+
+ foreach my $p (
+ [ $date1, $date2 ],
+ [ $date3, $date4 ],
+ [ $date5, $date6 ],
+ [ $date7, $date8 ],
+ ) {
+ my $pos_diff = $p->[1]->subtract_datetime( $p->[0] );
+
+ is( $pos_diff->delta_days, 1, '1 day diff at end of month' );
+ is( $pos_diff->delta_months, 0, '0 month diff at end of month' );
+
+ my $neg_diff = $p->[0]->subtract_datetime( $p->[1] );
+
+ is( $neg_diff->delta_days, -1, '-1 day diff at end of month' );
+ is( $neg_diff->delta_months, 0, '0 month diff at end of month' );
+ }
+}
+
+{
+ my $dt1 = DateTime->new(
+ year => 2005, month => 6, day => 11,
+ time_zone => 'UTC',
+ );
+
+ my $dt2 = DateTime->new(
+ year => 2005, month => 11, day => 10,
+ time_zone => 'UTC',
+ );
+
+ my $dur = $dt2->subtract_datetime($dt1);
+ my %deltas = $dur->deltas;
+ is( $deltas{months}, 4, '4 months - smaller day > bigger day' );
+ is( $deltas{days}, 29, '29 days - smaller day > bigger day' );
+ is( $deltas{minutes}, 0, '0 minutes - smaller day > bigger day' );
+
+ is(
+ DateTime->compare( $dt1->clone->add_duration($dur), $dt2 ), 0,
+ '$dt1 + $dur == $dt2'
+ );
+
+ # XXX - this does not work, nor will it ever work
+ # is( $dt2->clone->subtract_duration($dur), $dt1, '$dt2 - $dur == $dt1' );
+}
+
+{
+ my $dt1 = DateTime->new(
+ year => 2005, month => 6, day => 11,
+ time_zone => 'UTC',
+ );
+
+ my $dt2 = DateTime->new(
+ year => 2005, month => 11, day => 10,
+ time_zone => 'UTC',
+ );
+
+ my $dur = $dt2->delta_days($dt1);
+ my %deltas = $dur->deltas;
+ is( $deltas{months}, 0, '30 months - smaller day > bigger day' );
+ is( $deltas{days}, 152, '152 days - smaller day > bigger day' );
+ is( $deltas{minutes}, 0, '0 minutes - smaller day > bigger day' );
+
+ is(
+ DateTime->compare( $dt1->clone->add_duration($dur), $dt2 ), 0,
+ '$dt1 + $dur == $dt2'
+ );
+ is(
+ DateTime->compare( $dt2->clone->subtract_duration($dur), $dt1 ), 0,
+ '$dt2 - $dur == $dt1'
+ );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 2012,
+ month => 6,
+ day => 30,
+ time_zone => 'floating',
+ );
+
+ my $default = $dt->clone()->subtract( months => 1 );
+ is(
+ $default->format_cldr('yyyy-MM-dd'),
+ '2012-05-31',
+ 'default subtract uses preserve end_of_month mode'
+ );
+
+ my $with_mode = $dt->clone()->subtract(
+ months => 1,
+ end_of_month => 'limit',
+ );
+ is(
+ $with_mode->format_cldr('yyyy-MM-dd'),
+ '2012-05-30',
+ 'set end_of_month mode to limit in call to subtract()'
+ );
+
+}
+
+{
+ my $dt = DateTime->new(
+ year => 2014,
+ month => 7,
+ day => 3,
+ time_zone => 'floating',
+ );
+
+ $dt->subtract( days => 2 );
+ is(
+ $dt->date, '2014-07-01',
+ 'subtracting 2 days from a floating datetime'
+ );
+}
+
+done_testing();
--- /dev/null
+use strict;
+use warnings;
+
+use Test::Fatal;
+use Test::More;
+
+use DateTime;
+use DateTime::Duration;
+
+undef $ENV{PERL_DATETIME_DEFAULT_TZ};
+
+{
+ my %pairs = (
+ years => 1,
+ months => 2,
+ weeks => 3,
+ days => 4,
+ hours => 6,
+ minutes => 7,
+ seconds => 8,
+ nanoseconds => 9,
+ );
+
+ my $dur = DateTime::Duration->new(%pairs);
+
+ while ( my ( $unit, $val ) = each %pairs ) {
+ is( $dur->$unit(), $val, "$unit should be $val" );
+ }
+
+ is( $dur->delta_months, 14, 'delta_months' );
+ is( $dur->delta_days, 25, 'delta_days' );
+ is( $dur->delta_minutes, 367, 'delta_minutes' );
+ is( $dur->delta_seconds, 8, 'delta_seconds' );
+ is( $dur->delta_nanoseconds, 9, 'delta_nanoseconds' );
+
+ is( $dur->in_units('months'), 14, 'in_units months' );
+ is( $dur->in_units('days'), 25, 'in_units days' );
+ is( $dur->in_units('minutes'), 367, 'in_units minutes' );
+ is( $dur->in_units('seconds'), 8, 'in_units seconds' );
+ is(
+ $dur->in_units( 'nanoseconds', 'seconds' ), 9,
+ 'in_units nanoseconds, seconds'
+ );
+
+ is( $dur->in_units('years'), 1, 'in_units years' );
+ is( $dur->in_units( 'months', 'years' ), 2, 'in_units months, years' );
+ is( $dur->in_units('weeks'), 3, 'in_units weeks' );
+ is( $dur->in_units( 'days', 'weeks' ), 4, 'in_units days, weeks' );
+ is( $dur->in_units('hours'), 6, 'in_units hours' );
+ is( $dur->in_units( 'minutes', 'hours' ), 7, 'in_units minutes, hours' );
+ is(
+ $dur->in_units('nanoseconds'), 8_000_000_009,
+ 'in_units nanoseconds'
+ );
+
+ my (
+ $years, $months, $weeks, $days, $hours,
+ $minutes, $seconds, $nanoseconds
+ )
+ = $dur->in_units(
+ qw( years months weeks days hours
+ minutes seconds nanoseconds )
+ );
+
+ is( $years, 1, 'in_units years, list context' );
+ is( $months, 2, 'in_units months, list context' );
+ is( $weeks, 3, 'in_units weeks, list context' );
+ is( $days, 4, 'in_units days, list context' );
+ is( $hours, 6, 'in_units hours, list context' );
+ is( $minutes, 7, 'in_units minutes, list context' );
+ is( $seconds, 8, 'in_units seconds, list context' );
+ is( $nanoseconds, 9, 'in_units nanoseconds, list context' );
+
+ ok( $dur->is_positive, 'should be positive' );
+ ok( !$dur->is_zero, 'should not be zero' );
+ ok( !$dur->is_negative, 'should not be negative' );
+
+ ok( $dur->is_wrap_mode, 'wrap mode' );
+}
+{
+ my %pairs = (
+ years => 1,
+ months => 2,
+ weeks => 3,
+ days => 4,
+ hours => 6,
+ minutes => 7,
+ seconds => 8,
+ nanoseconds => 9,
+ );
+
+ my $dur = DateTime::Duration->new( %pairs, end_of_month => 'limit' );
+
+ my $calendar_dur = $dur->calendar_duration;
+ is( $calendar_dur->delta_months, 14, 'date - delta_months is 14' );
+ is( $calendar_dur->delta_minutes, 0, 'date - delta_minutes is 0' );
+ is( $calendar_dur->delta_seconds, 0, 'date - delta_seconds is 0' );
+ is(
+ $calendar_dur->delta_nanoseconds, 0,
+ 'date - delta_nanoseconds is 0'
+ );
+ ok( $calendar_dur->is_limit_mode, 'limit mode' );
+
+ my $clock_dur = $dur->clock_duration;
+ is( $clock_dur->delta_months, 0, 'time - delta_months is 0' );
+ is( $clock_dur->delta_minutes, 367, 'time - delta_minutes is 367' );
+ is( $clock_dur->delta_seconds, 8, 'time - delta_seconds is 8' );
+ is( $clock_dur->delta_nanoseconds, 9, 'time - delta_nanoseconds is 9' );
+ ok( $clock_dur->is_limit_mode, 'limit mode' );
+}
+
+{
+ my $dur = DateTime::Duration->new( days => 1, end_of_month => 'limit' );
+ ok( $dur->is_limit_mode, 'limit mode' );
+}
+
+{
+ my $dur
+ = DateTime::Duration->new( days => 1, end_of_month => 'preserve' );
+ ok( $dur->is_preserve_mode, 'preserve mode' );
+}
+
+my $leap_day = DateTime->new(
+ year => 2004, month => 2, day => 29,
+ time_zone => 'UTC',
+);
+
+{
+ my $new = $leap_day + DateTime::Duration->new(
+ years => 1,
+ end_of_month => 'wrap'
+ );
+
+ is( $new->date, '2005-03-01', 'new date should be 2005-03-01' );
+}
+
+{
+ my $new = $leap_day + DateTime::Duration->new(
+ years => 1,
+ end_of_month => 'limit'
+ );
+
+ is( $new->date, '2005-02-28', 'new date should be 2005-02-28' );
+}
+
+{
+ my $new = $leap_day + DateTime::Duration->new(
+ years => 1,
+ end_of_month => 'preserve'
+ );
+
+ is( $new->date, '2005-02-28', 'new date should be 2005-02-28' );
+
+ my $new2 = $leap_day + DateTime::Duration->new(
+ months => 1,
+ end_of_month => 'preserve'
+ );
+ is( $new2->date, '2004-03-31', 'new date should be 2004-03-31' );
+}
+
+{
+ my $inverse = DateTime::Duration->new(
+ years => 1, months => 1,
+ weeks => 1, days => 1,
+ hours => 1, minutes => 2, seconds => 3,
+ )->inverse;
+
+ is( $inverse->years, 1, 'inverse years should be positive' );
+ is( $inverse->months, 1, 'inverse months should be positive' );
+ is( $inverse->weeks, 1, 'inverse weeks should be positive' );
+ is( $inverse->days, 1, 'inverse days should be positive' );
+ is( $inverse->hours, 1, 'inverse hours should be positive' );
+ is( $inverse->minutes, 2, 'inverse minutes should be positive' );
+ is( $inverse->seconds, 3, 'inverse minutes should be positive' );
+
+ is(
+ $inverse->delta_months, -13,
+ 'inverse delta months should be negative'
+ );
+ is( $inverse->delta_days, -8, 'inverse delta months should be negative' );
+ is(
+ $inverse->delta_minutes, -62,
+ 'inverse delta minutes should be negative'
+ );
+ is(
+ $inverse->delta_seconds, -3,
+ 'inverse delta seconds should be negative'
+ );
+
+ ok( $inverse->is_negative, 'should be negative' );
+ ok( !$inverse->is_zero, 'should not be zero' );
+ ok( !$inverse->is_positive, 'should not be positivea' );
+
+ is(
+ $inverse->end_of_month_mode(), 'preserve',
+ 'inverse method uses default end_of_month_mode without explicit parameter'
+ );
+
+ my $inverse2 = DateTime::Duration->new( years => 1 )
+ ->inverse( end_of_month => 'limit' );
+
+ is(
+ $inverse2->end_of_month_mode(), 'limit',
+ 'inverse method allows setting end_of_month_mode'
+ );
+}
+
+{
+ my $dur1 = DateTime::Duration->new( months => 6, days => 10 );
+
+ my $dur2 = DateTime::Duration->new( months => 3, days => 7 );
+
+ my $new1 = $dur1 + $dur2;
+ is( $new1->delta_months, 9, 'test + overloading' );
+ is( $new1->delta_days, 17, 'test + overloading' );
+
+ my $new2 = $dur1 - $dur2;
+ is( $new2->delta_months, 3, 'test - overloading' );
+ is( $new2->delta_days, 3, 'test - overloading' );
+
+ my $new3 = $dur2 - $dur1;
+ is( $new3->delta_months, -3, 'test - overloading' );
+ is( $new3->delta_days, -3, 'test - overloading' );
+}
+
+{
+ my $dur1 = DateTime::Duration->new( months => 6, days => 10 );
+
+ my $new1 = $dur1 * 4;
+ is( $new1->delta_months, 24, 'test * overloading' );
+ is( $new1->delta_days, 40, 'test * overloading' );
+
+ $dur1->multiply(4);
+ is( $dur1->delta_months, 24, 'test multiply' );
+ is( $dur1->delta_days, 40, 'test multiply' );
+}
+
+{
+ my $dur1 = DateTime::Duration->new(
+ months => 6, days => 10, seconds => 3,
+ nanoseconds => 1_200_300_400
+ );
+
+ my $dur2
+ = DateTime::Duration->new( seconds => 1, nanoseconds => 500_000_000 );
+
+ is( $dur1->delta_seconds, 4, 'test nanoseconds overflow' );
+ is( $dur1->delta_nanoseconds, 200_300_400, 'test nanoseconds remainder' );
+
+ my $new1 = $dur1 - $dur2;
+
+ is( $new1->delta_seconds, 2, 'seconds is positive' );
+ is(
+ $new1->delta_nanoseconds, 700_300_400,
+ 'nanoseconds remainder is negative'
+ );
+
+ $new1->add( nanoseconds => 500_000_000 );
+ is( $new1->delta_seconds, 3, 'seconds are unaffected' );
+ is( $new1->delta_nanoseconds, 200_300_400, 'nanoseconds are back' );
+
+ my $new2 = $dur1 - $dur2;
+ $new2->add( nanoseconds => 1_500_000_000 );
+ is( $new2->delta_seconds, 4, 'seconds go up' );
+ is( $new2->delta_nanoseconds, 200_300_400, 'nanoseconds are normalized' );
+
+ $new2->subtract( nanoseconds => 100_000_000 );
+ is( $new2->delta_nanoseconds, 100_300_400, 'sub nanoseconds works' );
+
+ my $new3 = $dur2 * 3;
+
+ is( $new3->delta_seconds, 4, 'seconds normalized after multiplication' );
+ is(
+ $new3->delta_nanoseconds, 500_000_000,
+ 'nanoseconds normalized after multiplication'
+ );
+}
+
+{
+ my $dur1 = DateTime::Duration->new( seconds => 1 );
+ my $dur2 = DateTime::Duration->new( seconds => 1 );
+
+ $dur1->add($dur2);
+ is(
+ $dur1->delta_seconds, 2,
+ 'add method works with a duration object'
+ );
+
+ $dur1->subtract($dur2);
+ is(
+ $dur1->delta_seconds, 1,
+ 'subtract method works with a duration object'
+ );
+}
+
+{
+ my $dur = DateTime::Duration->new( nanoseconds => -10 );
+ is( $dur->nanoseconds, 10, 'nanoseconds is 10' );
+ is( $dur->delta_nanoseconds, -10, 'delta_nanoseconds is -10' );
+ ok( $dur->is_negative, 'duration is negative' );
+}
+
+{
+ my $dur = DateTime::Duration->new( days => 0 );
+ is( $dur->delta_days, 0, 'delta_days is 0' );
+ ok( !$dur->is_positive, 'not positive' );
+ ok( $dur->is_zero, 'is zero' );
+ ok( !$dur->is_negative, 'not negative' );
+}
+
+{
+ my $dur = DateTime::Duration->new( days => 29 );
+
+ like(
+ exception {
+ $dur * 5.3
+ },
+ qr/Validation failed/,
+ 'non integer multiplication'
+ );
+}
+
+{
+ is(
+ exception {
+ DateTime::Duration->new( months => 3 )->add( hours => -3 )
+ ->add( minutes => 1 );
+ },
+ undef,
+ 'method chaining should work'
+ );
+}
+
+{
+ my $min_1 = DateTime::Duration->new( minutes => 1 );
+ my $hour_1 = DateTime::Duration->new( hours => 1 );
+
+ my $min_59 = $hour_1 - $min_1;
+
+ is( $min_59->delta_months, 0, 'delta_months is 0' );
+ is( $min_59->delta_days, 0, 'delta_days is 0' );
+ is( $min_59->delta_minutes, 59, 'delta_minutes is 59' );
+ is( $min_59->delta_seconds, 0, 'delta_seconds is 0' );
+ is( $min_59->delta_nanoseconds, 0, 'delta_nanoseconds is 0' );
+
+ my $min_neg_59 = $min_1 - $hour_1;
+
+ is( $min_neg_59->delta_months, 0, 'delta_months is 0' );
+ is( $min_neg_59->delta_days, 0, 'delta_days is 0' );
+ is( $min_neg_59->delta_minutes, -59, 'delta_minutes is -59' );
+ is( $min_neg_59->delta_seconds, 0, 'delta_seconds is 0' );
+ is( $min_neg_59->delta_nanoseconds, 0, 'delta_nanoseconds is 0' );
+}
+
+{
+ my $dur1 = DateTime::Duration->new( minutes => 10 );
+ my $dur2 = DateTime::Duration->new( minutes => 20 );
+
+ like(
+ exception { 1 if $dur1 <=> $dur2 },
+ qr/does not overload comparison/,
+ 'check error for duration comparison overload'
+ );
+
+ is(
+ DateTime::Duration->compare( $dur1, $dur2 ), -1,
+ '20 minutes is greater than 10 minutes'
+ );
+
+ is(
+ DateTime::Duration->compare(
+ $dur1, $dur2, DateTime->new( year => 1 )
+ ),
+ -1,
+ '20 minutes is greater than 10 minutes'
+ );
+}
+
+{
+ my $dur1 = DateTime::Duration->new( days => 29 );
+ my $dur2 = DateTime::Duration->new( months => 1 );
+
+ my $base = DateTime->new( year => 2004 );
+ is(
+ DateTime::Duration->compare( $dur1, $dur2, $base ), -1,
+ '29 days is less than 1 month with base of 2004-01-01'
+ );
+
+ $base = DateTime->new( year => 2004, month => 2 );
+ is(
+ DateTime::Duration->compare( $dur1, $dur2, $base ), 0,
+ '29 days is equal to 1 month with base of 2004-02-01'
+ );
+
+ $base = DateTime->new( year => 2005, month => 2 );
+ is(
+ DateTime::Duration->compare( $dur1, $dur2, $base ), 1,
+ '29 days is greater than 1 month with base of 2005-02-01'
+ );
+}
+
+{
+ my $dur1 = DateTime::Duration->new(
+ nanoseconds => 1_000,
+ seconds => 1,
+ );
+
+ my $dur2 = $dur1->clone->subtract( nanoseconds => 5_000 );
+
+ is( $dur2->delta_seconds, 0, 'normalize nanoseconds to positive' );
+ is(
+ $dur2->delta_nanoseconds, 999_996_000,
+ 'normalize nanoseconds to positive'
+ );
+
+ my $dur3 = $dur1->clone->subtract( nanoseconds => 6_000 )
+ ->subtract( nanoseconds => 999_999_000 );
+
+ is( $dur3->delta_seconds, 0, 'normalize nanoseconds to negative' );
+ is(
+ $dur3->delta_nanoseconds, -4_000,
+ 'normalize nanoseconds to negative'
+ );
+
+ my $dur4 = DateTime::Duration->new(
+ seconds => -1,
+ nanoseconds => -2_500_000_000
+ );
+
+ is( $dur4->delta_seconds, -3, 'normalize many negative nanoseconds' );
+ is(
+ $dur4->delta_nanoseconds, -500_000_000,
+ 'normalize many negative nanoseconds'
+ );
+}
+
+{
+ my $dur = DateTime::Duration->new(
+ minutes => 30,
+ seconds => -1,
+ );
+
+ ok( !$dur->is_positive, 'is not positive' );
+ ok( !$dur->is_zero, 'is not zero' );
+ ok( !$dur->is_negative, 'is not negative' );
+}
+
+{
+ my $dur = DateTime::Duration->new( minutes => 50 );
+
+ is( $dur->in_units('years'), 0, 'in_units returns 0 for years' );
+ is( $dur->in_units('months'), 0, 'in_units returns 0 for months' );
+ is( $dur->in_units('days'), 0, 'in_units returns 0 for days' );
+ is( $dur->in_units('hours'), 0, 'in_units returns 0 for hours' );
+ is( $dur->in_units('seconds'), 0, 'in_units returns 0 for seconds' );
+ is(
+ $dur->in_units('nanoseconds'), 0,
+ 'in_units returns 0 for nanoseconds'
+ );
+}
+
+{
+ local $TODO = 'reject fractional units in DateTime::Duration->new';
+
+ like(
+ exception { DateTime::Duration->new( minutes => 50.2 ) },
+ qr/is an integer/,
+ 'cannot create a duration with fractional units'
+ );
+}
+
+done_testing();
--- /dev/null
+use strict;
+use warnings;
+
+use Test::More;
+
+use DateTime;
+
+undef $ENV{PERL_DATETIME_DEFAULT_TZ};
+
+my @tests = (
+ [ [ 1964, 12, 31 ], [ 1964, 53 ] ],
+ [ [ 1965, 1, 1 ], [ 1964, 53 ] ],
+ [ [ 1971, 9, 7 ], [ 1971, 36 ] ],
+ [ [ 1971, 10, 25 ], [ 1971, 43 ] ],
+ [ [ 1995, 1, 1 ], [ 1994, 52 ] ],
+ [ [ 1995, 11, 18 ], [ 1995, 46 ] ],
+ [ [ 1995, 12, 31 ], [ 1995, 52 ] ],
+ [ [ 1996, 12, 31 ], [ 1997, 1 ] ],
+ [ [ 2001, 4, 28 ], [ 2001, 17 ] ],
+ [ [ 2001, 8, 2 ], [ 2001, 31 ] ],
+ [ [ 2001, 9, 11 ], [ 2001, 37 ] ],
+ [ [ 2002, 12, 25 ], [ 2002, 52 ] ],
+ [ [ 2002, 12, 31 ], [ 2003, 1 ] ],
+ [ [ 2003, 1, 1 ], [ 2003, 1 ] ],
+ [ [ 2003, 12, 31 ], [ 2004, 1 ] ],
+ [ [ 2004, 1, 1 ], [ 2004, 1 ] ],
+ [ [ 2004, 12, 31 ], [ 2004, 53 ] ],
+ [ [ 2005, 1, 1 ], [ 2004, 53 ] ],
+ [ [ 2005, 12, 31 ], [ 2005, 52 ] ],
+ [ [ 2006, 1, 1 ], [ 2005, 52 ] ],
+ [ [ 2006, 12, 31 ], [ 2006, 52 ] ],
+ [ [ 2007, 1, 1 ], [ 2007, 1 ] ],
+ [ [ 2007, 12, 31 ], [ 2008, 1 ] ],
+ [ [ 2008, 1, 1 ], [ 2008, 1 ] ],
+ [ [ 2008, 12, 31 ], [ 2009, 1 ] ],
+ [ [ 2009, 1, 1 ], [ 2009, 1 ] ],
+);
+
+foreach my $test (@tests) {
+ my @args = @{ $test->[0] };
+ my @results = @{ $test->[1] };
+
+ my $dt = DateTime->new(
+ year => $args[0],
+ month => $args[1],
+ day => $args[2],
+ time_zone => 'UTC',
+ );
+
+ my ( $year, $week ) = $dt->week();
+
+ is( "$year-W$week", "$results[0]-W$results[1]", 'week for ' . $dt->ymd );
+}
+
+done_testing();
--- /dev/null
+# test suite stolen shamelessly from TimeDate distro
+use strict;
+use warnings;
+use utf8;
+
+use Test::More 0.96;
+
+use DateTime;
+use DateTime::Locale;
+
+undef $ENV{PERL_DATETIME_DEFAULT_TZ};
+
+for my $o (
+ Test::Builder->new->output,
+ Test::Builder->new->failure_output,
+ Test::Builder->new->todo_output
+) {
+
+ binmode $o, ':encoding(UTF-8)' or die $!;
+}
+
+test_strftime_for_locale( 'en-US', en_tests() );
+test_strftime_for_locale( 'de', de_tests() );
+test_strftime_for_locale( 'it', it_tests() );
+
+subtest(
+ 'strftime with multiple params',
+ sub {
+ my $dt = DateTime->new(
+ year => 1800,
+ month => 1,
+ day => 10,
+ time_zone => 'UTC',
+ );
+
+ my ( $y, $d ) = $dt->strftime( '%Y', '%d' );
+ is( $y, 1800, 'first value is year' );
+ is( $d, 10, 'second value is day' );
+
+ $y = $dt->strftime( '%Y', '%d' );
+ is( $y, 1800, 'scalar context returns year' );
+ }
+);
+
+subtest(
+ 'hour formatting',
+ sub {
+ my $dt = DateTime->new(
+ year => 2003,
+ hour => 0,
+ minute => 0
+ );
+
+ is(
+ $dt->strftime('%I %M %p'), '12 00 AM',
+ 'formatting of hours as 1-12'
+ );
+ is(
+ $dt->strftime('%l %M %p'), '12 00 AM',
+ 'formatting of hours as 1-12'
+ );
+
+ $dt->set( hour => 1 );
+ is(
+ $dt->strftime('%I %M %p'), '01 00 AM',
+ 'formatting of hours as 1-12'
+ );
+ is(
+ $dt->strftime('%l %M %p'), ' 1 00 AM',
+ 'formatting of hours as 1-12'
+ );
+
+ $dt->set( hour => 11 );
+ is(
+ $dt->strftime('%I %M %p'), '11 00 AM',
+ 'formatting of hours as 1-12'
+ );
+ is(
+ $dt->strftime('%l %M %p'), '11 00 AM',
+ 'formatting of hours as 1-12'
+ );
+
+ $dt->set( hour => 12 );
+ is(
+ $dt->strftime('%I %M %p'), '12 00 PM',
+ 'formatting of hours as 1-12'
+ );
+ is(
+ $dt->strftime('%l %M %p'), '12 00 PM',
+ 'formatting of hours as 1-12'
+ );
+
+ $dt->set( hour => 13 );
+ is(
+ $dt->strftime('%I %M %p'), '01 00 PM',
+ 'formatting of hours as 1-12'
+ );
+ is(
+ $dt->strftime('%l %M %p'), ' 1 00 PM',
+ 'formatting of hours as 1-12'
+ );
+
+ $dt->set( hour => 23 );
+ is(
+ $dt->strftime('%I %M %p'), '11 00 PM',
+ 'formatting of hours as 1-12'
+ );
+ is(
+ $dt->strftime('%l %M %p'), '11 00 PM',
+ 'formatting of hours as 1-12'
+ );
+
+ $dt->set( hour => 0 );
+ is(
+ $dt->strftime('%I %M %p'), '12 00 AM',
+ 'formatting of hours as 1-12'
+ );
+ is(
+ $dt->strftime('%l %M %p'), '12 00 AM',
+ 'formatting of hours as 1-12'
+ );
+ }
+);
+
+subtest(
+ '%V',
+ sub {
+ is(
+ DateTime->new( year => 2003, month => 1, day => 1 )
+ ->strftime('%V'),
+ '01', '%V is 01'
+ );
+ }
+);
+
+subtest(
+ '%% and %{method}',
+ sub {
+ my $dt = DateTime->new(
+ year => 2004, month => 8, day => 16,
+ hour => 15, minute => 30, nanosecond => 123456789,
+ locale => 'en',
+ );
+
+ # Should print '%{day_name}', prints '30onday'!
+ is(
+ $dt->strftime('%%{day_name}%n'), "%{day_name}\n",
+ '%%{day_name}%n bug'
+ );
+
+ # Should print '%6N', prints '123456'
+ is( $dt->strftime('%%6N%n'), "%6N\n", '%%6N%n bug' );
+ }
+);
+
+subtest(
+ 'nanosecond formatting',
+ sub {
+ subtest(
+ 'nanosecond floating point rounding',
+ sub {
+ # Internally this becomes 119999885 nanoseconds (floating point math is awesome)
+ my $epoch = 1297777805.12;
+ my $dt = DateTime->from_epoch( epoch => $epoch );
+
+ my @vals = (
+ 1,
+ 12,
+ 120,
+ 1200,
+ 12000,
+ 120000,
+ 1200000,
+ 12000000,
+ 120000000,
+ 1200000000,
+ );
+
+ my $x = 1;
+ for my $val (@vals) {
+ my $spec = '%' . $x++ . 'N';
+ is(
+ $dt->strftime($spec), $val,
+ "strftime($spec) for $epoch == $val"
+ );
+ }
+ }
+ );
+ subtest(
+ 'nanosecond rounding in strftime',
+ sub {
+ my $dt = DateTime->new(
+ 'year' => 1999,
+ month => 9,
+ day => 7,
+ hour => 13,
+ minute => 2,
+ second => 42,
+ nanosecond => 12345678,
+ );
+
+ my %tests = (
+ '%N' => '012345678',
+ '%3N' => '012',
+ '%6N' => '012345',
+ '%10N' => '0123456780',
+ );
+ for my $fmt ( sort { lc $a cmp lc $b } keys %tests ) {
+ is(
+ $dt->strftime($fmt), $tests{$fmt},
+ "$fmt is $tests{$fmt}"
+ );
+ }
+ }
+ );
+ }
+);
+
+subtest(
+ '0 nanoseconds',
+ sub {
+ my $dt = DateTime->new( year => 2011 );
+
+ for my $i ( 1 .. 9 ) {
+ my $spec = '%' . $i . 'N';
+ my $expect = '0' x $i;
+
+ is(
+ $dt->strftime($spec), $expect,
+ "strftime $spec with 0 nanoseconds"
+ );
+ }
+ }
+);
+
+subtest(
+ 'week-year formatting',
+ sub {
+ my $dt = DateTime->new( 'year' => 2012, month => 1, day => 1 );
+ subtest(
+ $dt->ymd,
+ sub {
+ my %tests = (
+ '%U' => '01',
+ '%W' => '00',
+ '%j' => '001',
+ );
+ for my $fmt ( sort { lc $a cmp lc $b } keys %tests ) {
+ is(
+ $dt->strftime($fmt), $tests{$fmt},
+ "$fmt is $tests{$fmt}"
+ );
+ }
+ }
+ );
+
+ $dt = DateTime->new( 'year' => 2012, month => 1, day => 10 );
+ subtest(
+ $dt->ymd,
+ sub {
+ my %tests = (
+ '%U' => '02',
+ '%W' => '02',
+ '%j' => '010',
+ );
+ for my $fmt ( sort { lc $a cmp lc $b } keys %tests ) {
+ is(
+ $dt->strftime($fmt), $tests{$fmt},
+ "$fmt is $tests{$fmt}"
+ );
+ }
+ }
+ );
+ }
+);
+
+subtest(
+ '%F with 3 digit years',
+ sub {
+ my $dt = DateTime->new( year => 123 );
+ is(
+ $dt->strftime('%F'),
+ '123-01-01',
+ '%F does not zero-pad 3 digit year'
+ );
+ }
+);
+
+done_testing();
+
+sub test_strftime_for_locale {
+ my $locale = shift;
+ my $tests = shift;
+
+ my $dt = DateTime->new(
+ year => 1999,
+ month => 9,
+ day => 7,
+ hour => 13,
+ minute => 2,
+ second => 42,
+ nanosecond => 123456789,
+ time_zone => 'UTC',
+ locale => $locale,
+ );
+
+ subtest(
+ $locale,
+ sub {
+ for my $fmt ( sort { lc $a cmp lc $b } keys %{$tests} ) {
+ is(
+ $dt->strftime($fmt),
+ $tests->{$fmt},
+ "$fmt is $tests->{$fmt}"
+ );
+ }
+ }
+ );
+}
+
+sub en_tests {
+ my $en_locale = DateTime::Locale->load('en-US');
+
+ my $c_format = $en_locale->datetime_format;
+ $c_format
+ =~ s/\{1\}/$en_locale->month_format_abbreviated->[8] . ' 7, 1999'/e;
+ my $pm = $en_locale->am_pm_abbreviated->[1];
+ $c_format =~ s/\{0\}/'1:02:42 ' . $pm/e;
+
+ my %tests = (
+ '%%' => '%',
+ '%10N' => '1234567890',
+ '%3N' => '123',
+ '%6N' => '123456',
+ '%a' => $en_locale->day_format_abbreviated->[1],
+ '%A' => $en_locale->day_format_wide->[1],
+ '%b' => $en_locale->month_format_abbreviated->[8],
+ '%B' => $en_locale->month_format_wide->[8],
+ '%c' => $c_format,
+ '%C' => '19',
+ '%d' => '07',
+ '%D' => '09/07/99',
+ '%e' => ' 7',
+ '%E' => '%E',
+ '%F' => '1999-09-07',
+ '%G' => '1999',
+ '%g' => '99',
+ '%h' => $en_locale->month_format_abbreviated->[8],
+ '%H' => '13',
+ '%I' => '01',
+ '%j' => '250',
+ '%k' => '13',
+ '%l' => ' 1',
+ '%m' => '09',
+ '%M' => '02',
+ '%n' => "\n",
+ '%N' => '123456789',
+ '%p' => $pm,
+ '%P' => lc $pm,
+ '%r' => '01:02:42 ' . $pm,
+ '%R' => '13:02',
+ '%s' => '936709362',
+ '%S' => '42',
+ '%t' => "\t",
+ '%T' => '13:02:42',
+ '%u' => '2',
+ '%U' => '36',
+ '%V' => '36',
+ '%w' => '2',
+ '%W' => '36',
+ '%x' => $en_locale->month_format_abbreviated->[8] . ' 7, 1999',
+ '%X' => '1:02:42 ' . $pm,
+ '%y' => '99',
+ '%Y' => '1999',
+ '%z' => '+0000',
+ '%Z' => 'UTC',
+ '%{foobar}' => '%{foobar}',
+ '%{month}' => '9',
+ '%{year}' => '1999',
+ );
+ if ( DateTime::Locale->VERSION >= 1.37 ) {
+ for my $key ( '%c', '%X' ) {
+ $tests{$key} =~ s/ (\Q$pm\E)/\N{U+202F}$1/;
+ }
+ }
+
+ return \%tests;
+}
+
+sub de_tests {
+ my $de_locale = DateTime::Locale->load('de');
+ return {
+ '%%' => '%',
+ '%a' => $de_locale->day_format_abbreviated->[1],
+ '%A' => $de_locale->day_format_wide->[1],
+ '%b' => $de_locale->month_format_abbreviated->[8],
+ '%B' => $de_locale->month_format_wide->[8],
+ '%C' => '19',
+ '%d' => '07',
+ '%D' => '09/07/99',
+ '%e' => ' 7',
+ '%H' => '13',
+ '%I' => '01',
+ '%j' => '250',
+ '%k' => '13',
+ '%l' => ' 1',
+ '%M' => '02',
+ '%m' => '09',
+ '%p' => $de_locale->am_pm_abbreviated->[1],
+ '%r' => '01:02:42 ' . $de_locale->am_pm_abbreviated->[1],
+ '%R' => '13:02',
+ '%S' => '42',
+ '%s' => '936709362',
+ '%T' => '13:02:42',
+ '%U' => '36',
+ '%V' => '36',
+ '%w' => '2',
+ '%W' => '36',
+ '%Y' => '1999',
+ '%y' => '99',
+ '%z' => '+0000',
+ '%Z' => 'UTC',
+ '%{month}' => '9',
+ '%{year}' => '1999',
+ };
+}
+
+sub it_tests {
+ my $it_locale = DateTime::Locale->load('it');
+ return {
+ '%%' => '%',
+ '%a' => $it_locale->day_format_abbreviated->[1],
+ '%A' => $it_locale->day_format_wide->[1],
+ '%b' => $it_locale->month_format_abbreviated->[8],
+ '%b' => $it_locale->month_format_abbreviated->[8],
+ '%B' => $it_locale->month_format_wide->[8],
+ '%C' => '19',
+ '%d' => '07',
+ '%D' => '09/07/99',
+ '%e' => ' 7',
+ '%H' => '13',
+ '%I' => '01',
+ '%j' => '250',
+ '%k' => '13',
+ '%l' => ' 1',
+ '%M' => '02',
+ '%m' => '09',
+ '%p' => $it_locale->am_pm_abbreviated->[1],
+ '%r' => '01:02:42 ' . $it_locale->am_pm_abbreviated->[1],
+ '%R' => '13:02',
+ '%S' => '42',
+ '%s' => '936709362',
+ '%T' => '13:02:42',
+ '%U' => '36',
+ '%V' => '36',
+ '%w' => '2',
+ '%W' => '36',
+ '%Y' => '1999',
+ '%y' => '99',
+ '%z' => '+0000',
+ '%Z' => 'UTC',
+ '%{month}' => '9',
+ '%{year}' => '1999',
+ };
+}
--- /dev/null
+use strict;
+use warnings;
+
+use Test::Fatal;
+use Test::More;
+
+use DateTime;
+use DateTime::Locale;
+
+undef $ENV{PERL_DATETIME_DEFAULT_TZ};
+
+is(
+ exception { DateTime->new( year => 100, locale => 'en_US' ) },
+ undef,
+ 'make sure new accepts locale parameter'
+);
+
+is(
+ exception { DateTime->now( locale => 'en_US' ) },
+ undef,
+ 'make sure now accepts locale parameter'
+);
+
+is(
+ exception { DateTime->today( locale => 'en_US' ) },
+ undef,
+ 'make sure today accepts locale parameter'
+);
+
+is(
+ exception { DateTime->from_epoch( epoch => 1, locale => 'en_US' ) },
+ undef,
+ 'make sure from_epoch accepts locale parameter'
+);
+
+is(
+ exception {
+ DateTime->last_day_of_month(
+ year => 100, month => 2,
+ locale => 'en_US'
+ );
+ },
+ undef,
+ 'make sure last_day_of_month accepts locale parameter'
+);
+
+{
+
+ package DT::Object;
+ sub utc_rd_values { ( 0, 0 ) }
+}
+
+is(
+ exception {
+ DateTime->from_object(
+ object => ( bless {}, 'DT::Object' ),
+ locale => 'en_US'
+ );
+ },
+ undef,
+ ,
+ 'make sure constructor accepts locale parameter'
+);
+
+is(
+ exception {
+ DateTime->new(
+ year => 100,
+ locale => DateTime::Locale->load('en_US')
+ );
+ },
+ undef,
+ 'make sure constructor accepts locale parameter as object'
+);
+
+DateTime->DefaultLocale('it');
+is( DateTime->now->locale->id, 'it', 'default locale should now be "it"' );
+
+{
+ my $dt = DateTime->new(
+ year => 2013, month => 10, day => 27, hour => 0,
+ time_zone => 'UTC'
+ );
+
+ my $after_zone = $dt->clone()->set_time_zone('Europe/Rome');
+
+ is(
+ $after_zone->offset(),
+ '7200',
+ 'offset is 7200 after set_time_zone()'
+ );
+
+ my $after_locale
+ = $dt->clone()->set_time_zone('Europe/Rome')->set_locale('en_GB');
+
+ is(
+ $after_locale->offset(),
+ '7200',
+ 'offset is 7200 after set_time_zone() and set_locale()'
+ );
+}
+
+done_testing();
--- /dev/null
+use strict;
+use warnings;
+
+use Test::More;
+
+use DateTime;
+
+undef $ENV{PERL_DATETIME_DEFAULT_TZ};
+
+# Borrowed from Matt Sergeant's Time::Piece
+
+# A table of MJD and components
+my @mjd = (
+ '51603.524' => {
+ year => 2000,
+ month => 2,
+ day => 29,
+ hour => 12,
+ minute => 34,
+ second => 56,
+ },
+
+ '40598.574' => {
+ year => 1970,
+ month => 1,
+ day => 12,
+ hour => 13,
+ minute => 46,
+ second => 51,
+ },
+
+ '52411.140' => {
+ year => 2002,
+ month => 5,
+ day => 17,
+ hour => 3,
+ minute => 21,
+ second => 43,
+ },
+
+ '53568.547' => {
+ year => 2005,
+ month => 7,
+ day => 17,
+ hour => 13,
+ minute => 8,
+ second => 23,
+ },
+
+ '52295.218' => {
+ year => 2002,
+ month => 1,
+ day => 21,
+ hour => 5,
+ minute => 13,
+ second => 20,
+ },
+
+ '52295.399' => {
+ year => 2002,
+ month => 1,
+ day => 21,
+ hour => 9,
+ minute => 35,
+ second => 3,
+ },
+
+ # beginning of MJD
+ '0.000' => {
+ year => 1858,
+ month => 11,
+ day => 17,
+ hour => 0,
+ minute => 0,
+ second => 0,
+ },
+
+ # beginning of JD
+ '-2400000.500' => {
+ year => -4713,
+ month => 11,
+ day => 24,
+ hour => 12,
+ minute => 0,
+ second => 0,
+ },
+);
+
+while ( my ( $mjd, $comps ) = splice @mjd, 0, 2 ) {
+ my $dt = DateTime->new(
+ %$comps,
+ time_zone => 'UTC',
+ );
+
+ is( sprintf( '%.3f', $dt->mjd ), $mjd, "MJD should be $mjd" );
+
+ my $jd = sprintf( '%.3f', $mjd + 2_400_000.5 );
+ is( sprintf( '%.3f', $dt->jd ), $jd, "JD should be $jd" );
+}
+
+done_testing();
--- /dev/null
+## no critic (Modules::ProhibitExcessMainComplexity)
+use strict;
+use warnings;
+
+use Test::Fatal;
+use Test::More 0.88;
+
+use DateTime;
+use Try::Tiny;
+
+undef $ENV{PERL_DATETIME_DEFAULT_TZ};
+
+my %vals = (
+ year => 50,
+ month => 3,
+ day => 15,
+ hour => 10,
+ minute => 55,
+ second => 17,
+ nanosecond => 1234,
+);
+
+{
+ my $dt = DateTime->new(%vals);
+ $dt->truncate( to => 'second' );
+ foreach my $f (qw( year month day hour minute second )) {
+ is( $dt->$f(), $vals{$f}, "$f should be $vals{$f}" );
+ }
+
+ foreach my $f (qw( nanosecond )) {
+ is( $dt->$f(), 0, "$f should be 0" );
+ }
+}
+
+{
+ my $dt = DateTime->new(%vals);
+ $dt->truncate( to => 'minute' );
+ foreach my $f (qw( year month day hour minute )) {
+ is( $dt->$f(), $vals{$f}, "$f should be $vals{$f}" );
+ }
+
+ foreach my $f (qw( second nanosecond )) {
+ is( $dt->$f(), 0, "$f should be 0" );
+ }
+}
+
+{
+ my $dt = DateTime->new(%vals);
+ $dt->truncate( to => 'hour' );
+ foreach my $f (qw( year month day hour )) {
+ is( $dt->$f(), $vals{$f}, "$f should be $vals{$f}" );
+ }
+
+ foreach my $f (qw( minute second nanosecond )) {
+ is( $dt->$f(), 0, "$f should be 0" );
+ }
+}
+
+{
+ my $dt = DateTime->new(%vals);
+ $dt->truncate( to => 'day' );
+ foreach my $f (qw( year month day )) {
+ is( $dt->$f(), $vals{$f}, "$f should be $vals{$f}" );
+ }
+
+ foreach my $f (qw( hour minute second nanosecond )) {
+ is( $dt->$f(), 0, "$f should be 0" );
+ }
+}
+
+{
+ my $dt = DateTime->new(%vals);
+ $dt->truncate( to => 'month' );
+ foreach my $f (qw( year month )) {
+ is( $dt->$f(), $vals{$f}, "$f should be $vals{$f}" );
+ }
+
+ foreach my $f (qw( day )) {
+ is( $dt->$f(), 1, "$f should be 1" );
+ }
+
+ foreach my $f (qw( hour minute second nanosecond )) {
+ is( $dt->$f(), 0, "$f should be 0" );
+ }
+}
+
+{
+ my $dt = DateTime->new(%vals);
+ $dt->truncate( to => 'year' );
+ foreach my $f (qw( year )) {
+ is( $dt->$f(), $vals{$f}, "$f should be $vals{$f}" );
+ }
+
+ foreach my $f (qw( month day )) {
+ is( $dt->$f(), 1, "$f should be 1" );
+ }
+
+ foreach my $f (qw( hour minute second nanosecond )) {
+ is( $dt->$f(), 0, "$f should be 0" );
+ }
+}
+
+{
+ my $dt = DateTime->new( year => 2003, month => 11, day => 17 );
+
+ for ( 1 .. 6 ) {
+ my $trunc = $dt->clone->add( days => $_ )->truncate( to => 'week' );
+
+ is(
+ $trunc->day, 17,
+ 'truncate to week should always truncate to monday of week'
+ );
+ }
+
+ {
+ my $trunc = $dt->clone->add( days => 7 )->truncate( to => 'week' );
+
+ is(
+ $trunc->day, 24,
+ 'truncate to week should always truncate to monday of week'
+ );
+ }
+}
+
+{
+ my $dt = DateTime->new( year => 2003, month => 10, day => 2 )
+ ->truncate( to => 'week' );
+
+ is( $dt->year, 2003, 'truncation to week across month boundary' );
+ is( $dt->month, 9, 'truncation to week across month boundary' );
+ is( $dt->day, 29, 'truncation to week across month boundary' );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 2013, month => 12, day => 16,
+ locale => 'fr_FR'
+ );
+
+ for ( 1 .. 6 ) {
+ my $trunc
+ = $dt->clone->add( days => $_ )->truncate( to => 'local_week' );
+
+ is(
+ $trunc->day, 16,
+ 'truncate to local_week returns correct date - locale start is Monday'
+ );
+ }
+
+ {
+ my $trunc
+ = $dt->clone->add( days => 7 )->truncate( to => 'local_week' );
+
+ is(
+ $trunc->day, 23,
+ 'truncate to local_week returns correct date - locale start is Monday'
+ );
+ }
+}
+
+{
+ my $dt = DateTime->new(
+ year => 2013, month => 11, day => 2,
+ locale => 'fr_FR'
+ )->truncate( to => 'local_week' );
+
+ is(
+ $dt->year, 2013,
+ 'truncation to local_week across month boundary - locale start is Monday'
+ );
+ is(
+ $dt->month, 10,
+ 'truncation to local_week across month boundary - locale start is Monday'
+ );
+ is(
+ $dt->day, 28,
+ 'truncation to local_week across month boundary - locale start is Monday'
+ );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 2013, month => 12, day => 15,
+ locale => 'en_US'
+ );
+
+ for ( 1 .. 6 ) {
+ my $trunc
+ = $dt->clone->add( days => $_ )->truncate( to => 'local_week' );
+
+ is(
+ $trunc->day, 15,
+ 'truncate to local_week returns correct date - locale start is Sunday'
+ );
+ }
+
+ {
+ my $trunc
+ = $dt->clone->add( days => 7 )->truncate( to => 'local_week' );
+
+ is(
+ $trunc->day, 22,
+ 'truncate to local_week returns correct date - locale start is Sunday'
+ );
+ }
+}
+
+{
+ my $dt = DateTime->new(
+ year => 2013, month => 11, day => 2,
+ locale => 'en_US'
+ )->truncate( to => 'local_week' );
+
+ is(
+ $dt->year, 2013,
+ 'truncation to local_week across month boundary - locale start is Sunday'
+ );
+ is(
+ $dt->month, 10,
+ 'truncation to local_week across month boundary - locale start is Sunday'
+ );
+ is(
+ $dt->day, 27,
+ 'truncation to local_week across month boundary - locale start is Sunday'
+ );
+}
+
+{
+ my %months_to_quarter = (
+ 1 => 1,
+ 2 => 1,
+ 3 => 1,
+ 4 => 4,
+ 5 => 4,
+ 6 => 4,
+ 7 => 7,
+ 8 => 7,
+ 9 => 7,
+ 10 => 10,
+ 11 => 10,
+ 12 => 10,
+ );
+
+ for my $year ( -1, 100, 2016 ) {
+ for my $month ( sort keys %months_to_quarter ) {
+ for my $day ( 1, 15, 27 ) {
+ my $dt = DateTime->new(
+ year => $year,
+ month => $month,
+ day => $day,
+ );
+ subtest(
+ 'truncate to quarter - ' . $dt->ymd,
+ sub {
+ $dt->truncate( to => 'quarter' );
+ is(
+ $dt->year,
+ $year,
+ 'year is unchanged'
+ );
+ is(
+ $dt->month,
+ $months_to_quarter{$month},
+ "month $month becomes month $months_to_quarter{$month}"
+ );
+ is(
+ $dt->day,
+ 1,
+ 'day is always 1'
+ );
+ is(
+ $dt->hour,
+ 0,
+ 'hour is always 0'
+ );
+ is(
+ $dt->minute,
+ 0,
+ 'minute is always 0'
+ );
+ is(
+ $dt->second,
+ 0,
+ 'second is always 0'
+ );
+ is(
+ $dt->nanosecond,
+ 0,
+ 'nanosecond is always 0'
+ );
+ }
+ );
+ }
+ }
+ }
+}
+
+{
+ my $dt = DateTime->new(%vals);
+
+ for my $bad (qw( seconds minutes year_foo month_bar )) {
+ like(
+ exception { $dt->truncate( to => $bad ) },
+ qr/Validation failed for type named TruncationLevel/,
+ "bad truncate parameter ($bad) throws an error"
+ );
+ }
+}
+
+{
+ my $dt = DateTime->new(
+ year => 2010,
+ month => 3,
+ day => 25,
+ hour => 1,
+ minute => 5,
+ time_zone => 'Asia/Tehran',
+ );
+
+ is(
+ $dt->day_of_week(),
+ 4,
+ 'day of week is Thursday'
+ );
+
+ my $error;
+ try {
+ $dt->truncate( to => 'week' );
+ }
+ catch {
+ $error = $_;
+ };
+
+ like(
+ $error,
+ qr/Invalid local time for date/,
+ 'truncate operation threw an error because of an invalid local datetime'
+ );
+
+ is(
+ $dt->day_of_week(),
+ 4,
+ 'day of week does not change after failed truncate() call'
+ );
+}
+
+done_testing();
--- /dev/null
+use strict;
+use warnings;
+
+use Test::More;
+
+use DateTime;
+use DateTime::Duration;
+
+undef $ENV{PERL_DATETIME_DEFAULT_TZ};
+
+{
+ my $dt = DateTime->new( year => 2008, month => 2, day => 28 );
+ my $du = DateTime::Duration->new( years => 1 );
+
+ my $p;
+
+ $p = $dt->set( year => 1882 );
+ is( DateTime->compare( $p, $dt ), 0, 'set returns self' );
+
+ $p = $dt->set_time_zone('Australia/Sydney');
+ is( DateTime->compare( $p, $dt ), 0, 'set_time_zone returns self' );
+
+ $p = $dt->add_duration($du);
+ is( DateTime->compare( $p, $dt ), 0, 'add_duration returns self' );
+
+ $p = $dt->add( years => 2 );
+ is( DateTime->compare( $p, $dt ), 0, 'add returns self' );
+
+ $p = $dt->subtract_duration($du);
+ is( DateTime->compare( $p, $dt ), 0, 'subtract_duration returns self' );
+
+ $p = $dt->subtract( years => 3 );
+ is( DateTime->compare( $p, $dt ), 0, 'subtract returns self' );
+
+ $p = $dt->truncate( to => 'day' );
+ is( DateTime->compare( $p, $dt ), 0, 'truncate returns self' );
+
+}
+
+done_testing();
--- /dev/null
+use strict;
+use warnings;
+
+use Test::More;
+
+use DateTime;
+
+undef $ENV{PERL_DATETIME_DEFAULT_TZ};
+
+{
+ my $now = DateTime->now;
+ my $today = DateTime->today;
+
+ is( $today->year, $now->year, 'today->year' );
+ is( $today->month, $now->month, 'today->month' );
+ is( $today->day, $now->day, 'today->day' );
+
+ is( $today->hour, 0, 'today->hour' );
+ is( $today->minute, 0, 'today->hour' );
+ is( $today->second, 0, 'today->hour' );
+}
+
+done_testing();
--- /dev/null
+use strict;
+use warnings;
+
+use Test::Fatal;
+use Test::More;
+use DateTime;
+use DateTime::LeapSecond;
+
+undef $ENV{PERL_DATETIME_DEFAULT_TZ};
+
+# tests using UTC times
+{
+
+ # 1972-06-30T23:58:20 UTC
+ my $t = DateTime->new(
+ year => 1972, month => 6, day => 30,
+ hour => 23, minute => 58, second => 20,
+ time_zone => 'UTC',
+ );
+ my $t1 = $t->clone;
+
+ is( $t->year, 1972, 'year is 1972' );
+ is( $t->minute, 58, 'minute is 58' );
+ is( $t->second, 20, 'second is 20' );
+
+ # 1972-06-30T23:59:20 UTC
+ $t->add( seconds => 60 );
+ is( $t->year, 1972, 'year is 1972' );
+ is( $t->minute, 59, 'minute is 59' );
+ is( $t->second, 20, 'second is 20' );
+
+ # 1972-07-01T00:00:19 UTC
+ $t->add( seconds => 60 );
+ is( $t->year, 1972, 'year is 1972' );
+ is( $t->minute, 0, 'minute is 0' );
+ is( $t->second, 19, 'second is 19' );
+
+ # 1972-06-30T23:59:60 UTC
+ $t->subtract( seconds => 20 );
+ is( $t->year, 1972, 'year is 1972' );
+ is( $t->minute, 59, 'minute is 59' );
+ is( $t->second, 60, 'second is 60' );
+ is( $t->{utc_rd_secs}, 86400, 'utc_rd_secs is 86400' );
+
+ # subtract_datetime
+ my $t2 = DateTime->new(
+ year => 1972, month => 7, day => 1,
+ hour => 0, minute => 0, second => 20,
+ time_zone => 'UTC',
+ );
+ my $dur = $t2->subtract_datetime_absolute($t1);
+ is( $dur->delta_seconds, 121, 'delta_seconds is 121' );
+
+ $dur = $t1->subtract_datetime_absolute($t2);
+ is( $dur->delta_seconds, -121, 'delta_seconds is -121' );
+}
+
+{
+
+ # tests using floating times
+ # a floating time has no leap seconds
+
+ my $t = DateTime->new(
+ year => 1971, month => 12, day => 31,
+ hour => 23, minute => 58, second => 20,
+ time_zone => 'floating',
+ );
+ my $t1 = $t->clone;
+
+ $t->add( seconds => 60 );
+ is( $t->minute, 59, 'min' );
+ is( $t->second, 20, 'sec' );
+
+ $t->add( seconds => 60 );
+ is( $t->minute, 0, 'min' );
+ is( $t->second, 20, 'sec' );
+
+ # subtract_datetime, using floating times
+
+ my $t2 = DateTime->new(
+ year => 1972, month => 1, day => 1,
+ hour => 0, minute => 0, second => 20,
+ time_zone => 'floating',
+ );
+ my $dur = $t2->subtract_datetime_absolute($t1);
+ is( $dur->delta_seconds, 120, 'delta_seconds is 120' );
+
+ $dur = $t1->subtract_datetime_absolute($t2);
+ is( $dur->delta_seconds, -120, 'delta_seconds is -120' );
+}
+
+{
+
+ # tests using time zones
+ # leap seconds occur during _UTC_ midnight
+
+ # 1972-06-30 20:58:20 -03:00 = 1972-06-30 23:58:20 UTC
+ my $t = DateTime->new(
+ year => 1972, month => 6, day => 30,
+ hour => 20, minute => 58, second => 20,
+ time_zone => 'America/Sao_Paulo',
+ );
+
+ $t->add( seconds => 60 );
+ is( $t->datetime, '1972-06-30T20:59:20', 'normal add' );
+ is( $t->minute, 59, 'min' );
+ is( $t->second, 20, 'sec' );
+
+ $t->add( seconds => 60 );
+ is( $t->datetime, '1972-06-30T21:00:19', 'add over a leap second' );
+ is( $t->minute, 0, 'min' );
+ is( $t->second, 19, 'sec' );
+
+ $t->subtract( seconds => 20 );
+ is( $t->datetime, '1972-06-30T20:59:60', 'subtract over a leap second' );
+ is( $t->minute, 59, 'min' );
+ is( $t->second, 60, 'sec' );
+ is( $t->{utc_rd_secs}, 86400, 'rd_sec' );
+}
+
+# test that we can set second to 60 (negative offset)
+{
+ my $t = DateTime->new(
+ year => 1972, month => 6, day => 30,
+ hour => 20, minute => 59, second => 60,
+ time_zone => 'America/Sao_Paulo',
+ );
+
+ is( $t->second, 60, 'second set to 60 in constructor' );
+}
+
+{
+ my $t = DateTime->new(
+ year => 1972, month => 6, day => 30,
+ hour => 21, minute => 0, second => 0,
+ time_zone => 'America/Sao_Paulo',
+ );
+
+ is( $t->second, 0, 'datetime just after leap second' );
+}
+
+{
+ my $t = DateTime->new(
+ year => 1972, month => 6, day => 30,
+ hour => 21, minute => 0, second => 1,
+ time_zone => 'America/Sao_Paulo',
+ );
+
+ is( $t->second, 1, 'datetime two seconds after leap second' );
+}
+
+# test that we can set second to 60 (negative offset)
+{
+ is(
+ exception {
+ my $t = DateTime->new(
+ year => 1972, month => 6, day => 30,
+ hour => 22, minute => 59, second => 60,
+ time_zone => '-0100',
+ );
+
+ is(
+ $t->second, 60,
+ 'second set to 60 in constructor, negative TZ offset'
+ );
+ },
+ undef,
+ 'can set second to 60 in constructor'
+ );
+}
+
+# test that we can set second to 60 (positive offset)
+{
+ is(
+ exception {
+ my $t = DateTime->new(
+ year => 1972, month => 7, day => 1,
+ hour => 0, minute => 59, second => 60,
+ time_zone => '+0100',
+ );
+
+ is(
+ $t->second, 60,
+ 'second set to 60 in constructor, positive TZ offset'
+ );
+ },
+ undef,
+ 'can set second to 60 with positive TZ offset'
+ );
+}
+
+{
+ my $t = DateTime->new(
+ year => 1972, month => 7, day => 1,
+ hour => 0, minute => 59, second => 59,
+ time_zone => '+0100',
+ );
+
+ is( $t->second, 59, 'datetime just before leap second' );
+}
+
+{
+ my $t = DateTime->new(
+ year => 1972, month => 7, day => 1,
+ hour => 1, minute => 0, second => 0,
+ time_zone => '+0100',
+ );
+
+ is( $t->second, 0, 'datetime just after leap second' );
+}
+
+{
+ my $t = DateTime->new(
+ year => 1972, month => 7, day => 1,
+ hour => 1, minute => 0, second => 1,
+ time_zone => '+0100',
+ );
+
+ is( $t->second, 1, 'datetime two seconds after leap second' );
+}
+
+{
+ my $t = DateTime->new(
+ year => 1972, month => 7, day => 1,
+ hour => 0, minute => 0, second => 29,
+ time_zone => '+00:00:30',
+ );
+
+ is(
+ $t->second, 29,
+ 'time zone +00:00:30 and leap seconds, second value'
+ );
+ is( $t->minute, 0, 'time zone +00:00:30 and leap seconds, minute value' );
+}
+
+{
+ my $t = DateTime->new(
+ year => 1972, month => 6, day => 30,
+ hour => 20, minute => 59, second => 60,
+ time_zone => 'America/Sao_Paulo',
+ );
+
+ $t->set_time_zone('UTC');
+ is( $t->second, 60, 'second after setting time zone' );
+ is( $t->hour, 23, 'hour after setting time zone' );
+
+ $t->add( days => 1 );
+ is(
+ $t->datetime, '1972-07-02T00:00:00',
+ 'add 1 day starting on leap second'
+ );
+
+ $t->subtract( days => 1 );
+
+ is(
+ $t->datetime, '1972-07-01T00:00:00',
+ 'add and subtract 1 day starting on leap second'
+ );
+
+ is( $t->leap_seconds, 1, 'datetime has 1 leap second' );
+}
+
+{
+ my $t = DateTime->new(
+ year => 1972, month => 6, day => 30,
+ hour => 23, minute => 59, second => 59,
+ time_zone => 'UTC',
+ );
+
+ is(
+ $t->epoch, 78796799,
+ 'epoch just before first leap second is 78796799'
+ );
+
+ $t->add( seconds => 1 );
+
+ is( $t->epoch, 78796800, 'epoch of first leap second is 78796800' );
+
+ $t->add( seconds => 1 );
+
+ is(
+ $t->epoch, 78796800,
+ 'epoch of first second after first leap second is 78796700'
+ );
+}
+
+{
+ my $dt = DateTime->new( year => 2003, time_zone => 'UTC' );
+
+ is( $dt->leap_seconds, 22, 'datetime has 22 leap seconds' );
+}
+
+{
+ my $dt = DateTime->new( year => 2003, time_zone => 'floating' );
+
+ is( $dt->leap_seconds, 0, 'floating datetime has 0 leap seconds' );
+}
+
+# date math across leap seconds distinguishes between minutes and second
+{
+ my $t = DateTime->new(
+ year => 1972, month => 12, day => 31,
+ hour => 23, minute => 59, second => 30,
+ time_zone => 'UTC'
+ );
+
+ $t->add( minutes => 1 );
+
+ is( $t->year, 1973, '+1 minute, year == 1973' );
+ is( $t->month, 1, '+1 minute, month == 1' );
+ is( $t->day, 1, '+1 minute, day == 1' );
+ is( $t->hour, 0, '+1 minute, hour == 0' );
+ is( $t->minute, 0, '+1 minute, minute == 0' );
+ is( $t->second, 30, '+1 minute, second == 30' );
+}
+
+{
+ my $t = DateTime->new(
+ year => 1972, month => 12, day => 31,
+ hour => 23, minute => 59, second => 30,
+ time_zone => 'UTC'
+ );
+
+ $t->add( seconds => 60 );
+
+ is( $t->year, 1973, '+60 seconds, year == 1973' );
+ is( $t->month, 1, '+60 seconds, month == 1' );
+ is( $t->day, 1, '+60 seconds, day == 1' );
+ is( $t->hour, 0, '+60 seconds, hour == 0' );
+ is( $t->minute, 0, '+60 seconds, minute == 0' );
+ is( $t->second, 29, '+60 seconds, second == 29' );
+}
+
+{
+ my $t = DateTime->new(
+ year => 1972, month => 12, day => 31,
+ hour => 23, minute => 59, second => 30,
+ time_zone => 'UTC'
+ );
+
+ $t->add( minutes => 1, seconds => 1 );
+
+ is( $t->year, 1973, '+1 minute & 1 second, year == 1973' );
+ is( $t->month, 1, '+1 minute & 1 second, month == 1' );
+ is( $t->day, 1, '+1 minute & 1 second, day == 1' );
+ is( $t->hour, 0, '+1 minute & 1 second, hour == 0' );
+ is( $t->minute, 0, '+1 minute & 1 second, minute == 0' );
+ is( $t->second, 31, '+1 minute & 1 second, second == 31' );
+}
+
+{
+ ok(
+ exception {
+ DateTime->new(
+ year => 1972, month => 12, day => 31,
+ hour => 23, minute => 59, second => 61,
+ time_zone => 'UTC',
+ );
+ },
+ 'Cannot give second of 61 except when it matches a leap second'
+ );
+
+ ok(
+ exception {
+ DateTime->new(
+ year => 1972, month => 12, day => 31,
+ hour => 23, minute => 58, second => 60,
+ time_zone => 'UTC',
+ );
+ },
+ 'Cannot give second of 60 except when it matches a leap second'
+ );
+
+ ok(
+ exception {
+ DateTime->new(
+ year => 1972, month => 12, day => 31,
+ hour => 23, minute => 59, second => 60,
+ time_zone => 'floating',
+ );
+ },
+ 'Cannot give second of 60 with floating time zone'
+ );
+}
+
+{
+ my $dt1 = DateTime->new(
+ year => 1998, month => 12, day => 31,
+ hour => 23, minute => 59, second => 60,
+ time_zone => 'UTC',
+ );
+
+ my $dt2 = DateTime->new(
+ year => 1998, month => 12, day => 31,
+ hour => 23, minute => 58, second => 50,
+ time_zone => 'UTC',
+ );
+
+ my $pos_dur = $dt1 - $dt2;
+
+ is( $pos_dur->delta_minutes, 1, 'delta_minutes is 1' );
+ is( $pos_dur->delta_seconds, 10, 'delta_seconds is 10' );
+
+ my $neg_dur = $dt2 - $dt1;
+
+ is( $neg_dur->delta_minutes, -1, 'delta_minutes is -1' );
+ is( $neg_dur->delta_seconds, -10, 'delta_seconds is -10' );
+}
+
+{
+ my $dt1 = DateTime->new(
+ year => 1998, month => 12, day => 31,
+ hour => 23, minute => 59, second => 55,
+ time_zone => 'UTC',
+ );
+
+ my $dt2 = DateTime->new(
+ year => 1998, month => 12, day => 31,
+ hour => 23, minute => 58, second => 50,
+ time_zone => 'UTC',
+ );
+
+ my $pos_dur = $dt1 - $dt2;
+
+ is( $pos_dur->delta_minutes, 1, 'delta_minutes is 1' );
+ is( $pos_dur->delta_seconds, 5, 'delta_seconds is 5' );
+
+ my $neg_dur = $dt2 - $dt1;
+
+ is( $neg_dur->delta_minutes, -1, 'delta_minutes is -1' );
+ is( $neg_dur->delta_seconds, -5, 'delta_seconds is -5' );
+}
+
+{
+ my $dt1 = DateTime->new(
+ year => 1998, month => 12, day => 31,
+ hour => 23, minute => 59, second => 55,
+ time_zone => 'UTC',
+ );
+
+ my $dt2 = DateTime->new(
+ year => 1999, month => 1, day => 1,
+ hour => 0, minute => 0, second => 30,
+ time_zone => 'UTC',
+ );
+
+ my $pos_dur = $dt2 - $dt1;
+
+ is( $pos_dur->delta_minutes, 0, 'delta_minutes is 0' );
+ is( $pos_dur->delta_seconds, 36, 'delta_seconds is 36' );
+
+ my $neg_dur = $dt1 - $dt2;
+
+ is( $neg_dur->delta_minutes, 0, 'delta_minutes is 0' );
+ is( $neg_dur->delta_seconds, -36, 'delta_seconds is -36' );
+}
+
+# catch off-by-one when carrying a leap second
+{
+ my $dt1 = DateTime->new(
+ year => 1998, month => 12, day => 31,
+ hour => 23, minute => 59, second => 0,
+ nanosecond => 1,
+ time_zone => 'UTC',
+ );
+
+ my $dt2 = DateTime->new(
+ year => 1999, month => 1, day => 1,
+ hour => 0, minute => 0, second => 0,
+ time_zone => 'UTC',
+ );
+
+ my $pos_dur = $dt2 - $dt1;
+
+ is( $pos_dur->delta_minutes, 0, 'delta_minutes is 0' );
+ is( $pos_dur->delta_seconds, 60, 'delta_seconds is 60' );
+ is(
+ $pos_dur->delta_nanoseconds, 999999999,
+ 'delta_nanoseconds is 999...'
+ );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 1972, month => 6, day => 30,
+ hour => 23, minute => 58, second => 20,
+ time_zone => 'UTC',
+ );
+
+ $dt->add( days => 2 );
+
+ is(
+ $dt->datetime, '1972-07-02T23:58:20',
+ 'add two days crossing a leap second (UTC)'
+ );
+}
+
+# a bunch of tests that math works across a leap second for various time zones
+{
+ my $dt = DateTime->new(
+ year => 1972, month => 6, day => 30,
+ hour => 20, minute => 58, second => 20,
+ time_zone => '-0300',
+ );
+
+ $dt->add( days => 2 );
+
+ is(
+ $dt->datetime, '1972-07-02T20:58:20',
+ 'add two days crossing a leap second (-0300)'
+ );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 1972, month => 7, day => 1,
+ hour => 2, minute => 58, second => 20,
+ time_zone => '+0300',
+ );
+
+ $dt->add( days => 2 );
+
+ is(
+ $dt->datetime, '1972-07-03T02:58:20',
+ 'add two days crossing a leap second (+0300)'
+ );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 1972, month => 6, day => 30,
+ hour => 23, minute => 58, second => 20,
+ time_zone => 'UTC',
+ );
+
+ $dt->add( hours => 48 );
+
+ is(
+ $dt->datetime, '1972-07-02T23:58:20',
+ 'add 48 hours crossing a leap second (UTC)'
+ );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 1972, month => 6, day => 30,
+ hour => 20, minute => 58, second => 20,
+ time_zone => '-0300',
+ );
+
+ $dt->add( hours => 48 );
+
+ is(
+ $dt->datetime, '1972-07-02T20:58:20',
+ 'add 48 hours crossing a leap second (-0300)'
+ );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 1972, month => 7, day => 1,
+ hour => 2, minute => 58, second => 20,
+ time_zone => '+0300',
+ );
+
+ $dt->add( hours => 48 );
+
+ is(
+ $dt->datetime, '1972-07-03T02:58:20',
+ 'add 48 hours crossing a leap second (+0300)'
+ );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 1972, month => 6, day => 30,
+ hour => 23, minute => 58, second => 20,
+ time_zone => 'UTC',
+ );
+
+ $dt->add( minutes => 2880 );
+
+ is(
+ $dt->datetime, '1972-07-02T23:58:20',
+ 'add 2880 minutes crossing a leap second (UTC)'
+ );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 1972, month => 6, day => 30,
+ hour => 20, minute => 58, second => 20,
+ time_zone => '-0300',
+ );
+
+ $dt->add( minutes => 2880 );
+
+ is(
+ $dt->datetime, '1972-07-02T20:58:20',
+ 'add 2880 minutes crossing a leap second (-0300)'
+ );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 1972, month => 7, day => 1,
+ hour => 2, minute => 58, second => 20,
+ time_zone => '+0300',
+ );
+
+ $dt->add( minutes => 2880 );
+
+ is(
+ $dt->datetime, '1972-07-03T02:58:20',
+ 'add 2880 minutes crossing a leap second (+0300)'
+ );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 1972, month => 6, day => 30,
+ hour => 23, minute => 58, second => 20,
+ time_zone => 'UTC',
+ );
+
+ $dt->add( seconds => 172801 );
+
+ is(
+ $dt->datetime, '1972-07-02T23:58:20',
+ 'add 172801 seconds crossing a leap second (UTC)'
+ );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 1972, month => 6, day => 30,
+ hour => 20, minute => 58, second => 20,
+ time_zone => '-0300',
+ );
+
+ $dt->add( seconds => 172801 );
+
+ is(
+ $dt->datetime, '1972-07-02T20:58:20',
+ 'add 172801 seconds crossing a leap second (-0300)'
+ );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 1972, month => 7, day => 1,
+ hour => 2, minute => 58, second => 20,
+ time_zone => '+0300',
+ );
+
+ $dt->add( seconds => 172801 );
+
+ is(
+ $dt->datetime, '1972-07-03T02:58:20',
+ 'add 172801 seconds crossing a leap second (+0300)'
+ );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 1972, month => 7, day => 2,
+ hour => 23, minute => 58, second => 20,
+ time_zone => 'UTC',
+ );
+
+ $dt->subtract( days => 2 );
+
+ is(
+ $dt->datetime, '1972-06-30T23:58:20',
+ 'subtract two days crossing a leap second (UTC)'
+ );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 1972, month => 7, day => 2,
+ hour => 20, minute => 58, second => 20,
+ time_zone => '-0300',
+ );
+
+ $dt->subtract( days => 2 );
+
+ is(
+ $dt->datetime, '1972-06-30T20:58:20',
+ 'subtract two days crossing a leap second (-0300)'
+ );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 1972, month => 7, day => 3,
+ hour => 2, minute => 58, second => 20,
+ time_zone => '+0300',
+ );
+
+ $dt->subtract( days => 2 );
+
+ is(
+ $dt->datetime, '1972-07-01T02:58:20',
+ 'subtract two days crossing a leap second (+0300)'
+ );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 1972, month => 7, day => 2,
+ hour => 23, minute => 58, second => 20,
+ time_zone => 'UTC',
+ );
+
+ $dt->subtract( hours => 48 );
+
+ is(
+ $dt->datetime, '1972-06-30T23:58:20',
+ 'subtract 48 hours crossing a leap second (UTC)'
+ );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 1972, month => 7, day => 2,
+ hour => 20, minute => 58, second => 20,
+ time_zone => '-0300',
+ );
+
+ $dt->subtract( hours => 48 );
+
+ is(
+ $dt->datetime, '1972-06-30T20:58:20',
+ 'subtract 48 hours crossing a leap second (-0300)'
+ );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 1972, month => 7, day => 3,
+ hour => 2, minute => 58, second => 20,
+ time_zone => '+0300',
+ );
+
+ $dt->subtract( hours => 48 );
+
+ is(
+ $dt->datetime, '1972-07-01T02:58:20',
+ 'subtract 48 hours crossing a leap second (+0300)'
+ );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 1972, month => 7, day => 2,
+ hour => 23, minute => 58, second => 20,
+ time_zone => 'UTC',
+ );
+
+ $dt->subtract( minutes => 2880 );
+
+ is(
+ $dt->datetime, '1972-06-30T23:58:20',
+ 'subtract 2880 minutes crossing a leap second (UTC)'
+ );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 1972, month => 7, day => 2,
+ hour => 20, minute => 58, second => 20,
+ time_zone => '-0300',
+ );
+
+ $dt->subtract( minutes => 2880 );
+
+ is(
+ $dt->datetime, '1972-06-30T20:58:20',
+ 'subtract 2880 minutes crossing a leap second (-0300)'
+ );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 1972, month => 7, day => 3,
+ hour => 2, minute => 58, second => 20,
+ time_zone => '+0300',
+ );
+
+ $dt->subtract( minutes => 2880 );
+
+ is(
+ $dt->datetime, '1972-07-01T02:58:20',
+ 'subtract 2880 minutes crossing a leap second (+0300)'
+ );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 1972, month => 7, day => 2,
+ hour => 23, minute => 58, second => 20,
+ time_zone => 'UTC',
+ );
+
+ $dt->subtract( seconds => 172801 );
+
+ is(
+ $dt->datetime, '1972-06-30T23:58:20',
+ 'subtract 172801 seconds crossing a leap second (UTC)'
+ );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 1972, month => 7, day => 2,
+ hour => 20, minute => 58, second => 20,
+ time_zone => '-0300',
+ );
+
+ $dt->subtract( seconds => 172801 );
+
+ is(
+ $dt->datetime, '1972-06-30T20:58:20',
+ 'subtract 172801 seconds crossing a leap second (-0300)'
+ );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 1972, month => 7, day => 3,
+ hour => 2, minute => 58, second => 20,
+ time_zone => '+0300',
+ );
+
+ $dt->subtract( seconds => 172801 );
+
+ is(
+ $dt->datetime, '1972-07-01T02:58:20',
+ 'subtract 172801 seconds crossing a leap second (+0300)'
+ );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 1972, month => 7, day => 1,
+ hour => 12, minute => 58, second => 20,
+ time_zone => '+1200',
+ );
+
+ $dt->set_time_zone('-1200');
+
+ is(
+ $dt->datetime, '1972-06-30T12:58:20',
+ '24 hour time zone change near leap second'
+ );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 1972, month => 6, day => 30,
+ hour => 12, minute => 58, second => 20,
+ time_zone => '-1200',
+ );
+
+ $dt->set_time_zone('+1200');
+
+ is(
+ $dt->datetime, '1972-07-01T12:58:20',
+ '24 hour time zone change near leap second'
+ );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 1997, month => 7, day => 1,
+ hour => 0, minute => 59, second => 59,
+ time_zone => '+0100'
+ );
+
+ is( $dt->datetime, '1997-07-01T00:59:59', '+0100 time leap second T-1' );
+
+ $dt->set_time_zone('UTC');
+
+ is( $dt->datetime, '1997-06-30T23:59:59', 'UTC time leap second T-1' );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 1997, month => 7, day => 1,
+ hour => 0, minute => 59, second => 60,
+ time_zone => '+0100'
+ );
+
+ is( $dt->datetime, '1997-07-01T00:59:60', 'local time leap second T-0' );
+
+ $dt->set_time_zone('UTC');
+
+ is( $dt->datetime, '1997-06-30T23:59:60', 'UTC time leap second T-0' );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 1997, month => 7, day => 1,
+ hour => 1, minute => 0, second => 0,
+ time_zone => '+0100'
+ );
+
+ is( $dt->datetime, '1997-07-01T01:00:00', 'local time leap second T+1' );
+
+ $dt->set_time_zone('UTC');
+
+ is( $dt->datetime, '1997-07-01T00:00:00', 'UTC time leap second T+1' );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 1997, month => 7, day => 1,
+ hour => 23, minute => 59, second => 59,
+ time_zone => '+0100'
+ );
+
+ is(
+ $dt->datetime, '1997-07-01T23:59:59',
+ 'local time end of leap second day'
+ );
+
+ $dt->set_time_zone('UTC');
+
+ is(
+ $dt->datetime, '1997-07-01T22:59:59',
+ 'UTC time end of leap second day'
+ );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 1997, month => 6, day => 30,
+ hour => 22, minute => 59, second => 59,
+ time_zone => '-0100'
+ );
+
+ is( $dt->datetime, '1997-06-30T22:59:59', '-0100 time leap second T-1' );
+
+ $dt->set_time_zone('UTC');
+
+ is( $dt->datetime, '1997-06-30T23:59:59', 'UTC time leap second T-1' );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 1997, month => 6, day => 30,
+ hour => 22, minute => 59, second => 60,
+ time_zone => '-0100'
+ );
+
+ is( $dt->datetime, '1997-06-30T22:59:60', '-0100 time leap second T-0' );
+
+ $dt->set_time_zone('UTC');
+
+ is( $dt->datetime, '1997-06-30T23:59:60', 'UTC time leap second T-0' );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 1997, month => 6, day => 30,
+ hour => 23, minute => 0, second => 0,
+ time_zone => '-0100'
+ );
+
+ is( $dt->datetime, '1997-06-30T23:00:00', '-0100 time leap second T+1' );
+
+ $dt->set_time_zone('UTC');
+
+ is( $dt->datetime, '1997-07-01T00:00:00', 'UTC time leap second T+1' );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 1997, month => 6, day => 30,
+ hour => 23, minute => 59, second => 59,
+ time_zone => 'UTC'
+ );
+
+ is( $dt->datetime, '1997-06-30T23:59:59', 'UTC time leap second T-1' );
+
+ $dt->set_time_zone('+0100');
+
+ is( $dt->datetime, '1997-07-01T00:59:59', '+0100 time leap second T-1' );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 1997, month => 6, day => 30,
+ hour => 23, minute => 59, second => 60,
+ time_zone => 'UTC'
+ );
+
+ is( $dt->datetime, '1997-06-30T23:59:60', 'UTC time leap second T-0' );
+
+ $dt->set_time_zone('+0100');
+
+ is( $dt->datetime, '1997-07-01T00:59:60', '+0100 time leap second T-0' );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 1997, month => 7, day => 1,
+ hour => 0, minute => 0, second => 0,
+ time_zone => 'UTC'
+ );
+
+ is( $dt->datetime, '1997-07-01T00:00:00', 'UTC time leap second T+1' );
+
+ $dt->set_time_zone('+0100');
+
+ is( $dt->datetime, '1997-07-01T01:00:00', '+0100 time leap second T+1' );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 1997, month => 6, day => 30,
+ hour => 23, minute => 59, second => 59,
+ time_zone => 'UTC'
+ );
+
+ is(
+ $dt->datetime, '1997-06-30T23:59:59',
+ 'UTC time end of leap second day'
+ );
+
+ $dt->set_time_zone('+0100');
+
+ is(
+ $dt->datetime, '1997-07-01T00:59:59',
+ '+0100 time end of leap second day'
+ );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 1997, month => 6, day => 30,
+ hour => 23, minute => 59, second => 59,
+ time_zone => 'UTC'
+ );
+
+ is( $dt->datetime, '1997-06-30T23:59:59', 'UTC time leap second T-1' );
+
+ $dt->set_time_zone('-0100');
+
+ is( $dt->datetime, '1997-06-30T22:59:59', '-0100 time leap second T-1' );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 1997, month => 6, day => 30,
+ hour => 23, minute => 59, second => 60,
+ time_zone => 'UTC'
+ );
+
+ is( $dt->datetime, '1997-06-30T23:59:60', 'UTC time leap second T-0' );
+
+ $dt->set_time_zone('-0100');
+
+ is( $dt->datetime, '1997-06-30T22:59:60', '-0100 time leap second T-0' );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 1997, month => 7, day => 1,
+ hour => 0, minute => 0, second => 0,
+ time_zone => 'UTC'
+ );
+
+ is( $dt->datetime, '1997-07-01T00:00:00', 'UTC time leap second T+1' );
+
+ $dt->set_time_zone('-0100');
+
+ is( $dt->datetime, '1997-06-30T23:00:00', '-0100 time leap second T+1' );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 2005, month => 12, day => 31,
+ hour => 23, minute => 59, second => 60,
+ time_zone => 'UTC'
+ );
+
+ is( $dt->second, 60, 'leap second at end of 2005 is allowed' );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 2005, month => 12, day => 31,
+ hour => 23, minute => 59, second => 59,
+ time_zone => 'UTC',
+ );
+
+ $dt->add( seconds => 1 );
+ is( $dt->datetime, '2005-12-31T23:59:60', 'dt is 2005-12-31T23:59:60' );
+
+ $dt->add( seconds => 1 );
+ is( $dt->datetime, '2006-01-01T00:00:00', 'dt is 2006-01-01T00:00:00' );
+}
+
+# bug reported by Mike Schilli - addition got "stuck" at 60 seconds
+# and never rolled over to the following day
+{
+ my $dt = DateTime->new(
+ year => 2005, month => 12, day => 31,
+ hour => 23, minute => 59, second => 59,
+ time_zone => 'UTC',
+ );
+
+ $dt->add( seconds => 1 );
+ is( $dt->datetime, '2005-12-31T23:59:60', 'dt is 2005-12-31T23:59:60' );
+
+ $dt->add( seconds => 1 );
+ is( $dt->datetime, '2006-01-01T00:00:00', 'dt is 2006-01-01T00:00:00' );
+}
+
+# and this makes sure that fix for the above bug didn't break
+# _non-leapsecond_ second addition
+{
+ my $dt = DateTime->new(
+ year => 2005, month => 12, day => 30,
+ hour => 23, minute => 59, second => 58,
+ time_zone => 'UTC',
+ );
+
+ $dt->add( seconds => 1 );
+ is( $dt->datetime, '2005-12-30T23:59:59', 'dt is 2005-12-30T23:59:59' );
+
+ $dt->add( seconds => 1 );
+ is( $dt->datetime, '2005-12-31T00:00:00', 'dt is 2005-12-31T00:00:00' );
+}
+
+{
+ for my $date (
+ [ 1972, 6, 30 ],
+ [ 1972, 12, 31 ],
+ [ 1973, 12, 31 ],
+ [ 1974, 12, 31 ],
+ [ 1975, 12, 31 ],
+ [ 1976, 12, 31 ],
+ [ 1977, 12, 31 ],
+ [ 1978, 12, 31 ],
+ [ 1979, 12, 31 ],
+ [ 1981, 6, 30 ],
+ [ 1982, 6, 30 ],
+ [ 1983, 6, 30 ],
+ [ 1985, 6, 30 ],
+ [ 1987, 12, 31 ],
+ [ 1989, 12, 31 ],
+ [ 1990, 12, 31 ],
+ [ 1992, 6, 30 ],
+ [ 1993, 6, 30 ],
+ [ 1994, 6, 30 ],
+ [ 1995, 12, 31 ],
+ [ 1997, 6, 30 ],
+ [ 1998, 12, 31 ],
+ [ 2005, 12, 31 ],
+ [ 2008, 12, 31 ],
+ [ 2012, 6, 30 ],
+ [ 2015, 6, 30 ],
+ [ 2016, 12, 31 ],
+ ) {
+ my $formatted = join '-', map { sprintf( '%02d', $_ ) } @{$date};
+
+ my $dt;
+ is(
+ exception {
+ $dt = DateTime->new(
+ year => $date->[0],
+ month => $date->[1],
+ day => $date->[2],
+ hour => 23,
+ minute => 59,
+ second => 60,
+ time_zone => 'UTC',
+ );
+ },
+ undef,
+ "We can make a DateTime object for the leap second on $formatted"
+ );
+
+ is(
+ DateTime::LeapSecond::day_length( ( $dt->utc_rd_values )[0] ),
+ 86401,
+ "DateTime::LeapSecond::day_length returns 86401 for $formatted"
+ );
+ }
+}
+
+done_testing();
--- /dev/null
+use strict;
+use warnings;
+
+use Test::More;
+
+use DateTime;
+use DateTime::Locale;
+
+undef $ENV{PERL_DATETIME_DEFAULT_TZ};
+
+my $pos = DateTime::Infinite::Future->new;
+my $neg = DateTime::Infinite::Past->new;
+my $posinf = DateTime::INFINITY;
+my $neginf = DateTime::NEG_INFINITY;
+my $nan_string = DateTime::NAN;
+
+# infinite date math
+{
+ ok( $pos->is_infinite, 'positive infinity should be infinite' );
+ ok( $neg->is_infinite, 'negative infinity should be infinite' );
+ ok( !$pos->is_finite, 'positive infinity should not be finite' );
+ ok( !$neg->is_finite, 'negative infinity should not be finite' );
+
+ # These methods produce numbers or strings - we want to make sure they all
+ # return Inf or -Inf as expected.
+ my @ification_methods = qw(
+ ymd mdy dmy hms time iso8601 datetime
+ year ce_year month day day_of_week
+ quarter
+ hour hour_1 hour_12 hour_12_0 minute second
+ fractional_second
+ week week_year week_number
+ mjd jd
+ nanosecond millisecond microsecond
+ epoch
+ );
+
+ for my $meth (@ification_methods) {
+ is( $pos->$meth, $posinf, "+Infinity $meth returns $posinf" );
+ is( $neg->$meth, $neginf, "-Infinity $meth returns $neginf" );
+ }
+
+ # that's a long time ago!
+ my $long_ago = DateTime->new( year => -100_000 );
+
+ ok(
+ $neg < $long_ago,
+ 'negative infinity is really negative'
+ );
+
+ my $far_future = DateTime->new( year => 100_000 );
+ ok(
+ $pos > $far_future,
+ 'positive infinity is really positive'
+ );
+
+ ok(
+ $pos > $neg,
+ 'positive infinity is bigger than negative infinity'
+ );
+
+ my $pos_dur = $pos - $far_future;
+ ok(
+ $pos_dur->is_positive,
+ 'infinity - normal = infinity'
+ );
+
+ my $pos2 = $long_ago + $pos_dur;
+ ok(
+ $pos2 == $pos,
+ 'normal + infinite duration = infinity'
+ );
+
+ my $neg_dur = $far_future - $pos;
+ ok(
+ $neg_dur->is_negative,
+ 'normal - infinity = neg infinity'
+ );
+
+ my $neg2 = $long_ago + $neg_dur;
+ ok(
+ $neg2 == $neg,
+ 'normal + neg infinite duration = neg infinity'
+ );
+
+ my $dur = $pos - $pos;
+ my %deltas = $dur->deltas;
+ my @compare = qw( days seconds nanoseconds );
+ foreach (@compare) {
+
+ # NaN != NaN (but should stringify the same)
+ is(
+ $deltas{$_} . q{}, $nan_string,
+ "infinity - infinity = nan ($_)"
+ );
+ }
+
+ my $new_pos = $pos->clone->add( days => 10 );
+ ok(
+ $new_pos == $pos,
+ 'infinity + normal duration = infinity'
+ );
+
+ my $new_pos2 = $pos->clone->subtract( days => 10 );
+ ok(
+ $new_pos2 == $pos,
+ 'infinity - normal duration = infinity'
+ );
+
+ ok(
+ $pos == $posinf,
+ 'infinity (datetime) == infinity (number)'
+ );
+
+ ok(
+ $neg == $neginf,
+ 'neg infinity (datetime) == neg infinity (number)'
+ );
+}
+
+# This could vary across platforms
+my $pos_as_string = $posinf . q{};
+my $neg_as_string = $neginf . q{};
+
+# formatting
+{
+ foreach my $m (
+ qw( year month day hour minute second
+ microsecond millisecond nanosecond )
+ ) {
+ is(
+ $pos->$m() . q{}, $pos_as_string,
+ "pos $m is $pos_as_string"
+ );
+
+ is(
+ $neg->$m() . q{}, $neg_as_string,
+ "neg $m is $pos_as_string"
+ );
+ }
+}
+
+{
+ my $now = DateTime->now;
+
+ is(
+ DateTime->compare( $pos, $now ), 1,
+ 'positive infinite is greater than now'
+ );
+ is(
+ DateTime->compare( $neg, $now ), -1,
+ 'negative infinite is less than now'
+ );
+}
+
+{
+ my $now = DateTime->now;
+ my $pos2 = $pos + DateTime::Duration->new( months => 1 );
+
+ ok(
+ $pos == $pos2,
+ 'infinity (datetime) == infinity (datetime)'
+ );
+}
+
+{
+ my $now = DateTime->now;
+ my $neg2 = $neg + DateTime::Duration->new( months => 1 );
+
+ ok(
+ $neg == $neg2,
+ '-infinity (datetime) == -infinity (datetime)'
+ );
+}
+
+{
+ cmp_ok(
+ "$pos", 'eq', $posinf,
+ 'stringified infinity (datetime) eq infinity (number)'
+ );
+ cmp_ok(
+ "$neg", 'eq', $neginf,
+ 'stringified neg infinity (datetime) eq neg infinity (number)'
+ );
+}
+
+{
+ is(
+ $pos->day_name(),
+ undef,
+ 'day_name returns undef',
+ );
+
+ is(
+ $pos->am_or_pm(),
+ undef,
+ 'am_or_pm returns undef'
+ );
+
+ is(
+ $pos->locale()->name(),
+ 'Fake locale for Infinite DateTime objects',
+ 'locale name for fake locale'
+ );
+
+ is(
+ $pos->locale()->datetime_format_long(),
+ DateTime::Locale->load('en_US')->datetime_format_long(),
+ 'fake locale returns same format as en_US'
+ );
+}
+
+done_testing();
--- /dev/null
+use strict;
+use warnings;
+
+use Test::Fatal;
+use Test::More;
+
+use DateTime;
+
+undef $ENV{PERL_DATETIME_DEFAULT_TZ};
+
+foreach my $p (
+ { year => 2000, month => 13 },
+ { year => 2000, month => 0 },
+ { year => 2000, month => 12, day => 32 },
+ { year => 2000, month => 12, day => 0 },
+ { year => 2000, month => 12, day => 10, hour => -1 },
+ { year => 2000, month => 12, day => 10, hour => 24 },
+ { year => 2000, month => 12, day => 10, hour => 12, minute => -1 },
+ { year => 2000, month => 12, day => 10, hour => 12, minute => 60 },
+ { year => 2000, month => 12, day => 10, hour => 12, second => -1 },
+ { year => 2000, month => 12, day => 10, hour => 12, second => 62 },
+) {
+ like(
+ exception { DateTime->new(%$p) },
+ qr/Validation failed/,
+ 'Parameters outside valid range should fail in call to new()'
+ );
+
+ like(
+ exception { DateTime->new( year => 2000 )->set(%$p) },
+ qr/Validation failed/,
+ 'Parameters outside valid range should fail in call to set()'
+ );
+}
+
+{
+ like(
+ exception {
+ DateTime->last_day_of_month(
+ year => 2000,
+ month => 13,
+ );
+ },
+ qr/Validation failed/,
+ 'Parameters outside valid range should fail in call to last_day_of_month()'
+ );
+
+ like(
+ exception { DateTime->last_day_of_month( year => 2000, month => 0 ) },
+ qr/Validation failed/,
+ 'Parameters outside valid range should fail in call to last_day_of_month()'
+ );
+}
+
+{
+ like(
+ exception { DateTime->new( year => 2000, month => 4, day => 31 ) },
+ qr/valid day of month/i,
+ 'Day past last day of month should fail'
+ );
+
+ like(
+ exception { DateTime->new( year => 2001, month => 2, day => 29 ) },
+ qr/valid day of month/i,
+ 'Day past last day of month should fail'
+ );
+
+ is(
+ exception { DateTime->new( year => 2000, month => 2, day => 29 ) },
+ undef,
+ 'February 29 should be valid in leap years'
+ );
+}
+
+done_testing();
--- /dev/null
+use strict;
+use warnings;
+
+use Test::Fatal;
+use Test::More;
+
+use DateTime;
+
+undef $ENV{PERL_DATETIME_DEFAULT_TZ};
+
+my @last_day = ( 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 );
+my @leap_last_day = @last_day;
+$leap_last_day[1]++;
+
+{
+ my $doy = 15;
+ foreach my $month ( 1 .. 12 ) {
+ $doy += $last_day[ $month - 2 ] if $month > 1;
+
+ my $dt = DateTime->from_day_of_year(
+ year => 2001,
+ day_of_year => $doy,
+ time_zone => 'UTC',
+ );
+
+ is( $dt->year, 2001, 'check year' );
+ is( $dt->month, $month, 'check month' );
+ is( $dt->day, 15, 'check day' );
+ is( $dt->day_of_year, $doy, 'check day of year' );
+ }
+}
+
+{
+ my $doy = 15;
+ foreach my $month ( 1 .. 12 ) {
+ $doy += $leap_last_day[ $month - 2 ] if $month > 1;
+
+ my $dt = DateTime->from_day_of_year(
+ year => 2004,
+ day_of_year => $doy,
+ time_zone => 'UTC',
+ );
+
+ is( $dt->year, 2004, 'check year' );
+ is( $dt->month, $month, 'check month' );
+ is( $dt->day, 15, 'check day' );
+ is( $dt->day_of_year, $doy, 'check day of year' );
+ }
+}
+
+{
+ like(
+ exception {
+ DateTime->from_day_of_year( year => 2001, day_of_year => 366 )
+ },
+ qr/2001 is not a leap year/,
+ 'Cannot give day of year 366 in non-leap years'
+ );
+
+ is(
+ exception {
+ DateTime->from_day_of_year( year => 2004, day_of_year => 366 )
+ },
+ undef,
+ 'Day of year 366 should work in leap years'
+ );
+}
+
+done_testing();
--- /dev/null
+use strict;
+use warnings;
+
+use Test::More;
+
+use DateTime;
+
+unless ( eval { require Storable; 1 } ) {
+ plan skip_all => 'Cannot load Storable';
+}
+
+undef $ENV{PERL_DATETIME_DEFAULT_TZ};
+
+{
+ my @dt = (
+ DateTime->new(
+ year => 1950,
+ hour => 1,
+ nanosecond => 1,
+ time_zone => 'America/Chicago',
+ locale => 'de'
+ ),
+ DateTime::Infinite::Past->new,
+ DateTime::Infinite::Future->new,
+ );
+
+ foreach my $dt (@dt) {
+ my $copy = Storable::thaw( Storable::nfreeze($dt) );
+
+ is(
+ $copy->time_zone->name, $dt->time_zone->name,
+ 'Storable freeze/thaw preserves tz'
+ );
+
+ is(
+ ref $copy->locale, ref $dt->locale,
+ 'Storable freeze/thaw preserves locale'
+ );
+
+ is(
+ $copy->year, $dt->year,
+ 'Storable freeze/thaw preserves rd values'
+ );
+
+ is(
+ $copy->hour, $dt->hour,
+ 'Storable freeze/thaw preserves rd values'
+ );
+
+ is(
+ $copy->nanosecond, $dt->nanosecond,
+ 'Storable freeze/thaw preserves rd values'
+ );
+ }
+}
+
+{
+ my $dt1 = DateTime->now( locale => 'en-US' );
+ my $dt2 = Storable::dclone($dt1);
+ my $dt3 = Storable::thaw( Storable::nfreeze($dt2) );
+
+ is(
+ $dt1->iso8601, $dt2->iso8601,
+ 'dclone produces date equal to original'
+ );
+ is(
+ $dt2->iso8601, $dt3->iso8601,
+ 'explicit freeze and thaw produces date equal to original'
+ );
+
+ # Back-compat shim for new DateTime::Locale. Remove once DT::Locale based
+ # on CLDR 28+ is released.
+ my $meth = $dt1->locale->can('code') ? 'code' : 'id';
+ my $orig_code = $dt1->locale->$meth;
+ is(
+ $dt2->locale->$meth,
+ $orig_code,
+ 'check locale id after dclone'
+ );
+ is(
+ $dt3->locale->$meth,
+ $orig_code,
+ 'check locale id after explicit freeze/thaw'
+ );
+}
+
+{
+ package Formatter;
+
+ sub format_datetime { }
+}
+
+{
+ my $dt = DateTime->new(
+ year => 2004,
+ formatter => 'Formatter',
+ );
+
+ my $copy = Storable::thaw( Storable::nfreeze($dt) );
+
+ is(
+ $dt->formatter, $copy->formatter,
+ 'Storable freeze/thaw preserves formatter'
+ );
+}
+
+done_testing();
--- /dev/null
+## no critic (Modules::ProhibitMultiplePackages)
+use strict;
+use warnings;
+
+use Test::More;
+
+use DateTime;
+
+undef $ENV{PERL_DATETIME_DEFAULT_TZ};
+
+my $dt1 = DateTime->new( year => 1970, hour => 1, nanosecond => 100 );
+
+my $dt2 = DateTime->from_object( object => $dt1 );
+
+is( $dt1->year, 1970, 'year is 1970' );
+is( $dt1->hour, 1, 'hour is 1' );
+is( $dt1->nanosecond, 100, 'nanosecond is 100' );
+
+{
+ my $t1 = DateTime::Calendar::_Test::WithoutTZ->new(
+ rd_days => 1,
+ rd_secs => 0
+ );
+
+ # Tests creating objects from other calendars (without time zones)
+ my $t2 = DateTime->from_object( object => $t1 );
+
+ isa_ok( $t2, 'DateTime' );
+ is(
+ $t2->datetime, '0001-01-01T00:00:00',
+ 'convert from object without tz'
+ );
+ ok( $t2->time_zone->is_floating, 'time_zone is floating' );
+}
+
+{
+ my $tz = DateTime::TimeZone->new( name => 'America/Chicago' );
+ my $t1 = DateTime::Calendar::_Test::WithTZ->new(
+ rd_days => 1, rd_secs => 0,
+ time_zone => $tz
+ );
+
+ # Tests creating objects from other calendars (with time zones)
+ my $t2 = DateTime->from_object( object => $t1 );
+
+ isa_ok( $t2, 'DateTime' );
+ is( $t2->time_zone->name, 'America/Chicago', 'time_zone is preserved' );
+}
+
+{
+ my $tz = DateTime::TimeZone->new( name => 'UTC' );
+ my $t1 = DateTime::Calendar::_Test::WithTZ->new(
+ rd_days => 720258,
+ rd_secs => 86400, time_zone => $tz
+ );
+
+ my $t2 = DateTime->from_object( object => $t1 );
+
+ isa_ok( $t2, 'DateTime' );
+ is(
+ $t2->second, 60,
+ 'new DateTime from_object with TZ which is a leap second'
+ );
+}
+
+{
+ for my $class (qw( DateTime::Infinite::Past DateTime::Infinite::Future ))
+ {
+ isa_ok(
+ DateTime->from_object( object => $class->new ),
+ $class,
+ "from_object($class)"
+ );
+ }
+}
+
+done_testing();
+
+# Set up two simple test packages
+
+package DateTime::Calendar::_Test::WithoutTZ;
+
+sub new {
+ my $class = shift;
+ bless {@_}, $class;
+}
+
+sub utc_rd_values {
+ return $_[0]{rd_days}, $_[0]{rd_secs}, 0;
+}
+
+package DateTime::Calendar::_Test::WithTZ;
+
+sub new {
+ my $class = shift;
+ bless {@_}, $class;
+}
+
+sub utc_rd_values {
+ return $_[0]{rd_days}, $_[0]{rd_secs}, 0;
+}
+
+sub time_zone {
+ return $_[0]{time_zone};
+}
--- /dev/null
+use strict;
+use warnings;
+
+use Test::More;
+
+use DateTime;
+
+undef $ENV{PERL_DATETIME_DEFAULT_TZ};
+
+# exercises a bug found in Perl version of _normalize_tai_seconds -
+# fixed in 0.15
+{
+ my $dt = DateTime->new( year => 2000, month => 12 );
+
+ $dt->add( months => 1 )->truncate( to => 'month' )
+ ->subtract( seconds => 1 );
+
+ is( $dt->year, 2000, 'year is 2001' );
+ is( $dt->month, 12, 'month is 12' );
+ is( $dt->hour, 23, 'hour is 23' );
+ is( $dt->minute, 59, 'minute is 59' );
+ is( $dt->second, 59, 'second is 59' );
+}
+
+{
+ my $dt = DateTime->new( year => 2000, month => 12 );
+ my $dt2 = $dt->clone->add( months => 1 )->subtract( seconds => 1 );
+
+ is( $dt2->year, 2000, 'year is 2001' );
+ is( $dt2->month, 12, 'month is 12' );
+ is( $dt2->hour, 23, 'hour is 23' );
+ is( $dt2->minute, 59, 'minute is 59' );
+ is( $dt2->second, 59, 'second is 59' );
+}
+
+done_testing();
--- /dev/null
+# no pp test
+
+use strict;
+use warnings;
+
+use Test::More;
+
+use DateTime::LeapSecond;
+
+undef $ENV{PERL_DATETIME_DEFAULT_TZ};
+
+is( DateTime::LeapSecond::leap_seconds(100), 0, 'before 1970' );
+
+# at the start of the table:
+
+# 1972-06-30
+my $day = 720074;
+is(
+ DateTime::LeapSecond::leap_seconds($day), 0,
+ 'before leap-second transition'
+);
+
+is( DateTime::LeapSecond::extra_seconds($day) + 0, 1, 'leap day' );
+
+# 1972-07-01
+$day = 720075;
+is(
+ DateTime::LeapSecond::leap_seconds($day), 1,
+ 'day after leap-second day'
+);
+
+is( DateTime::LeapSecond::extra_seconds($day), 0, 'not a leap day' );
+
+# 1972-07-02
+$day = 720076;
+is( DateTime::LeapSecond::leap_seconds($day), 1, 'after leap-second day' );
+
+# at the end of the table:
+# 1998-12-31
+$day = 729754;
+is( DateTime::LeapSecond::leap_seconds($day), 21, 'before leap-second day' );
+
+# 1999-01-01
+$day = 729755;
+is( DateTime::LeapSecond::leap_seconds($day), 22, 'leap-second day' );
+
+# 1999-01-02
+$day = 729756;
+is( DateTime::LeapSecond::leap_seconds($day), 22, 'after leap-second day' );
+
+# some leap second dates:
+# 1972 Jul. 1
+# 1973 Jan. 1
+# ...
+# 1997 Jul. 1
+# 1999 Jan. 1
+
+done_testing();
--- /dev/null
+use strict;
+use warnings;
+
+use Test::More;
+
+use DateTime;
+
+undef $ENV{PERL_DATETIME_DEFAULT_TZ};
+
+{
+ my $date1 = DateTime->new(
+ year => 2001, month => 5, day => 10,
+ hour => 4, minute => 3, second => 2,
+ nanosecond => 12,
+ time_zone => 'UTC'
+ );
+
+ my $date2 = DateTime->new(
+ year => 2001, month => 6, day => 12,
+ hour => 5, minute => 7, second => 23,
+ nanosecond => 7,
+ time_zone => 'UTC'
+ );
+
+ {
+ my $dur_md = $date2->delta_md($date1);
+
+ is( $dur_md->delta_months, 1, 'delta_md months is 1' );
+ is( $dur_md->delta_days, 2, 'delta_md days is 2' );
+ is( $dur_md->delta_minutes, 0, 'delta_md minutes is 0' );
+ is( $dur_md->delta_seconds, 0, 'delta_md seconds is 0' );
+ is( $dur_md->delta_nanoseconds, 0, 'delta_md nanoseconds is 0' );
+
+ my $dur_d = $date2->delta_days($date1);
+
+ is( $dur_d->delta_months, 0, 'delta_d months is 0' );
+ is( $dur_d->delta_days, 33, 'delta_d days is 33' );
+ is( $dur_d->delta_minutes, 0, 'delta_d minutes is 0' );
+ is( $dur_d->delta_seconds, 0, 'delta_d seconds is 0' );
+ is( $dur_d->delta_nanoseconds, 0, 'delta_d nanoseconds is 0' );
+
+ my $dur_ms = $date2->delta_ms($date1);
+
+ is( $dur_ms->delta_months, 0, 'delta_ms months is 0' );
+ is( $dur_ms->delta_days, 0, 'delta_ms days is 0' );
+ is( $dur_ms->delta_minutes, 47584, 'delta_ms minutes is 47584' );
+ is( $dur_ms->delta_seconds, 20, 'delta_ms seconds is 20' );
+ is( $dur_ms->delta_nanoseconds, 0, 'delta_ms nanoseconds is 0' );
+
+ is( $dur_ms->hours, 793, 'hours is 793' );
+ }
+
+ {
+ my $dur_md = $date1->delta_md($date2);
+
+ is( $dur_md->delta_months, 1, 'delta_md months is 1' );
+ is( $dur_md->delta_days, 2, 'delta_md days is 2' );
+ is( $dur_md->delta_minutes, 0, 'delta_md minutes is 0' );
+ is( $dur_md->delta_seconds, 0, 'delta_md seconds is 0' );
+ is( $dur_md->delta_nanoseconds, 0, 'delta_md nanoseconds is 0' );
+
+ my $dur_d = $date1->delta_days($date2);
+
+ is( $dur_d->delta_months, 0, 'delta_d months is 0' );
+ is( $dur_d->delta_days, 33, 'delta_d days is 33' );
+ is( $dur_d->delta_minutes, 0, 'delta_d minutes is 0' );
+ is( $dur_d->delta_seconds, 0, 'delta_d seconds is 0' );
+ is( $dur_d->delta_nanoseconds, 0, 'delta_d nanoseconds is 0' );
+
+ my $dur_ms = $date1->delta_ms($date2);
+
+ is( $dur_ms->delta_months, 0, 'delta_ms months is 0' );
+ is( $dur_ms->delta_days, 0, 'delta_ms days is 0' );
+ is( $dur_ms->delta_minutes, 47584, 'delta_ms minutes is 47584' );
+ is( $dur_ms->delta_seconds, 20, 'delta_ms seconds is 20' );
+ is( $dur_ms->delta_nanoseconds, 0, 'delta_ms nanoseconds is 0' );
+
+ is( $dur_ms->hours, 793, 'hours is 793' );
+ }
+}
+
+{
+ my $date1 = DateTime->new(
+ year => 2001, month => 5, day => 10,
+ hour => 15, minute => 0, second => 0,
+ time_zone => 'UTC'
+ );
+
+ my $date2 = DateTime->new(
+ year => 2001, month => 5, day => 11,
+ hour => 12, minute => 30, second => 10,
+ time_zone => 'UTC'
+ );
+
+ my $dur_ms = $date1->delta_ms($date2);
+
+ is( $dur_ms->delta_months, 0, 'delta_ms months is 0' );
+ is( $dur_ms->delta_days, 0, 'delta_ms days is 0' );
+ is( $dur_ms->delta_minutes, 1290, 'delta_ms minutes is 1290' );
+ is( $dur_ms->delta_seconds, 10, 'delta_ms seconds is 30' );
+ is( $dur_ms->delta_nanoseconds, 0, 'delta_ms nanoseconds is 0' );
+
+ is( $dur_ms->hours, 21, 'hours is 21' );
+}
+
+done_testing();
--- /dev/null
+use strict;
+use warnings;
+
+use Test::More;
+
+use DateTime;
+
+undef $ENV{PERL_DATETIME_DEFAULT_TZ};
+
+{
+ my $dt = DateTime->new( year => 0 );
+
+ is( $dt->year, 0, 'year is 0' );
+ is( $dt->month, 1, 'month is 1' );
+ is( $dt->day, 1, 'day is 1' );
+ is( $dt->day_of_week, 6, 'day of week is 6' );
+}
+
+{
+ my $dt = DateTime->new( year => 0, month => 12, day => 31 );
+
+ is( $dt->year, 0, 'year is 0' );
+ is( $dt->month, 12, 'month is 12' );
+ is( $dt->day, 31, 'day is 31' );
+ is( $dt->day_of_week, 7, 'day of week is 7' );
+}
+
+{
+ my $dt = DateTime->new( year => -1 );
+
+ is( $dt->year, -1, 'year is -1' );
+ is( $dt->month, 1, 'month is 1' );
+ is( $dt->day, 1, 'day is 1' );
+ is( $dt->day_of_week, 5, 'day of week is 5' );
+}
+
+{
+ my $dt = DateTime->new( year => 1 );
+
+ is( $dt->year, 1, 'year is 1' );
+ is( $dt->month, 1, 'month is 1' );
+ is( $dt->day, 1, 'day is 1' );
+ is( $dt->day_of_week, 1, 'day of week is 1' );
+}
+
+{
+ my $dow = 1;
+ for my $year ( 1, 0, -1 ) {
+ my $days_in_year = $year ? 365 : 366;
+
+ for my $doy ( reverse 1 .. $days_in_year ) {
+ is(
+ DateTime->from_day_of_year(
+ year => $year,
+ day_of_year => $doy,
+ )->day_of_week,
+ $dow,
+ "day of week for day $doy of year $year is $dow"
+ );
+
+ $dow--;
+ $dow = 7 if $dow == 0;
+ }
+ }
+}
+
+done_testing();
--- /dev/null
+use strict;
+use warnings;
+
+use Test::Fatal;
+use Test::More;
+use Test::Warnings 0.005 ':all';
+
+use DateTime;
+
+undef $ENV{PERL_DATETIME_DEFAULT_TZ};
+
+{
+ my $dt = DateTime->new( year => 1900, month => 12, day => 1 );
+
+ is( "$dt", '1900-12-01T00:00:00', 'stringification overloading' );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 2050, month => 1, day => 15,
+ hour => 20, minute => 10, second => 10
+ );
+
+ my $before_string = '2050-01-15T20:10:09';
+ my $same_string = '2050-01-15T20:10:10';
+ my $after_string = '2050-01-15T20:10:11';
+
+ is( "$dt", $same_string, 'stringification overloading' );
+ ok( $dt eq $same_string, 'eq overloading true' );
+ ok( !( $dt eq $after_string ), 'eq overloading false' );
+ ok( $dt ne $after_string, 'ne overloading true' );
+ ok( !( $dt ne $same_string ), 'ne overloading false' );
+
+ is( $dt cmp $same_string, 0, 'cmp overloading' );
+ is( $dt cmp $after_string, -1, ' less than' );
+ ok( $dt lt $after_string, 'lt overloading' );
+ ok( !( $dt lt $same_string ), ' not' );
+
+ {
+
+ package Other::Date;
+ use overload
+ q[""] => sub { return ${ $_[0] }; },
+ fallback => 1;
+
+ sub new {
+ my ( $class, $date ) = @_;
+ return bless \$date, $class;
+ }
+ }
+
+ my $same_od = Other::Date->new($same_string);
+ my $after_od = Other::Date->new($after_string);
+ my $before_od = Other::Date->new($before_string);
+
+ ok( $dt eq $same_od, 'DateTime eq non-DateTime overloaded object true' );
+ ok( !( $dt eq $after_od ), ' eq false' );
+ ok( $dt ne $after_od, ' ne true' );
+ ok( !( $dt ne $same_od ), ' ne false' );
+
+ is( $dt cmp $same_od, 0, 'cmp overloading' );
+ is( $dt cmp $after_od, -1, ' lt overloading' );
+ ok( $dt lt $after_od, 'lt overloading' );
+ ok( !( $dt lt $same_od ), ' not' );
+
+ is_deeply(
+ [
+ map { $_ . ' - ' . ( ref $_ || 'no ref' ) }
+ sort { $a cmp $b or ref $a cmp ref $b } $same_od, $after_od,
+ $before_od, $dt, $same_string, $after_string, $before_string
+ ],
+ [
+ map { $_ . ' - ' . ( ref $_ || 'no ref' ) } $before_string,
+ $before_od, $same_string, $dt, $same_od, $after_string, $after_od
+ ],
+ 'eq sort'
+ );
+
+ like(
+ exception { my $x = $dt + 1 },
+ qr/Cannot add 1 to a DateTime object/,
+ 'Cannot add plain scalar to a DateTime object'
+ );
+
+ like(
+ exception { my $x = $dt + bless {}, 'FooBar' },
+ qr/Cannot add FooBar=HASH\([^\)]+\) to a DateTime object/,
+ 'Cannot add plain FooBar object to a DateTime object'
+ );
+
+ like(
+ exception { my $x = $dt - 1 },
+ qr/Cannot subtract 1 from a DateTime object/,
+ 'Cannot subtract plain scalar from a DateTime object'
+ );
+
+ like(
+ exception { my $x = $dt - bless {}, 'FooBar' },
+ qr/Cannot subtract FooBar=HASH\([^\)]+\) from a DateTime object/,
+ 'Cannot subtract plain FooBar object from a DateTime object'
+ );
+
+ like(
+ exception { my $x = $dt > 1 },
+ qr/A DateTime object can only be compared to another DateTime object/,
+ 'Cannot compare a DateTime object to a scalar'
+ );
+
+ like(
+ exception { my $x = $dt > bless {}, 'FooBar' },
+ qr/A DateTime object can only be compared to another DateTime object/,
+ 'Cannot compare a DateTime object to a FooBar object'
+ );
+
+ like(
+ warning { my $x = undef; $dt > $x; },
+ qr/uninitialized value in numeric gt .+ at .*x?t.(author.pp.)?29overload\.t/,
+ 'Comparing undef to a DateTime object generates a Perl warning at the right spot ($dt > undef)'
+ );
+
+ like(
+ warning { my $x = undef; $x > $dt; },
+ qr/uninitialized value in numeric gt .+ at .*x?t.(author.pp.)?29overload\.t/,
+ 'Comparing undef to a DateTime object generates a Perl warning at the right spot (undef > $dt)'
+ );
+
+ ok(
+ !( $dt eq 'some string' ),
+ 'DateTime object always compares false to a string'
+ );
+
+ ok(
+ $dt ne 'some string',
+ 'DateTime object always compares false to a string'
+ );
+
+ ok(
+ $dt eq $dt->clone,
+ 'DateTime object is equal to a clone of itself'
+ );
+
+ ok(
+ !( $dt ne $dt->clone ),
+ 'DateTime object is equal to a clone of itself (! ne)'
+ );
+}
+
+done_testing();
--- /dev/null
+use strict;
+use warnings;
+
+use Test::More;
+
+use DateTime;
+
+undef $ENV{PERL_DATETIME_DEFAULT_TZ};
+
+#
+# This test exercises a bug that occurred when date math did not
+# always make sure to update the utc_year attribute of the given
+# DateTime. The sympton was that the time zone future span generation
+# would fail because utc_year was less than the span's max_year, so
+# span generation wouldn't actually do anything, and it would die with
+# "Invalid local time".
+#
+{
+
+ # Each iteration needs to use a different zone, because if it
+ # works once, the generated spans are cached.
+ for my $add (
+ [ years => 50, 1, 'America/New_York' ],
+ [ days => 50, 365, 'America/Chicago' ],
+ [ minutes => 50, 365 * 1440, 'America/Denver', ],
+ [ seconds => 50, 365 * 1440 * 60, 'America/Los_Angeles' ],
+ [
+ nanoseconds => 50, 365 * 1440 * 60 * 1_000_000_000,
+ 'America/North_Dakota/Center'
+ ],
+
+ [ years => 750, 1, 'Europe/Paris' ],
+ [ days => 750, 365, 'Europe/London' ],
+ [ minutes => 750, 365 * 1440, 'Europe/Brussels', ],
+ [ seconds => 750, 365 * 1440 * 60, 'Europe/Vienna' ],
+ [
+ nanoseconds => 750, 365 * 1440 * 60 * 1_000_000_000,
+ 'Europe/Prague'
+ ],
+ ) {
+
+ my $dt = DateTime->now->set( hour => 12 )->set_time_zone( $add->[3] );
+
+ my $new
+ = eval { $dt->clone->add( $add->[0], $add->[1] * $add->[2] ) };
+
+ is(
+ $@,
+ q{},
+ "Make sure we can add $add->[1] years worth of $add->[0] in $add->[3] time zone"
+ );
+ }
+}
+
+done_testing();
--- /dev/null
+use strict;
+use warnings;
+
+use Test::Fatal;
+use Test::More;
+
+use DateTime;
+
+undef $ENV{PERL_DATETIME_DEFAULT_TZ};
+
+{
+ package Formatter;
+
+ sub new {
+ return bless {}, __PACKAGE__;
+ }
+
+ sub format_datetime {
+ $_[1]->strftime('%Y%m%d %T');
+ }
+}
+
+my $formatter = Formatter->new();
+
+{
+ is(
+ exception {
+ DateTime->from_epoch( epoch => time(), formatter => $formatter )
+ },
+ undef,
+ 'passed formatter to from_epoch'
+ );
+}
+
+{
+ is(
+ exception {
+ DateTime->new(
+ year => 2004,
+ month => 9,
+ day => 2,
+ hour => 13,
+ minute => 23,
+ second => 34,
+ formatter => $formatter
+ );
+ },
+ undef,
+ 'passed formatter to new'
+ );
+}
+
+{
+ my $from = DateTime->new(
+ year => 2004,
+ month => 9,
+ day => 2,
+ hour => 13,
+ minute => 23,
+ second => 34,
+ formatter => $formatter
+ );
+ my $dt;
+ is(
+ exception {
+ $dt = DateTime->from_object(
+ object => $from,
+ formatter => $formatter
+ );
+ },
+ undef,
+ 'passed formatter to from_object'
+ );
+
+ is(
+ $dt->formatter, $formatter,
+ 'check from_object copies formatter'
+ );
+
+ is( $dt->stringify(), '20040902 13:23:34', 'Format datetime' );
+
+ # check stringification (with formatter)
+ is( $dt->stringify, "$dt", 'Stringification (with formatter)' );
+
+ # check that set() and truncate() don't lose formatter
+ $dt->set( hour => 3 );
+ is(
+ $dt->stringify, '20040902 03:23:34',
+ 'formatter is preserved after set()'
+ );
+
+ $dt->truncate( to => 'minute' );
+ is(
+ $dt->stringify, '20040902 03:23:00',
+ 'formatter is preserved after truncate()'
+ );
+
+ # check if the default behavior works
+ $dt->set_formatter(undef);
+ is( $dt->stringify(), $dt->iso8601, 'Default iso8601 works' );
+
+ # check stringification (default)
+ is(
+ $dt->stringify, "$dt",
+ 'Stringification (no formatter -> format_datetime)'
+ );
+ is(
+ $dt->iso8601, "$dt",
+ 'Stringification (no formatter -> iso8601)'
+ );
+}
+
+done_testing();
--- /dev/null
+use strict;
+use warnings;
+
+use Test::More;
+
+use DateTime;
+
+undef $ENV{PERL_DATETIME_DEFAULT_TZ};
+
+{
+ my $t = DateTime->new(
+ year => 1972, month => 7, day => 1,
+ hour => 0, minute => 59, second => 58,
+ time_zone => '+0100',
+ );
+
+ is( $t->second, 58, 'second value for leap second T-2, +0100' );
+
+ is(
+ $t->{utc_rd_days}, 720074,
+ 'UTC RD days for leap second T-2'
+ );
+ is(
+ $t->{utc_rd_secs}, 86398,
+ 'UTC RD seconds for leap second T-2'
+ );
+
+ is(
+ $t->{local_rd_days}, 720075,
+ 'local RD days for leap second T-2'
+ );
+ is(
+ $t->{local_rd_secs}, 3598,
+ 'local RD seconds for leap second T-2'
+ );
+}
+
+{
+ my $t = DateTime->new(
+ year => 1972, month => 7, day => 1,
+ hour => 0, minute => 59, second => 59,
+ time_zone => '+0100',
+ );
+
+ is( $t->second, 59, 'second value for leap second T-1, +0100' );
+ is(
+ $t->{utc_rd_days}, 720074,
+ 'UTC RD days for leap second T-1'
+ );
+ is(
+ $t->{utc_rd_secs}, 86399,
+ 'UTC RD seconds for leap second T-1'
+ );
+
+ is(
+ $t->{local_rd_days}, 720075,
+ 'local RD days for leap second T-1'
+ );
+ is(
+ $t->{local_rd_secs}, 3599,
+ 'local RD seconds for leap second T-1'
+ );
+}
+
+{
+ my $t = eval {
+ DateTime->new(
+ year => 1972, month => 7, day => 1,
+ hour => 0, minute => 59, second => 60,
+ time_zone => '+0100',
+ );
+ };
+
+ ok( !$@, 'constructor for second = 60' );
+
+SKIP:
+ {
+ skip 'constructor failed - no object to test', 5
+ unless $t;
+
+ is( $t->second, 60, 'second value for leap second T-0, +0100' );
+ is(
+ $t->{utc_rd_days}, 720074,
+ 'UTC RD days for leap second T-0'
+ );
+ is(
+ $t->{utc_rd_secs}, 86400,
+ 'UTC RD seconds for leap second T-0'
+ );
+
+ is(
+ $t->{local_rd_days}, 720075,
+ 'local RD days for leap second T-0'
+ );
+ is(
+ $t->{local_rd_secs}, 3600,
+ 'local RD seconds for leap second T-0'
+ );
+ }
+}
+
+{
+ my $t = DateTime->new(
+ year => 1972, month => 7, day => 1,
+ hour => 1, minute => 0, second => 0,
+ time_zone => '+0100',
+ );
+
+ is( $t->second, 0, 'second value for leap second T+1, +0100' );
+ is(
+ $t->{utc_rd_days}, 720075,
+ 'UTC RD days for leap second T+1'
+ );
+ is(
+ $t->{utc_rd_secs}, 0,
+ 'UTC RD seconds for leap second T+1'
+ );
+
+ is(
+ $t->{local_rd_days}, 720075,
+ 'local RD days for leap second T+1'
+ );
+ is(
+ $t->{local_rd_secs}, 3601,
+ 'local RD seconds for leap second T+1'
+ );
+}
+
+{
+ my $t = DateTime->new(
+ year => 1972, month => 7, day => 1,
+ hour => 1, minute => 0, second => 1,
+ time_zone => '+0100',
+ );
+
+ is( $t->second, 1, 'second value for leap second T+2, +0100' );
+ is(
+ $t->{utc_rd_days}, 720075,
+ 'UTC RD days for leap second T+2'
+ );
+ is(
+ $t->{utc_rd_secs}, 1,
+ 'UTC RD seconds for leap second T+2'
+ );
+
+ is(
+ $t->{local_rd_days}, 720075,
+ 'local RD days for leap second T+2'
+ );
+ is(
+ $t->{local_rd_secs}, 3602,
+ 'local RD seconds for leap second T+2'
+ );
+}
+
+{
+ my $t = DateTime->new(
+ year => 1972, month => 7, day => 1,
+ hour => 23, minute => 59, second => 59,
+ time_zone => '+0100',
+ );
+
+ is( $t->second, 59, 'second value for end of leap second day, +0100' );
+ is(
+ $t->{utc_rd_days}, 720075,
+ 'UTC RD days for end of leap second day'
+ );
+ is(
+ $t->{utc_rd_secs}, 82799,
+ 'UTC RD seconds for end of leap second day'
+ );
+
+ is(
+ $t->{local_rd_days}, 720075,
+ 'local RD days for leap second day'
+ );
+ is(
+ $t->{local_rd_secs}, 86400,
+ 'local RD seconds for end of leap second day'
+ );
+}
+
+{
+ my $t = DateTime->new(
+ year => 1972, month => 6, day => 30,
+ hour => 22, minute => 59, second => 58,
+ time_zone => '-0100',
+ );
+
+ is( $t->second, 58, 'second value for leap second T-2, -0100' );
+
+ is(
+ $t->{utc_rd_days}, 720074,
+ 'UTC RD days for leap second T-2'
+ );
+ is(
+ $t->{utc_rd_secs}, 86398,
+ 'UTC RD seconds for leap second T-2'
+ );
+
+ is(
+ $t->{local_rd_days}, 720074,
+ 'local RD days for leap second T-2'
+ );
+ is(
+ $t->{local_rd_secs}, 82798,
+ 'local RD seconds for leap second T-2'
+ );
+}
+
+{
+ my $t = DateTime->new(
+ year => 1972, month => 6, day => 30,
+ hour => 22, minute => 59, second => 59,
+ time_zone => '-0100',
+ );
+
+ is( $t->second, 59, 'second value for leap second T-1, -0100' );
+
+ is(
+ $t->{utc_rd_days}, 720074,
+ 'UTC RD days for leap second T-1'
+ );
+ is(
+ $t->{utc_rd_secs}, 86399,
+ 'UTC RD seconds for leap second T-1'
+ );
+
+ is(
+ $t->{local_rd_days}, 720074,
+ 'local RD days for leap second T-1'
+ );
+ is(
+ $t->{local_rd_secs}, 82799,
+ 'local RD seconds for leap second T-1'
+ );
+}
+
+{
+ my $t = eval {
+ DateTime->new(
+ year => 1972, month => 6, day => 30,
+ hour => 22, minute => 59, second => 60,
+ time_zone => '-0100',
+ );
+ };
+
+ ok( !$@, 'constructor for second = 60' );
+
+SKIP:
+ {
+ skip 'constructor failed - no object to test', 5
+ unless $t;
+
+ is( $t->second, 60, 'second value for leap second T-0, -0100' );
+
+ is(
+ $t->{utc_rd_days}, 720074,
+ 'UTC RD days for leap second T-0'
+ );
+ is(
+ $t->{utc_rd_secs}, 86400,
+ 'UTC RD seconds for leap second T-0'
+ );
+
+ is(
+ $t->{local_rd_days}, 720074,
+ 'local RD days for leap second T-0'
+ );
+ is(
+ $t->{local_rd_secs}, 82800,
+ 'local RD seconds for leap second T-0'
+ );
+ }
+}
+
+{
+ my $t = DateTime->new(
+ year => 1972, month => 6, day => 30,
+ hour => 23, minute => 0, second => 0,
+ time_zone => '-0100',
+ );
+
+ is( $t->second, 0, 'second value for leap second T+1, -0100' );
+
+ is(
+ $t->{utc_rd_days}, 720075,
+ 'UTC RD days for leap second T+1'
+ );
+ is(
+ $t->{utc_rd_secs}, 0,
+ 'UTC RD seconds for leap second T+1'
+ );
+
+ is(
+ $t->{local_rd_days}, 720074,
+ 'local RD days for leap second T+1'
+ );
+ is(
+ $t->{local_rd_secs}, 82801,
+ 'local RD seconds for leap second T+1'
+ );
+}
+
+{
+ my $t = DateTime->new(
+ year => 1972, month => 6, day => 30,
+ hour => 23, minute => 0, second => 1,
+ time_zone => '-0100',
+ );
+
+ is( $t->second, 1, 'second value for leap second T+2, -0100' );
+
+ is(
+ $t->{utc_rd_days}, 720075,
+ 'UTC RD days for leap second T+2'
+ );
+ is(
+ $t->{utc_rd_secs}, 1,
+ 'UTC RD seconds for leap second T+2'
+ );
+
+ is(
+ $t->{local_rd_days}, 720074,
+ 'local RD days for leap second T+2'
+ );
+ is(
+ $t->{local_rd_secs}, 82802,
+ 'local RD seconds for leap second T+2'
+ );
+}
+
+done_testing();
--- /dev/null
+use strict;
+use warnings;
+
+use Test::More;
+
+use DateTime;
+
+undef $ENV{PERL_DATETIME_DEFAULT_TZ};
+
+{
+ my $dt = DateTime->new(
+ year => 1997, month => 6, day => 30,
+ hour => 23, minute => 58, second => 59,
+ time_zone => 'UTC'
+ );
+
+ $dt->set_time_zone('+00:00:30');
+
+ is( $dt->datetime, '1997-06-30T23:59:29', '+00:00:30 leap second T-61' );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 1997, month => 6, day => 30,
+ hour => 23, minute => 59, second => 29,
+ time_zone => 'UTC'
+ );
+
+ $dt->set_time_zone('+00:00:30');
+
+ is( $dt->datetime, '1997-06-30T23:59:59', '+00:00:30 leap second T-31' );
+}
+
+{
+ local $TODO = 'offsets with seconds are broken near leap seconds';
+
+ my $dt = DateTime->new(
+ year => 1997, month => 6, day => 30,
+ hour => 23, minute => 59, second => 30,
+ time_zone => 'UTC'
+ );
+
+ $dt->set_time_zone('+00:00:30');
+
+ is( $dt->datetime, '1997-06-30T23:59:60', '+00:00:30 leap second T-30' );
+}
+
+{
+ local $TODO = 'offsets with seconds are broken near leap seconds';
+
+ my $dt = DateTime->new(
+ year => 1997, month => 6, day => 30,
+ hour => 23, minute => 59, second => 31,
+ time_zone => 'UTC'
+ );
+
+ $dt->set_time_zone('+00:00:30');
+
+ is( $dt->datetime, '1997-07-01T00:00:00', '+00:00:30 leap second T-29' );
+}
+
+{
+ local $TODO = 'offsets with seconds are broken near leap seconds';
+
+ my $dt = DateTime->new(
+ year => 1997, month => 6, day => 30,
+ hour => 23, minute => 59, second => 60,
+ time_zone => 'UTC'
+ );
+
+ $dt->set_time_zone('+00:00:30');
+
+ is( $dt->datetime, '1997-07-01T00:00:30', '+00:00:30 leap second T-0' );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 1997, month => 7, day => 1,
+ hour => 0, minute => 0, second => 0,
+ time_zone => 'UTC'
+ );
+
+ $dt->set_time_zone('+00:00:30');
+
+ is( $dt->datetime, '1997-07-01T00:00:30', '+00:00:30 leap second T+1' );
+}
+
+done_testing();
--- /dev/null
+use strict;
+use warnings;
+
+use Test::Fatal;
+use Test::More 0.88;
+
+use DateTime;
+
+undef $ENV{PERL_DATETIME_DEFAULT_TZ};
+
+# These tests are for a bug related to a bad interaction between the
+# horrid ->_handle_offset_modifier method and calling ->set_time_zone
+# on a real Olson time zone. When _handle_offset_modifier was called
+# from set_time_zone, it tried calling ->_offset_for_local_datetime,
+# which was bogus, because at that point it doesn't know the local
+# date time any more, only UTC.
+#
+# The fix is to have ->_handle_offset_modifier call ->offset when it
+# knows that UTC is valid, which is determined by an arg to
+# ->_handle_offset_modifier
+
+# These tests come from one of the zdump-generated test files in
+# DT::TZ
+{
+ my $dt = DateTime->new(
+ year => 1922, month => 8, day => 31,
+ hour => 23, minute => 59, second => 59,
+ time_zone => 'UTC',
+ );
+ $dt->set_time_zone('Africa/Accra');
+
+ is( $dt->year, 1922, 'local year should be 1922 (1922-08-31 23:59:59)' );
+ is( $dt->month, 8, 'local month should be 8 (1922-08-31 23:59:59)' );
+ is( $dt->day, 31, 'local day should be 31 (1922-08-31 23:59:59)' );
+ is( $dt->hour, 23, 'local hour should be 23 (1922-08-31 23:59:59)' );
+ is( $dt->minute, 59, 'local minute should be 59 (1922-08-31 23:59:59)' );
+ is( $dt->second, 59, 'local second should be 59 (1922-08-31 23:59:59)' );
+
+ is( $dt->is_dst, 0, 'is_dst should be 0 (1922-08-31 23:59:59)' );
+ is( $dt->offset, 0, 'offset should be 0 (1922-08-31 23:59:59)' );
+ is(
+ $dt->time_zone_short_name, 'GMT',
+ 'short name should be GMT (1922-08-31 23:59:59)'
+ );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 2013,
+ month => 3,
+ day => 10,
+ hour => 2,
+ minute => 4,
+ time_zone => 'floating',
+ );
+
+ like(
+ exception { $dt->set_time_zone('America/Los_Angeles') },
+ qr/\QInvalid local time for date in time zone/,
+ 'got an exception when trying to set time zone when it leads to invalid local time'
+ );
+
+ is(
+ $dt->time_zone()->name(),
+ 'floating',
+ 'time zone was not changed after set_time_zone() throws an exception'
+ );
+}
+
+{
+ my $dt = DateTime->now( time_zone => 'America/Chicago' );
+
+ ok(
+ $dt->set_time_zone('America/Chicago'),
+ 'set_time_zone returns object when time zone name is same as current'
+ );
+
+ ok(
+ $dt->set_time_zone( $dt->time_zone() ),
+ 'set_time_zone returns object when time zone object is same as current'
+ );
+}
+
+done_testing();
--- /dev/null
+use strict;
+use warnings;
+
+use Test::More;
+
+use DateTime;
+
+undef $ENV{PERL_DATETIME_DEFAULT_TZ};
+
+{
+ my $dt = DateTime->new(
+ year => 2000,
+ hour => 1,
+ nanosecond => 500,
+ time_zone => 'UTC',
+ );
+
+ my ( $utc_rd_days, $utc_rd_secs, $utc_nanosecs ) = $dt->utc_rd_values;
+
+ is( $utc_rd_days, 730120, 'utc rd days is 730120' );
+ is( $utc_rd_secs, 3600, 'utc rd seconds is 3600' );
+ is( $utc_nanosecs, 500, 'nanoseconds is 500' );
+
+ my ( $local_rd_days, $local_rd_secs, $local_nanosecs )
+ = $dt->local_rd_values;
+
+ is( $local_rd_days, $utc_rd_days, 'local & utc rd days are equal' );
+ is( $local_rd_secs, $utc_rd_secs, 'local & utc rd seconds are equal' );
+ is( $local_nanosecs, $utc_nanosecs, 'local & UTC nanoseconds are equal' );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 2000,
+ hour => 1,
+ nanosecond => 500,
+ time_zone => '+02:00',
+ );
+
+ my ( $utc_rd_days, $utc_rd_secs, $utc_nanosecs ) = $dt->utc_rd_values;
+
+ is( $utc_rd_days, 730119, 'utc rd days is 730119' );
+ is( $utc_rd_secs, 82800, 'utc rd seconds is 82800' );
+ is( $utc_nanosecs, 500, 'nanoseconds is 500' );
+
+ my ( $local_rd_days, $local_rd_secs, $local_nanosecs )
+ = $dt->local_rd_values;
+
+ is( $local_rd_days, 730120, 'local rd days is 730120' );
+ is( $local_rd_secs, 3600, 'local rd seconds is 3600' );
+ is( $local_nanosecs, 500, 'local nanoseconds is 500' );
+}
+
+done_testing();
--- /dev/null
+use strict;
+use warnings;
+
+use Test::Fatal;
+use Test::More;
+
+use DateTime;
+
+undef $ENV{PERL_DATETIME_DEFAULT_TZ};
+
+my $badlt_rx = qr/Invalid local time|local time [0-9\-:T]+ does not exist/;
+
+{
+ like(
+ exception {
+ DateTime->new(
+ year => 2003, month => 4, day => 6,
+ hour => 2, time_zone => 'America/Chicago',
+ );
+ },
+ $badlt_rx,
+ 'exception for invalid time'
+ );
+
+ like(
+ exception {
+ DateTime->new(
+ year => 2003, month => 4, day => 6,
+ hour => 2, minute => 59, second => 59,
+ time_zone => 'America/Chicago',
+ );
+ },
+ $badlt_rx,
+ 'exception for invalid time'
+ );
+}
+
+{
+ is(
+ exception {
+ DateTime->new(
+ year => 2003, month => 4, day => 6,
+ hour => 1, minute => 59, second => 59,
+ time_zone => 'America/Chicago',
+ );
+ },
+ undef,
+ 'no exception for valid time'
+ );
+
+ my $dt = DateTime->new(
+ year => 2003, month => 4, day => 5,
+ hour => 2,
+ time_zone => 'America/Chicago',
+ );
+
+ like(
+ exception { $dt->add( days => 1 ) },
+ $badlt_rx,
+ 'exception for invalid time produced via add'
+ );
+
+ $dt->add( days => 2 );
+
+ my $dt2 = DateTime->new(
+ year => 2003, month => 4, day => 5,
+ hour => 2,
+ time_zone => 'America/Chicago',
+ )->add( days => 2 );
+
+ is( $dt, $dt2, 'adding after failed addition leads to correct result' );
+}
+
+done_testing();
--- /dev/null
+use strict;
+use warnings;
+
+use Test::Fatal;
+use Test::More;
+
+use DateTime;
+
+undef $ENV{PERL_DATETIME_DEFAULT_TZ};
+
+# These tests should be the final word on dt addition involving a
+# DST-changing time zone
+
+# time addition is "wait X amount of time, then what does the clock
+# say?" this means it acts on the UTC components.
+{
+ my $dt = DateTime->new(
+ year => 2003, month => 4, day => 6,
+ time_zone => 'America/Chicago',
+ );
+
+ $dt->add( hours => 1 );
+ is(
+ $dt->datetime, '2003-04-06T01:00:00',
+ 'add one hour to midnight, get 1 am'
+ );
+
+ is(
+ exception { $dt->add( hours => 1 ) },
+ undef,
+ 'no error adding 1 hour just before DST leap forward'
+ );
+ is(
+ $dt->datetime, '2003-04-06T03:00:00',
+ 'add one hour to 1 am, get 3 am'
+ );
+
+ $dt->subtract( hours => 1 );
+ is(
+ $dt->datetime, '2003-04-06T01:00:00',
+ 'subtract one hour from 3 am, get 1 am'
+ );
+
+ $dt->subtract( hours => 1 );
+ is(
+ $dt->datetime, '2003-04-06T00:00:00',
+ 'subtract one hour from 1 am, get midnight'
+ );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 2003, month => 10, day => 26,
+ time_zone => 'America/Chicago',
+ );
+
+ $dt->add( hours => 1 );
+ is(
+ $dt->datetime, '2003-10-26T01:00:00',
+ 'add one hour to midnight, get 1 am'
+ );
+
+ $dt->add( hours => 1 );
+ is(
+ $dt->datetime, '2003-10-26T01:00:00',
+ 'add one hour to 1 am, get 1 am (again)'
+ );
+
+ $dt->add( hours => 1 );
+ is(
+ $dt->datetime, '2003-10-26T02:00:00',
+ 'add one hour to 1 am (2nd time), get 2 am'
+ );
+
+ $dt->subtract( hours => 1 );
+ is(
+ $dt->datetime, '2003-10-26T01:00:00',
+ 'subtract 1 hour from 2 am, get 1 am'
+ );
+
+ $dt->subtract( hours => 1 );
+ is(
+ $dt->datetime, '2003-10-26T01:00:00',
+ 'subtract 1 hour from 1 am, get 1 am (again)'
+ );
+
+ $dt->subtract( hours => 1 );
+ is(
+ $dt->datetime, '2003-10-26T00:00:00',
+ 'subtract 1 hour from 1 am (2nd), get midnight'
+ );
+}
+
+# date addition is "leave the clock alone, just change the date
+# portion". this means it acts on local components
+{
+ my $dt = DateTime->new(
+ year => 2003, month => 4, day => 6,
+ time_zone => 'America/Chicago',
+ );
+
+ $dt->add( days => 1 );
+ is(
+ $dt->datetime, '2003-04-07T00:00:00',
+ 'add 1 day at midnight, same clock time'
+ );
+
+ $dt->add( months => 7 );
+ is(
+ $dt->datetime, '2003-11-07T00:00:00',
+ 'add 7 months at midnight, same clock time'
+ );
+
+ $dt->subtract( months => 7 );
+ is(
+ $dt->datetime, '2003-04-07T00:00:00',
+ 'subtract 7 months at midnight, same clock time'
+ );
+
+ $dt->subtract( days => 1 );
+ is(
+ $dt->datetime, '2003-04-06T00:00:00',
+ 'subtract 1 day at midnight, same clock time'
+ );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 2003, month => 10, day => 26,
+ time_zone => 'America/Chicago',
+ );
+
+ $dt->add( days => 1 );
+ is(
+ $dt->datetime, '2003-10-27T00:00:00',
+ 'add 1 day at midnight, get midnight'
+ );
+
+ $dt->add( months => 7 );
+ is(
+ $dt->datetime, '2004-05-27T00:00:00',
+ 'add 7 months at midnight, get midnight'
+ );
+
+ $dt->subtract( months => 7 );
+ is(
+ $dt->datetime, '2003-10-27T00:00:00',
+ 'subtract 7 months at midnight, get midnight'
+ );
+
+ $dt->subtract( days => 1 );
+ is(
+ $dt->datetime, '2003-10-26T00:00:00',
+ 'subtract 1 day at midnight, get midnight'
+ );
+}
+
+# date and time addition in one call is still two separate operations.
+# First we do date, then time.
+{
+ my $dt = DateTime->new(
+ year => 2003, month => 4, day => 5,
+ time_zone => 'America/Chicago',
+ );
+
+ $dt->add( days => 1, hours => 2 );
+ is(
+ $dt->datetime, '2003-04-06T03:00:00',
+ 'add one day & 2 hours from midnight, get 3 am'
+ );
+
+ # !!! - not reversible this way - needs some good docs
+ my $dt1 = $dt->clone->subtract( days => 1, hours => 2 );
+ is(
+ $dt1->datetime, '2003-04-05T01:00:00',
+ 'subtract one day & 2 hours from 3 am, get 1 am'
+ );
+
+ # is reversible this way - also needs docs
+ my $dt2 = $dt->clone->subtract( hours => 2 )->subtract( days => 1 );
+ is(
+ $dt2->datetime, '2003-04-05T00:00:00',
+ 'subtract 2 hours and then one day from 3 am, get midnight'
+ );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 2003, month => 10, day => 25,
+ time_zone => 'America/Chicago',
+ );
+
+ $dt->add( days => 1, hours => 2 );
+ is(
+ $dt->datetime, '2003-10-26T01:00:00',
+ 'add one day & 2 hours from midnight, get 1 am'
+ );
+
+ my $dt1 = $dt->clone->subtract( days => 1, hours => 2 );
+ is(
+ $dt1->datetime, '2003-10-24T23:00:00',
+ 'add one day & 2 hours from midnight, get 11 pm'
+ );
+
+ my $dt2 = $dt->clone->subtract( hours => 2 )->subtract( days => 1 );
+ is(
+ $dt2->datetime, '2003-10-25T00:00:00',
+ 'subtract 2 hours and then one day from 3 am, get midnight'
+ );
+}
+
+# an example from the docs
+{
+ my $dt = DateTime->new(
+ year => 2003, month => 4, day => 5,
+ hour => 2,
+ time_zone => 'America/Chicago',
+ );
+
+ $dt->add( hours => 24 );
+
+ is(
+ $dt->datetime, '2003-04-06T03:00:00',
+ 'datetime after adding 24 hours is 2003-04-06T03:00:00'
+ );
+}
+
+done_testing();
--- /dev/null
+use strict;
+use warnings;
+
+use Test::More;
+
+use DateTime;
+
+undef $ENV{PERL_DATETIME_DEFAULT_TZ};
+
+# These tests should be the final word on dt subtraction involving a
+# DST-changing time zone
+
+{
+ my $dt1 = DateTime->new(
+ year => 2003, month => 5, day => 6,
+ time_zone => 'America/Chicago',
+ );
+
+ my $dt2 = DateTime->new(
+ year => 2003, month => 11, day => 6,
+ time_zone => 'America/Chicago',
+ );
+
+ my $dur1 = $dt2->subtract_datetime($dt1);
+ my %deltas1 = $dur1->deltas;
+ is( $deltas1{months}, 6, 'delta_months is 6' );
+ is( $deltas1{days}, 0, 'delta_days is 0' );
+ is( $deltas1{minutes}, 0, 'delta_minutes is 0' );
+ is( $deltas1{seconds}, 0, 'delta_seconds is 0' );
+
+ is(
+ DateTime->compare( $dt1->clone->add_duration($dur1), $dt2 ), 0,
+ 'subtract_datetime is reversible from start point'
+ );
+ is(
+ DateTime->compare( $dt2->clone->subtract_duration($dur1), $dt1 ), 0,
+ 'subtract_datetime is reversible from end point'
+ );
+ is( $deltas1{nanoseconds}, 0, 'delta_nanoseconds is 0' );
+
+ my $dur2 = $dt1->subtract_datetime($dt2);
+ my %deltas2 = $dur2->deltas;
+ is( $deltas2{months}, -6, 'delta_months is -6' );
+ is( $deltas2{days}, 0, 'delta_days is 0' );
+ is( $deltas2{minutes}, 0, 'delta_minutes is 0' );
+ is( $deltas2{seconds}, 0, 'delta_seconds is 0' );
+ is( $deltas2{nanoseconds}, 0, 'delta_nanoseconds is 0' );
+
+ my $dur3 = $dt2->delta_md($dt1);
+ my %deltas3 = $dur3->deltas;
+ is( $deltas3{months}, 6, 'delta_months is 6' );
+ is( $deltas3{days}, 0, 'delta_days is 0' );
+ is( $deltas3{minutes}, 0, 'delta_minutes is 0' );
+ is( $deltas3{seconds}, 0, 'delta_seconds is 0' );
+ is( $deltas3{nanoseconds}, 0, 'delta_nanoseconds is 0' );
+
+ is(
+ DateTime->compare( $dt1->clone->add_duration($dur3), $dt2 ), 0,
+ 'delta_md is reversible from start point'
+ );
+ is(
+ DateTime->compare( $dt2->clone->subtract_duration($dur3), $dt1 ), 0,
+ 'delta_md is reversible from end point'
+ );
+
+ my $dur4 = $dt2->delta_days($dt1);
+ my %deltas4 = $dur4->deltas;
+ is( $deltas4{months}, 0, 'delta_months is 0' );
+ is( $deltas4{days}, 184, 'delta_days is 184' );
+ is( $deltas4{minutes}, 0, 'delta_minutes is 0' );
+ is( $deltas4{seconds}, 0, 'delta_seconds is 0' );
+ is( $deltas4{nanoseconds}, 0, 'delta_nanoseconds is 0' );
+
+ is(
+ DateTime->compare( $dt1->clone->add_duration($dur3), $dt2 ), 0,
+ 'delta_days is reversible from start point'
+ );
+ is(
+ DateTime->compare( $dt2->clone->subtract_duration($dur4), $dt1 ), 0,
+ 'delta_days is reversible from end point'
+ );
+}
+
+# same as above, but now the UTC hour of the earlier datetime is
+# _greater_ than that of the later one. this checks that overflows
+# are handled correctly.
+{
+ my $dt1 = DateTime->new(
+ year => 2003, month => 5, day => 6, hour => 18,
+ time_zone => 'America/Chicago',
+ );
+
+ my $dt2 = DateTime->new(
+ year => 2003, month => 11, day => 6, hour => 18,
+ time_zone => 'America/Chicago',
+ );
+
+ my $dur1 = $dt2->subtract_datetime($dt1);
+ my %deltas1 = $dur1->deltas;
+ is( $deltas1{months}, 6, 'delta_months is 6' );
+ is( $deltas1{days}, 0, 'delta_days is 0' );
+ is( $deltas1{minutes}, 0, 'delta_minutes is 0' );
+ is( $deltas1{seconds}, 0, 'delta_seconds is 0' );
+ is( $deltas1{nanoseconds}, 0, 'delta_nanoseconds is 0' );
+}
+
+# make sure delta_md and delta_days work in the face of DST change
+# where we lose an hour
+{
+ my $dt1 = DateTime->new(
+ year => 2003, month => 11, day => 6,
+ time_zone => 'America/Chicago',
+ );
+
+ my $dt2 = DateTime->new(
+ year => 2004, month => 5, day => 6,
+ time_zone => 'America/Chicago',
+ );
+
+ my $dur1 = $dt2->delta_md($dt1);
+ my %deltas1 = $dur1->deltas;
+ is( $deltas1{months}, 6, 'delta_months is 6' );
+ is( $deltas1{days}, 0, 'delta_days is 0' );
+ is( $deltas1{minutes}, 0, 'delta_minutes is 0' );
+ is( $deltas1{seconds}, 0, 'delta_seconds is 0' );
+ is( $deltas1{nanoseconds}, 0, 'delta_nanoseconds is 0' );
+
+ my $dur2 = $dt2->delta_days($dt1);
+ my %deltas2 = $dur2->deltas;
+ is( $deltas2{months}, 0, 'delta_months is 0' );
+ is( $deltas2{days}, 182, 'delta_days is 182' );
+ is( $deltas2{minutes}, 0, 'delta_minutes is 0' );
+ is( $deltas2{seconds}, 0, 'delta_seconds is 0' );
+ is( $deltas2{nanoseconds}, 0, 'delta_nanoseconds is 0' );
+
+}
+
+# the docs say use UTC to guarantee reversibility
+{
+ my $dt1 = DateTime->new(
+ year => 2003, month => 5, day => 6,
+ time_zone => 'America/Chicago',
+ );
+
+ my $dt2 = DateTime->new(
+ year => 2003, month => 11, day => 6,
+ time_zone => 'America/Chicago',
+ );
+
+ $dt1->set_time_zone('UTC');
+ $dt2->set_time_zone('UTC');
+
+ my $dur = $dt2->subtract_datetime($dt1);
+
+ is(
+ DateTime->compare( $dt1->add_duration($dur), $dt2 ), 0,
+ 'subtraction is reversible from start point with UTC'
+ );
+ is(
+ DateTime->compare( $dt2->subtract_duration($dur), $dt2 ), 0,
+ 'subtraction is reversible from start point with UTC'
+ );
+}
+
+# The important thing here is that after a subtraction, we can use the
+# duration to get from one date to the other, regardless of the type
+# of subtraction done.
+{
+ my $dt1 = DateTime->new(
+ year => 2003, month => 5, day => 6,
+ time_zone => 'America/Chicago',
+ );
+
+ my $dt2 = DateTime->new(
+ year => 2003, month => 11, day => 6,
+ time_zone => 'America/Chicago',
+ );
+
+ my $dur1 = $dt2->subtract_datetime_absolute($dt1);
+
+ my %deltas1 = $dur1->deltas;
+ is( $deltas1{months}, 0, 'delta_months is 0' );
+ is( $deltas1{days}, 0, 'delta_days is 0' );
+ is( $deltas1{minutes}, 0, 'delta_minutes is 0' );
+ is( $deltas1{seconds}, 15901200, 'delta_seconds is 15901200' );
+ is( $deltas1{nanoseconds}, 0, 'delta_nanoseconds is 0' );
+
+ is(
+ DateTime->compare( $dt1->clone->add_duration($dur1), $dt2 ), 0,
+ 'subtraction is reversible'
+ );
+ is(
+ DateTime->compare( $dt2->clone->subtract_duration($dur1), $dt1 ), 0,
+ 'subtraction is doubly reversible'
+ );
+
+ my $dur2 = $dt1->subtract_datetime_absolute($dt2);
+
+ my %deltas2 = $dur2->deltas;
+ is( $deltas2{months}, 0, 'delta_months is 0' );
+ is( $deltas2{days}, 0, 'delta_days is 0' );
+ is( $deltas2{minutes}, 0, 'delta_minutes is 0' );
+ is( $deltas2{seconds}, -15901200, 'delta_seconds is -15901200' );
+ is( $deltas2{nanoseconds}, 0, 'delta_nanoseconds is 0' );
+
+ is(
+ DateTime->compare( $dt2->clone->add_duration($dur2), $dt1 ), 0,
+ 'subtraction is reversible'
+ );
+ is(
+ DateTime->compare( $dt1->clone->subtract_duration($dur2), $dt2 ), 0,
+ 'subtraction is doubly reversible'
+ );
+}
+
+{
+ my $dt1 = DateTime->new(
+ year => 2003, month => 4, day => 6,
+ hour => 1, minute => 58,
+ time_zone => 'America/Chicago',
+ );
+
+ my $dt2 = DateTime->new(
+ year => 2003, month => 4, day => 6,
+ hour => 3, minute => 1,
+ time_zone => 'America/Chicago',
+ );
+
+ my $dur = $dt2->subtract_datetime($dt1);
+
+ my %deltas = $dur->deltas;
+ is( $deltas{months}, 0, 'delta_months is 0' );
+ is( $deltas{days}, 0, 'delta_days is 0' );
+ is( $deltas{minutes}, 3, 'delta_minutes is 3' );
+ is( $deltas{seconds}, 0, 'delta_seconds is 0' );
+ is( $deltas{nanoseconds}, 0, 'delta_nanoseconds is 0' );
+
+ is(
+ DateTime->compare( $dt1->clone->add_duration($dur), $dt2 ), 0,
+ 'subtraction is reversible'
+ );
+ is(
+ DateTime->compare( $dt2->clone->subtract_duration($dur), $dt1 ), 0,
+ 'subtraction is doubly reversible'
+ );
+}
+
+{
+ my $dt1 = DateTime->new(
+ year => 2003, month => 4, day => 5,
+ hour => 1, minute => 58,
+ time_zone => 'America/Chicago',
+ );
+
+ my $dt2 = DateTime->new(
+ year => 2003, month => 4, day => 6,
+ hour => 3, minute => 1,
+ time_zone => 'America/Chicago',
+ );
+
+ my $dur = $dt2->subtract_datetime($dt1);
+
+ my %deltas = $dur->deltas;
+ is( $deltas{months}, 0, 'delta_months is 0' );
+ is( $deltas{days}, 1, 'delta_days is 1' );
+ is( $deltas{minutes}, 3, 'delta_minutes is 3' );
+ is( $deltas{seconds}, 0, 'delta_seconds is 0' );
+ is( $deltas{nanoseconds}, 0, 'delta_nanoseconds is 0' );
+
+ is(
+ DateTime->compare( $dt1->clone->add_duration($dur), $dt2 ), 0,
+ 'dt1 + dur = dt2'
+ );
+
+ # this are two examples from the docs
+ is(
+ DateTime->compare(
+ $dt2->clone->subtract_duration($dur),
+ $dt1->clone->add( hours => 1 )
+ ),
+ 0,
+ 'dt2 - dur != dt1 (not reversible)'
+ );
+ is(
+ DateTime->compare(
+ $dt2->clone->subtract_duration( $dur->clock_duration )
+ ->subtract_duration( $dur->calendar_duration ),
+ $dt1
+ ),
+ 0,
+ 'dt2 - dur->clock - dur->cal = dt1 (reversible when componentized)'
+ );
+
+ my $dur2 = $dt1->subtract_datetime($dt2);
+ my %deltas2 = $dur2->deltas;
+ is( $deltas2{months}, 0, 'delta_months is 0' );
+ is( $deltas2{days}, -1, 'delta_days is 1' );
+ is( $deltas2{minutes}, -3, 'delta_minutes is 3' );
+ is( $deltas2{seconds}, 0, 'delta_seconds is 0' );
+ is( $deltas2{nanoseconds}, 0, 'delta_nanoseconds is 0' );
+ is(
+ $dt2->clone->add_duration($dur2)->datetime, '2003-04-05T02:58:00',
+ 'dt2 + dur2 != dt1'
+ );
+ is(
+ DateTime->compare(
+ $dt2->clone->add_duration( $dur2->clock_duration )
+ ->add_duration( $dur2->calendar_duration ),
+ $dt1
+ ),
+ 0,
+ 'dt2 + dur2->clock + dur2->cal = dt1'
+ );
+ is(
+ DateTime->compare( $dt1->clone->subtract_duration($dur2), $dt2 ), 0,
+ 'dt1 - dur2 = dt2'
+ );
+
+}
+
+# These tests makes sure that days with DST changes are "normal" when
+# they're the smaller operand
+{
+ my $dt1 = DateTime->new(
+ year => 2003, month => 4, day => 6,
+ hour => 3, minute => 1,
+ time_zone => 'America/Chicago',
+ );
+
+ my $dt2 = DateTime->new(
+ year => 2003, month => 4, day => 7,
+ hour => 3, minute => 2,
+ time_zone => 'America/Chicago',
+ );
+
+ my $dur = $dt2->subtract_datetime($dt1);
+
+ my %deltas = $dur->deltas;
+ is( $deltas{months}, 0, 'delta_months is 0' );
+ is( $deltas{days}, 1, 'delta_days is 1' );
+ is( $deltas{minutes}, 1, 'delta_minutes is 1' );
+ is( $deltas{seconds}, 0, 'delta_seconds is 0' );
+ is( $deltas{nanoseconds}, 0, 'delta_nanoseconds is 0' );
+
+ my $dur2 = $dt1->subtract_datetime($dt2);
+
+ my %deltas2 = $dur2->deltas;
+ is( $deltas2{months}, 0, 'delta_months is 0' );
+ is( $deltas2{days}, -1, 'delta_days is -1' );
+ is( $deltas2{minutes}, -1, 'delta_minutes is -1' );
+ is( $deltas2{seconds}, 0, 'delta_seconds is 0' );
+ is( $deltas2{nanoseconds}, 0, 'delta_nanoseconds is 0' );
+
+}
+
+{
+ my $dt1 = DateTime->new(
+ year => 2003, month => 4, day => 5,
+ hour => 1, minute => 58,
+ time_zone => 'America/Chicago',
+ );
+
+ my $dt2 = DateTime->new(
+ year => 2003, month => 4, day => 7,
+ hour => 2, minute => 1,
+ time_zone => 'America/Chicago',
+ );
+
+ my $dur = $dt2->subtract_datetime($dt1);
+
+ my %deltas = $dur->deltas;
+ is( $deltas{months}, 0, 'delta_months is 0' );
+ is( $deltas{days}, 2, 'delta_days is 2' );
+ is( $deltas{minutes}, 3, 'delta_minutes is 3' );
+ is( $deltas{seconds}, 0, 'delta_seconds is 0' );
+ is( $deltas{nanoseconds}, 0, 'delta_nanoseconds is 0' );
+
+ is(
+ DateTime->compare( $dt1->clone->add_duration($dur), $dt2 ), 0,
+ 'subtraction is reversible'
+ );
+ is(
+ DateTime->compare( $dt2->clone->subtract_duration($dur), $dt1 ), 0,
+ 'subtraction is doubly reversible'
+ );
+}
+
+# from example in docs
+{
+ my $dt1 = DateTime->new(
+ year => 2003, month => 5, day => 6,
+ time_zone => 'America/Chicago',
+ );
+
+ my $dt2 = DateTime->new(
+ year => 2003, month => 11, day => 6,
+ time_zone => 'America/Chicago',
+ );
+
+ $dt1->set_time_zone('floating');
+ $dt2->set_time_zone('floating');
+
+ my $dur = $dt2->subtract_datetime($dt1);
+ my %deltas = $dur->deltas;
+ is( $deltas{months}, 6, 'delta_months is 6' );
+ is( $deltas{days}, 0, 'delta_days is 0' );
+ is( $deltas{minutes}, 0, 'delta_minutes is 0' );
+ is( $deltas{seconds}, 0, 'delta_seconds is 0' );
+ is( $deltas{nanoseconds}, 0, 'delta_nanoseconds is 0' );
+
+ is(
+ DateTime->compare( $dt1->clone->add_duration($dur), $dt2 ), 0,
+ 'subtraction is reversible from start point'
+ );
+ is(
+ DateTime->compare( $dt2->clone->subtract_duration($dur), $dt1 ), 0,
+ 'subtraction is reversible from end point'
+ );
+}
+
+{
+ my $dt1 = DateTime->new(
+ year => 2005, month => 8,
+ time_zone => 'Europe/London',
+ );
+
+ my $dt2 = DateTime->new(
+ year => 2005, month => 11,
+ time_zone => 'Europe/London',
+ );
+
+ my $dur = $dt2->subtract_datetime($dt1);
+ my %deltas = $dur->deltas;
+ is(
+ $deltas{months}, 3,
+ '3 months between two local times over DST change'
+ );
+ is( $deltas{days}, 0, '0 days between two local times over DST change' );
+ is(
+ $deltas{minutes}, 0,
+ '0 minutes between two local times over DST change'
+ );
+}
+
+# same as previous but without hours overflow
+{
+ my $dt1 = DateTime->new(
+ year => 2005, month => 8, hour => 12,
+ time_zone => 'Europe/London',
+ );
+
+ my $dt2 = DateTime->new(
+ year => 2005, month => 11, hour => 12,
+ time_zone => 'Europe/London',
+ );
+
+ my $dur = $dt2->subtract_datetime($dt1);
+ my %deltas = $dur->deltas;
+ is(
+ $deltas{months}, 3,
+ '3 months between two local times over DST change'
+ );
+ is( $deltas{days}, 0, '0 days between two local times over DST change' );
+ is(
+ $deltas{minutes}, 0,
+ '0 minutes between two local times over DST change'
+ );
+}
+
+# another docs example
+{
+ my $dt2 = DateTime->new(
+ year => 2003, month => 10, day => 26,
+ hour => 1,
+ time_zone => 'America/Chicago',
+ );
+
+ my $dt1 = $dt2->clone->subtract( hours => 1 );
+
+ my $dur = $dt2->subtract_datetime($dt1);
+
+ my %deltas = $dur->deltas;
+ is(
+ $deltas{months}, 0,
+ '0 months between two local times over DST change'
+ );
+ is( $deltas{days}, 0, '0 days between two local times over DST change' );
+ is(
+ $deltas{minutes}, 60,
+ '60 minutes between two local times over DST change'
+ );
+
+ is(
+ DateTime->compare( $dt1->clone->add_duration($dur), $dt2 ), 0,
+ 'subtraction is reversible'
+ );
+ is(
+ DateTime->compare( $dt2->clone->subtract_duration($dur), $dt1 ), 0,
+ 'subtraction is doubly reversible'
+ );
+}
+
+{
+ my $dt1 = DateTime->new(
+ year => 2003, month => 5, day => 6,
+ time_zone => 'America/New_York',
+ );
+
+ my $dt2 = DateTime->new(
+ year => 2003, month => 5, day => 6,
+ time_zone => 'America/Chicago',
+ );
+
+ my $dur = $dt2->subtract_datetime($dt1);
+
+ my %deltas = $dur->deltas;
+ is(
+ $deltas{months}, 0,
+ '0 months between two local times over DST change'
+ );
+ is( $deltas{days}, 0, '0 days between two local times over DST change' );
+ is(
+ $deltas{minutes}, 60,
+ '60 minutes between two local times over DST change'
+ );
+
+ is(
+ DateTime->compare( $dt1->clone->add_duration($dur), $dt2 ), 0,
+ 'subtraction is reversible'
+ );
+ is(
+ DateTime->compare( $dt2->clone->subtract_duration($dur), $dt1 ), 0,
+ 'subtraction is doubly reversible'
+ );
+}
+
+# Fix a bug that occurred when the local time zone had DST and the two
+# datetime objects were on the same day
+{
+ my $dt1 = DateTime->new(
+ year => 2005, month => 4, day => 3,
+ hour => 7, minute => 0,
+ time_zone => 'America/New_York'
+ );
+
+ my $dt2 = DateTime->new(
+ year => 2005, month => 4, day => 3,
+ hour => 8, minute => 0,
+ time_zone => 'America/New_York'
+ );
+
+ my $dur = $dt2->subtract_datetime($dt1);
+ my ( $minutes, $seconds ) = $dur->in_units( 'minutes', 'seconds' );
+
+ is(
+ $minutes, 60,
+ 'subtraction of two dates on a DST change date, minutes == 60'
+ );
+ is(
+ $seconds, 0,
+ 'subtraction of two dates on a DST change date, seconds == 0'
+ );
+
+ $dur = $dt1->subtract_datetime($dt1);
+ ok(
+ $dur->is_zero,
+ 'dst change date (no dst) - itself, duration is zero'
+ );
+}
+
+{
+ my $dt1 = DateTime->new(
+ year => 2005, month => 4, day => 3,
+ hour => 1, minute => 0,
+ time_zone => 'America/New_York'
+ );
+
+ my $dur = $dt1->subtract_datetime($dt1);
+ ok(
+ $dur->is_zero,
+ 'dst change date (with dst) - itself, duration is zero'
+ );
+}
+
+# This tests a bug where one of the datetimes is changing DST, and the
+# other is not. In this case, no "adjustments" (aka hacks) are made in
+# subtract_datetime, and it just gives the "UTC difference".
+{
+
+ # This is UTC-4
+ my $dt1 = DateTime->new(
+ year => 2009, month => 3, day => 9,
+ time_zone => 'America/New_York'
+ );
+
+ # This is UTC+8
+ my $dt2 = DateTime->new(
+ year => 2009, month => 3, day => 9,
+ time_zone => 'Asia/Hong_Kong'
+ );
+
+ my $dur = $dt1->subtract_datetime($dt2);
+
+ is(
+ $dur->delta_minutes, 720,
+ 'subtraction the day after a DST change in one zone, where the other datetime is in a different zone'
+ );
+}
+
+{
+
+ # This is UTC-5
+ my $dt1 = DateTime->new(
+ year => 2009, month => 3, day => 8,
+ hour => 1,
+ time_zone => 'America/New_York'
+ );
+
+ # This is UTC+8
+ my $dt2 = DateTime->new(
+ year => 2009, month => 3, day => 8,
+ hour => 1,
+ time_zone => 'Asia/Hong_Kong'
+ );
+
+ my $dur = $dt1->subtract_datetime($dt2);
+
+ is(
+ $dur->delta_minutes, 780,
+ 'subtraction the day of a DST change in one zone (before the change),'
+ . ' where the other datetime is in a different zone'
+ );
+}
+
+{
+
+ # This is UTC-4
+ my $dt1 = DateTime->new(
+ year => 2009, month => 3, day => 8,
+ hour => 4,
+ time_zone => 'America/New_York'
+ );
+
+ # This is UTC+8
+ my $dt2 = DateTime->new(
+ year => 2009, month => 3, day => 8,
+ hour => 4,
+ time_zone => 'Asia/Hong_Kong'
+ );
+
+ my $dur = $dt1->subtract_datetime($dt2);
+
+ is(
+ $dur->delta_minutes, 720,
+ 'subtraction the day of a DST change in one zone (after the change),'
+ . ' where the other datetime is in a different zone'
+ );
+}
+
+done_testing();
--- /dev/null
+# no pp test
+# HARNESS-NO-PRELOAD
+
+use strict;
+use warnings;
+
+use Test::Fatal;
+use Test::More;
+
+## no critic (TestingAndDebugging::ProhibitNoWarnings)
+no warnings 'once', 'redefine';
+
+undef $ENV{PERL_DATETIME_DEFAULT_TZ};
+
+require XSLoader;
+
+my $orig = \&XSLoader::load;
+
+my $sub = sub {
+ if ( defined $_[0] && $_[0] eq 'DateTime' ) {
+ die q{Can't locate loadable object for module DateTime in @INC};
+ }
+ else {
+ goto $orig;
+ }
+};
+
+*XSLoader::load = $sub;
+
+is(
+ exception { require DateTime },
+ undef,, 'No error loading DateTime without DateTime.so file'
+);
+## no critic (Variables::ProhibitPackageVars)
+ok( $DateTime::IsPurePerl, '$DateTime::IsPurePerl is true' );
+
+ok(
+ DateTime->new( year => 2005 ),
+ 'can make DateTime object without DateTime.so file'
+);
+
+done_testing();
--- /dev/null
+use strict;
+use warnings;
+
+use Test::More;
+
+use DateTime;
+
+undef $ENV{PERL_DATETIME_DEFAULT_TZ};
+
+## no critic (Subroutines::ProtectPrivateSubs)
+for my $y ( 0, 400, 2000, 2004 ) {
+ ok( DateTime->_is_leap_year($y), "$y is a leap year" );
+}
+
+for my $y ( 1, 100, 1900, 2133 ) {
+ ok( !DateTime->_is_leap_year($y), "$y is not a leap year" );
+}
+
+done_testing();
--- /dev/null
+use strict;
+use warnings;
+use utf8;
+
+use Test::More;
+
+use DateTime;
+
+undef $ENV{PERL_DATETIME_DEFAULT_TZ};
+
+for my $o (
+ Test::Builder->new->output,
+ Test::Builder->new->failure_output,
+ Test::Builder->new->todo_output
+) {
+ binmode $o, ':encoding(UTF-8)' or die $!;
+}
+
+{
+ my $dt = DateTime->new(
+ year => 1976,
+ month => 10,
+ day => 20,
+ hour => 18,
+ minute => 34,
+ second => 55,
+ nanosecond => 1_000_000,
+ locale => 'en',
+ time_zone => 'America/Chicago',
+ );
+
+ my %tests = (
+ 'GGGGG' => 'A',
+ 'GGGG' => 'Anno Domini',
+ 'GGG' => 'AD',
+ 'GG' => 'AD',
+ 'G' => 'AD',
+
+ 'yyyyy' => '01976',
+ 'yyyy' => '1976',
+ 'yyy' => '1976',
+ 'yy' => '76',
+ 'y' => '1976',
+
+ 'uuuuuu' => '001976',
+ 'uuuuu' => '01976',
+ 'uuuu' => '1976',
+ 'uuu' => '1976',
+ 'uu' => '1976',
+ 'u' => '1976',
+
+ 'YYYYY' => '01976',
+ 'YYYY' => '1976',
+ 'YYY' => '1976',
+ 'YY' => '1976',
+ 'Y' => '1976',
+
+ 'QQQQ' => '4th quarter',
+ 'QQQ' => 'Q4',
+ 'QQ' => '04',
+ 'Q' => '4',
+
+ 'qqqq' => '4th quarter',
+ 'qqq' => 'Q4',
+ 'qq' => '04',
+ 'q' => '4',
+
+ 'MMMMM' => 'O',
+ 'MMMM' => 'October',
+ 'MMM' => 'Oct',
+ 'MM' => '10',
+ 'M' => '10',
+
+ 'LLLLL' => 'O',
+ 'LLLL' => 'October',
+ 'LLL' => 'Oct',
+ 'LL' => '10',
+ 'L' => '10',
+
+ 'ww' => '43',
+ 'w' => '43',
+ 'W' => '3',
+
+ 'dd' => '20',
+ 'd' => '20',
+
+ 'DDD' => '294',
+ 'DD' => '294',
+ 'D' => '294',
+
+ 'F' => '3',
+ 'gggggg' => '043071',
+ 'g' => '43071',
+
+ 'EEEEE' => 'W',
+ 'EEEE' => 'Wednesday',
+ 'EEE' => 'Wed',
+ 'EE' => 'Wed',
+ 'E' => 'Wed',
+
+ 'eeeee' => 'W',
+ 'eeee' => 'Wednesday',
+ 'eee' => 'Wed',
+ 'ee' => '03',
+ 'e' => '3',
+
+ 'ccccc' => 'W',
+ 'cccc' => 'Wednesday',
+ 'ccc' => 'Wed',
+ 'cc' => '03',
+ 'c' => '3',
+
+ 'a' => 'PM',
+
+ 'hh' => '06',
+ 'h' => '6',
+ 'HH' => '18',
+ 'H' => '18',
+ 'KK' => '06',
+ 'K' => '6',
+ 'kk' => '18',
+ 'j' => '6',
+ 'jj' => '06',
+
+ 'mm' => '34',
+ 'm' => '34',
+
+ 'ss' => '55',
+ 's' => '55',
+ 'SS' => '00',
+ 'SSSSSS' => '001000',
+ 'A' => '66895001',
+
+ 'zzzz' => 'America/Chicago',
+ 'zzz' => 'CDT',
+ 'ZZZZ' => 'CDT-0500',
+ 'ZZZ' => '-0500',
+ 'vvvv' => 'America/Chicago',
+ 'vvv' => 'CDT',
+ 'VVVV' => 'America/Chicago',
+ 'VVV' => 'CDT',
+ 'ZZZZZ' => '-05:00',
+
+ q{'one fine day'} => 'one fine day',
+ q{'yy''yy' yyyy} => q{yy'yy 1976},
+
+ q{'yy''yy' 'hello' yyyy} => q{yy'yy hello 1976},
+
+ # Non-pattern text should pass through unchanged
+ 'dæ—¥' => '20æ—¥',
+ );
+
+ for my $k ( sort keys %tests ) {
+ is(
+ $dt->format_cldr($k), $tests{$k},
+ "format_cldr for $k"
+ );
+ }
+}
+
+{
+ my $dt = DateTime->new(
+ year => 2008,
+ month => 10,
+ day => 20,
+ hour => 18,
+ minute => 34,
+ second => 55,
+ nanosecond => 1_000_000,
+ locale => 'en',
+ time_zone => 'America/Chicago',
+ );
+
+ is(
+ $dt->format_cldr('yy'), '08',
+ 'format_cldr for yy in 2008 should be 08'
+ );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 2008,
+ month => 10,
+ day => 20,
+ hour => 18,
+ minute => 34,
+ second => 55,
+ nanosecond => 1_000_000,
+ locale => 'en_US',
+ time_zone => 'America/Chicago',
+ );
+
+ is(
+ $dt->format_cldr('j'), '6',
+ 'format_cldr for j in en_US should be 6 (at 18:34)'
+ );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 2008,
+ month => 10,
+ day => 20,
+ hour => 18,
+ minute => 34,
+ second => 55,
+ nanosecond => 1_000_000,
+ locale => 'fr',
+ time_zone => 'America/Chicago',
+ );
+
+ is(
+ $dt->format_cldr('j'), '18',
+ 'format_cldr for j in fr should be 18 (at 18:34)'
+ );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 2009,
+ month => 4,
+ day => 13,
+ locale => 'en_US',
+ );
+
+ is(
+ $dt->format_cldr('e'), '2',
+ 'format_cldr for e in en_US should be 2 (for Monday, 2009-04-13)'
+ );
+
+ is(
+ $dt->format_cldr('c'), '1',
+ 'format_cldr for c in en_US should be 1 (for Monday, 2009-04-13)'
+ );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 2009,
+ month => 4,
+ day => 13,
+ locale => 'fr_FR',
+ );
+
+ is(
+ $dt->format_cldr('e'), '1',
+ 'format_cldr for e in fr_FR should be 1 (for Monday, 2009-04-13)'
+ );
+
+ is(
+ $dt->format_cldr('c'), '1',
+ 'format_cldr for c in fr_FR should be 1 (for Monday, 2009-04-13)'
+ );
+}
+
+{
+ my $dt = DateTime->new( year => -10 );
+
+ my %tests = (
+ 'y' => '-10',
+ 'yy' => '-10',
+ 'yyy' => '-10',
+ 'yyyy' => '-010',
+ 'yyyyy' => '-0010',
+
+ 'u' => '-10',
+ 'uu' => '-10',
+ 'uuu' => '-10',
+ 'uuuu' => '-010',
+ 'uuuuu' => '-0010',
+ );
+
+ for my $k ( sort keys %tests ) {
+ is(
+ $dt->format_cldr($k), $tests{$k},
+ "format_cldr for $k"
+ );
+ }
+}
+
+{
+ my $dt = DateTime->new( year => -1976 );
+
+ my %tests = (
+ 'y' => '-1976',
+ 'yy' => '-76',
+ 'yyy' => '-1976',
+ 'yyyy' => '-1976',
+ 'yyyyy' => '-1976',
+
+ 'u' => '-1976',
+ 'uu' => '-1976',
+ 'uuu' => '-1976',
+ 'uuuu' => '-1976',
+ 'uuuuu' => '-1976',
+ );
+
+ for my $k ( sort keys %tests ) {
+ is(
+ $dt->format_cldr($k), $tests{$k},
+ "format_cldr for $k"
+ );
+ }
+}
+
+{
+ my $dt = DateTime->new(
+ year => 1976,
+ month => 10,
+ day => 20,
+ hour => 18,
+ minute => 34,
+ second => 55,
+ nanosecond => 999_999_999,
+ locale => 'en',
+ time_zone => 'UTC',
+ );
+
+ is(
+ $dt->format_cldr('ss,SSS'),
+ '55,999',
+ 'milliseconds are rounded down',
+ );
+}
+
+{
+ my $dt = DateTime->new( year => 2019, nanosecond => 10 );
+ is(
+ '00000001000000',
+ $dt->format_cldr('SSSSSSSSSSSSSS'),
+ 'formatting nanosecond to > 9 digits of precision works',
+ );
+}
+
+done_testing();
--- /dev/null
+## no critic (Modules::ProhibitMultiplePackages)
+use strict;
+use warnings;
+
+use Test::More;
+use DateTime;
+
+undef $ENV{PERL_DATETIME_DEFAULT_TZ};
+
+{
+ package DateTime::MySubclass;
+ use parent 'DateTime';
+
+ sub duration_class {'DateTime::Duration::MySubclass'}
+
+ package DateTime::Duration::MySubclass;
+ use parent 'DateTime::Duration';
+
+ sub is_my_subclass {1}
+}
+
+my $dt = DateTime::MySubclass->now;
+my $delta = $dt - $dt;
+
+isa_ok( $delta, 'DateTime::Duration::MySubclass' );
+isa_ok( $dt + $delta, 'DateTime::MySubclass' );
+
+my $delta_days = $dt->delta_days($dt);
+isa_ok( $delta_days, 'DateTime::Duration::MySubclass' );
+
+done_testing();
--- /dev/null
+use strict;
+use warnings;
+
+use Test::Fatal;
+use Test::More;
+
+use DateTime;
+
+undef $ENV{PERL_DATETIME_DEFAULT_TZ};
+
+like(
+ exception { DateTime->new( year => 10.5 ) },
+ qr/Validation failed for type named Year/,
+ 'year must be an integer'
+);
+like(
+ exception { DateTime->new( year => -10.5 ) },
+ qr/Validation failed for type named Year/,
+ 'year must be an integer'
+);
+
+like(
+ exception { DateTime->new( year => 10, month => 2.5 ) },
+ qr/Validation failed for type named Month/,
+ 'month must be an integer'
+);
+
+like(
+ exception { DateTime->new( year => 10, month => 2, day => 12.4 ) },
+ qr/Validation failed for type named DayOfMonth/,
+ 'day must be an integer'
+);
+
+like(
+ exception {
+ DateTime->new( year => 10, month => 2, day => 12, hour => 4.1 );
+ },
+ qr/Validation failed for type named Hour/,
+ 'hour must be an integer'
+);
+
+like(
+ exception {
+ DateTime->new(
+ year => 10,
+ month => 2,
+ day => 12,
+ hour => 4,
+ minute => 12.2
+ );
+ },
+ qr/Validation failed for type named Minute/,
+ 'minute must be an integer'
+);
+
+like(
+ exception {
+ DateTime->new(
+ year => 10,
+ month => 2,
+ day => 12,
+ hour => 4,
+ minute => 12,
+ second => 51.8
+ );
+ },
+ qr/Validation failed for type named Second/,
+ 'second must be an integer'
+);
+
+like(
+ exception {
+ DateTime->new(
+ year => 10,
+ month => 2,
+ day => 12,
+ hour => 4,
+ minute => 12,
+ second => 51,
+ nanosecond => 124512.12412
+ );
+ },
+ qr/Validation failed for type named Nanosecond/,
+ 'nanosecond must be an integer'
+);
+
+like(
+ exception {
+ DateTime->new( year => 10, month => 2, day => 12 )->today;
+ },
+ qr/called with reference/,
+ 'today must be called as a class method, not an object method'
+);
+
+like(
+ exception {
+ DateTime->new( year => 10, month => 2, day => 12 )->now;
+ },
+ qr/called with reference/,
+ 'now must be called as a class method, not an object method'
+);
+
+done_testing();
--- /dev/null
+use strict;
+use warnings;
+
+use Test::Fatal;
+use Test::More;
+
+use DateTime;
+use overload;
+
+undef $ENV{PERL_DATETIME_DEFAULT_TZ};
+
+my $dt = DateTime->now;
+
+like(
+ exception { $dt->set_formatter('Invalid::Formatter') },
+ qr/\QValidation failed for type named Maybe[Formatter]/,
+ 'set_format is validated'
+);
+
+SKIP:
+{
+ ## no critic (BuiltinFunctions::ProhibitStringyEval)
+ skip 'This test requires DateTime::Format::Strptime 1.2000+', 1
+ unless eval 'use DateTime::Format::Strptime 1.2000; 1;';
+
+ my $formatter = DateTime::Format::Strptime->new(
+ pattern => '%Y%m%d %T',
+ );
+
+ is(
+ $dt->set_formatter($formatter),
+ $dt,
+ 'set_formatter returns the datetime object'
+ );
+}
+
+done_testing();
--- /dev/null
+use strict;
+use warnings;
+
+use Test::More;
+
+use DateTime;
+
+undef $ENV{PERL_DATETIME_DEFAULT_TZ};
+
+no warnings 'redefine';
+## no critic (Variables::ProtectPrivateVars)
+local *DateTime::_core_time = sub {0};
+
+my $dt = DateTime->now;
+
+is(
+ "$dt",
+ '1970-01-01T00:00:00',
+ 'overriding DateTime::_core_time() works'
+);
+
+done_testing();
--- /dev/null
+use strict;
+use warnings;
+
+use Test::More;
+use Test::Warnings 0.005 ':all';
+
+use DateTime;
+
+undef $ENV{PERL_DATETIME_DEFAULT_TZ};
+
+my $year_5001_epoch = 95649120000;
+
+## no critic (TestingAndDebugging::ProhibitNoWarnings)
+SKIP:
+{
+ my $year = ( gmtime($year_5001_epoch) )[5];
+ skip 'These tests require a 64-bit Perl', 2
+ unless defined $year && $year == 3101;
+
+ {
+ like(
+ warning {
+ DateTime->from_epoch(
+ epoch => $year_5001_epoch,
+ time_zone => 'Asia/Taipei',
+ );
+ },
+ qr{\QYou are creating a DateTime object with a far future year (5001) and a time zone (Asia/Taipei).},
+ 'got a warning when calling ->from_epoch with a far future epoch and a time_zone'
+ );
+ }
+
+ {
+ no warnings 'DateTime';
+ is_deeply(
+ warning {
+ DateTime->from_epoch(
+ epoch => $year_5001_epoch,
+ time_zone => 'Asia/Taipei',
+ );
+ },
+ [],
+ 'no warning when calling ->from_epoch with a far future epoch and a time_zone with DateTime warnings category suppressed'
+ );
+ }
+}
+
+{
+ like(
+ warning {
+ DateTime->new(
+ year => 5001,
+ time_zone => 'Asia/Taipei',
+ );
+ },
+ qr{\QYou are creating a DateTime object with a far future year (5001) and a time zone (Asia/Taipei).},
+ 'got a warning when calling ->new with a far future year and a time_zone'
+ );
+}
+
+{
+ no warnings 'DateTime';
+ is_deeply(
+ warning {
+ DateTime->new(
+ year => 5001,
+ time_zone => 'Asia/Taipei',
+ );
+ },
+ [],
+ 'no warning when calling ->new with a far future epoch and a time_zone with DateTime warnings category suppressed'
+ );
+}
+
+{
+ no warnings;
+ is_deeply(
+ warning {
+ DateTime->new(
+ year => 5001,
+ time_zone => 'Asia/Taipei',
+ );
+ },
+ [],
+ 'no warning when calling ->new with a far future epoch and a time_zone with all warnings suppressed'
+ );
+}
+
+done_testing();
--- /dev/null
+use strict;
+use warnings;
+
+use Test::More;
+
+use DateTime;
+
+undef $ENV{PERL_DATETIME_DEFAULT_TZ};
+
+{
+ my $dt = DateTime->new( year => 2000, month => 2, day => 21 );
+ is(
+ $dt->time_zone->name, 'floating',
+ 'Time zones for new DateTime objects should default to floating'
+ );
+ is(
+ DateTime->last_day_of_month( year => 2000, month => 2 )
+ ->time_zone->name,
+ 'floating',
+ 'last_day_of_month time zone also should default to floating'
+ );
+ is(
+ DateTime->from_day_of_year( year => 2000, day_of_year => 212 )
+ ->time_zone->name,
+ 'floating',
+ 'from_day_of_year time zone also should default to floating'
+ );
+ is(
+ DateTime->now->time_zone->name, 'UTC',
+ '... except for constructors which assume UTC'
+ );
+ is(
+ DateTime->from_epoch( epoch => time() )->time_zone->name, 'UTC',
+ '... except for constructors which assume UTC'
+ );
+}
+
+{
+ my $dt1 = DateTime->new( year => 1970, hour => 1, nanosecond => 100 );
+ my $dt2 = DateTime->from_object( object => $dt1 );
+ is(
+ $dt2->time_zone->name, 'floating',
+ 'Copying DateTime objects from other DateTime objects should retain the timezone'
+ );
+}
+
+{
+ my $dt = DateTime->new( year => 2000, month => 2, day => 21 );
+ local $ENV{PERL_DATETIME_DEFAULT_TZ} = 'America/Los_Angeles';
+ is(
+ $dt->time_zone->name, 'floating',
+ 'Setting PERL_DATETIME_DEFAULT_TZ env should not impact existing objects'
+ );
+ $dt = DateTime->new( year => 2000, month => 2, day => 21 );
+ is(
+ $dt->time_zone->name, $ENV{PERL_DATETIME_DEFAULT_TZ},
+ '... but new objects should no longer default to the floating time zone'
+ );
+ is(
+ DateTime->last_day_of_month( year => 2000, month => 2 )
+ ->time_zone->name,
+ $ENV{PERL_DATETIME_DEFAULT_TZ},
+ 'last_day_of_month time zone also should default to floating'
+ );
+ is(
+ DateTime->from_day_of_year( year => 2000, day_of_year => 212 )
+ ->time_zone->name,
+ $ENV{PERL_DATETIME_DEFAULT_TZ},
+ 'from_day_of_year time zone also should default to floating'
+ );
+ is(
+ DateTime->now->time_zone->name, 'UTC',
+ '... and constructors which assume UTC should remain unchanged'
+ );
+
+ my $dt1 = DateTime->new( year => 1970, hour => 1, nanosecond => 100 );
+ my $dt2 = DateTime->from_object( object => $dt1 );
+ is(
+ $dt2->time_zone->name, $ENV{PERL_DATETIME_DEFAULT_TZ},
+ 'Copying DateTime objects from other DateTime objects should retain the timezone'
+ );
+}
+
+{
+ my $dt = DateTime->new( year => 2000, month => 2, day => 21 );
+ is(
+ $dt->time_zone->name, 'floating',
+ 'Default time zone should revert to "floating" when PERL_DATETIME_DEFAULT_TZ no longer set'
+ );
+}
+
+done_testing();
--- /dev/null
+use strict;
+use warnings;
+
+use Test::Fatal;
+use Test::More;
+
+use DateTime;
+
+undef $ENV{PERL_DATETIME_DEFAULT_TZ};
+
+# The bug here is that if DateTime doesn't clean its namespace, it ends up
+# having a catch method that is getting called here and being passed a hashref
+# containing the return value of $dt->truncate. See
+# https://rt.cpan.org/Ticket/Display.html?id=115983
+
+my $dt = DateTime->now;
+like(
+ exception {
+ try { } catch {
+ $dt->truncate( to => 'hour' );
+ };
+ },
+ qr/Can\'t locate object method "catch"/,
+ 'DateTime does not have a catch method'
+);
+
+done_testing();
--- /dev/null
+use strict;
+use warnings;
+
+use Test::More 0.88;
+use Test::Without::Module qw( Sub::Util );
+
+undef $ENV{PERL_DATETIME_DEFAULT_TZ};
+
+use_ok('DateTime');
+
+done_testing();
--- /dev/null
+use strict;
+use warnings;
+
+# this test was generated with Dist::Zilla::Plugin::Test::CheckBreaks 0.019
+
+use Test::More tests => 2;
+
+SKIP: {
+ eval { +require DateTime::Conflicts; DateTime::Conflicts->check_conflicts };
+ skip('no DateTime::Conflicts module found', 1) if not $INC{'DateTime/Conflicts.pm'};
+
+ diag $@ if $@;
+ pass 'conflicts checked via DateTime::Conflicts';
+}
+
+# this data duplicates x_breaks in META.json
+my $breaks = {
+ "DateTime::Format::Mail" => "<= 0.402"
+};
+
+use CPAN::Meta::Requirements;
+use CPAN::Meta::Check 0.011;
+
+my $reqs = CPAN::Meta::Requirements->new;
+$reqs->add_string_requirement($_, $breaks->{$_}) foreach keys %$breaks;
+
+our $result = CPAN::Meta::Check::check_requirements($reqs, 'conflicts');
+
+if (my @breaks = grep { defined $result->{$_} } keys %$result)
+{
+ diag 'Breakages found with DateTime:';
+ diag "$result->{$_}" for sort @breaks;
+ diag "\n", 'You should now update these modules!';
+}
+
+pass 'checked x_breaks data';
--- /dev/null
+use strict;
+use warnings;
+
+# this test was generated with Dist::Zilla::Plugin::Test::CleanNamespaces 0.006
+
+use Test::More 0.94;
+use Test::CleanNamespaces 0.15;
+
+subtest all_namespaces_clean => sub {
+ namespaces_clean(
+ grep { my $mod = $_; not grep { $mod =~ $_ } qr/DateTime::Conflicts/ }
+ Test::CleanNamespaces->find_modules
+ );
+};
+
+done_testing;
--- /dev/null
+use strict;
+use warnings;
+
+# this test was generated with Dist::Zilla::Plugin::Test::EOL 0.19
+
+use Test::More 0.88;
+use Test::EOL;
+
+my @files = (
+ 'lib/DateTime.pm',
+ 'lib/DateTime/Conflicts.pm',
+ 'lib/DateTime/Duration.pm',
+ 'lib/DateTime/Helpers.pm',
+ 'lib/DateTime/Infinite.pm',
+ 'lib/DateTime/LeapSecond.pm',
+ 'lib/DateTime/PP.pm',
+ 'lib/DateTime/PPExtra.pm',
+ 'lib/DateTime/Types.pm',
+ 't/00-report-prereqs.dd',
+ 't/00-report-prereqs.t',
+ 't/00load.t',
+ 't/01sanity.t',
+ 't/02last-day.t',
+ 't/03components.t',
+ 't/04epoch.t',
+ 't/05set.t',
+ 't/06add.t',
+ 't/07compare.t',
+ 't/09greg.t',
+ 't/10subtract.t',
+ 't/11duration.t',
+ 't/12week.t',
+ 't/13strftime.t',
+ 't/14locale.t',
+ 't/15jd.t',
+ 't/16truncate.t',
+ 't/17set-return.t',
+ 't/18today.t',
+ 't/19leap-second.t',
+ 't/20infinite.t',
+ 't/21bad-params.t',
+ 't/22from-doy.t',
+ 't/23storable.t',
+ 't/24from-object.t',
+ 't/25add-subtract.t',
+ 't/26dt-leapsecond-pm.t',
+ 't/27delta.t',
+ 't/28dow.t',
+ 't/29overload.t',
+ 't/30future-tz.t',
+ 't/31formatter.t',
+ 't/32leap-second2.t',
+ 't/33seconds-offset.t',
+ 't/34set-tz.t',
+ 't/35rd-values.t',
+ 't/36invalid-local.t',
+ 't/37local-add.t',
+ 't/38local-subtract.t',
+ 't/39no-so.t',
+ 't/40leap-years.t',
+ 't/41cldr-format.t',
+ 't/42duration-class.t',
+ 't/43new-params.t',
+ 't/44set-formatter.t',
+ 't/45core-time.t',
+ 't/46warnings.t',
+ 't/47default-time-zone.t',
+ 't/48rt-115983.t',
+ 't/49-without-sub-util.t',
+ 't/zzz-check-breaks.t'
+);
+
+eol_unix_ok($_, { trailing_whitespace => 1 }) foreach @files;
+done_testing;
--- /dev/null
+#!perl
+
+use strict;
+use warnings qw(all);
+
+use Test::More;
+use Test::Mojibake;
+
+all_files_encoding_ok();
--- /dev/null
+use strict;
+use warnings;
+
+# this test was generated with Dist::Zilla::Plugin::Test::NoTabs 0.15
+
+use Test::More 0.88;
+use Test::NoTabs;
+
+my @files = (
+ 'lib/DateTime.pm',
+ 'lib/DateTime/Conflicts.pm',
+ 'lib/DateTime/Duration.pm',
+ 'lib/DateTime/Helpers.pm',
+ 'lib/DateTime/Infinite.pm',
+ 'lib/DateTime/LeapSecond.pm',
+ 'lib/DateTime/PP.pm',
+ 'lib/DateTime/PPExtra.pm',
+ 'lib/DateTime/Types.pm',
+ 't/00-report-prereqs.dd',
+ 't/00-report-prereqs.t',
+ 't/00load.t',
+ 't/01sanity.t',
+ 't/02last-day.t',
+ 't/03components.t',
+ 't/04epoch.t',
+ 't/05set.t',
+ 't/06add.t',
+ 't/07compare.t',
+ 't/09greg.t',
+ 't/10subtract.t',
+ 't/11duration.t',
+ 't/12week.t',
+ 't/13strftime.t',
+ 't/14locale.t',
+ 't/15jd.t',
+ 't/16truncate.t',
+ 't/17set-return.t',
+ 't/18today.t',
+ 't/19leap-second.t',
+ 't/20infinite.t',
+ 't/21bad-params.t',
+ 't/22from-doy.t',
+ 't/23storable.t',
+ 't/24from-object.t',
+ 't/25add-subtract.t',
+ 't/26dt-leapsecond-pm.t',
+ 't/27delta.t',
+ 't/28dow.t',
+ 't/29overload.t',
+ 't/30future-tz.t',
+ 't/31formatter.t',
+ 't/32leap-second2.t',
+ 't/33seconds-offset.t',
+ 't/34set-tz.t',
+ 't/35rd-values.t',
+ 't/36invalid-local.t',
+ 't/37local-add.t',
+ 't/38local-subtract.t',
+ 't/39no-so.t',
+ 't/40leap-years.t',
+ 't/41cldr-format.t',
+ 't/42duration-class.t',
+ 't/43new-params.t',
+ 't/44set-formatter.t',
+ 't/45core-time.t',
+ 't/46warnings.t',
+ 't/47default-time-zone.t',
+ 't/48rt-115983.t',
+ 't/49-without-sub-util.t',
+ 't/zzz-check-breaks.t'
+);
+
+notabs_ok($_) foreach @files;
+done_testing;
--- /dev/null
+#!perl
+# This file was automatically generated by Dist::Zilla::Plugin::Test::Pod::Coverage::Configurable 0.07.
+
+use Test::Pod::Coverage 1.08;
+use Test::More 0.88;
+
+BEGIN {
+ if ( $] <= 5.008008 ) {
+ plan skip_all => 'These tests require Pod::Coverage::TrustPod, which only works with Perl 5.8.9+';
+ }
+}
+use Pod::Coverage::TrustPod;
+
+my %skip = map { $_ => 1 } qw( DateTime::Conflicts DateTime::Helpers DateTime::PP DateTime::PPExtra );
+
+my @modules;
+for my $module ( all_modules() ) {
+ next if $skip{$module};
+
+ push @modules, $module;
+}
+
+plan skip_all => 'All the modules we found were excluded from POD coverage test.'
+ unless @modules;
+
+plan tests => scalar @modules;
+
+my %trustme = (
+ 'DateTime' => [
+ qr/^[A-Z_]+$/,
+ qr/0$/,
+ qr/^STORABLE/,
+ qr/^utc_year$/,
+ qr/^timegm$/,
+ qr/^day_of_month$/,
+ qr/^doq$/,
+ qr/^dow$/,
+ qr/^doy$/,
+ qr/^iso8601$/,
+ qr/^local_rd_as_seconds$/,
+ qr/^mday$/,
+ qr/^min$/,
+ qr/^mon$/,
+ qr/^sec$/,
+ qr/^wday$/,
+ qr/^DefaultLanguage$/,
+ qr/^era$/,
+ qr/^language$/
+ ],
+ 'DateTime::Duration' => [
+ qr/^[A-Z_]+$/
+ ],
+ 'DateTime::Infinite' => [
+ qr/^.+$/
+ ]
+ );
+
+my @also_private;
+
+for my $module ( sort @modules ) {
+ pod_coverage_ok(
+ $module,
+ {
+ coverage_class => 'Pod::Coverage::TrustPod',
+ also_private => \@also_private,
+ trustme => $trustme{$module} || [],
+ },
+ "pod coverage for $module"
+ );
+}
+
+done_testing();
--- /dev/null
+use strict;
+use warnings;
+use Test::More;
+
+# generated by Dist::Zilla::Plugin::Test::PodSpelling 2.007005
+use Test::Spelling 0.12;
+use Pod::Wordlist;
+
+
+add_stopwords(<DATA>);
+all_pod_files_spelling_ok( qw( bin lib ) );
+__DATA__
+1nickt
+AEST
+Alders
+Anno
+Anwar
+BCE
+Bell
+Ben
+Bennett
+BooK
+Book
+Bowen
+Bruhat
+CLDR
+CPAN
+Ceccarelli
+Christian
+Conflicts
+Conrad
+DATETIME
+DROLSKY
+DROLSKY's
+Daisuke
+Dan
+DateTime
+DateTimeX
+DateTimes
+Dave
+David
+Davis
+Domini
+Doug
+Duration
+Dyck
+EEEE
+EEEEE
+Etheridge
+Flávio
+Formatters
+GGGG
+GGGGG
+Gianni
+Glock
+Gregory
+Hansen
+Hant
+Hauke
+Helpers
+Hill
+Hoblitt
+Howarth
+IEEE
+Iain
+Infinite
+James
+Jason
+Joshua
+Karen
+Kington
+LLL
+LLLL
+LLLLL
+LeapSecond
+Liang
+Liang's
+MMM
+MMMM
+MMMMM
+Maki
+Mark
+McIntosh
+Measham
+Measham's
+MetaCPAN
+Michael
+Mohammad
+Nick
+Olaf
+Oschwald
+Overmeer
+Ovid
+POSIX
+PP
+PPExtra
+Paul
+PayPal
+Philippe
+Postgres
+Precious
+QQQ
+QQQQ
+Raspass
+Rata
+Ricardo
+Richard
+Rolsky
+Rolsky's
+Ron
+SU
+Sam
+Signes
+Soibelmann
+Somerville
+Stewart
+Storable
+TW
+TZ
+Tonkin
+Truskett
+Tsai
+Types
+UTC
+VVVV
+Wheeler
+YAPCs
+ZZZZ
+ZZZZZ
+afterwards
+autarch
+bian
+book
+bowen
+brenan
+ccc
+cccc
+ccccc
+chansen
+conformant
+curtis_ovid_poe
+danielandrewstewart
+datetime
+datetime's
+datetimes
+david
+davidp
+deceased
+decrement
+dian
+dmaki
+dracos
+drolsky
+durations
+eee
+eeee
+eeeee
+env
+ether
+fallback
+fglock
+fiji
+formatter
+gianni
+github
+grinnz
+haukex
+hh
+iCal
+jhoblitt
+ji
+jmac
+jraspass
+lib
+madcityzen
+mark
+mike
+mohammad
+mrdvt92
+mutiplication
+na
+namespace
+ni
+nitty
+olaf
+oschwald
+other's
+paul
+philip
+philiprbrenan
+proleptic
+qqq
+qqqq
+rjbs
+rkhill
+sexagesimal
+subclasses
+tidyable
+uu
+viviparous
+vvvv
+wiki
+yy
+yyyy
+yyyyy
+zh
+zzzz
--- /dev/null
+#!perl
+# This file was automatically generated by Dist::Zilla::Plugin::PodSyntaxTests.
+use strict; use warnings;
+use Test::More;
+use Test::Pod 1.41;
+
+all_pod_files_ok();
--- /dev/null
+use strict;
+use warnings;
+
+use Test::More;
+
+use Test::Portability::Files;
+
+run_tests();
--- /dev/null
+BEGIN {
+ $ENV{PERL_DATETIME_PP} = 1;
+}
+
+use strict;
+use warnings;
+
+use Test::More 0.88;
+
+undef $ENV{PERL_DATETIME_DEFAULT_TZ};
+
+use_ok('DateTime');
+
+done_testing();
+
--- /dev/null
+BEGIN {
+ $ENV{PERL_DATETIME_PP} = 1;
+}
+
+use strict;
+use warnings;
+
+use Test::More;
+
+use DateTime;
+
+undef $ENV{PERL_DATETIME_DEFAULT_TZ};
+
+{
+ my $dt = DateTime->new(
+ year => 1870, month => 10, day => 21,
+ hour => 12, minute => 10, second => 45,
+ nanosecond => 123456,
+ time_zone => 'UTC'
+ );
+
+ is( $dt->year, '1870', 'Year accessor, outside of the epoch' );
+ is( $dt->month, '10', 'Month accessor, outside the epoch' );
+ is( $dt->day, '21', 'Day accessor, outside the epoch' );
+ is( $dt->hour, '12', 'Hour accessor, outside the epoch' );
+ is( $dt->minute, '10', 'Minute accessor, outside the epoch' );
+ is( $dt->second, '45', 'Second accessor, outside the epoch' );
+ is( $dt->nanosecond, '123456', 'nanosecond accessor, outside the epoch' );
+
+ $dt = DateTime->from_object( object => $dt );
+ is( $dt->year, '1870', 'Year should be identical' );
+ is( $dt->month, '10', 'Month should be identical' );
+ is( $dt->day, '21', 'Day should be identical' );
+ is( $dt->hour, '12', 'Hour should be identical' );
+ is( $dt->minute, '10', 'Minute should be identical' );
+ is( $dt->second, '45', 'Second should be identical' );
+ is( $dt->nanosecond, '123456', 'nanosecond should be identical' );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 1870, month => 10, day => 21,
+ hour => 12, minute => 10, second => 45,
+ time_zone => 'UTC'
+ );
+ is( $dt->minute, '10', 'Minute accessor, outside the epoch' );
+ is( $dt->second, '45', 'Second accessor, outside the epoch' );
+}
+
+done_testing();
+
--- /dev/null
+BEGIN {
+ $ENV{PERL_DATETIME_PP} = 1;
+}
+
+use strict;
+use warnings;
+
+use Test::Fatal;
+use Test::More;
+
+use DateTime;
+
+undef $ENV{PERL_DATETIME_DEFAULT_TZ};
+
+my @last_day = ( 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 );
+my @leap_last_day = @last_day;
+$leap_last_day[1]++;
+
+foreach my $month ( 1 .. 12 ) {
+ my $dt = DateTime->last_day_of_month(
+ year => 2001,
+ month => $month,
+ time_zone => 'UTC',
+ );
+
+ is( $dt->year, 2001, 'check year' );
+ is( $dt->month, $month, 'check month' );
+ is( $dt->day, $last_day[ $month - 1 ], 'check day' );
+}
+
+foreach my $month ( 1 .. 12 ) {
+ my $dt = DateTime->last_day_of_month(
+ year => 2004,
+ month => $month,
+ time_zone => 'UTC',
+ );
+
+ is( $dt->year, 2004, 'check year' );
+ is( $dt->month, $month, 'check month' );
+ is( $dt->day, $leap_last_day[ $month - 1 ], 'check day' );
+}
+
+{
+ is(
+ exception {
+ DateTime->last_day_of_month(
+ year => 2000, month => 1,
+ nanosecond => 2000
+ );
+ },
+ undef,
+ 'last_day_of_month should accept nanosecond'
+ );
+}
+
+done_testing();
+
--- /dev/null
+BEGIN {
+ $ENV{PERL_DATETIME_PP} = 1;
+}
+
+use strict;
+use warnings;
+
+use Test::More;
+
+use DateTime;
+
+undef $ENV{PERL_DATETIME_DEFAULT_TZ};
+
+{
+ my $d = DateTime->new(
+ year => 2001,
+ month => 7,
+ day => 5,
+ hour => 2,
+ minute => 12,
+ second => 50,
+ time_zone => 'UTC',
+ );
+
+ is( $d->year, 2001, '->year' );
+ is( $d->ce_year, 2001, '->ce_year' );
+ is( $d->month, 7, '->month' );
+ is( $d->quarter, 3, '->quarter' );
+ is( $d->month_0, 6, '->month_0' );
+ is( $d->month_name, 'July', '->month_name' );
+ is( $d->month_abbr, 'Jul', '->month_abbr' );
+ is( $d->day_of_month, 5, '->day_of_month' );
+ is( $d->day_of_month_0, 4, '->day_of_month_0' );
+ is( $d->day, 5, '->day' );
+ is( $d->day_0, 4, '->day_0' );
+ is( $d->mday, 5, '->mday' );
+ is( $d->mday_0, 4, '->mday_0' );
+ is( $d->mday, 5, '->mday' );
+ is( $d->mday_0, 4, '->mday_0' );
+ is( $d->hour, 2, '->hour' );
+ is( $d->hour_1, 2, '->hour_1' );
+ is( $d->hour_12, 2, '->hour_12' );
+ is( $d->hour_12_0, 2, '->hour_12_0' );
+ is( $d->minute, 12, '->minute' );
+ is( $d->min, 12, '->min' );
+ is( $d->second, 50, '->second' );
+ is( $d->sec, 50, '->sec' );
+
+ is( $d->day_of_year, 186, '->day_of_year' );
+ is( $d->day_of_year_0, 185, '->day_of_year' );
+ is( $d->day_of_quarter, 5, '->day_of_quarter' );
+ is( $d->doq, 5, '->doq' );
+ is( $d->day_of_quarter_0, 4, '->day_of_quarter_0' );
+ is( $d->doq_0, 4, '->doq_0' );
+ is( $d->day_of_week, 4, '->day_of_week' );
+ is( $d->day_of_week_0, 3, '->day_of_week_0' );
+ is( $d->week_of_month, 1, '->week_of_month' );
+ is( $d->weekday_of_month, 1, '->weekday_of_month' );
+ is( $d->wday, 4, '->wday' );
+ is( $d->wday_0, 3, '->wday_0' );
+ is( $d->dow, 4, '->dow' );
+ is( $d->dow_0, 3, '->dow_0' );
+ is( $d->day_name, 'Thursday', '->day_name' );
+ is( $d->day_abbr, 'Thu', '->day_abrr' );
+
+ is( $d->ymd, '2001-07-05', '->ymd' );
+ is( $d->ymd('!'), '2001!07!05', q{->ymd('!')} );
+ is( $d->date, '2001-07-05', '->date' );
+ is( $d->date('!'), '2001!07!05', q{->date('!')} );
+
+ is( $d->mdy, '07-05-2001', '->mdy' );
+ is( $d->mdy('!'), '07!05!2001', q{->mdy('!')} );
+
+ is( $d->dmy, '05-07-2001', '->dmy' );
+ is( $d->dmy('!'), '05!07!2001', q{->dmy('!')} );
+
+ is( $d->hms, '02:12:50', '->hms' );
+ is( $d->hms('!'), '02!12!50', q{->hms('!')} );
+ is( $d->time, '02:12:50', '->hms' );
+ is( $d->time('!'), '02!12!50', q{->time('!')} );
+
+ is( $d->datetime, '2001-07-05T02:12:50', '->datetime' );
+ is( $d->datetime(q{ }), '2001-07-05 02:12:50', q{->datetime(q{ }} );
+ is( $d->iso8601, '2001-07-05T02:12:50', '->iso8601' );
+ is(
+ $d->iso8601(q{ }), '2001-07-05T02:12:50',
+ '->iso8601 ignores arguments'
+ );
+
+ ok( !$d->is_leap_year, '->is_leap_year' );
+ ok( !$d->is_last_day_of_month, '->is_last_day_of_month' );
+ ok( !$d->is_last_day_of_quarter, '->is_last_day_of_quarter' );
+ ok( !$d->is_last_day_of_year, '->is_last_day_of_year' );
+
+ is( $d->month_length, 31, '->month_length' );
+ is( $d->quarter_length, 92, '->quarter_length' );
+ is( $d->year_length, 365, '->year_length' );
+
+ is( $d->era_abbr, 'AD', '->era_abbr' );
+ is( $d->era, $d->era_abbr, '->era (deprecated)' );
+ is( $d->era_name, 'Anno Domini', '->era_abbr' );
+
+ is( $d->quarter_abbr, 'Q3', '->quarter_abbr' );
+ is( $d->quarter_name, '3rd quarter', '->quarter_name' );
+}
+
+{
+ my $leap_d = DateTime->new(
+ year => 2004,
+ month => 7,
+ day => 5,
+ hour => 2,
+ minute => 12,
+ second => 50,
+ time_zone => 'UTC',
+ );
+
+ ok( $leap_d->is_leap_year, '->is_leap_year' );
+ is( $leap_d->year_length, 366, '->year_length' );
+}
+
+{
+ my @tests = (
+ { year => 2017, month => 8, day => 19, expect => 0 },
+ { year => 2017, month => 8, day => 31, expect => 1 },
+ { year => 2017, month => 2, day => 28, expect => 1 },
+ { year => 2016, month => 2, day => 28, expect => 0 },
+ );
+
+ for my $t (@tests) {
+ my $expect = delete $t->{expect};
+
+ my $dt = DateTime->new($t);
+
+ my $is = $dt->is_last_day_of_month;
+ ok( ( $expect ? $is : !$is ), '->is_last_day_of_month' );
+ }
+}
+
+{
+ my @tests = (
+ { year => 2017, month => 8, day => 19, expect => 0 },
+ { year => 2017, month => 3, day => 31, expect => 1 },
+ { year => 2017, month => 6, day => 30, expect => 1 },
+ { year => 2017, month => 9, day => 30, expect => 1 },
+ { year => 2017, month => 12, day => 31, expect => 1 },
+ );
+
+ for my $t (@tests) {
+ my $expect = delete $t->{expect};
+
+ my $dt = DateTime->new($t);
+
+ my $is = $dt->is_last_day_of_quarter;
+ ok( ( $expect ? $is : !$is ), '->is_last_day_of_quarter' );
+ }
+}
+
+{
+ my @tests = (
+ { year => 2017, month => 8, day => 19, expect => 0 },
+ { year => 2017, month => 12, day => 31, expect => 1 },
+ );
+
+ for my $t (@tests) {
+ my $expect = delete $t->{expect};
+
+ my $dt = DateTime->new($t);
+
+ my $is = $dt->is_last_day_of_year;
+ ok( ( $expect ? $is : !$is ), '->is_last_day_of_year' );
+ }
+}
+
+{
+ my @tests = (
+ { year => 2016, month => 2, day => 1, expect => 29 },
+ { year => 2017, month => 2, day => 1, expect => 28 },
+ );
+
+ for my $t (@tests) {
+ my $expect = delete $t->{expect};
+
+ my $dt = DateTime->new($t);
+ is( $dt->month_length, $expect, '->month_length' );
+ }
+}
+
+{
+ my $sunday = DateTime->new(
+ year => 2003,
+ month => 1,
+ day => 26,
+ time_zone => 'UTC',
+ );
+
+ is( $sunday->day_of_week, 7, 'Sunday is day 7' );
+}
+
+{
+ my $monday = DateTime->new(
+ year => 2003,
+ month => 1,
+ day => 27,
+ time_zone => 'UTC',
+ );
+
+ is( $monday->day_of_week, 1, 'Monday is day 1' );
+}
+
+{
+ # time zone offset should not affect the values returned
+ my $d = DateTime->new(
+ year => 2001,
+ month => 7,
+ day => 5,
+ hour => 2,
+ minute => 12,
+ second => 50,
+ time_zone => '-0124',
+ );
+
+ is( $d->year, 2001, '->year' );
+ is( $d->ce_year, 2001, '->ce_year' );
+ is( $d->month, 7, '->month' );
+ is( $d->day_of_month, 5, '->day_of_month' );
+ is( $d->hour, 2, '->hour' );
+ is( $d->hour_1, 2, '->hour_1' );
+ is( $d->minute, 12, '->minute' );
+ is( $d->second, 50, '->second' );
+}
+
+{
+ my $dt0 = DateTime->new( year => 1, time_zone => 'UTC' );
+
+ is( $dt0->year, 1, 'year 1 is year 1' );
+ is( $dt0->ce_year, 1, 'ce_year 1 is year 1' );
+ is( $dt0->era_abbr, 'AD', 'era is AD' );
+ is( $dt0->year_with_era, '1AD', 'year_with_era is 1AD' );
+ is( $dt0->christian_era, 'AD', 'christian_era is AD' );
+ is(
+ $dt0->year_with_christian_era, '1AD',
+ 'year_with_christian_era is 1AD'
+ );
+ is( $dt0->secular_era, 'CE', 'secular_era is CE' );
+ is( $dt0->year_with_secular_era, '1CE', 'year_with_secular_era is 1CE' );
+
+ $dt0->subtract( years => 1 );
+
+ is( $dt0->year, 0, 'year 1 minus 1 is year 0' );
+ is( $dt0->ce_year, -1, 'ce_year 1 minus 1 is year -1' );
+ is( $dt0->era_abbr, 'BC', 'era is BC' );
+ is( $dt0->year_with_era, '1BC', 'year_with_era is 1BC' );
+ is( $dt0->christian_era, 'BC', 'christian_era is BC' );
+ is(
+ $dt0->year_with_christian_era, '1BC',
+ 'year_with_christian_era is 1BC'
+ );
+ is( $dt0->secular_era, 'BCE', 'secular_era is BCE' );
+ is(
+ $dt0->year_with_secular_era, '1BCE',
+ 'year_with_secular_era is 1BCE'
+ );
+}
+
+{
+ my $dt_neg = DateTime->new( year => -10, time_zone => 'UTC', );
+ is( $dt_neg->year, -10, 'Year -10 is -10' );
+ is( $dt_neg->ce_year, -11, 'year -10 is ce_year -11' );
+
+ my $dt1 = $dt_neg + DateTime::Duration->new( years => 10 );
+ is( $dt1->year, 0, 'year is 0 after adding ten years to year -10' );
+ is(
+ $dt1->ce_year, -1,
+ 'ce_year is -1 after adding ten years to year -10'
+ );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 50, month => 2,
+ hour => 3, minute => 20, second => 5,
+ time_zone => 'UTC',
+ );
+
+ is( $dt->ymd('%s'), '0050%s02%s01', 'use %s as separator in ymd' );
+ is( $dt->mdy('%s'), '02%s01%s0050', 'use %s as separator in mdy' );
+ is( $dt->dmy('%s'), '01%s02%s0050', 'use %s as separator in dmy' );
+
+ is( $dt->hms('%s'), '03%s20%s05', 'use %s as separator in hms' );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 12345,
+ month => 2,
+ day => 3,
+ );
+
+ is( $dt->ymd, '12345-02-03', '5 digit year in ymd' );
+ is( $dt->mdy, '02-03-12345', '5 digit year in mdy' );
+ is( $dt->dmy, '03-02-12345', '5 digit year in dmy' );
+}
+
+# test doy in leap year
+{
+ my $dt = DateTime->new(
+ year => 2000, month => 1, day => 5,
+ time_zone => 'UTC',
+ );
+
+ is( $dt->day_of_year, 5, 'doy for 2000-01-05 should be 5' );
+ is( $dt->day_of_year_0, 4, 'doy_0 for 2000-01-05 should be 4' );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 2000, month => 2, day => 29,
+ time_zone => 'UTC',
+ );
+
+ is( $dt->day_of_year, 60, 'doy for 2000-02-29 should be 60' );
+ is( $dt->day_of_year_0, 59, 'doy_0 for 2000-02-29 should be 59' );
+}
+
+{
+ my $dt = DateTime->new(
+ year => -6, month => 2, day => 25,
+ time_zone => 'UTC',
+ );
+
+ is( $dt->ymd, '-0006-02-25', 'ymd is -0006-02-25' );
+ is(
+ $dt->iso8601, '-0006-02-25T00:00:00',
+ 'iso8601 is -0005-02-25T00:00:00'
+ );
+ is( $dt->year, -6, 'year is -6' );
+ is( $dt->ce_year, -7, 'ce_year is -7' );
+}
+
+{
+ my $dt = DateTime->new( year => 1995, month => 2, day => 1 );
+
+ is( $dt->quarter, 1, '->quarter is 1' );
+ is( $dt->day_of_quarter, 32, '->day_of_quarter' );
+ is( $dt->quarter_length, 90, '->quarter_length' );
+}
+
+{
+ my $dt = DateTime->new( year => 1995, month => 5, day => 1 );
+
+ is( $dt->quarter, 2, '->quarter is 2' );
+ is( $dt->day_of_quarter, 31, '->day_of_quarter' );
+ is( $dt->quarter_length, 91, '->quarter_length' );
+}
+
+{
+ my $dt = DateTime->new( year => 1995, month => 8, day => 1 );
+
+ is( $dt->quarter, 3, '->quarter is 3' );
+ is( $dt->day_of_quarter, 32, '->day_of_quarter' );
+ is( $dt->quarter_length, 92, '->quarter_length' );
+}
+
+{
+ my $dt = DateTime->new( year => 1995, month => 11, day => 1 );
+
+ is( $dt->quarter, 4, '->quarter is 4' );
+ is( $dt->day_of_quarter, 32, '->day_of_quarter' );
+ is( $dt->quarter_length, 92, '->quarter_length' );
+}
+
+{
+ my $dt = DateTime->new( year => 1996, month => 2, day => 1 );
+
+ is( $dt->quarter, 1, '->quarter is 1' );
+ is( $dt->day_of_quarter, 32, '->day_of_quarter' );
+ is( $dt->quarter_length, 91, '->quarter_length' );
+}
+
+{
+ my $dt = DateTime->new( year => 1996, month => 5, day => 1 );
+
+ is( $dt->quarter, 2, '->quarter is 2' );
+ is( $dt->day_of_quarter, 31, '->day_of_quarter' );
+ is( $dt->quarter_length, 91, '->quarter_length' );
+}
+
+{
+ my $dt = DateTime->new( year => 1996, month => 8, day => 1 );
+
+ is( $dt->quarter, 3, '->quarter is 3' );
+ is( $dt->day_of_quarter, 32, '->day_of_quarter' );
+ is( $dt->quarter_length, 92, '->quarter_length' );
+}
+
+{
+ my $dt = DateTime->new( year => 1996, month => 11, day => 1 );
+
+ is( $dt->quarter, 4, '->quarter is 4' );
+ is( $dt->day_of_quarter, 32, '->day_of_quarter' );
+ is( $dt->quarter_length, 92, '->quarter_length' );
+}
+
+# nano, micro, and milli seconds
+{
+ my $dt = DateTime->new( year => 1996, nanosecond => 500_000_000 );
+
+ is( $dt->nanosecond, 500_000_000, 'nanosecond is 500,000,000' );
+ is( $dt->microsecond, 500_000, 'microsecond is 500,000' );
+ is( $dt->millisecond, 500, 'millisecond is 500' );
+
+ $dt->set( nanosecond => 500_000_500 );
+
+ is( $dt->nanosecond, 500_000_500, 'nanosecond is 500,000,500' );
+ is( $dt->microsecond, 500_000, 'microsecond is 500,000' );
+ is( $dt->millisecond, 500, 'millisecond is 500' );
+
+ $dt->set( nanosecond => 499_999_999 );
+
+ is( $dt->nanosecond, 499_999_999, 'nanosecond is 499,999,999' );
+ is( $dt->microsecond, 499_999, 'microsecond is 499,999' );
+ is( $dt->millisecond, 499, 'millisecond is 499' );
+
+ $dt->set( nanosecond => 450_000_001 );
+
+ is( $dt->nanosecond, 450_000_001, 'nanosecond is 450,000,001' );
+ is( $dt->microsecond, 450_000, 'microsecond is 450,000' );
+ is( $dt->millisecond, 450, 'millisecond is 450' );
+
+ $dt->set( nanosecond => 450_500_000 );
+
+ is( $dt->nanosecond, 450_500_000, 'nanosecond is 450,500,000' );
+ is( $dt->microsecond, 450_500, 'microsecond is 450,500' );
+ is( $dt->millisecond, 450, 'millisecond is 450' );
+}
+
+{
+ my $dt = DateTime->new( year => 2003, month => 5, day => 7 );
+ is( $dt->weekday_of_month, 1, '->weekday_of_month' );
+ is( $dt->week_of_month, 2, '->week_of_month' );
+}
+
+{
+ my $dt = DateTime->new( year => 2003, month => 5, day => 8 );
+ is( $dt->weekday_of_month, 2, '->weekday_of_month' );
+ is( $dt->week_of_month, 2, '->week_of_month' );
+}
+
+{
+ my $dt = DateTime->new( year => 1000, hour => 23 );
+ is( $dt->hour, 23, '->hour' );
+ is( $dt->hour_1, 23, '->hour_1' );
+ is( $dt->hour_12, 11, '->hour_12' );
+ is( $dt->hour_12_0, 11, '->hour_12_0' );
+}
+
+{
+ my $dt = DateTime->new( year => 1000, hour => 0 );
+ is( $dt->hour, 0, '->hour' );
+ is( $dt->hour_1, 24, '->hour_1' );
+ is( $dt->hour_12, 12, '->hour_12' );
+ is( $dt->hour_12_0, 0, '->hour_12_0' );
+}
+
+SKIP:
+{
+ ## no critic (BuiltinFunctions::ProhibitStringyEval)
+ skip 'These tests require Test::Warn', 9
+ unless eval 'use Test::Warn; 1';
+
+ my $dt = DateTime->new( year => 2000 );
+ warnings_like(
+ sub { $dt->year(2001) }, qr/is a read-only/,
+ 'year() is read-only'
+ );
+ warnings_like(
+ sub { $dt->month(5) }, qr/is a read-only/,
+ 'month() is read-only'
+ );
+ warnings_like(
+ sub { $dt->day(5) }, qr/is a read-only/,
+ 'day() is read-only'
+ );
+ warnings_like(
+ sub { $dt->hour(5) }, qr/is a read-only/,
+ 'hour() is read-only'
+ );
+ warnings_like(
+ sub { $dt->minute(5) }, qr/is a read-only/,
+ 'minute() is read-only'
+ );
+ warnings_like(
+ sub { $dt->second(5) }, qr/is a read-only/,
+ 'second() is read-only'
+ );
+ warnings_like(
+ sub { $dt->nanosecond(5) }, qr/is a read-only/,
+ 'nanosecond() is read-only'
+ );
+ warnings_like(
+ sub { $dt->time_zone('America/Chicago') }, qr/is a read-only/,
+ 'time_zone() is read-only'
+ );
+ warnings_like(
+ sub { $dt->locale('en_US') }, qr/is a read-only/,
+ 'locale() is read-only'
+ );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 2020,
+ month => 11,
+ day => 6,
+ hour => 9,
+ minute => 20,
+ second => 48,
+ time_zone => 'UTC',
+ );
+ is(
+ $dt->rfc3339, '2020-11-06T09:20:48Z',
+ '->rfc3339 with UTC'
+ );
+
+ $dt = DateTime->new(
+ year => 2020,
+ month => 11,
+ day => 6,
+ hour => 9,
+ minute => 20,
+ second => 48,
+ time_zone => 'America/Chicago',
+ );
+ is(
+ $dt->rfc3339, '2020-11-06T09:20:48-06:00',
+ '->rfc3339 with America/Chicago'
+ );
+
+ $dt = DateTime->new(
+ year => 2020,
+ month => 11,
+ day => 6,
+ hour => 9,
+ minute => 20,
+ second => 48,
+ time_zone => '+02:15:32',
+ );
+ is(
+ $dt->rfc3339, '2020-11-06T09:20:48+02:15:32',
+ '->rfc3339 with raw offset time zone'
+ );
+
+ $dt = DateTime->new(
+ year => 2020,
+ month => 11,
+ day => 6,
+ hour => 9,
+ minute => 20,
+ second => 48,
+ );
+ is(
+ $dt->rfc3339, '2020-11-06T09:20:48',
+ '->rfc3339 with no offset when tz is floating'
+ );
+}
+
+done_testing();
+
--- /dev/null
+BEGIN {
+ $ENV{PERL_DATETIME_PP} = 1;
+}
+
+use strict;
+use warnings;
+
+use Test::More;
+use Test::Fatal;
+
+use DateTime;
+
+undef $ENV{PERL_DATETIME_DEFAULT_TZ};
+
+{
+
+ # Tests creating objects from epoch time
+ my $t1 = DateTime->from_epoch( epoch => 0 );
+ is( $t1->epoch, 0, 'epoch should be 0' );
+
+ is( $t1->second, 0, 'seconds are correct on epoch 0' );
+ is( $t1->minute, 0, 'minutes are correct on epoch 0' );
+ is( $t1->hour, 0, 'hours are correct on epoch 0' );
+ is( $t1->day, 1, 'days are correct on epoch 0' );
+ is( $t1->month, 1, 'months are correct on epoch 0' );
+ is( $t1->year, 1970, 'year is correct on epoch 0' );
+
+ is(
+ DateTime->from_epoch(0), $t1,
+ 'passing one arg (0) to from_epoch returns expected result'
+ );
+}
+
+{
+ my $dt = DateTime->from_epoch( epoch => '3600' );
+ is(
+ $dt->epoch, 3600,
+ 'creation test from epoch = 3600 (compare to epoch)'
+ );
+}
+
+{
+
+ # these tests could break if the time changed during the next three lines
+ my $now = time;
+ my $nowtest = DateTime->now();
+ my $nowtest2 = DateTime->from_epoch( epoch => $now );
+ is( $nowtest->hour, $nowtest2->hour, 'Hour: Create without args' );
+ is( $nowtest->month, $nowtest2->month, 'Month : Create without args' );
+ is( $nowtest->minute, $nowtest2->minute, 'Minute: Create without args' );
+}
+
+{
+ my $epochtest = DateTime->from_epoch( epoch => '997121000' );
+
+ is(
+ $epochtest->epoch, 997121000,
+ 'epoch method returns correct value'
+ );
+ is( $epochtest->hour, 18, 'hour' );
+ is( $epochtest->min, 3, 'minute' );
+
+ is(
+ DateTime->from_epoch(997121000), $epochtest,
+ 'passing one arg (997121000) to from_epoch returns expected result'
+ );
+}
+
+{
+ my $dt = DateTime->from_epoch( epoch => 3600 );
+ $dt->set_time_zone('+0100');
+
+ is( $dt->epoch, 3600, 'epoch is 3600' );
+ is( $dt->hour, 2, 'hour is 2' );
+}
+
+{
+
+ my $dt = DateTime->new(
+ year => 1970,
+ month => 1,
+ day => 1,
+ hour => 0,
+ time_zone => '-0100',
+ );
+
+ is( $dt->epoch, 3600, 'epoch is 3600' );
+}
+
+{
+
+ my $dt = DateTime->from_epoch(
+ epoch => 0,
+ time_zone => '-0100',
+ );
+
+ is( $dt->offset, -3600, 'offset should be -3600' );
+ is( $dt->epoch, 0, 'epoch is 0' );
+}
+
+# Adding/subtracting should affect epoch
+{
+ my $expected = 1049160602;
+ my $epochtest = DateTime->from_epoch( epoch => $expected );
+
+ is(
+ $epochtest->epoch, $expected,
+ "epoch method returns correct value ($expected)"
+ );
+ is( $epochtest->hour, 1, 'hour' );
+ is( $epochtest->min, 30, 'minute' );
+
+ $epochtest->add( hours => 2 );
+ $expected += 2 * 60 * 60;
+
+ is( $epochtest->hour, 3, 'adjusted hour' );
+ is(
+ $epochtest->epoch, $expected,
+ "epoch method returns correct adjusted value ($expected)"
+ );
+
+}
+
+{
+ my $dt = DateTime->from_epoch( epoch => 0.5 );
+ is(
+ $dt->nanosecond, 500_000_000,
+ 'nanosecond should be 500,000,000 with 0.5 as epoch'
+ );
+
+ is( $dt->epoch, 0, 'epoch should be 0' );
+ is( $dt->hires_epoch, 0.5, 'hires_epoch should be 0.5' );
+}
+
+{
+ my $dt = DateTime->from_epoch( epoch => -0.5 );
+ is(
+ $dt->nanosecond, 500_000_000,
+ 'nanosecond should be 500,000,000 with -0.5 as epoch'
+ );
+
+ is( $dt->epoch, -1, 'epoch should be -1' );
+ is( $dt->hires_epoch, -0.5, 'hires_epoch should be -0.5' );
+}
+
+{
+ my $dt = DateTime->from_epoch( epoch => 1609459199.999999 );
+ is(
+ $dt->nanosecond, 999999000,
+ 'nanosecond should be 999,999,000 with 1609459199.999999 as epoch'
+ );
+
+ is( $dt->epoch, 1609459199, 'epoch should be 1609459199' );
+}
+
+{
+ my $dt = DateTime->from_epoch( epoch => 0.1234567891 );
+ is(
+ $dt->nanosecond, 123_457_000,
+ 'nanosecond should be rounded to 123,457,000 when given 0.1234567891'
+ );
+}
+
+{
+ my $dt = DateTime->from_epoch( epoch => -0.1234567891 );
+ is(
+ $dt->nanosecond, 876_543_000,
+ 'nanosecond should be rounded to 876,543,000 when given -0.1234567891'
+ );
+}
+
+{
+ is(
+ DateTime->new( year => 1904 )->epoch, -2082844800,
+ 'epoch should work back to at least 1904'
+ );
+
+ my $dt = DateTime->from_epoch( epoch => -2082844800 );
+ is( $dt->year, 1904, 'year should be 1904' );
+ is( $dt->month, 1, 'month should be 1904' );
+ is( $dt->day, 1, 'day should be 1904' );
+}
+
+{
+ for my $pair (
+ [ 1 => -62135596800 ],
+ [ 99 => -59042995200 ],
+ [ 100 => -59011459200 ],
+ [ 999 => -30641760000 ],
+ ) {
+
+ my ( $year, $epoch ) = @{$pair};
+
+ is(
+ DateTime->new( year => $year )->epoch, $epoch,
+ "epoch for $year is $epoch"
+ );
+ }
+}
+
+{
+
+ package Number::Overloaded;
+ use overload
+ '0+' => sub { $_[0]->{num} },
+ fallback => 1;
+
+ sub new { bless { num => $_[1] }, $_[0] }
+}
+
+{
+ my $time = Number::Overloaded->new(12345);
+
+ my $dt = DateTime->from_epoch( epoch => $time );
+ is( $dt->epoch, 12345, 'can pass overloaded object to from_epoch' );
+
+ $time = Number::Overloaded->new(12345.1234);
+ $dt = DateTime->from_epoch( epoch => $time );
+ is( $dt->epoch, 12345, 'decimal epoch in overloaded object' );
+
+ is(
+ DateTime->from_epoch($time), $dt,
+ 'passing one arg (object with number overload) to from_epoch returns expected result'
+ );
+}
+
+{
+ my $time = Number::Overloaded->new(-12345);
+ my $dt = DateTime->from_epoch( epoch => $time );
+
+ is( $dt->epoch, -12345, 'negative epoch in overloaded object' );
+}
+
+{
+ my @tests = (
+ 'asldkjlkjd',
+ '1234 foo',
+ 'adlkj 1234',
+ );
+
+ for my $test (@tests) {
+ like(
+ exception { DateTime->from_epoch( epoch => $test ) },
+ qr/Validation failed for type named Num/,
+ qq{'$test' is not a valid epoch value}
+ );
+ }
+}
+
+done_testing();
+
--- /dev/null
+BEGIN {
+ $ENV{PERL_DATETIME_PP} = 1;
+}
+
+use strict;
+use warnings;
+
+use Test::More;
+
+use DateTime;
+
+undef $ENV{PERL_DATETIME_DEFAULT_TZ};
+
+{
+ my $dt = DateTime->new(
+ year => 1996, month => 11, day => 22,
+ hour => 18, minute => 30, second => 20,
+ time_zone => 'UTC',
+ );
+
+ is( $dt->month, 11, 'check month' );
+
+ $dt->set( month => 5 );
+ is( $dt->year, 1996, 'check year after setting month' );
+ is( $dt->month, 5, 'check month after setting it' );
+ is( $dt->day, 22, 'check day after setting month' );
+ is( $dt->hour, 18, 'check hour after setting month' );
+ is( $dt->minute, 30, 'check minute after setting month' );
+ is( $dt->second, 20, 'check second after setting month' );
+
+ $dt->set_time_zone('-060001');
+ is( $dt->year, 1996, 'check year after setting time zone' );
+ is( $dt->month, 5, 'check month after setting time zone' );
+ is( $dt->day, 22, 'check day after setting time zone' );
+ is( $dt->hour, 12, 'check hour after setting time zone' );
+ is( $dt->minute, 30, 'check minute after setting time zone' );
+ is( $dt->second, 19, 'check second after setting time zone' );
+ is(
+ $dt->offset, -21601,
+ 'check time zone offset after setting new time zone'
+ );
+
+ $dt->set_time_zone('+0100');
+ is( $dt->year, 1996, 'check year after setting time zone' );
+ is( $dt->month, 5, 'check month after setting time zone' );
+ is( $dt->day, 22, 'check day after setting time zone' );
+ is( $dt->hour, 19, 'check hour after setting time zone' );
+ is( $dt->minute, 30, 'check minute after setting time zone' );
+ is( $dt->second, 20, 'check second after setting time zone' );
+ is(
+ $dt->offset, 3600,
+ 'check time zone offset after setting new time zone'
+ );
+
+ $dt->set( hour => 17 );
+ is( $dt->year, 1996, 'check year after setting hour' );
+ is( $dt->month, 5, 'check month after setting hour' );
+ is( $dt->day, 22, 'check day after setting hour' );
+ is( $dt->hour, 17, 'check hour after setting hour' );
+ is( $dt->minute, 30, 'check minute after setting hour' );
+ is( $dt->second, 20, 'check second after setting hour' );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 1996, month => 11, day => 22,
+ hour => 18, minute => 30, second => 20,
+ time_zone => 'UTC',
+ );
+
+ $dt->set_year(2000);
+ is( $dt->year, 2000, 'check year after set_year' );
+
+ $dt->set_month(5);
+ is( $dt->month, 5, 'check month after set_month' );
+
+ $dt->set_day(6);
+ is( $dt->day, 6, 'check day after set_day' );
+
+ $dt->set_hour(7);
+ is( $dt->hour, 7, 'check hour after set_hour' );
+
+ $dt->set_minute(8);
+ is( $dt->minute, 8, 'check minute after set_minute' );
+
+ $dt->set_second(9);
+ is( $dt->second, 9, 'check second after set_second' );
+
+ $dt->set_nanosecond(9999);
+ is( $dt->nanosecond, 9999, 'check nanosecond after set_nanosecond' );
+
+ $dt->set_locale('fr_FR');
+ is( $dt->month_name, 'mai', 'check month name after set_locale' );
+}
+
+done_testing();
+
--- /dev/null
+BEGIN {
+ $ENV{PERL_DATETIME_PP} = 1;
+}
+
+use strict;
+use warnings;
+
+use Test::More;
+use Test::Fatal;
+
+use DateTime;
+
+undef $ENV{PERL_DATETIME_DEFAULT_TZ};
+
+{
+ my $dt = DateTime->new(
+ year => 1996, month => 11, day => 22,
+ hour => 18, minute => 30, second => 20,
+ time_zone => 'UTC',
+ );
+ $dt->add( weeks => 8 );
+
+ is( $dt->year, 1997, 'year rollover' );
+ is( $dt->month, 1, 'month set on year rollover' );
+ is( $dt->datetime, '1997-01-17T18:30:20', 'okay on year rollover' );
+
+ $dt->add( weeks => 2 );
+ is( $dt->datetime, '1997-01-31T18:30:20', 'Adding weeks' );
+
+ $dt->add( seconds => 15 );
+ is( $dt->datetime, '1997-01-31T18:30:35', 'Adding seconds' );
+
+ $dt->add( minutes => 12 );
+ is( $dt->datetime, '1997-01-31T18:42:35', 'Adding minutes' );
+
+ $dt->add( minutes => 25, hours => 3, seconds => 7 );
+ is( $dt->datetime, '1997-01-31T22:07:42', 'Adding h,m,s' );
+}
+
+{
+ # Now, test the adding of durations
+ my $dt = DateTime->new(
+ year => 1986, month => 1, day => 28,
+ hour => 16, minute => 38,
+ time_zone => 'UTC'
+ );
+
+ $dt->add( minutes => 1, seconds => 12 );
+ is(
+ $dt->datetime, '1986-01-28T16:39:12',
+ 'Adding durations with minutes and seconds works'
+ );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 1986, month => 1, day => 28,
+ hour => 16, minute => 38,
+ time_zone => 'UTC'
+ );
+
+ $dt->add( seconds => 30 );
+ is(
+ $dt->datetime, '1986-01-28T16:38:30',
+ 'Adding durations with seconds only works'
+ );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 1986, month => 1, day => 28,
+ hour => 16, minute => 38,
+ time_zone => 'UTC'
+ );
+
+ $dt->add( hours => 1, minutes => 10 );
+ is(
+ $dt->datetime, '1986-01-28T17:48:00',
+ 'Adding durations with hours and minutes works'
+ );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 1986, month => 1, day => 28,
+ hour => 16, minute => 38,
+ time_zone => 'UTC'
+ );
+
+ $dt->add( days => 3 );
+ is(
+ $dt->datetime, '1986-01-31T16:38:00',
+ 'Adding durations with days only works'
+ );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 1986, month => 1, day => 28,
+ hour => 16, minute => 38,
+ time_zone => 'UTC'
+ );
+
+ $dt->add( days => 3, hours => 2 );
+ is(
+ $dt->datetime, '1986-01-31T18:38:00',
+ 'Adding durations with days and hours works'
+ );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 1986, month => 1, day => 28,
+ hour => 16, minute => 38,
+ time_zone => 'UTC'
+ );
+
+ $dt->add( days => 3, hours => 2, minutes => 20, seconds => 15 );
+ is(
+ $dt->datetime, '1986-01-31T18:58:15',
+ 'Adding durations with days, hours, minutes, and seconds works'
+ );
+}
+
+{
+ # Add 15M - this test failed at one point in N::I::Time
+ my $dt = DateTime->new(
+ year => 2001, month => 4, day => 5,
+ hour => 16,
+ time_zone => 'UTC'
+ );
+
+ $dt->add( minutes => 15 );
+ is(
+ $dt->datetime, '2001-04-05T16:15:00',
+ 'Adding minutes to an ical string'
+ );
+
+ # Subtract a duration
+ $dt->add( minutes => -15 );
+ is( $dt->datetime, '2001-04-05T16:00:00', 'Back where we started' );
+}
+
+{
+ # Syntactic sugar works as well
+ my $dt = DateTime->new(
+ year => 2016, month => 11, day => 11,
+ hour => 17,
+ time_zone => 'UTC'
+ );
+ my $duration = DateTime::Duration->new( years => 1 );
+ $dt->add($duration);
+ is(
+ $dt->datetime, '2017-11-11T17:00:00',
+ 'Adding a Duration object via ->add works',
+ );
+ $duration = DateTime::Duration->new( months => 5, days => 1 );
+ $dt->subtract($duration);
+ is(
+ $dt->datetime, '2017-06-10T17:00:00',
+ 'Subtracting a Duration object via ->subtract works',
+ );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 1986, month => 1, day => 28,
+ hour => 16, minute => 38,
+ time_zone => 'UTC'
+ );
+
+ $dt->add( seconds => 60 );
+ is(
+ $dt->datetime, '1986-01-28T16:39:00',
+ 'adding positive seconds with seconds works'
+ );
+ $dt->add( seconds => -120 );
+ is(
+ $dt->datetime, '1986-01-28T16:37:00',
+ 'adding negative seconds with seconds works'
+ );
+}
+
+{
+ # test sub months
+ my $dt = DateTime->new(
+ year => 2001, month => 1, day => 31,
+ time_zone => 'UTC',
+ );
+ $dt->add( days => 1 );
+ is( $dt->date, '2001-02-01', 'february 1st' );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 2001, month => 2, day => 28,
+ time_zone => 'UTC',
+ );
+ $dt->add( days => 1 );
+ is( $dt->date, '2001-03-01', 'march 1st' );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 2001, month => 3, day => 31,
+ time_zone => 'UTC',
+ );
+ $dt->add( days => 1 );
+ is( $dt->date, '2001-04-01', 'april 1st' );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 2001, month => 4, day => 30,
+ time_zone => 'UTC',
+ );
+ $dt->add( days => 1 );
+ is( $dt->date, '2001-05-01', 'may 1st' );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 2001, month => 5, day => 31,
+ time_zone => 'UTC',
+ );
+ $dt->add( days => 1 );
+ is( $dt->date, '2001-06-01', 'june 1st' );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 2001, month => 6, day => 30,
+ time_zone => 'UTC',
+ );
+ $dt->add( days => 1 );
+ is( $dt->date, '2001-07-01', 'july 1st' );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 2001, month => 7, day => 31,
+ time_zone => 'UTC',
+ );
+ $dt->add( days => 1 );
+ is( $dt->date, '2001-08-01', 'august 1st' );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 2001, month => 8, day => 31,
+ time_zone => 'UTC',
+ );
+ $dt->add( days => 1 );
+ is( $dt->date, '2001-09-01', 'september 1st' );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 2001, month => 9, day => 30,
+ time_zone => 'UTC',
+ );
+ $dt->add( days => 1 );
+ is( $dt->date, '2001-10-01', 'october 1st' );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 2001, month => 10, day => 31,
+ time_zone => 'UTC',
+ );
+ $dt->add( days => 1 );
+ is( $dt->date, '2001-11-01', 'november 1st' );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 2001, month => 11, day => 30,
+ time_zone => 'UTC',
+ );
+ $dt->add( days => 1 );
+ is( $dt->date, '2001-12-01', 'december 1st' );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 2001, month => 12, day => 31,
+ time_zone => 'UTC',
+ );
+ $dt->add( days => 1 );
+ is( $dt->date, '2002-01-01', 'january 1st' );
+}
+
+{
+ # Before leap day, not a leap year ...
+ my $dt = DateTime->new(
+ year => 2001, month => 2, day => 28,
+ time_zone => 'UTC',
+ );
+ $dt->add( years => 1 );
+ is( $dt->date, '2002-02-28', 'Adding a year' );
+ $dt->add( years => 17 );
+ is( $dt->date, '2019-02-28', 'Adding 17 years' );
+}
+
+{
+ # After leap day, not a leap year ...
+ my $dt = DateTime->new(
+ year => 2001, month => 3, day => 28,
+ time_zone => 'UTC',
+ );
+ $dt->add( years => 1 );
+ is( $dt->date, '2002-03-28', 'Adding a year' );
+ $dt->add( years => 17 );
+ is( $dt->date, '2019-03-28', 'Adding 17 years' );
+}
+
+{
+ # On leap day, in a leap year ...
+ my $dt = DateTime->new(
+ year => 2000, month => 2, day => 29,
+ time_zone => 'UTC',
+ );
+ $dt->add( years => 1 );
+ is( $dt->date, '2001-03-01', 'Adding a year' );
+ $dt->add( years => 17 );
+ is( $dt->date, '2018-03-01', 'Adding 17 years' );
+}
+
+{
+ # Before leap day, in a leap year ...
+ my $dt = DateTime->new(
+ year => 2000, month => 2, day => 28,
+ time_zone => 'UTC',
+ );
+ $dt->add( years => 1 );
+ is( $dt->date, '2001-02-28', 'Adding a year' );
+ $dt->add( years => 17 );
+ is( $dt->date, '2018-02-28', 'Adding 17 years' );
+}
+
+{
+ # After leap day, in a leap year ...
+ my $dt = DateTime->new(
+ year => 2000, month => 3, day => 28,
+ time_zone => 'UTC',
+ );
+ $dt->add( years => 1 );
+ is( $dt->date, '2001-03-28', 'Adding a year' );
+ $dt->add( years => 17 );
+ is( $dt->date, '2018-03-28', 'Adding 17 years' );
+}
+
+{
+ # Test a bunch of years, before leap day
+ for ( 1 .. 99 ) {
+ my $dt = DateTime->new(
+ year => 2000, month => 2, day => 28,
+ time_zone => 'UTC',
+ );
+ $dt->add( years => $_ );
+ my $x = sprintf '%02d', $_;
+ is( $dt->date, "20${x}-02-28", "Adding $_ years" );
+ }
+
+ # Test a bunch of years, after leap day
+ for ( 1 .. 99 ) {
+ my $dt = DateTime->new(
+ year => 2000, month => 3, day => 28,
+ time_zone => 'UTC',
+ );
+ $dt->add( years => $_ );
+ my $x = sprintf '%02d', $_;
+ is( $dt->date, "20${x}-03-28", "Adding $_ years" );
+ }
+}
+
+# And more of the same, starting on a non-leap year
+
+{
+ # Test a bunch of years, before leap day
+ for ( 1 .. 97 ) {
+ my $dt = DateTime->new(
+ year => 2002, month => 2, day => 28,
+ time_zone => 'UTC',
+ );
+ $dt->add( years => $_ );
+ my $x = sprintf '%02d', $_ + 2;
+ is( $dt->date, "20${x}-02-28", "Adding $_ years" );
+ }
+
+ # Test a bunch of years, after leap day
+ for ( 1 .. 97 ) {
+ my $dt = DateTime->new(
+ year => 2002, month => 3, day => 28,
+ time_zone => 'UTC',
+ );
+ $dt->add( years => $_ );
+ my $x = sprintf '%02d', $_ + 2;
+ is( $dt->date, "20${x}-03-28", "Adding $_ years" );
+ }
+}
+
+{
+ # subtract years
+ for ( 1 .. 97 ) {
+ my $dt = DateTime->new(
+ year => 1999, month => 3, day => 1,
+ time_zone => 'UTC',
+ );
+ $dt->add( years => -$_ );
+ my $x = sprintf '%02d', 99 - $_;
+ is( $dt->date, "19${x}-03-01", "Subtracting $_ years" );
+ }
+}
+
+# test some old bugs
+
+{
+ # bug adding months where current month + months added were > 25
+ my $dt = DateTime->new(
+ year => 1997, month => 12, day => 1,
+ time_zone => 'UTC',
+ );
+ $dt->add( months => 14 );
+ is( $dt->date, '1999-02-01', 'Adding months--rollover year' );
+}
+
+{
+ # bug subtracting months with year rollover
+ my $dt = DateTime->new(
+ year => 1997, month => 1, day => 1,
+ time_zone => 'UTC',
+ );
+ $dt->add( months => -1 );
+ is( $dt->date, '1996-12-01', 'Subtracting months--rollover year' );
+
+ my $new = $dt + DateTime::Duration->new( years => 2 );
+ is( $new->date, '1998-12-01', 'test + overloading' );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 1997, month => 1, day => 1,
+ hour => 1, minute => 1, second => 59,
+ nanosecond => 500000000,
+ time_zone => 'UTC',
+ );
+
+ $dt->add( nanoseconds => 500000000 );
+ is( $dt->second, 0, 'fractional second rollover' );
+ $dt->add( nanoseconds => 123000000 );
+ is( $dt->fractional_second, 0.123, 'as fractional_second' );
+}
+
+{
+ my $dt = DateTime->new( year => 2003, month => 2, day => 28 );
+ $dt->add( months => 1, days => 1 );
+
+ is( $dt->ymd, '2003-04-01', 'order of units in date math' );
+}
+
+{
+ my $dt = DateTime->new( year => 2003, hour => 12, minute => 1 );
+ $dt->add( minutes => 30, seconds => -1 );
+
+ is( $dt->hour, 12, 'hour is 12' );
+ is( $dt->minute, 30, 'minute is 30' );
+ is( $dt->second, 59, 'second is 59' );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 2014,
+ month => 7,
+ day => 1,
+ time_zone => 'floating',
+ );
+
+ $dt->add( days => 2 );
+ is( $dt->date, '2014-07-03', 'adding 2 days to a floating datetime' );
+}
+
+{
+ my $dt = DateTime->new( year => 0, month => 1, day => 1 );
+ my $dt2;
+ is(
+ exception { $dt2 = $dt->clone->add( days => 268_526_345 ) },
+ undef,
+ 'no exception adding 268,526,345 days to 0000-01-01'
+ );
+
+ if ($dt2) {
+ is(
+ $dt2->ymd(),
+ '735200-02-29',
+ 'adding 268,526,345 days produces 735200-02-29'
+ );
+ }
+}
+
+done_testing();
+
--- /dev/null
+BEGIN {
+ $ENV{PERL_DATETIME_PP} = 1;
+}
+
+use strict;
+use warnings;
+
+use Test::More;
+
+use DateTime;
+
+undef $ENV{PERL_DATETIME_DEFAULT_TZ};
+
+my $date1 = DateTime->new(
+ year => 1997, month => 10, day => 24,
+ hour => 12, minute => 0, second => 0,
+ time_zone => 'UTC'
+);
+my $date2 = DateTime->new(
+ year => 1997, month => 10, day => 24,
+ hour => 12, minute => 0, second => 0,
+ time_zone => 'UTC'
+);
+
+# make sure that comparing to itself eq 0
+my $identity = $date1->compare($date2);
+ok( $identity == 0, 'Identity comparison' );
+
+$date2 = DateTime->new(
+ year => 1997, month => 10, day => 24,
+ hour => 12, minute => 0, second => 1,
+ time_zone => 'UTC'
+);
+ok( $date1->compare($date2) == -1, 'Comparison $a < $b, 1 second diff' );
+
+$date2 = DateTime->new(
+ year => 1997, month => 10, day => 24,
+ hour => 12, minute => 1, second => 0,
+ time_zone => 'UTC'
+);
+ok( $date1->compare($date2) == -1, 'Comparison $a < $b, 1 minute diff' );
+
+$date2 = DateTime->new(
+ year => 1997, month => 10, day => 24,
+ hour => 13, minute => 0, second => 0,
+ time_zone => 'UTC'
+);
+ok( $date1->compare($date2) == -1, 'Comparison $a < $b, 1 hour diff' );
+
+$date2 = DateTime->new(
+ year => 1997, month => 10, day => 25,
+ hour => 12, minute => 0, second => 0,
+ time_zone => 'UTC'
+);
+ok( $date1->compare($date2) == -1, 'Comparison $a < $b, 1 day diff' );
+
+$date2 = DateTime->new(
+ year => 1997, month => 11, day => 24,
+ hour => 12, minute => 0, second => 0,
+ time_zone => 'UTC'
+);
+ok( $date1->compare($date2) == -1, 'Comparison $a < $b, 1 month diff' );
+
+$date2 = DateTime->new(
+ year => 1998, month => 10, day => 24,
+ hour => 12, minute => 0, second => 0,
+ time_zone => 'UTC'
+);
+ok( $date1->compare($date2) == -1, 'Comparison $a < $b, 1 year diff' );
+
+# $a > $b tests
+
+$date2 = DateTime->new(
+ year => 1997, month => 10, day => 24,
+ hour => 11, minute => 59, second => 59,
+ time_zone => 'UTC'
+);
+ok( $date1->compare($date2) == 1, 'Comparison $a > $b, 1 second diff' );
+
+$date2 = DateTime->new(
+ year => 1997, month => 10, day => 24,
+ hour => 11, minute => 59, second => 0,
+ time_zone => 'UTC'
+);
+ok( $date1->compare($date2) == 1, 'Comparison $a > $b, 1 minute diff' );
+
+$date2 = DateTime->new(
+ year => 1997, month => 10, day => 24,
+ hour => 11, minute => 0, second => 0,
+ time_zone => 'UTC'
+);
+ok( $date1->compare($date2) == 1, 'Comparison $a > $b, 1 hour diff' );
+
+$date2 = DateTime->new(
+ year => 1997, month => 10, day => 23,
+ hour => 12, minute => 0, second => 0,
+ time_zone => 'UTC'
+);
+ok( $date1->compare($date2) == 1, 'Comparison $a > $b, 1 day diff' );
+
+$date2 = DateTime->new(
+ year => 1997, month => 9, day => 24,
+ hour => 12, minute => 0, second => 0,
+ time_zone => 'UTC'
+);
+ok( $date1->compare($date2) == 1, 'Comparison $a > $b, 1 month diff' );
+
+$date2 = DateTime->new(
+ year => 1996, month => 10, day => 24,
+ hour => 12, minute => 0, second => 0,
+ time_zone => 'UTC'
+);
+ok( $date1->compare($date2) == 1, 'Comparison $a > $b, 1 year diff' );
+
+my $infinity = DateTime::INFINITY;
+
+ok( $date1->compare($infinity) == -1, 'Comparison $a < inf' );
+
+ok( $date1->compare( -$infinity ) == 1, 'Comparison $a > -inf' );
+
+# comparison overloading, and infinity
+
+ok( ( $date1 <=> $infinity ) == -1, 'Comparison overload $a <=> inf' );
+
+ok( ( $infinity <=> $date1 ) == 1, 'Comparison overload $inf <=> $a' );
+
+# comparison with floating time
+{
+ my $dt1 = DateTime->new(
+ year => 1997, month => 10, day => 24,
+ hour => 12, minute => 0, second => 0,
+ time_zone => 'America/Chicago'
+ );
+ my $dt2 = DateTime->new(
+ year => 1997, month => 10, day => 24,
+ hour => 12, minute => 0, second => 0,
+ time_zone => 'floating'
+ );
+
+ is(
+ DateTime->compare( $dt1, $dt2 ), 0,
+ 'Comparison with floating time (cmp)'
+ );
+ is( ( $dt1 <=> $dt2 ), 0, 'Comparison with floating time (<=>)' );
+ is( ( $dt1 cmp $dt2 ), 0, 'Comparison with floating time (cmp)' );
+ is(
+ DateTime->compare_ignore_floating( $dt1, $dt2 ), 1,
+ 'Comparison with floating time (cmp)'
+ );
+}
+
+# sub-second
+{
+ my $dt1 = DateTime->new(
+ year => 1997, month => 10, day => 24,
+ hour => 12, minute => 0, second => 0,
+ nanosecond => 100,
+ );
+
+ my $dt2 = DateTime->new(
+ year => 1997, month => 10, day => 24,
+ hour => 12, minute => 0, second => 0,
+ nanosecond => 200,
+ );
+
+ is(
+ DateTime->compare( $dt1, $dt2 ), -1,
+ 'Comparison with floating time (cmp)'
+ );
+ is( ( $dt1 <=> $dt2 ), -1, 'Comparison with floating time (<=>)' );
+ is( ( $dt1 cmp $dt2 ), -1, 'Comparison with floating time (cmp)' );
+}
+
+{
+ my $dt1 = DateTime->new(
+ year => 2000, month => 10, day => 24,
+ hour => 12, minute => 0, second => 0,
+ nanosecond => 10000,
+ );
+
+ my $dt2 = DateTime->new(
+ year => 2000, month => 10, day => 24,
+ hour => 12, minute => 0, second => 0,
+ nanosecond => 10000,
+ );
+
+ is(
+ DateTime->compare( $dt1, $dt2 ), 0,
+ 'Comparison with floating time (cmp)'
+ );
+ is( ( $dt1 <=> $dt2 ), 0, 'Comparison with floating time (<=>)' );
+ is( ( $dt1 cmp $dt2 ), 0, 'Comparison with floating time (cmp)' );
+ is(
+ DateTime->compare_ignore_floating( $dt1, $dt2 ), 0,
+ 'Comparison with compare_ignore_floating (cmp)'
+ );
+}
+
+{
+
+ package DT::Test;
+
+ sub new {
+ my $class = shift;
+ return bless [@_], $class;
+ }
+
+ sub utc_rd_values { @{ $_[0] } }
+}
+
+{
+ my $dt = DateTime->new( year => 1950 );
+ my @values = $dt->utc_rd_values;
+
+ $values[2] += 50;
+
+ my $dt_test1 = DT::Test->new(@values);
+
+ ok( $dt < $dt_test1, 'comparison works across different classes' );
+
+ $values[0] -= 1;
+
+ my $dt_test2 = DT::Test->new(@values);
+
+ ok( $dt > $dt_test2, 'comparison works across different classes' );
+}
+
+{
+ my $dt = DateTime->now;
+ ok(
+ $dt->is_between( _add( $dt, -1 ), _add( $dt, 1 ) ),
+ 'is_between 1 minute before and 1 minute after'
+ );
+ ok(
+ !$dt->is_between( _add( $dt, 1 ), _add( $dt, 2 ) ),
+ 'not is_between 1 minute after and 2 minutes after'
+ );
+ ok(
+ !$dt->is_between( _add( $dt, 1 ), _add( $dt, -1 ) ),
+ 'not is_between 1 minute after and 1 minute before (wrong order for lower and upper)'
+ );
+ ok(
+ !$dt->is_between( $dt, _add( $dt, 1 ) ),
+ 'not is_between same datetime and 1 minute after'
+ );
+ ok(
+ !$dt->is_between( _add( $dt, -1 ), $dt ),
+ 'not is_between 1 minute before and same datetime'
+ );
+}
+
+sub _add {
+ shift->clone->add( minutes => shift );
+}
+
+done_testing();
+
--- /dev/null
+BEGIN {
+ $ENV{PERL_DATETIME_PP} = 1;
+}
+
+use strict;
+use warnings;
+
+use Test::More;
+
+use DateTime;
+
+undef $ENV{PERL_DATETIME_DEFAULT_TZ};
+
+## no critic (Subroutines::ProtectPrivateSubs)
+
+# test _ymd2rd and _rd2ymd for various dates
+# 2 tests are performed for each date (on _ymd2rd and _rd2ymd)
+# dates are specified as [rd,year,month,day]
+for ( # min and max supported days (for 32-bit system)
+ [ -( 2**28 ), -734951, 9, 7 ],
+ [ 2**28, 734952, 4, 25 ],
+
+ # some miscellaneous dates (these are actually epoch dates for
+ # various calendars from Calendrical Calculations (1st ed) Table
+ # 1.1)
+ [ -1721425, -4713, 11, 24 ],
+ [ -1373427, -3760, 9, 7 ],
+ [ -1137142, -3113, 8, 11 ],
+ [ -1132959, -3101, 1, 23 ],
+ [ -963099, -2636, 2, 15 ],
+ [ -1, 0, 12, 30 ], [ 1, 1, 1, 1 ],
+ [ 2796, 8, 8, 27 ],
+ [ 103605, 284, 8, 29 ],
+ [ 226896, 622, 3, 22 ],
+ [ 227015, 622, 7, 19 ],
+ [ 654415, 1792, 9, 22 ],
+ [ 673222, 1844, 3, 21 ]
+) {
+ is(
+ join( '/', DateTime->_rd2ymd( $_->[0] ) ),
+ join( '/', @{$_}[ 1 .. 3 ] ),
+ $_->[0] . " \t=> " . join '/', @{$_}[ 1 .. 3 ]
+ );
+
+ is(
+ DateTime->_ymd2rd( @{$_}[ 1 .. 3 ] ), $_->[0],
+ join( '/', @{$_}[ 1 .. 3 ] ) . " \t=> " . $_->[0]
+ );
+}
+
+# normalization tests
+for (
+ [ -1753469, -4797, -33, 1 ],
+ [ -1753469, -4803, 39, 1 ],
+ [ -1753105, -4796, -34, 28 ],
+ [ -1753105, -4802, 38, 28 ]
+) {
+ is(
+ DateTime->_ymd2rd( @{$_}[ 1 .. 3 ] ), $_->[0],
+ join( '/', @{$_}[ 1 .. 3 ] )
+ . " \t=> "
+ . $_->[0]
+ . ' (normalization)'
+ );
+}
+
+# test first and last day of each month from Jan -4800..Dec 4800
+# this test bails after the first failure with a not ok.
+# if it completes successfully, only one ok is issued.
+
+my @mlen = ( 0, 31, 0, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 );
+my ( $dno, $y, $m, $dno2, $y2, $m2, $d2, $mlen ) = ( -1753530, -4800, 1 );
+
+while ( $y <= 4800 ) {
+
+ # test $y,$m,1
+ ++$dno;
+ $dno2 = DateTime->_ymd2rd( $y, $m, 1 );
+ if ( $dno != $dno2 ) {
+ is(
+ $dno2, $dno,
+ "greg torture test: _ymd2rd($y,$m,1) should be $dno"
+ );
+ last;
+ }
+ ( $y2, $m2, $d2 ) = DateTime->_rd2ymd($dno);
+
+ if ( $y2 != $y || $m2 != $m || $d2 != 1 ) {
+ is(
+ "$y2/$m2/$d2", "$y/$m/1",
+ "greg torture test: _rd2ymd($dno) should be $y/$m/1"
+ );
+ last;
+ }
+
+ # test $y,$m,$mlen
+ $mlen = $mlen[$m] || ( $y % 4 ? 28 : $y % 100 ? 29 : $y % 400 ? 28 : 29 );
+ $dno += $mlen - 1;
+ $dno2 = DateTime->_ymd2rd( $y, $m, $mlen );
+ if ( $dno != $dno2 ) {
+ is(
+ $dno2, $dno,
+ "greg torture test: _ymd2rd($y,$m,$mlen) should be $dno"
+ );
+ last;
+ }
+ ( $y2, $m2, $d2 ) = DateTime->_rd2ymd($dno);
+
+ if ( $y2 != $y || $m2 != $m || $d2 != $mlen ) {
+ is(
+ "$y2/$m2/$d2", "$y/$m/$mlen",
+ "greg torture test: _rd2ymd($dno) should be $y/$m/$mlen"
+ );
+ last;
+ }
+
+ # and on to the next month...
+ if ( ++$m > 12 ) {
+ $m = 1;
+ ++$y;
+ }
+}
+
+pass('greg torture test') if $y == 4801;
+
+done_testing();
+
--- /dev/null
+BEGIN {
+ $ENV{PERL_DATETIME_PP} = 1;
+}
+
+use strict;
+use warnings;
+
+use Test::More;
+
+use DateTime;
+
+undef $ENV{PERL_DATETIME_DEFAULT_TZ};
+
+{
+ my $date1 = DateTime->new(
+ year => 2001, month => 5, day => 10,
+ hour => 4, minute => 3, second => 2,
+ nanosecond => 12,
+ time_zone => 'UTC'
+ );
+
+ my $date2 = DateTime->new(
+ year => 2001, month => 6, day => 12,
+ hour => 5, minute => 7, second => 23,
+ nanosecond => 7,
+ time_zone => 'UTC'
+ );
+
+ my $dur = $date2 - $date1;
+
+ is( $dur->delta_months, 1, 'delta_months should be 1' );
+ is( $dur->delta_days, 2, 'delta_days should be 2' );
+ is( $dur->delta_minutes, 64, 'delta_minutes should be 64' );
+ is( $dur->delta_seconds, 20, 'delta_seconds should be 20' );
+ is(
+ $dur->delta_nanoseconds, 999_999_995,
+ 'delta_nanoseconds should be 999,999,995'
+ );
+
+ is( $dur->years, 0, 'Years' );
+ is( $dur->months, 1, 'Months' );
+ is( $dur->weeks, 0, 'Weeks' );
+ is( $dur->days, 2, 'Days' );
+ is( $dur->hours, 1, 'Hours' );
+ is( $dur->minutes, 4, 'Minutes' );
+ is( $dur->seconds, 20, 'Seconds' );
+ is( $dur->nanoseconds, 999_999_995, 'Nanoseconds' );
+}
+
+{
+ my $date1 = DateTime->new(
+ year => 2001, month => 5, day => 10,
+ hour => 4, minute => 3, second => 2,
+ time_zone => 'UTC'
+ );
+
+ my $date2 = DateTime->new(
+ year => 2001, month => 6, day => 12,
+ hour => 5, minute => 7, second => 23,
+ time_zone => 'UTC'
+ );
+
+ my $dur = $date1 - $date2;
+
+ is( $dur->delta_months, -1, 'delta_months should be -1' );
+ is( $dur->delta_days, -2, 'delta_days should be -2' );
+ is( $dur->delta_minutes, -64, 'delta_minutes should be 64' );
+ is( $dur->delta_seconds, -21, 'delta_seconds should be 20' );
+ is( $dur->delta_nanoseconds, 0, 'delta_nanoseconds should be 0' );
+
+ is( $dur->years, 0, 'Years' );
+ is( $dur->months, 1, 'Months' );
+ is( $dur->weeks, 0, 'Weeks' );
+ is( $dur->days, 2, 'Days' );
+ is( $dur->hours, 1, 'Hours' );
+ is( $dur->minutes, 4, 'Minutes' );
+ is( $dur->seconds, 21, 'Seconds' );
+ is( $dur->nanoseconds, 0, 'Nanoseconds' );
+
+ $dur = $date1 - $date1;
+ is( $dur->delta_days, 0, 'date minus itself should have no delta days' );
+ is(
+ $dur->delta_seconds, 0,
+ 'date minus itself should have no delta seconds'
+ );
+
+ my $new = $date1 - DateTime::Duration->new( years => 2 );
+ is( $new->datetime, '1999-05-10T04:03:02', 'test - overloading' );
+}
+
+{
+ my $d = DateTime->new(
+ year => 2001, month => 10, day => 19,
+ hour => 5, minute => 1, second => 1,
+ time_zone => 'UTC'
+ );
+
+ my $d2 = $d->clone;
+ $d2->subtract(
+ weeks => 1,
+ days => 1,
+ hours => 1,
+ minutes => 1,
+ seconds => 1,
+ );
+
+ ok( defined $d2, 'Defined' );
+ is(
+ $d2->datetime, '2001-10-11T04:00:00',
+ 'Subtract and get the right thing'
+ );
+}
+
+# based on bug report from Eric Cholet
+{
+ my $dt1 = DateTime->new(
+ year => 2003, month => 2, day => 9,
+ hour => 0, minute => 0, second => 1,
+ time_zone => 'UTC',
+ );
+
+ my $dt2 = DateTime->new(
+ year => 2003, month => 2, day => 7,
+ hour => 23, minute => 59, second => 59,
+ time_zone => 'UTC',
+ );
+
+ my $dur1 = $dt1->subtract_datetime($dt2);
+
+ is( $dur1->delta_days, 1, 'delta_days should be 1' );
+ is( $dur1->delta_seconds, 2, 'delta_seconds should be 2' );
+
+ my $dt3 = $dt2 + $dur1;
+
+ is(
+ DateTime->compare( $dt1, $dt3 ), 0,
+ 'adding difference back to dt1 should give same datetime'
+ );
+
+ my $dur2 = $dt2->subtract_datetime($dt1);
+
+ is( $dur2->delta_days, -1, 'delta_days should be -1' );
+ is( $dur2->delta_seconds, -2, 'delta_seconds should be -2' );
+
+ my $dt4 = $dt1 + $dur2;
+
+ is(
+ DateTime->compare( $dt2, $dt4 ), 0,
+ 'adding difference back to dt2 should give same datetime'
+ );
+}
+
+# test if the day changes because of a nanosecond subtract
+{
+ my $dt = DateTime->new(
+ year => 2001, month => 6, day => 12,
+ hour => 0, minute => 0, second => 0,
+ time_zone => 'UTC'
+ );
+ $dt->subtract( nanoseconds => 1 );
+ is( $dt->nanosecond, 999999999, 'negative nanoseconds normalize ok' );
+ is( $dt->second, 59, 'seconds normalize ok' );
+ is( $dt->minute, 59, 'minutes normalize ok' );
+ is( $dt->hour, 23, 'hours normalize ok' );
+ is( $dt->day, 11, 'days normalize ok' );
+}
+
+# test for a bug when nanoseconds were greater in earlier datetime
+{
+ my $dt1 = DateTime->new(
+ year => 2000, month => 1, day => 5,
+ hour => 0, minute => 10, second => 0,
+ nanosecond => 1,
+ time_zone => 'UTC',
+ );
+
+ my $dt2 = DateTime->new(
+ year => 2000, month => 1, day => 6,
+ hour => 0, minute => 10, second => 0,
+ nanosecond => 0,
+ time_zone => 'UTC',
+ );
+ my $dur = $dt2 - $dt1;
+
+ is( $dur->delta_days, 0, 'delta_days is 0' );
+ is( $dur->delta_minutes, 1439, 'delta_minutes is 1439' );
+ is( $dur->delta_seconds, 59, 'delta_seconds is 59' );
+ is(
+ $dur->delta_nanoseconds, 999_999_999,
+ 'delta_nanoseconds is 999,999,999'
+ );
+ ok( $dur->is_positive, 'duration is positive' );
+}
+
+{
+ my $dt1 = DateTime->new(
+ year => 2000, month => 1, day => 5,
+ hour => 0, minute => 10, second => 0,
+ nanosecond => 20,
+ time_zone => 'UTC',
+ );
+
+ my $dt2 = DateTime->new(
+ year => 2000, month => 1, day => 5,
+ hour => 0, minute => 10, second => 0,
+ nanosecond => 10,
+ time_zone => 'UTC',
+ );
+
+ my $dur = $dt2 - $dt1;
+
+ is( $dur->delta_days, 0, 'days is 0' );
+ is( $dur->delta_seconds, 0, 'seconds is 0' );
+ is( $dur->delta_nanoseconds, -10, 'nanoseconds is -10' );
+ ok( $dur->is_negative, 'duration is negative' );
+}
+
+{
+ my $dt1 = DateTime->new(
+ year => 2000, month => 1, day => 5,
+ hour => 0, minute => 11, second => 0,
+ nanosecond => 20,
+ time_zone => 'UTC',
+ );
+
+ my $dt2 = DateTime->new(
+ year => 2000, month => 1, day => 5,
+ hour => 0, minute => 10, second => 0,
+ nanosecond => 10,
+ time_zone => 'UTC',
+ );
+
+ my $dur = $dt2 - $dt1;
+
+ is( $dur->delta_days, 0, 'delta_days is 0' );
+ is( $dur->delta_minutes, -1, 'delta_minutes is -1' );
+ is( $dur->delta_seconds, 0, 'delta_seconds is 0' );
+ is( $dur->delta_nanoseconds, -10, 'nanoseconds is -10' );
+ ok( $dur->is_negative, 'duration is negative' );
+}
+
+{
+ my $dt1 = DateTime->new(
+ year => 2000, month => 1, day => 5,
+ hour => 0, minute => 10, second => 0,
+ nanosecond => 20,
+ time_zone => 'UTC',
+ );
+
+ my $dt2 = DateTime->new(
+ year => 2000, month => 1, day => 5,
+ hour => 0, minute => 11, second => 0,
+ nanosecond => 10,
+ time_zone => 'UTC',
+ );
+
+ my $dur = $dt2 - $dt1;
+
+ is( $dur->delta_days, 0, 'days is 0' );
+ is( $dur->delta_seconds, 59, 'seconds is 59' );
+ is( $dur->delta_nanoseconds, 999_999_990, 'nanoseconds is 999,999,990' );
+ ok( $dur->is_positive, 'duration is positive' );
+}
+
+{
+ my $dt1 = DateTime->new(
+ year => 2000, month => 1, day => 5,
+ hour => 0, minute => 11, second => 0,
+ nanosecond => 10,
+ time_zone => 'UTC',
+ );
+
+ my $dt2 = DateTime->new(
+ year => 2000, month => 1, day => 5,
+ hour => 0, minute => 10, second => 0,
+ nanosecond => 20,
+ time_zone => 'UTC',
+ );
+
+ my $dur = $dt2 - $dt1;
+
+ is( $dur->delta_days, 0, 'days is 0' );
+ is( $dur->delta_seconds, -59, 'seconds is -59' );
+ is(
+ $dur->delta_nanoseconds, -999_999_990,
+ 'nanoseconds is -999,999,990'
+ );
+ ok( $dur->is_negative, 'duration is negative' );
+}
+
+{
+ my $dt1 = DateTime->new(
+ year => 2000, month => 1, day => 5,
+ hour => 0, minute => 11, second => 0,
+ nanosecond => 20,
+ time_zone => 'UTC',
+ );
+
+ my $dur = $dt1 - $dt1;
+
+ is( $dur->delta_days, 0, 'days is 0' );
+ is( $dur->delta_seconds, 0, 'seconds is 0' );
+ is( $dur->delta_nanoseconds, 0, 'nanoseconds is 0' );
+ ok( !$dur->is_positive, 'not positive' );
+ ok( !$dur->is_negative, 'not negative' );
+}
+
+{
+ my $dt1 = DateTime->new( year => 2003, month => 12, day => 31 );
+ my $dt2 = $dt1->clone->subtract( months => 1 );
+
+ is( $dt2->year, 2003, '2003-12-31 - 1 month = 2003-11-30' );
+ is( $dt2->month, 11, '2003-12-31 - 1 month = 2003-11-30' );
+ is( $dt2->day, 30, '2003-12-31 - 1 month = 2003-11-30' );
+}
+
+{
+ my $date1 = DateTime->new(
+ year => 2001, month => 5, day => 10,
+ hour => 4, minute => 3, second => 2,
+ nanosecond => 12,
+ time_zone => 'UTC'
+ );
+
+ my $date2 = DateTime->new(
+ year => 2001, month => 6, day => 12,
+ hour => 5, minute => 7, second => 23,
+ nanosecond => 7,
+ time_zone => 'UTC'
+ );
+
+ my $dur = $date2->subtract_datetime_absolute($date1);
+
+ is( $dur->delta_months, 0, 'delta_months is 0' );
+ is( $dur->delta_minutes, 0, 'delta_minutes is 0' );
+ is( $dur->delta_seconds, 2_855_060, 'delta_seconds is 2,855,060' );
+ is(
+ $dur->delta_nanoseconds, 999_999_995,
+ 'delta_seconds is 999,999,995'
+ );
+}
+
+{
+ my $date1 = DateTime->new(
+ year => 2001, month => 5, day => 10,
+ hour => 4, minute => 3, second => 2,
+ time_zone => 'UTC'
+ );
+
+ my $date2 = DateTime->new(
+ year => 2001, month => 6, day => 12,
+ hour => 5, minute => 7, second => 23,
+ time_zone => 'UTC'
+ );
+
+ my $dur = $date1->subtract_datetime_absolute($date2);
+
+ is( $dur->delta_months, 0, 'delta_months is 0' );
+ is( $dur->delta_minutes, 0, 'delta_minutes is 0' );
+ is( $dur->delta_seconds, -2_855_061, 'delta_seconds is -2,855,061' );
+ is( $dur->delta_nanoseconds, 0, 'delta_nanoseconds is 0' );
+}
+
+{
+ my $date1 = DateTime->new( year => 2003, month => 9, day => 30 );
+ my $date2 = DateTime->new( year => 2003, month => 10, day => 1 );
+
+ my $date3 = DateTime->new( year => 2003, month => 10, day => 31 );
+ my $date4 = DateTime->new( year => 2003, month => 11, day => 1 );
+
+ my $date5 = DateTime->new( year => 2003, month => 2, day => 28 );
+ my $date6 = DateTime->new( year => 2003, month => 3, day => 1 );
+
+ my $date7 = DateTime->new( year => 2003, month => 1, day => 31 );
+ my $date8 = DateTime->new( year => 2003, month => 2, day => 1 );
+
+ foreach my $p (
+ [ $date1, $date2 ],
+ [ $date3, $date4 ],
+ [ $date5, $date6 ],
+ [ $date7, $date8 ],
+ ) {
+ my $pos_diff = $p->[1]->subtract_datetime( $p->[0] );
+
+ is( $pos_diff->delta_days, 1, '1 day diff at end of month' );
+ is( $pos_diff->delta_months, 0, '0 month diff at end of month' );
+
+ my $neg_diff = $p->[0]->subtract_datetime( $p->[1] );
+
+ is( $neg_diff->delta_days, -1, '-1 day diff at end of month' );
+ is( $neg_diff->delta_months, 0, '0 month diff at end of month' );
+ }
+}
+
+{
+ my $dt1 = DateTime->new(
+ year => 2005, month => 6, day => 11,
+ time_zone => 'UTC',
+ );
+
+ my $dt2 = DateTime->new(
+ year => 2005, month => 11, day => 10,
+ time_zone => 'UTC',
+ );
+
+ my $dur = $dt2->subtract_datetime($dt1);
+ my %deltas = $dur->deltas;
+ is( $deltas{months}, 4, '4 months - smaller day > bigger day' );
+ is( $deltas{days}, 29, '29 days - smaller day > bigger day' );
+ is( $deltas{minutes}, 0, '0 minutes - smaller day > bigger day' );
+
+ is(
+ DateTime->compare( $dt1->clone->add_duration($dur), $dt2 ), 0,
+ '$dt1 + $dur == $dt2'
+ );
+
+ # XXX - this does not work, nor will it ever work
+ # is( $dt2->clone->subtract_duration($dur), $dt1, '$dt2 - $dur == $dt1' );
+}
+
+{
+ my $dt1 = DateTime->new(
+ year => 2005, month => 6, day => 11,
+ time_zone => 'UTC',
+ );
+
+ my $dt2 = DateTime->new(
+ year => 2005, month => 11, day => 10,
+ time_zone => 'UTC',
+ );
+
+ my $dur = $dt2->delta_days($dt1);
+ my %deltas = $dur->deltas;
+ is( $deltas{months}, 0, '30 months - smaller day > bigger day' );
+ is( $deltas{days}, 152, '152 days - smaller day > bigger day' );
+ is( $deltas{minutes}, 0, '0 minutes - smaller day > bigger day' );
+
+ is(
+ DateTime->compare( $dt1->clone->add_duration($dur), $dt2 ), 0,
+ '$dt1 + $dur == $dt2'
+ );
+ is(
+ DateTime->compare( $dt2->clone->subtract_duration($dur), $dt1 ), 0,
+ '$dt2 - $dur == $dt1'
+ );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 2012,
+ month => 6,
+ day => 30,
+ time_zone => 'floating',
+ );
+
+ my $default = $dt->clone()->subtract( months => 1 );
+ is(
+ $default->format_cldr('yyyy-MM-dd'),
+ '2012-05-31',
+ 'default subtract uses preserve end_of_month mode'
+ );
+
+ my $with_mode = $dt->clone()->subtract(
+ months => 1,
+ end_of_month => 'limit',
+ );
+ is(
+ $with_mode->format_cldr('yyyy-MM-dd'),
+ '2012-05-30',
+ 'set end_of_month mode to limit in call to subtract()'
+ );
+
+}
+
+{
+ my $dt = DateTime->new(
+ year => 2014,
+ month => 7,
+ day => 3,
+ time_zone => 'floating',
+ );
+
+ $dt->subtract( days => 2 );
+ is(
+ $dt->date, '2014-07-01',
+ 'subtracting 2 days from a floating datetime'
+ );
+}
+
+done_testing();
+
--- /dev/null
+BEGIN {
+ $ENV{PERL_DATETIME_PP} = 1;
+}
+
+use strict;
+use warnings;
+
+use Test::Fatal;
+use Test::More;
+
+use DateTime;
+use DateTime::Duration;
+
+undef $ENV{PERL_DATETIME_DEFAULT_TZ};
+
+{
+ my %pairs = (
+ years => 1,
+ months => 2,
+ weeks => 3,
+ days => 4,
+ hours => 6,
+ minutes => 7,
+ seconds => 8,
+ nanoseconds => 9,
+ );
+
+ my $dur = DateTime::Duration->new(%pairs);
+
+ while ( my ( $unit, $val ) = each %pairs ) {
+ is( $dur->$unit(), $val, "$unit should be $val" );
+ }
+
+ is( $dur->delta_months, 14, 'delta_months' );
+ is( $dur->delta_days, 25, 'delta_days' );
+ is( $dur->delta_minutes, 367, 'delta_minutes' );
+ is( $dur->delta_seconds, 8, 'delta_seconds' );
+ is( $dur->delta_nanoseconds, 9, 'delta_nanoseconds' );
+
+ is( $dur->in_units('months'), 14, 'in_units months' );
+ is( $dur->in_units('days'), 25, 'in_units days' );
+ is( $dur->in_units('minutes'), 367, 'in_units minutes' );
+ is( $dur->in_units('seconds'), 8, 'in_units seconds' );
+ is(
+ $dur->in_units( 'nanoseconds', 'seconds' ), 9,
+ 'in_units nanoseconds, seconds'
+ );
+
+ is( $dur->in_units('years'), 1, 'in_units years' );
+ is( $dur->in_units( 'months', 'years' ), 2, 'in_units months, years' );
+ is( $dur->in_units('weeks'), 3, 'in_units weeks' );
+ is( $dur->in_units( 'days', 'weeks' ), 4, 'in_units days, weeks' );
+ is( $dur->in_units('hours'), 6, 'in_units hours' );
+ is( $dur->in_units( 'minutes', 'hours' ), 7, 'in_units minutes, hours' );
+ is(
+ $dur->in_units('nanoseconds'), 8_000_000_009,
+ 'in_units nanoseconds'
+ );
+
+ my (
+ $years, $months, $weeks, $days, $hours,
+ $minutes, $seconds, $nanoseconds
+ )
+ = $dur->in_units(
+ qw( years months weeks days hours
+ minutes seconds nanoseconds )
+ );
+
+ is( $years, 1, 'in_units years, list context' );
+ is( $months, 2, 'in_units months, list context' );
+ is( $weeks, 3, 'in_units weeks, list context' );
+ is( $days, 4, 'in_units days, list context' );
+ is( $hours, 6, 'in_units hours, list context' );
+ is( $minutes, 7, 'in_units minutes, list context' );
+ is( $seconds, 8, 'in_units seconds, list context' );
+ is( $nanoseconds, 9, 'in_units nanoseconds, list context' );
+
+ ok( $dur->is_positive, 'should be positive' );
+ ok( !$dur->is_zero, 'should not be zero' );
+ ok( !$dur->is_negative, 'should not be negative' );
+
+ ok( $dur->is_wrap_mode, 'wrap mode' );
+}
+{
+ my %pairs = (
+ years => 1,
+ months => 2,
+ weeks => 3,
+ days => 4,
+ hours => 6,
+ minutes => 7,
+ seconds => 8,
+ nanoseconds => 9,
+ );
+
+ my $dur = DateTime::Duration->new( %pairs, end_of_month => 'limit' );
+
+ my $calendar_dur = $dur->calendar_duration;
+ is( $calendar_dur->delta_months, 14, 'date - delta_months is 14' );
+ is( $calendar_dur->delta_minutes, 0, 'date - delta_minutes is 0' );
+ is( $calendar_dur->delta_seconds, 0, 'date - delta_seconds is 0' );
+ is(
+ $calendar_dur->delta_nanoseconds, 0,
+ 'date - delta_nanoseconds is 0'
+ );
+ ok( $calendar_dur->is_limit_mode, 'limit mode' );
+
+ my $clock_dur = $dur->clock_duration;
+ is( $clock_dur->delta_months, 0, 'time - delta_months is 0' );
+ is( $clock_dur->delta_minutes, 367, 'time - delta_minutes is 367' );
+ is( $clock_dur->delta_seconds, 8, 'time - delta_seconds is 8' );
+ is( $clock_dur->delta_nanoseconds, 9, 'time - delta_nanoseconds is 9' );
+ ok( $clock_dur->is_limit_mode, 'limit mode' );
+}
+
+{
+ my $dur = DateTime::Duration->new( days => 1, end_of_month => 'limit' );
+ ok( $dur->is_limit_mode, 'limit mode' );
+}
+
+{
+ my $dur
+ = DateTime::Duration->new( days => 1, end_of_month => 'preserve' );
+ ok( $dur->is_preserve_mode, 'preserve mode' );
+}
+
+my $leap_day = DateTime->new(
+ year => 2004, month => 2, day => 29,
+ time_zone => 'UTC',
+);
+
+{
+ my $new = $leap_day + DateTime::Duration->new(
+ years => 1,
+ end_of_month => 'wrap'
+ );
+
+ is( $new->date, '2005-03-01', 'new date should be 2005-03-01' );
+}
+
+{
+ my $new = $leap_day + DateTime::Duration->new(
+ years => 1,
+ end_of_month => 'limit'
+ );
+
+ is( $new->date, '2005-02-28', 'new date should be 2005-02-28' );
+}
+
+{
+ my $new = $leap_day + DateTime::Duration->new(
+ years => 1,
+ end_of_month => 'preserve'
+ );
+
+ is( $new->date, '2005-02-28', 'new date should be 2005-02-28' );
+
+ my $new2 = $leap_day + DateTime::Duration->new(
+ months => 1,
+ end_of_month => 'preserve'
+ );
+ is( $new2->date, '2004-03-31', 'new date should be 2004-03-31' );
+}
+
+{
+ my $inverse = DateTime::Duration->new(
+ years => 1, months => 1,
+ weeks => 1, days => 1,
+ hours => 1, minutes => 2, seconds => 3,
+ )->inverse;
+
+ is( $inverse->years, 1, 'inverse years should be positive' );
+ is( $inverse->months, 1, 'inverse months should be positive' );
+ is( $inverse->weeks, 1, 'inverse weeks should be positive' );
+ is( $inverse->days, 1, 'inverse days should be positive' );
+ is( $inverse->hours, 1, 'inverse hours should be positive' );
+ is( $inverse->minutes, 2, 'inverse minutes should be positive' );
+ is( $inverse->seconds, 3, 'inverse minutes should be positive' );
+
+ is(
+ $inverse->delta_months, -13,
+ 'inverse delta months should be negative'
+ );
+ is( $inverse->delta_days, -8, 'inverse delta months should be negative' );
+ is(
+ $inverse->delta_minutes, -62,
+ 'inverse delta minutes should be negative'
+ );
+ is(
+ $inverse->delta_seconds, -3,
+ 'inverse delta seconds should be negative'
+ );
+
+ ok( $inverse->is_negative, 'should be negative' );
+ ok( !$inverse->is_zero, 'should not be zero' );
+ ok( !$inverse->is_positive, 'should not be positivea' );
+
+ is(
+ $inverse->end_of_month_mode(), 'preserve',
+ 'inverse method uses default end_of_month_mode without explicit parameter'
+ );
+
+ my $inverse2 = DateTime::Duration->new( years => 1 )
+ ->inverse( end_of_month => 'limit' );
+
+ is(
+ $inverse2->end_of_month_mode(), 'limit',
+ 'inverse method allows setting end_of_month_mode'
+ );
+}
+
+{
+ my $dur1 = DateTime::Duration->new( months => 6, days => 10 );
+
+ my $dur2 = DateTime::Duration->new( months => 3, days => 7 );
+
+ my $new1 = $dur1 + $dur2;
+ is( $new1->delta_months, 9, 'test + overloading' );
+ is( $new1->delta_days, 17, 'test + overloading' );
+
+ my $new2 = $dur1 - $dur2;
+ is( $new2->delta_months, 3, 'test - overloading' );
+ is( $new2->delta_days, 3, 'test - overloading' );
+
+ my $new3 = $dur2 - $dur1;
+ is( $new3->delta_months, -3, 'test - overloading' );
+ is( $new3->delta_days, -3, 'test - overloading' );
+}
+
+{
+ my $dur1 = DateTime::Duration->new( months => 6, days => 10 );
+
+ my $new1 = $dur1 * 4;
+ is( $new1->delta_months, 24, 'test * overloading' );
+ is( $new1->delta_days, 40, 'test * overloading' );
+
+ $dur1->multiply(4);
+ is( $dur1->delta_months, 24, 'test multiply' );
+ is( $dur1->delta_days, 40, 'test multiply' );
+}
+
+{
+ my $dur1 = DateTime::Duration->new(
+ months => 6, days => 10, seconds => 3,
+ nanoseconds => 1_200_300_400
+ );
+
+ my $dur2
+ = DateTime::Duration->new( seconds => 1, nanoseconds => 500_000_000 );
+
+ is( $dur1->delta_seconds, 4, 'test nanoseconds overflow' );
+ is( $dur1->delta_nanoseconds, 200_300_400, 'test nanoseconds remainder' );
+
+ my $new1 = $dur1 - $dur2;
+
+ is( $new1->delta_seconds, 2, 'seconds is positive' );
+ is(
+ $new1->delta_nanoseconds, 700_300_400,
+ 'nanoseconds remainder is negative'
+ );
+
+ $new1->add( nanoseconds => 500_000_000 );
+ is( $new1->delta_seconds, 3, 'seconds are unaffected' );
+ is( $new1->delta_nanoseconds, 200_300_400, 'nanoseconds are back' );
+
+ my $new2 = $dur1 - $dur2;
+ $new2->add( nanoseconds => 1_500_000_000 );
+ is( $new2->delta_seconds, 4, 'seconds go up' );
+ is( $new2->delta_nanoseconds, 200_300_400, 'nanoseconds are normalized' );
+
+ $new2->subtract( nanoseconds => 100_000_000 );
+ is( $new2->delta_nanoseconds, 100_300_400, 'sub nanoseconds works' );
+
+ my $new3 = $dur2 * 3;
+
+ is( $new3->delta_seconds, 4, 'seconds normalized after multiplication' );
+ is(
+ $new3->delta_nanoseconds, 500_000_000,
+ 'nanoseconds normalized after multiplication'
+ );
+}
+
+{
+ my $dur1 = DateTime::Duration->new( seconds => 1 );
+ my $dur2 = DateTime::Duration->new( seconds => 1 );
+
+ $dur1->add($dur2);
+ is(
+ $dur1->delta_seconds, 2,
+ 'add method works with a duration object'
+ );
+
+ $dur1->subtract($dur2);
+ is(
+ $dur1->delta_seconds, 1,
+ 'subtract method works with a duration object'
+ );
+}
+
+{
+ my $dur = DateTime::Duration->new( nanoseconds => -10 );
+ is( $dur->nanoseconds, 10, 'nanoseconds is 10' );
+ is( $dur->delta_nanoseconds, -10, 'delta_nanoseconds is -10' );
+ ok( $dur->is_negative, 'duration is negative' );
+}
+
+{
+ my $dur = DateTime::Duration->new( days => 0 );
+ is( $dur->delta_days, 0, 'delta_days is 0' );
+ ok( !$dur->is_positive, 'not positive' );
+ ok( $dur->is_zero, 'is zero' );
+ ok( !$dur->is_negative, 'not negative' );
+}
+
+{
+ my $dur = DateTime::Duration->new( days => 29 );
+
+ like(
+ exception {
+ $dur * 5.3
+ },
+ qr/Validation failed/,
+ 'non integer multiplication'
+ );
+}
+
+{
+ is(
+ exception {
+ DateTime::Duration->new( months => 3 )->add( hours => -3 )
+ ->add( minutes => 1 );
+ },
+ undef,
+ 'method chaining should work'
+ );
+}
+
+{
+ my $min_1 = DateTime::Duration->new( minutes => 1 );
+ my $hour_1 = DateTime::Duration->new( hours => 1 );
+
+ my $min_59 = $hour_1 - $min_1;
+
+ is( $min_59->delta_months, 0, 'delta_months is 0' );
+ is( $min_59->delta_days, 0, 'delta_days is 0' );
+ is( $min_59->delta_minutes, 59, 'delta_minutes is 59' );
+ is( $min_59->delta_seconds, 0, 'delta_seconds is 0' );
+ is( $min_59->delta_nanoseconds, 0, 'delta_nanoseconds is 0' );
+
+ my $min_neg_59 = $min_1 - $hour_1;
+
+ is( $min_neg_59->delta_months, 0, 'delta_months is 0' );
+ is( $min_neg_59->delta_days, 0, 'delta_days is 0' );
+ is( $min_neg_59->delta_minutes, -59, 'delta_minutes is -59' );
+ is( $min_neg_59->delta_seconds, 0, 'delta_seconds is 0' );
+ is( $min_neg_59->delta_nanoseconds, 0, 'delta_nanoseconds is 0' );
+}
+
+{
+ my $dur1 = DateTime::Duration->new( minutes => 10 );
+ my $dur2 = DateTime::Duration->new( minutes => 20 );
+
+ like(
+ exception { 1 if $dur1 <=> $dur2 },
+ qr/does not overload comparison/,
+ 'check error for duration comparison overload'
+ );
+
+ is(
+ DateTime::Duration->compare( $dur1, $dur2 ), -1,
+ '20 minutes is greater than 10 minutes'
+ );
+
+ is(
+ DateTime::Duration->compare(
+ $dur1, $dur2, DateTime->new( year => 1 )
+ ),
+ -1,
+ '20 minutes is greater than 10 minutes'
+ );
+}
+
+{
+ my $dur1 = DateTime::Duration->new( days => 29 );
+ my $dur2 = DateTime::Duration->new( months => 1 );
+
+ my $base = DateTime->new( year => 2004 );
+ is(
+ DateTime::Duration->compare( $dur1, $dur2, $base ), -1,
+ '29 days is less than 1 month with base of 2004-01-01'
+ );
+
+ $base = DateTime->new( year => 2004, month => 2 );
+ is(
+ DateTime::Duration->compare( $dur1, $dur2, $base ), 0,
+ '29 days is equal to 1 month with base of 2004-02-01'
+ );
+
+ $base = DateTime->new( year => 2005, month => 2 );
+ is(
+ DateTime::Duration->compare( $dur1, $dur2, $base ), 1,
+ '29 days is greater than 1 month with base of 2005-02-01'
+ );
+}
+
+{
+ my $dur1 = DateTime::Duration->new(
+ nanoseconds => 1_000,
+ seconds => 1,
+ );
+
+ my $dur2 = $dur1->clone->subtract( nanoseconds => 5_000 );
+
+ is( $dur2->delta_seconds, 0, 'normalize nanoseconds to positive' );
+ is(
+ $dur2->delta_nanoseconds, 999_996_000,
+ 'normalize nanoseconds to positive'
+ );
+
+ my $dur3 = $dur1->clone->subtract( nanoseconds => 6_000 )
+ ->subtract( nanoseconds => 999_999_000 );
+
+ is( $dur3->delta_seconds, 0, 'normalize nanoseconds to negative' );
+ is(
+ $dur3->delta_nanoseconds, -4_000,
+ 'normalize nanoseconds to negative'
+ );
+
+ my $dur4 = DateTime::Duration->new(
+ seconds => -1,
+ nanoseconds => -2_500_000_000
+ );
+
+ is( $dur4->delta_seconds, -3, 'normalize many negative nanoseconds' );
+ is(
+ $dur4->delta_nanoseconds, -500_000_000,
+ 'normalize many negative nanoseconds'
+ );
+}
+
+{
+ my $dur = DateTime::Duration->new(
+ minutes => 30,
+ seconds => -1,
+ );
+
+ ok( !$dur->is_positive, 'is not positive' );
+ ok( !$dur->is_zero, 'is not zero' );
+ ok( !$dur->is_negative, 'is not negative' );
+}
+
+{
+ my $dur = DateTime::Duration->new( minutes => 50 );
+
+ is( $dur->in_units('years'), 0, 'in_units returns 0 for years' );
+ is( $dur->in_units('months'), 0, 'in_units returns 0 for months' );
+ is( $dur->in_units('days'), 0, 'in_units returns 0 for days' );
+ is( $dur->in_units('hours'), 0, 'in_units returns 0 for hours' );
+ is( $dur->in_units('seconds'), 0, 'in_units returns 0 for seconds' );
+ is(
+ $dur->in_units('nanoseconds'), 0,
+ 'in_units returns 0 for nanoseconds'
+ );
+}
+
+{
+ local $TODO = 'reject fractional units in DateTime::Duration->new';
+
+ like(
+ exception { DateTime::Duration->new( minutes => 50.2 ) },
+ qr/is an integer/,
+ 'cannot create a duration with fractional units'
+ );
+}
+
+done_testing();
+
--- /dev/null
+BEGIN {
+ $ENV{PERL_DATETIME_PP} = 1;
+}
+
+use strict;
+use warnings;
+
+use Test::More;
+
+use DateTime;
+
+undef $ENV{PERL_DATETIME_DEFAULT_TZ};
+
+my @tests = (
+ [ [ 1964, 12, 31 ], [ 1964, 53 ] ],
+ [ [ 1965, 1, 1 ], [ 1964, 53 ] ],
+ [ [ 1971, 9, 7 ], [ 1971, 36 ] ],
+ [ [ 1971, 10, 25 ], [ 1971, 43 ] ],
+ [ [ 1995, 1, 1 ], [ 1994, 52 ] ],
+ [ [ 1995, 11, 18 ], [ 1995, 46 ] ],
+ [ [ 1995, 12, 31 ], [ 1995, 52 ] ],
+ [ [ 1996, 12, 31 ], [ 1997, 1 ] ],
+ [ [ 2001, 4, 28 ], [ 2001, 17 ] ],
+ [ [ 2001, 8, 2 ], [ 2001, 31 ] ],
+ [ [ 2001, 9, 11 ], [ 2001, 37 ] ],
+ [ [ 2002, 12, 25 ], [ 2002, 52 ] ],
+ [ [ 2002, 12, 31 ], [ 2003, 1 ] ],
+ [ [ 2003, 1, 1 ], [ 2003, 1 ] ],
+ [ [ 2003, 12, 31 ], [ 2004, 1 ] ],
+ [ [ 2004, 1, 1 ], [ 2004, 1 ] ],
+ [ [ 2004, 12, 31 ], [ 2004, 53 ] ],
+ [ [ 2005, 1, 1 ], [ 2004, 53 ] ],
+ [ [ 2005, 12, 31 ], [ 2005, 52 ] ],
+ [ [ 2006, 1, 1 ], [ 2005, 52 ] ],
+ [ [ 2006, 12, 31 ], [ 2006, 52 ] ],
+ [ [ 2007, 1, 1 ], [ 2007, 1 ] ],
+ [ [ 2007, 12, 31 ], [ 2008, 1 ] ],
+ [ [ 2008, 1, 1 ], [ 2008, 1 ] ],
+ [ [ 2008, 12, 31 ], [ 2009, 1 ] ],
+ [ [ 2009, 1, 1 ], [ 2009, 1 ] ],
+);
+
+foreach my $test (@tests) {
+ my @args = @{ $test->[0] };
+ my @results = @{ $test->[1] };
+
+ my $dt = DateTime->new(
+ year => $args[0],
+ month => $args[1],
+ day => $args[2],
+ time_zone => 'UTC',
+ );
+
+ my ( $year, $week ) = $dt->week();
+
+ is( "$year-W$week", "$results[0]-W$results[1]", 'week for ' . $dt->ymd );
+}
+
+done_testing();
+
--- /dev/null
+BEGIN {
+ $ENV{PERL_DATETIME_PP} = 1;
+}
+
+# test suite stolen shamelessly from TimeDate distro
+use strict;
+use warnings;
+use utf8;
+
+use Test::More 0.96;
+
+use DateTime;
+use DateTime::Locale;
+
+undef $ENV{PERL_DATETIME_DEFAULT_TZ};
+
+for my $o (
+ Test::Builder->new->output,
+ Test::Builder->new->failure_output,
+ Test::Builder->new->todo_output
+) {
+
+ binmode $o, ':encoding(UTF-8)' or die $!;
+}
+
+test_strftime_for_locale( 'en-US', en_tests() );
+test_strftime_for_locale( 'de', de_tests() );
+test_strftime_for_locale( 'it', it_tests() );
+
+subtest(
+ 'strftime with multiple params',
+ sub {
+ my $dt = DateTime->new(
+ year => 1800,
+ month => 1,
+ day => 10,
+ time_zone => 'UTC',
+ );
+
+ my ( $y, $d ) = $dt->strftime( '%Y', '%d' );
+ is( $y, 1800, 'first value is year' );
+ is( $d, 10, 'second value is day' );
+
+ $y = $dt->strftime( '%Y', '%d' );
+ is( $y, 1800, 'scalar context returns year' );
+ }
+);
+
+subtest(
+ 'hour formatting',
+ sub {
+ my $dt = DateTime->new(
+ year => 2003,
+ hour => 0,
+ minute => 0
+ );
+
+ is(
+ $dt->strftime('%I %M %p'), '12 00 AM',
+ 'formatting of hours as 1-12'
+ );
+ is(
+ $dt->strftime('%l %M %p'), '12 00 AM',
+ 'formatting of hours as 1-12'
+ );
+
+ $dt->set( hour => 1 );
+ is(
+ $dt->strftime('%I %M %p'), '01 00 AM',
+ 'formatting of hours as 1-12'
+ );
+ is(
+ $dt->strftime('%l %M %p'), ' 1 00 AM',
+ 'formatting of hours as 1-12'
+ );
+
+ $dt->set( hour => 11 );
+ is(
+ $dt->strftime('%I %M %p'), '11 00 AM',
+ 'formatting of hours as 1-12'
+ );
+ is(
+ $dt->strftime('%l %M %p'), '11 00 AM',
+ 'formatting of hours as 1-12'
+ );
+
+ $dt->set( hour => 12 );
+ is(
+ $dt->strftime('%I %M %p'), '12 00 PM',
+ 'formatting of hours as 1-12'
+ );
+ is(
+ $dt->strftime('%l %M %p'), '12 00 PM',
+ 'formatting of hours as 1-12'
+ );
+
+ $dt->set( hour => 13 );
+ is(
+ $dt->strftime('%I %M %p'), '01 00 PM',
+ 'formatting of hours as 1-12'
+ );
+ is(
+ $dt->strftime('%l %M %p'), ' 1 00 PM',
+ 'formatting of hours as 1-12'
+ );
+
+ $dt->set( hour => 23 );
+ is(
+ $dt->strftime('%I %M %p'), '11 00 PM',
+ 'formatting of hours as 1-12'
+ );
+ is(
+ $dt->strftime('%l %M %p'), '11 00 PM',
+ 'formatting of hours as 1-12'
+ );
+
+ $dt->set( hour => 0 );
+ is(
+ $dt->strftime('%I %M %p'), '12 00 AM',
+ 'formatting of hours as 1-12'
+ );
+ is(
+ $dt->strftime('%l %M %p'), '12 00 AM',
+ 'formatting of hours as 1-12'
+ );
+ }
+);
+
+subtest(
+ '%V',
+ sub {
+ is(
+ DateTime->new( year => 2003, month => 1, day => 1 )
+ ->strftime('%V'),
+ '01', '%V is 01'
+ );
+ }
+);
+
+subtest(
+ '%% and %{method}',
+ sub {
+ my $dt = DateTime->new(
+ year => 2004, month => 8, day => 16,
+ hour => 15, minute => 30, nanosecond => 123456789,
+ locale => 'en',
+ );
+
+ # Should print '%{day_name}', prints '30onday'!
+ is(
+ $dt->strftime('%%{day_name}%n'), "%{day_name}\n",
+ '%%{day_name}%n bug'
+ );
+
+ # Should print '%6N', prints '123456'
+ is( $dt->strftime('%%6N%n'), "%6N\n", '%%6N%n bug' );
+ }
+);
+
+subtest(
+ 'nanosecond formatting',
+ sub {
+ subtest(
+ 'nanosecond floating point rounding',
+ sub {
+ # Internally this becomes 119999885 nanoseconds (floating point math is awesome)
+ my $epoch = 1297777805.12;
+ my $dt = DateTime->from_epoch( epoch => $epoch );
+
+ my @vals = (
+ 1,
+ 12,
+ 120,
+ 1200,
+ 12000,
+ 120000,
+ 1200000,
+ 12000000,
+ 120000000,
+ 1200000000,
+ );
+
+ my $x = 1;
+ for my $val (@vals) {
+ my $spec = '%' . $x++ . 'N';
+ is(
+ $dt->strftime($spec), $val,
+ "strftime($spec) for $epoch == $val"
+ );
+ }
+ }
+ );
+ subtest(
+ 'nanosecond rounding in strftime',
+ sub {
+ my $dt = DateTime->new(
+ 'year' => 1999,
+ month => 9,
+ day => 7,
+ hour => 13,
+ minute => 2,
+ second => 42,
+ nanosecond => 12345678,
+ );
+
+ my %tests = (
+ '%N' => '012345678',
+ '%3N' => '012',
+ '%6N' => '012345',
+ '%10N' => '0123456780',
+ );
+ for my $fmt ( sort { lc $a cmp lc $b } keys %tests ) {
+ is(
+ $dt->strftime($fmt), $tests{$fmt},
+ "$fmt is $tests{$fmt}"
+ );
+ }
+ }
+ );
+ }
+);
+
+subtest(
+ '0 nanoseconds',
+ sub {
+ my $dt = DateTime->new( year => 2011 );
+
+ for my $i ( 1 .. 9 ) {
+ my $spec = '%' . $i . 'N';
+ my $expect = '0' x $i;
+
+ is(
+ $dt->strftime($spec), $expect,
+ "strftime $spec with 0 nanoseconds"
+ );
+ }
+ }
+);
+
+subtest(
+ 'week-year formatting',
+ sub {
+ my $dt = DateTime->new( 'year' => 2012, month => 1, day => 1 );
+ subtest(
+ $dt->ymd,
+ sub {
+ my %tests = (
+ '%U' => '01',
+ '%W' => '00',
+ '%j' => '001',
+ );
+ for my $fmt ( sort { lc $a cmp lc $b } keys %tests ) {
+ is(
+ $dt->strftime($fmt), $tests{$fmt},
+ "$fmt is $tests{$fmt}"
+ );
+ }
+ }
+ );
+
+ $dt = DateTime->new( 'year' => 2012, month => 1, day => 10 );
+ subtest(
+ $dt->ymd,
+ sub {
+ my %tests = (
+ '%U' => '02',
+ '%W' => '02',
+ '%j' => '010',
+ );
+ for my $fmt ( sort { lc $a cmp lc $b } keys %tests ) {
+ is(
+ $dt->strftime($fmt), $tests{$fmt},
+ "$fmt is $tests{$fmt}"
+ );
+ }
+ }
+ );
+ }
+);
+
+subtest(
+ '%F with 3 digit years',
+ sub {
+ my $dt = DateTime->new( year => 123 );
+ is(
+ $dt->strftime('%F'),
+ '123-01-01',
+ '%F does not zero-pad 3 digit year'
+ );
+ }
+);
+
+done_testing();
+
+sub test_strftime_for_locale {
+ my $locale = shift;
+ my $tests = shift;
+
+ my $dt = DateTime->new(
+ year => 1999,
+ month => 9,
+ day => 7,
+ hour => 13,
+ minute => 2,
+ second => 42,
+ nanosecond => 123456789,
+ time_zone => 'UTC',
+ locale => $locale,
+ );
+
+ subtest(
+ $locale,
+ sub {
+ for my $fmt ( sort { lc $a cmp lc $b } keys %{$tests} ) {
+ is(
+ $dt->strftime($fmt),
+ $tests->{$fmt},
+ "$fmt is $tests->{$fmt}"
+ );
+ }
+ }
+ );
+}
+
+sub en_tests {
+ my $en_locale = DateTime::Locale->load('en-US');
+
+ my $c_format = $en_locale->datetime_format;
+ $c_format
+ =~ s/\{1\}/$en_locale->month_format_abbreviated->[8] . ' 7, 1999'/e;
+ my $pm = $en_locale->am_pm_abbreviated->[1];
+ $c_format =~ s/\{0\}/'1:02:42 ' . $pm/e;
+
+ my %tests = (
+ '%%' => '%',
+ '%10N' => '1234567890',
+ '%3N' => '123',
+ '%6N' => '123456',
+ '%a' => $en_locale->day_format_abbreviated->[1],
+ '%A' => $en_locale->day_format_wide->[1],
+ '%b' => $en_locale->month_format_abbreviated->[8],
+ '%B' => $en_locale->month_format_wide->[8],
+ '%c' => $c_format,
+ '%C' => '19',
+ '%d' => '07',
+ '%D' => '09/07/99',
+ '%e' => ' 7',
+ '%E' => '%E',
+ '%F' => '1999-09-07',
+ '%G' => '1999',
+ '%g' => '99',
+ '%h' => $en_locale->month_format_abbreviated->[8],
+ '%H' => '13',
+ '%I' => '01',
+ '%j' => '250',
+ '%k' => '13',
+ '%l' => ' 1',
+ '%m' => '09',
+ '%M' => '02',
+ '%n' => "\n",
+ '%N' => '123456789',
+ '%p' => $pm,
+ '%P' => lc $pm,
+ '%r' => '01:02:42 ' . $pm,
+ '%R' => '13:02',
+ '%s' => '936709362',
+ '%S' => '42',
+ '%t' => "\t",
+ '%T' => '13:02:42',
+ '%u' => '2',
+ '%U' => '36',
+ '%V' => '36',
+ '%w' => '2',
+ '%W' => '36',
+ '%x' => $en_locale->month_format_abbreviated->[8] . ' 7, 1999',
+ '%X' => '1:02:42 ' . $pm,
+ '%y' => '99',
+ '%Y' => '1999',
+ '%z' => '+0000',
+ '%Z' => 'UTC',
+ '%{foobar}' => '%{foobar}',
+ '%{month}' => '9',
+ '%{year}' => '1999',
+ );
+ if ( DateTime::Locale->VERSION >= 1.37 ) {
+ for my $key ( '%c', '%X' ) {
+ $tests{$key} =~ s/ (\Q$pm\E)/\N{U+202F}$1/;
+ }
+ }
+
+ return \%tests;
+}
+
+sub de_tests {
+ my $de_locale = DateTime::Locale->load('de');
+ return {
+ '%%' => '%',
+ '%a' => $de_locale->day_format_abbreviated->[1],
+ '%A' => $de_locale->day_format_wide->[1],
+ '%b' => $de_locale->month_format_abbreviated->[8],
+ '%B' => $de_locale->month_format_wide->[8],
+ '%C' => '19',
+ '%d' => '07',
+ '%D' => '09/07/99',
+ '%e' => ' 7',
+ '%H' => '13',
+ '%I' => '01',
+ '%j' => '250',
+ '%k' => '13',
+ '%l' => ' 1',
+ '%M' => '02',
+ '%m' => '09',
+ '%p' => $de_locale->am_pm_abbreviated->[1],
+ '%r' => '01:02:42 ' . $de_locale->am_pm_abbreviated->[1],
+ '%R' => '13:02',
+ '%S' => '42',
+ '%s' => '936709362',
+ '%T' => '13:02:42',
+ '%U' => '36',
+ '%V' => '36',
+ '%w' => '2',
+ '%W' => '36',
+ '%Y' => '1999',
+ '%y' => '99',
+ '%z' => '+0000',
+ '%Z' => 'UTC',
+ '%{month}' => '9',
+ '%{year}' => '1999',
+ };
+}
+
+sub it_tests {
+ my $it_locale = DateTime::Locale->load('it');
+ return {
+ '%%' => '%',
+ '%a' => $it_locale->day_format_abbreviated->[1],
+ '%A' => $it_locale->day_format_wide->[1],
+ '%b' => $it_locale->month_format_abbreviated->[8],
+ '%b' => $it_locale->month_format_abbreviated->[8],
+ '%B' => $it_locale->month_format_wide->[8],
+ '%C' => '19',
+ '%d' => '07',
+ '%D' => '09/07/99',
+ '%e' => ' 7',
+ '%H' => '13',
+ '%I' => '01',
+ '%j' => '250',
+ '%k' => '13',
+ '%l' => ' 1',
+ '%M' => '02',
+ '%m' => '09',
+ '%p' => $it_locale->am_pm_abbreviated->[1],
+ '%r' => '01:02:42 ' . $it_locale->am_pm_abbreviated->[1],
+ '%R' => '13:02',
+ '%S' => '42',
+ '%s' => '936709362',
+ '%T' => '13:02:42',
+ '%U' => '36',
+ '%V' => '36',
+ '%w' => '2',
+ '%W' => '36',
+ '%Y' => '1999',
+ '%y' => '99',
+ '%z' => '+0000',
+ '%Z' => 'UTC',
+ '%{month}' => '9',
+ '%{year}' => '1999',
+ };
+}
+
--- /dev/null
+BEGIN {
+ $ENV{PERL_DATETIME_PP} = 1;
+}
+
+use strict;
+use warnings;
+
+use Test::Fatal;
+use Test::More;
+
+use DateTime;
+use DateTime::Locale;
+
+undef $ENV{PERL_DATETIME_DEFAULT_TZ};
+
+is(
+ exception { DateTime->new( year => 100, locale => 'en_US' ) },
+ undef,
+ 'make sure new accepts locale parameter'
+);
+
+is(
+ exception { DateTime->now( locale => 'en_US' ) },
+ undef,
+ 'make sure now accepts locale parameter'
+);
+
+is(
+ exception { DateTime->today( locale => 'en_US' ) },
+ undef,
+ 'make sure today accepts locale parameter'
+);
+
+is(
+ exception { DateTime->from_epoch( epoch => 1, locale => 'en_US' ) },
+ undef,
+ 'make sure from_epoch accepts locale parameter'
+);
+
+is(
+ exception {
+ DateTime->last_day_of_month(
+ year => 100, month => 2,
+ locale => 'en_US'
+ );
+ },
+ undef,
+ 'make sure last_day_of_month accepts locale parameter'
+);
+
+{
+
+ package DT::Object;
+ sub utc_rd_values { ( 0, 0 ) }
+}
+
+is(
+ exception {
+ DateTime->from_object(
+ object => ( bless {}, 'DT::Object' ),
+ locale => 'en_US'
+ );
+ },
+ undef,
+ ,
+ 'make sure constructor accepts locale parameter'
+);
+
+is(
+ exception {
+ DateTime->new(
+ year => 100,
+ locale => DateTime::Locale->load('en_US')
+ );
+ },
+ undef,
+ 'make sure constructor accepts locale parameter as object'
+);
+
+DateTime->DefaultLocale('it');
+is( DateTime->now->locale->id, 'it', 'default locale should now be "it"' );
+
+{
+ my $dt = DateTime->new(
+ year => 2013, month => 10, day => 27, hour => 0,
+ time_zone => 'UTC'
+ );
+
+ my $after_zone = $dt->clone()->set_time_zone('Europe/Rome');
+
+ is(
+ $after_zone->offset(),
+ '7200',
+ 'offset is 7200 after set_time_zone()'
+ );
+
+ my $after_locale
+ = $dt->clone()->set_time_zone('Europe/Rome')->set_locale('en_GB');
+
+ is(
+ $after_locale->offset(),
+ '7200',
+ 'offset is 7200 after set_time_zone() and set_locale()'
+ );
+}
+
+done_testing();
+
--- /dev/null
+BEGIN {
+ $ENV{PERL_DATETIME_PP} = 1;
+}
+
+use strict;
+use warnings;
+
+use Test::More;
+
+use DateTime;
+
+undef $ENV{PERL_DATETIME_DEFAULT_TZ};
+
+# Borrowed from Matt Sergeant's Time::Piece
+
+# A table of MJD and components
+my @mjd = (
+ '51603.524' => {
+ year => 2000,
+ month => 2,
+ day => 29,
+ hour => 12,
+ minute => 34,
+ second => 56,
+ },
+
+ '40598.574' => {
+ year => 1970,
+ month => 1,
+ day => 12,
+ hour => 13,
+ minute => 46,
+ second => 51,
+ },
+
+ '52411.140' => {
+ year => 2002,
+ month => 5,
+ day => 17,
+ hour => 3,
+ minute => 21,
+ second => 43,
+ },
+
+ '53568.547' => {
+ year => 2005,
+ month => 7,
+ day => 17,
+ hour => 13,
+ minute => 8,
+ second => 23,
+ },
+
+ '52295.218' => {
+ year => 2002,
+ month => 1,
+ day => 21,
+ hour => 5,
+ minute => 13,
+ second => 20,
+ },
+
+ '52295.399' => {
+ year => 2002,
+ month => 1,
+ day => 21,
+ hour => 9,
+ minute => 35,
+ second => 3,
+ },
+
+ # beginning of MJD
+ '0.000' => {
+ year => 1858,
+ month => 11,
+ day => 17,
+ hour => 0,
+ minute => 0,
+ second => 0,
+ },
+
+ # beginning of JD
+ '-2400000.500' => {
+ year => -4713,
+ month => 11,
+ day => 24,
+ hour => 12,
+ minute => 0,
+ second => 0,
+ },
+);
+
+while ( my ( $mjd, $comps ) = splice @mjd, 0, 2 ) {
+ my $dt = DateTime->new(
+ %$comps,
+ time_zone => 'UTC',
+ );
+
+ is( sprintf( '%.3f', $dt->mjd ), $mjd, "MJD should be $mjd" );
+
+ my $jd = sprintf( '%.3f', $mjd + 2_400_000.5 );
+ is( sprintf( '%.3f', $dt->jd ), $jd, "JD should be $jd" );
+}
+
+done_testing();
+
--- /dev/null
+BEGIN {
+ $ENV{PERL_DATETIME_PP} = 1;
+}
+
+## no critic (Modules::ProhibitExcessMainComplexity)
+use strict;
+use warnings;
+
+use Test::Fatal;
+use Test::More 0.88;
+
+use DateTime;
+use Try::Tiny;
+
+undef $ENV{PERL_DATETIME_DEFAULT_TZ};
+
+my %vals = (
+ year => 50,
+ month => 3,
+ day => 15,
+ hour => 10,
+ minute => 55,
+ second => 17,
+ nanosecond => 1234,
+);
+
+{
+ my $dt = DateTime->new(%vals);
+ $dt->truncate( to => 'second' );
+ foreach my $f (qw( year month day hour minute second )) {
+ is( $dt->$f(), $vals{$f}, "$f should be $vals{$f}" );
+ }
+
+ foreach my $f (qw( nanosecond )) {
+ is( $dt->$f(), 0, "$f should be 0" );
+ }
+}
+
+{
+ my $dt = DateTime->new(%vals);
+ $dt->truncate( to => 'minute' );
+ foreach my $f (qw( year month day hour minute )) {
+ is( $dt->$f(), $vals{$f}, "$f should be $vals{$f}" );
+ }
+
+ foreach my $f (qw( second nanosecond )) {
+ is( $dt->$f(), 0, "$f should be 0" );
+ }
+}
+
+{
+ my $dt = DateTime->new(%vals);
+ $dt->truncate( to => 'hour' );
+ foreach my $f (qw( year month day hour )) {
+ is( $dt->$f(), $vals{$f}, "$f should be $vals{$f}" );
+ }
+
+ foreach my $f (qw( minute second nanosecond )) {
+ is( $dt->$f(), 0, "$f should be 0" );
+ }
+}
+
+{
+ my $dt = DateTime->new(%vals);
+ $dt->truncate( to => 'day' );
+ foreach my $f (qw( year month day )) {
+ is( $dt->$f(), $vals{$f}, "$f should be $vals{$f}" );
+ }
+
+ foreach my $f (qw( hour minute second nanosecond )) {
+ is( $dt->$f(), 0, "$f should be 0" );
+ }
+}
+
+{
+ my $dt = DateTime->new(%vals);
+ $dt->truncate( to => 'month' );
+ foreach my $f (qw( year month )) {
+ is( $dt->$f(), $vals{$f}, "$f should be $vals{$f}" );
+ }
+
+ foreach my $f (qw( day )) {
+ is( $dt->$f(), 1, "$f should be 1" );
+ }
+
+ foreach my $f (qw( hour minute second nanosecond )) {
+ is( $dt->$f(), 0, "$f should be 0" );
+ }
+}
+
+{
+ my $dt = DateTime->new(%vals);
+ $dt->truncate( to => 'year' );
+ foreach my $f (qw( year )) {
+ is( $dt->$f(), $vals{$f}, "$f should be $vals{$f}" );
+ }
+
+ foreach my $f (qw( month day )) {
+ is( $dt->$f(), 1, "$f should be 1" );
+ }
+
+ foreach my $f (qw( hour minute second nanosecond )) {
+ is( $dt->$f(), 0, "$f should be 0" );
+ }
+}
+
+{
+ my $dt = DateTime->new( year => 2003, month => 11, day => 17 );
+
+ for ( 1 .. 6 ) {
+ my $trunc = $dt->clone->add( days => $_ )->truncate( to => 'week' );
+
+ is(
+ $trunc->day, 17,
+ 'truncate to week should always truncate to monday of week'
+ );
+ }
+
+ {
+ my $trunc = $dt->clone->add( days => 7 )->truncate( to => 'week' );
+
+ is(
+ $trunc->day, 24,
+ 'truncate to week should always truncate to monday of week'
+ );
+ }
+}
+
+{
+ my $dt = DateTime->new( year => 2003, month => 10, day => 2 )
+ ->truncate( to => 'week' );
+
+ is( $dt->year, 2003, 'truncation to week across month boundary' );
+ is( $dt->month, 9, 'truncation to week across month boundary' );
+ is( $dt->day, 29, 'truncation to week across month boundary' );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 2013, month => 12, day => 16,
+ locale => 'fr_FR'
+ );
+
+ for ( 1 .. 6 ) {
+ my $trunc
+ = $dt->clone->add( days => $_ )->truncate( to => 'local_week' );
+
+ is(
+ $trunc->day, 16,
+ 'truncate to local_week returns correct date - locale start is Monday'
+ );
+ }
+
+ {
+ my $trunc
+ = $dt->clone->add( days => 7 )->truncate( to => 'local_week' );
+
+ is(
+ $trunc->day, 23,
+ 'truncate to local_week returns correct date - locale start is Monday'
+ );
+ }
+}
+
+{
+ my $dt = DateTime->new(
+ year => 2013, month => 11, day => 2,
+ locale => 'fr_FR'
+ )->truncate( to => 'local_week' );
+
+ is(
+ $dt->year, 2013,
+ 'truncation to local_week across month boundary - locale start is Monday'
+ );
+ is(
+ $dt->month, 10,
+ 'truncation to local_week across month boundary - locale start is Monday'
+ );
+ is(
+ $dt->day, 28,
+ 'truncation to local_week across month boundary - locale start is Monday'
+ );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 2013, month => 12, day => 15,
+ locale => 'en_US'
+ );
+
+ for ( 1 .. 6 ) {
+ my $trunc
+ = $dt->clone->add( days => $_ )->truncate( to => 'local_week' );
+
+ is(
+ $trunc->day, 15,
+ 'truncate to local_week returns correct date - locale start is Sunday'
+ );
+ }
+
+ {
+ my $trunc
+ = $dt->clone->add( days => 7 )->truncate( to => 'local_week' );
+
+ is(
+ $trunc->day, 22,
+ 'truncate to local_week returns correct date - locale start is Sunday'
+ );
+ }
+}
+
+{
+ my $dt = DateTime->new(
+ year => 2013, month => 11, day => 2,
+ locale => 'en_US'
+ )->truncate( to => 'local_week' );
+
+ is(
+ $dt->year, 2013,
+ 'truncation to local_week across month boundary - locale start is Sunday'
+ );
+ is(
+ $dt->month, 10,
+ 'truncation to local_week across month boundary - locale start is Sunday'
+ );
+ is(
+ $dt->day, 27,
+ 'truncation to local_week across month boundary - locale start is Sunday'
+ );
+}
+
+{
+ my %months_to_quarter = (
+ 1 => 1,
+ 2 => 1,
+ 3 => 1,
+ 4 => 4,
+ 5 => 4,
+ 6 => 4,
+ 7 => 7,
+ 8 => 7,
+ 9 => 7,
+ 10 => 10,
+ 11 => 10,
+ 12 => 10,
+ );
+
+ for my $year ( -1, 100, 2016 ) {
+ for my $month ( sort keys %months_to_quarter ) {
+ for my $day ( 1, 15, 27 ) {
+ my $dt = DateTime->new(
+ year => $year,
+ month => $month,
+ day => $day,
+ );
+ subtest(
+ 'truncate to quarter - ' . $dt->ymd,
+ sub {
+ $dt->truncate( to => 'quarter' );
+ is(
+ $dt->year,
+ $year,
+ 'year is unchanged'
+ );
+ is(
+ $dt->month,
+ $months_to_quarter{$month},
+ "month $month becomes month $months_to_quarter{$month}"
+ );
+ is(
+ $dt->day,
+ 1,
+ 'day is always 1'
+ );
+ is(
+ $dt->hour,
+ 0,
+ 'hour is always 0'
+ );
+ is(
+ $dt->minute,
+ 0,
+ 'minute is always 0'
+ );
+ is(
+ $dt->second,
+ 0,
+ 'second is always 0'
+ );
+ is(
+ $dt->nanosecond,
+ 0,
+ 'nanosecond is always 0'
+ );
+ }
+ );
+ }
+ }
+ }
+}
+
+{
+ my $dt = DateTime->new(%vals);
+
+ for my $bad (qw( seconds minutes year_foo month_bar )) {
+ like(
+ exception { $dt->truncate( to => $bad ) },
+ qr/Validation failed for type named TruncationLevel/,
+ "bad truncate parameter ($bad) throws an error"
+ );
+ }
+}
+
+{
+ my $dt = DateTime->new(
+ year => 2010,
+ month => 3,
+ day => 25,
+ hour => 1,
+ minute => 5,
+ time_zone => 'Asia/Tehran',
+ );
+
+ is(
+ $dt->day_of_week(),
+ 4,
+ 'day of week is Thursday'
+ );
+
+ my $error;
+ try {
+ $dt->truncate( to => 'week' );
+ }
+ catch {
+ $error = $_;
+ };
+
+ like(
+ $error,
+ qr/Invalid local time for date/,
+ 'truncate operation threw an error because of an invalid local datetime'
+ );
+
+ is(
+ $dt->day_of_week(),
+ 4,
+ 'day of week does not change after failed truncate() call'
+ );
+}
+
+done_testing();
+
--- /dev/null
+BEGIN {
+ $ENV{PERL_DATETIME_PP} = 1;
+}
+
+use strict;
+use warnings;
+
+use Test::More;
+
+use DateTime;
+use DateTime::Duration;
+
+undef $ENV{PERL_DATETIME_DEFAULT_TZ};
+
+{
+ my $dt = DateTime->new( year => 2008, month => 2, day => 28 );
+ my $du = DateTime::Duration->new( years => 1 );
+
+ my $p;
+
+ $p = $dt->set( year => 1882 );
+ is( DateTime->compare( $p, $dt ), 0, 'set returns self' );
+
+ $p = $dt->set_time_zone('Australia/Sydney');
+ is( DateTime->compare( $p, $dt ), 0, 'set_time_zone returns self' );
+
+ $p = $dt->add_duration($du);
+ is( DateTime->compare( $p, $dt ), 0, 'add_duration returns self' );
+
+ $p = $dt->add( years => 2 );
+ is( DateTime->compare( $p, $dt ), 0, 'add returns self' );
+
+ $p = $dt->subtract_duration($du);
+ is( DateTime->compare( $p, $dt ), 0, 'subtract_duration returns self' );
+
+ $p = $dt->subtract( years => 3 );
+ is( DateTime->compare( $p, $dt ), 0, 'subtract returns self' );
+
+ $p = $dt->truncate( to => 'day' );
+ is( DateTime->compare( $p, $dt ), 0, 'truncate returns self' );
+
+}
+
+done_testing();
+
--- /dev/null
+BEGIN {
+ $ENV{PERL_DATETIME_PP} = 1;
+}
+
+use strict;
+use warnings;
+
+use Test::More;
+
+use DateTime;
+
+undef $ENV{PERL_DATETIME_DEFAULT_TZ};
+
+{
+ my $now = DateTime->now;
+ my $today = DateTime->today;
+
+ is( $today->year, $now->year, 'today->year' );
+ is( $today->month, $now->month, 'today->month' );
+ is( $today->day, $now->day, 'today->day' );
+
+ is( $today->hour, 0, 'today->hour' );
+ is( $today->minute, 0, 'today->hour' );
+ is( $today->second, 0, 'today->hour' );
+}
+
+done_testing();
+
--- /dev/null
+BEGIN {
+ $ENV{PERL_DATETIME_PP} = 1;
+}
+
+use strict;
+use warnings;
+
+use Test::Fatal;
+use Test::More;
+use DateTime;
+use DateTime::LeapSecond;
+
+undef $ENV{PERL_DATETIME_DEFAULT_TZ};
+
+# tests using UTC times
+{
+
+ # 1972-06-30T23:58:20 UTC
+ my $t = DateTime->new(
+ year => 1972, month => 6, day => 30,
+ hour => 23, minute => 58, second => 20,
+ time_zone => 'UTC',
+ );
+ my $t1 = $t->clone;
+
+ is( $t->year, 1972, 'year is 1972' );
+ is( $t->minute, 58, 'minute is 58' );
+ is( $t->second, 20, 'second is 20' );
+
+ # 1972-06-30T23:59:20 UTC
+ $t->add( seconds => 60 );
+ is( $t->year, 1972, 'year is 1972' );
+ is( $t->minute, 59, 'minute is 59' );
+ is( $t->second, 20, 'second is 20' );
+
+ # 1972-07-01T00:00:19 UTC
+ $t->add( seconds => 60 );
+ is( $t->year, 1972, 'year is 1972' );
+ is( $t->minute, 0, 'minute is 0' );
+ is( $t->second, 19, 'second is 19' );
+
+ # 1972-06-30T23:59:60 UTC
+ $t->subtract( seconds => 20 );
+ is( $t->year, 1972, 'year is 1972' );
+ is( $t->minute, 59, 'minute is 59' );
+ is( $t->second, 60, 'second is 60' );
+ is( $t->{utc_rd_secs}, 86400, 'utc_rd_secs is 86400' );
+
+ # subtract_datetime
+ my $t2 = DateTime->new(
+ year => 1972, month => 7, day => 1,
+ hour => 0, minute => 0, second => 20,
+ time_zone => 'UTC',
+ );
+ my $dur = $t2->subtract_datetime_absolute($t1);
+ is( $dur->delta_seconds, 121, 'delta_seconds is 121' );
+
+ $dur = $t1->subtract_datetime_absolute($t2);
+ is( $dur->delta_seconds, -121, 'delta_seconds is -121' );
+}
+
+{
+
+ # tests using floating times
+ # a floating time has no leap seconds
+
+ my $t = DateTime->new(
+ year => 1971, month => 12, day => 31,
+ hour => 23, minute => 58, second => 20,
+ time_zone => 'floating',
+ );
+ my $t1 = $t->clone;
+
+ $t->add( seconds => 60 );
+ is( $t->minute, 59, 'min' );
+ is( $t->second, 20, 'sec' );
+
+ $t->add( seconds => 60 );
+ is( $t->minute, 0, 'min' );
+ is( $t->second, 20, 'sec' );
+
+ # subtract_datetime, using floating times
+
+ my $t2 = DateTime->new(
+ year => 1972, month => 1, day => 1,
+ hour => 0, minute => 0, second => 20,
+ time_zone => 'floating',
+ );
+ my $dur = $t2->subtract_datetime_absolute($t1);
+ is( $dur->delta_seconds, 120, 'delta_seconds is 120' );
+
+ $dur = $t1->subtract_datetime_absolute($t2);
+ is( $dur->delta_seconds, -120, 'delta_seconds is -120' );
+}
+
+{
+
+ # tests using time zones
+ # leap seconds occur during _UTC_ midnight
+
+ # 1972-06-30 20:58:20 -03:00 = 1972-06-30 23:58:20 UTC
+ my $t = DateTime->new(
+ year => 1972, month => 6, day => 30,
+ hour => 20, minute => 58, second => 20,
+ time_zone => 'America/Sao_Paulo',
+ );
+
+ $t->add( seconds => 60 );
+ is( $t->datetime, '1972-06-30T20:59:20', 'normal add' );
+ is( $t->minute, 59, 'min' );
+ is( $t->second, 20, 'sec' );
+
+ $t->add( seconds => 60 );
+ is( $t->datetime, '1972-06-30T21:00:19', 'add over a leap second' );
+ is( $t->minute, 0, 'min' );
+ is( $t->second, 19, 'sec' );
+
+ $t->subtract( seconds => 20 );
+ is( $t->datetime, '1972-06-30T20:59:60', 'subtract over a leap second' );
+ is( $t->minute, 59, 'min' );
+ is( $t->second, 60, 'sec' );
+ is( $t->{utc_rd_secs}, 86400, 'rd_sec' );
+}
+
+# test that we can set second to 60 (negative offset)
+{
+ my $t = DateTime->new(
+ year => 1972, month => 6, day => 30,
+ hour => 20, minute => 59, second => 60,
+ time_zone => 'America/Sao_Paulo',
+ );
+
+ is( $t->second, 60, 'second set to 60 in constructor' );
+}
+
+{
+ my $t = DateTime->new(
+ year => 1972, month => 6, day => 30,
+ hour => 21, minute => 0, second => 0,
+ time_zone => 'America/Sao_Paulo',
+ );
+
+ is( $t->second, 0, 'datetime just after leap second' );
+}
+
+{
+ my $t = DateTime->new(
+ year => 1972, month => 6, day => 30,
+ hour => 21, minute => 0, second => 1,
+ time_zone => 'America/Sao_Paulo',
+ );
+
+ is( $t->second, 1, 'datetime two seconds after leap second' );
+}
+
+# test that we can set second to 60 (negative offset)
+{
+ is(
+ exception {
+ my $t = DateTime->new(
+ year => 1972, month => 6, day => 30,
+ hour => 22, minute => 59, second => 60,
+ time_zone => '-0100',
+ );
+
+ is(
+ $t->second, 60,
+ 'second set to 60 in constructor, negative TZ offset'
+ );
+ },
+ undef,
+ 'can set second to 60 in constructor'
+ );
+}
+
+# test that we can set second to 60 (positive offset)
+{
+ is(
+ exception {
+ my $t = DateTime->new(
+ year => 1972, month => 7, day => 1,
+ hour => 0, minute => 59, second => 60,
+ time_zone => '+0100',
+ );
+
+ is(
+ $t->second, 60,
+ 'second set to 60 in constructor, positive TZ offset'
+ );
+ },
+ undef,
+ 'can set second to 60 with positive TZ offset'
+ );
+}
+
+{
+ my $t = DateTime->new(
+ year => 1972, month => 7, day => 1,
+ hour => 0, minute => 59, second => 59,
+ time_zone => '+0100',
+ );
+
+ is( $t->second, 59, 'datetime just before leap second' );
+}
+
+{
+ my $t = DateTime->new(
+ year => 1972, month => 7, day => 1,
+ hour => 1, minute => 0, second => 0,
+ time_zone => '+0100',
+ );
+
+ is( $t->second, 0, 'datetime just after leap second' );
+}
+
+{
+ my $t = DateTime->new(
+ year => 1972, month => 7, day => 1,
+ hour => 1, minute => 0, second => 1,
+ time_zone => '+0100',
+ );
+
+ is( $t->second, 1, 'datetime two seconds after leap second' );
+}
+
+{
+ my $t = DateTime->new(
+ year => 1972, month => 7, day => 1,
+ hour => 0, minute => 0, second => 29,
+ time_zone => '+00:00:30',
+ );
+
+ is(
+ $t->second, 29,
+ 'time zone +00:00:30 and leap seconds, second value'
+ );
+ is( $t->minute, 0, 'time zone +00:00:30 and leap seconds, minute value' );
+}
+
+{
+ my $t = DateTime->new(
+ year => 1972, month => 6, day => 30,
+ hour => 20, minute => 59, second => 60,
+ time_zone => 'America/Sao_Paulo',
+ );
+
+ $t->set_time_zone('UTC');
+ is( $t->second, 60, 'second after setting time zone' );
+ is( $t->hour, 23, 'hour after setting time zone' );
+
+ $t->add( days => 1 );
+ is(
+ $t->datetime, '1972-07-02T00:00:00',
+ 'add 1 day starting on leap second'
+ );
+
+ $t->subtract( days => 1 );
+
+ is(
+ $t->datetime, '1972-07-01T00:00:00',
+ 'add and subtract 1 day starting on leap second'
+ );
+
+ is( $t->leap_seconds, 1, 'datetime has 1 leap second' );
+}
+
+{
+ my $t = DateTime->new(
+ year => 1972, month => 6, day => 30,
+ hour => 23, minute => 59, second => 59,
+ time_zone => 'UTC',
+ );
+
+ is(
+ $t->epoch, 78796799,
+ 'epoch just before first leap second is 78796799'
+ );
+
+ $t->add( seconds => 1 );
+
+ is( $t->epoch, 78796800, 'epoch of first leap second is 78796800' );
+
+ $t->add( seconds => 1 );
+
+ is(
+ $t->epoch, 78796800,
+ 'epoch of first second after first leap second is 78796700'
+ );
+}
+
+{
+ my $dt = DateTime->new( year => 2003, time_zone => 'UTC' );
+
+ is( $dt->leap_seconds, 22, 'datetime has 22 leap seconds' );
+}
+
+{
+ my $dt = DateTime->new( year => 2003, time_zone => 'floating' );
+
+ is( $dt->leap_seconds, 0, 'floating datetime has 0 leap seconds' );
+}
+
+# date math across leap seconds distinguishes between minutes and second
+{
+ my $t = DateTime->new(
+ year => 1972, month => 12, day => 31,
+ hour => 23, minute => 59, second => 30,
+ time_zone => 'UTC'
+ );
+
+ $t->add( minutes => 1 );
+
+ is( $t->year, 1973, '+1 minute, year == 1973' );
+ is( $t->month, 1, '+1 minute, month == 1' );
+ is( $t->day, 1, '+1 minute, day == 1' );
+ is( $t->hour, 0, '+1 minute, hour == 0' );
+ is( $t->minute, 0, '+1 minute, minute == 0' );
+ is( $t->second, 30, '+1 minute, second == 30' );
+}
+
+{
+ my $t = DateTime->new(
+ year => 1972, month => 12, day => 31,
+ hour => 23, minute => 59, second => 30,
+ time_zone => 'UTC'
+ );
+
+ $t->add( seconds => 60 );
+
+ is( $t->year, 1973, '+60 seconds, year == 1973' );
+ is( $t->month, 1, '+60 seconds, month == 1' );
+ is( $t->day, 1, '+60 seconds, day == 1' );
+ is( $t->hour, 0, '+60 seconds, hour == 0' );
+ is( $t->minute, 0, '+60 seconds, minute == 0' );
+ is( $t->second, 29, '+60 seconds, second == 29' );
+}
+
+{
+ my $t = DateTime->new(
+ year => 1972, month => 12, day => 31,
+ hour => 23, minute => 59, second => 30,
+ time_zone => 'UTC'
+ );
+
+ $t->add( minutes => 1, seconds => 1 );
+
+ is( $t->year, 1973, '+1 minute & 1 second, year == 1973' );
+ is( $t->month, 1, '+1 minute & 1 second, month == 1' );
+ is( $t->day, 1, '+1 minute & 1 second, day == 1' );
+ is( $t->hour, 0, '+1 minute & 1 second, hour == 0' );
+ is( $t->minute, 0, '+1 minute & 1 second, minute == 0' );
+ is( $t->second, 31, '+1 minute & 1 second, second == 31' );
+}
+
+{
+ ok(
+ exception {
+ DateTime->new(
+ year => 1972, month => 12, day => 31,
+ hour => 23, minute => 59, second => 61,
+ time_zone => 'UTC',
+ );
+ },
+ 'Cannot give second of 61 except when it matches a leap second'
+ );
+
+ ok(
+ exception {
+ DateTime->new(
+ year => 1972, month => 12, day => 31,
+ hour => 23, minute => 58, second => 60,
+ time_zone => 'UTC',
+ );
+ },
+ 'Cannot give second of 60 except when it matches a leap second'
+ );
+
+ ok(
+ exception {
+ DateTime->new(
+ year => 1972, month => 12, day => 31,
+ hour => 23, minute => 59, second => 60,
+ time_zone => 'floating',
+ );
+ },
+ 'Cannot give second of 60 with floating time zone'
+ );
+}
+
+{
+ my $dt1 = DateTime->new(
+ year => 1998, month => 12, day => 31,
+ hour => 23, minute => 59, second => 60,
+ time_zone => 'UTC',
+ );
+
+ my $dt2 = DateTime->new(
+ year => 1998, month => 12, day => 31,
+ hour => 23, minute => 58, second => 50,
+ time_zone => 'UTC',
+ );
+
+ my $pos_dur = $dt1 - $dt2;
+
+ is( $pos_dur->delta_minutes, 1, 'delta_minutes is 1' );
+ is( $pos_dur->delta_seconds, 10, 'delta_seconds is 10' );
+
+ my $neg_dur = $dt2 - $dt1;
+
+ is( $neg_dur->delta_minutes, -1, 'delta_minutes is -1' );
+ is( $neg_dur->delta_seconds, -10, 'delta_seconds is -10' );
+}
+
+{
+ my $dt1 = DateTime->new(
+ year => 1998, month => 12, day => 31,
+ hour => 23, minute => 59, second => 55,
+ time_zone => 'UTC',
+ );
+
+ my $dt2 = DateTime->new(
+ year => 1998, month => 12, day => 31,
+ hour => 23, minute => 58, second => 50,
+ time_zone => 'UTC',
+ );
+
+ my $pos_dur = $dt1 - $dt2;
+
+ is( $pos_dur->delta_minutes, 1, 'delta_minutes is 1' );
+ is( $pos_dur->delta_seconds, 5, 'delta_seconds is 5' );
+
+ my $neg_dur = $dt2 - $dt1;
+
+ is( $neg_dur->delta_minutes, -1, 'delta_minutes is -1' );
+ is( $neg_dur->delta_seconds, -5, 'delta_seconds is -5' );
+}
+
+{
+ my $dt1 = DateTime->new(
+ year => 1998, month => 12, day => 31,
+ hour => 23, minute => 59, second => 55,
+ time_zone => 'UTC',
+ );
+
+ my $dt2 = DateTime->new(
+ year => 1999, month => 1, day => 1,
+ hour => 0, minute => 0, second => 30,
+ time_zone => 'UTC',
+ );
+
+ my $pos_dur = $dt2 - $dt1;
+
+ is( $pos_dur->delta_minutes, 0, 'delta_minutes is 0' );
+ is( $pos_dur->delta_seconds, 36, 'delta_seconds is 36' );
+
+ my $neg_dur = $dt1 - $dt2;
+
+ is( $neg_dur->delta_minutes, 0, 'delta_minutes is 0' );
+ is( $neg_dur->delta_seconds, -36, 'delta_seconds is -36' );
+}
+
+# catch off-by-one when carrying a leap second
+{
+ my $dt1 = DateTime->new(
+ year => 1998, month => 12, day => 31,
+ hour => 23, minute => 59, second => 0,
+ nanosecond => 1,
+ time_zone => 'UTC',
+ );
+
+ my $dt2 = DateTime->new(
+ year => 1999, month => 1, day => 1,
+ hour => 0, minute => 0, second => 0,
+ time_zone => 'UTC',
+ );
+
+ my $pos_dur = $dt2 - $dt1;
+
+ is( $pos_dur->delta_minutes, 0, 'delta_minutes is 0' );
+ is( $pos_dur->delta_seconds, 60, 'delta_seconds is 60' );
+ is(
+ $pos_dur->delta_nanoseconds, 999999999,
+ 'delta_nanoseconds is 999...'
+ );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 1972, month => 6, day => 30,
+ hour => 23, minute => 58, second => 20,
+ time_zone => 'UTC',
+ );
+
+ $dt->add( days => 2 );
+
+ is(
+ $dt->datetime, '1972-07-02T23:58:20',
+ 'add two days crossing a leap second (UTC)'
+ );
+}
+
+# a bunch of tests that math works across a leap second for various time zones
+{
+ my $dt = DateTime->new(
+ year => 1972, month => 6, day => 30,
+ hour => 20, minute => 58, second => 20,
+ time_zone => '-0300',
+ );
+
+ $dt->add( days => 2 );
+
+ is(
+ $dt->datetime, '1972-07-02T20:58:20',
+ 'add two days crossing a leap second (-0300)'
+ );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 1972, month => 7, day => 1,
+ hour => 2, minute => 58, second => 20,
+ time_zone => '+0300',
+ );
+
+ $dt->add( days => 2 );
+
+ is(
+ $dt->datetime, '1972-07-03T02:58:20',
+ 'add two days crossing a leap second (+0300)'
+ );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 1972, month => 6, day => 30,
+ hour => 23, minute => 58, second => 20,
+ time_zone => 'UTC',
+ );
+
+ $dt->add( hours => 48 );
+
+ is(
+ $dt->datetime, '1972-07-02T23:58:20',
+ 'add 48 hours crossing a leap second (UTC)'
+ );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 1972, month => 6, day => 30,
+ hour => 20, minute => 58, second => 20,
+ time_zone => '-0300',
+ );
+
+ $dt->add( hours => 48 );
+
+ is(
+ $dt->datetime, '1972-07-02T20:58:20',
+ 'add 48 hours crossing a leap second (-0300)'
+ );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 1972, month => 7, day => 1,
+ hour => 2, minute => 58, second => 20,
+ time_zone => '+0300',
+ );
+
+ $dt->add( hours => 48 );
+
+ is(
+ $dt->datetime, '1972-07-03T02:58:20',
+ 'add 48 hours crossing a leap second (+0300)'
+ );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 1972, month => 6, day => 30,
+ hour => 23, minute => 58, second => 20,
+ time_zone => 'UTC',
+ );
+
+ $dt->add( minutes => 2880 );
+
+ is(
+ $dt->datetime, '1972-07-02T23:58:20',
+ 'add 2880 minutes crossing a leap second (UTC)'
+ );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 1972, month => 6, day => 30,
+ hour => 20, minute => 58, second => 20,
+ time_zone => '-0300',
+ );
+
+ $dt->add( minutes => 2880 );
+
+ is(
+ $dt->datetime, '1972-07-02T20:58:20',
+ 'add 2880 minutes crossing a leap second (-0300)'
+ );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 1972, month => 7, day => 1,
+ hour => 2, minute => 58, second => 20,
+ time_zone => '+0300',
+ );
+
+ $dt->add( minutes => 2880 );
+
+ is(
+ $dt->datetime, '1972-07-03T02:58:20',
+ 'add 2880 minutes crossing a leap second (+0300)'
+ );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 1972, month => 6, day => 30,
+ hour => 23, minute => 58, second => 20,
+ time_zone => 'UTC',
+ );
+
+ $dt->add( seconds => 172801 );
+
+ is(
+ $dt->datetime, '1972-07-02T23:58:20',
+ 'add 172801 seconds crossing a leap second (UTC)'
+ );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 1972, month => 6, day => 30,
+ hour => 20, minute => 58, second => 20,
+ time_zone => '-0300',
+ );
+
+ $dt->add( seconds => 172801 );
+
+ is(
+ $dt->datetime, '1972-07-02T20:58:20',
+ 'add 172801 seconds crossing a leap second (-0300)'
+ );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 1972, month => 7, day => 1,
+ hour => 2, minute => 58, second => 20,
+ time_zone => '+0300',
+ );
+
+ $dt->add( seconds => 172801 );
+
+ is(
+ $dt->datetime, '1972-07-03T02:58:20',
+ 'add 172801 seconds crossing a leap second (+0300)'
+ );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 1972, month => 7, day => 2,
+ hour => 23, minute => 58, second => 20,
+ time_zone => 'UTC',
+ );
+
+ $dt->subtract( days => 2 );
+
+ is(
+ $dt->datetime, '1972-06-30T23:58:20',
+ 'subtract two days crossing a leap second (UTC)'
+ );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 1972, month => 7, day => 2,
+ hour => 20, minute => 58, second => 20,
+ time_zone => '-0300',
+ );
+
+ $dt->subtract( days => 2 );
+
+ is(
+ $dt->datetime, '1972-06-30T20:58:20',
+ 'subtract two days crossing a leap second (-0300)'
+ );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 1972, month => 7, day => 3,
+ hour => 2, minute => 58, second => 20,
+ time_zone => '+0300',
+ );
+
+ $dt->subtract( days => 2 );
+
+ is(
+ $dt->datetime, '1972-07-01T02:58:20',
+ 'subtract two days crossing a leap second (+0300)'
+ );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 1972, month => 7, day => 2,
+ hour => 23, minute => 58, second => 20,
+ time_zone => 'UTC',
+ );
+
+ $dt->subtract( hours => 48 );
+
+ is(
+ $dt->datetime, '1972-06-30T23:58:20',
+ 'subtract 48 hours crossing a leap second (UTC)'
+ );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 1972, month => 7, day => 2,
+ hour => 20, minute => 58, second => 20,
+ time_zone => '-0300',
+ );
+
+ $dt->subtract( hours => 48 );
+
+ is(
+ $dt->datetime, '1972-06-30T20:58:20',
+ 'subtract 48 hours crossing a leap second (-0300)'
+ );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 1972, month => 7, day => 3,
+ hour => 2, minute => 58, second => 20,
+ time_zone => '+0300',
+ );
+
+ $dt->subtract( hours => 48 );
+
+ is(
+ $dt->datetime, '1972-07-01T02:58:20',
+ 'subtract 48 hours crossing a leap second (+0300)'
+ );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 1972, month => 7, day => 2,
+ hour => 23, minute => 58, second => 20,
+ time_zone => 'UTC',
+ );
+
+ $dt->subtract( minutes => 2880 );
+
+ is(
+ $dt->datetime, '1972-06-30T23:58:20',
+ 'subtract 2880 minutes crossing a leap second (UTC)'
+ );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 1972, month => 7, day => 2,
+ hour => 20, minute => 58, second => 20,
+ time_zone => '-0300',
+ );
+
+ $dt->subtract( minutes => 2880 );
+
+ is(
+ $dt->datetime, '1972-06-30T20:58:20',
+ 'subtract 2880 minutes crossing a leap second (-0300)'
+ );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 1972, month => 7, day => 3,
+ hour => 2, minute => 58, second => 20,
+ time_zone => '+0300',
+ );
+
+ $dt->subtract( minutes => 2880 );
+
+ is(
+ $dt->datetime, '1972-07-01T02:58:20',
+ 'subtract 2880 minutes crossing a leap second (+0300)'
+ );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 1972, month => 7, day => 2,
+ hour => 23, minute => 58, second => 20,
+ time_zone => 'UTC',
+ );
+
+ $dt->subtract( seconds => 172801 );
+
+ is(
+ $dt->datetime, '1972-06-30T23:58:20',
+ 'subtract 172801 seconds crossing a leap second (UTC)'
+ );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 1972, month => 7, day => 2,
+ hour => 20, minute => 58, second => 20,
+ time_zone => '-0300',
+ );
+
+ $dt->subtract( seconds => 172801 );
+
+ is(
+ $dt->datetime, '1972-06-30T20:58:20',
+ 'subtract 172801 seconds crossing a leap second (-0300)'
+ );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 1972, month => 7, day => 3,
+ hour => 2, minute => 58, second => 20,
+ time_zone => '+0300',
+ );
+
+ $dt->subtract( seconds => 172801 );
+
+ is(
+ $dt->datetime, '1972-07-01T02:58:20',
+ 'subtract 172801 seconds crossing a leap second (+0300)'
+ );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 1972, month => 7, day => 1,
+ hour => 12, minute => 58, second => 20,
+ time_zone => '+1200',
+ );
+
+ $dt->set_time_zone('-1200');
+
+ is(
+ $dt->datetime, '1972-06-30T12:58:20',
+ '24 hour time zone change near leap second'
+ );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 1972, month => 6, day => 30,
+ hour => 12, minute => 58, second => 20,
+ time_zone => '-1200',
+ );
+
+ $dt->set_time_zone('+1200');
+
+ is(
+ $dt->datetime, '1972-07-01T12:58:20',
+ '24 hour time zone change near leap second'
+ );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 1997, month => 7, day => 1,
+ hour => 0, minute => 59, second => 59,
+ time_zone => '+0100'
+ );
+
+ is( $dt->datetime, '1997-07-01T00:59:59', '+0100 time leap second T-1' );
+
+ $dt->set_time_zone('UTC');
+
+ is( $dt->datetime, '1997-06-30T23:59:59', 'UTC time leap second T-1' );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 1997, month => 7, day => 1,
+ hour => 0, minute => 59, second => 60,
+ time_zone => '+0100'
+ );
+
+ is( $dt->datetime, '1997-07-01T00:59:60', 'local time leap second T-0' );
+
+ $dt->set_time_zone('UTC');
+
+ is( $dt->datetime, '1997-06-30T23:59:60', 'UTC time leap second T-0' );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 1997, month => 7, day => 1,
+ hour => 1, minute => 0, second => 0,
+ time_zone => '+0100'
+ );
+
+ is( $dt->datetime, '1997-07-01T01:00:00', 'local time leap second T+1' );
+
+ $dt->set_time_zone('UTC');
+
+ is( $dt->datetime, '1997-07-01T00:00:00', 'UTC time leap second T+1' );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 1997, month => 7, day => 1,
+ hour => 23, minute => 59, second => 59,
+ time_zone => '+0100'
+ );
+
+ is(
+ $dt->datetime, '1997-07-01T23:59:59',
+ 'local time end of leap second day'
+ );
+
+ $dt->set_time_zone('UTC');
+
+ is(
+ $dt->datetime, '1997-07-01T22:59:59',
+ 'UTC time end of leap second day'
+ );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 1997, month => 6, day => 30,
+ hour => 22, minute => 59, second => 59,
+ time_zone => '-0100'
+ );
+
+ is( $dt->datetime, '1997-06-30T22:59:59', '-0100 time leap second T-1' );
+
+ $dt->set_time_zone('UTC');
+
+ is( $dt->datetime, '1997-06-30T23:59:59', 'UTC time leap second T-1' );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 1997, month => 6, day => 30,
+ hour => 22, minute => 59, second => 60,
+ time_zone => '-0100'
+ );
+
+ is( $dt->datetime, '1997-06-30T22:59:60', '-0100 time leap second T-0' );
+
+ $dt->set_time_zone('UTC');
+
+ is( $dt->datetime, '1997-06-30T23:59:60', 'UTC time leap second T-0' );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 1997, month => 6, day => 30,
+ hour => 23, minute => 0, second => 0,
+ time_zone => '-0100'
+ );
+
+ is( $dt->datetime, '1997-06-30T23:00:00', '-0100 time leap second T+1' );
+
+ $dt->set_time_zone('UTC');
+
+ is( $dt->datetime, '1997-07-01T00:00:00', 'UTC time leap second T+1' );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 1997, month => 6, day => 30,
+ hour => 23, minute => 59, second => 59,
+ time_zone => 'UTC'
+ );
+
+ is( $dt->datetime, '1997-06-30T23:59:59', 'UTC time leap second T-1' );
+
+ $dt->set_time_zone('+0100');
+
+ is( $dt->datetime, '1997-07-01T00:59:59', '+0100 time leap second T-1' );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 1997, month => 6, day => 30,
+ hour => 23, minute => 59, second => 60,
+ time_zone => 'UTC'
+ );
+
+ is( $dt->datetime, '1997-06-30T23:59:60', 'UTC time leap second T-0' );
+
+ $dt->set_time_zone('+0100');
+
+ is( $dt->datetime, '1997-07-01T00:59:60', '+0100 time leap second T-0' );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 1997, month => 7, day => 1,
+ hour => 0, minute => 0, second => 0,
+ time_zone => 'UTC'
+ );
+
+ is( $dt->datetime, '1997-07-01T00:00:00', 'UTC time leap second T+1' );
+
+ $dt->set_time_zone('+0100');
+
+ is( $dt->datetime, '1997-07-01T01:00:00', '+0100 time leap second T+1' );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 1997, month => 6, day => 30,
+ hour => 23, minute => 59, second => 59,
+ time_zone => 'UTC'
+ );
+
+ is(
+ $dt->datetime, '1997-06-30T23:59:59',
+ 'UTC time end of leap second day'
+ );
+
+ $dt->set_time_zone('+0100');
+
+ is(
+ $dt->datetime, '1997-07-01T00:59:59',
+ '+0100 time end of leap second day'
+ );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 1997, month => 6, day => 30,
+ hour => 23, minute => 59, second => 59,
+ time_zone => 'UTC'
+ );
+
+ is( $dt->datetime, '1997-06-30T23:59:59', 'UTC time leap second T-1' );
+
+ $dt->set_time_zone('-0100');
+
+ is( $dt->datetime, '1997-06-30T22:59:59', '-0100 time leap second T-1' );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 1997, month => 6, day => 30,
+ hour => 23, minute => 59, second => 60,
+ time_zone => 'UTC'
+ );
+
+ is( $dt->datetime, '1997-06-30T23:59:60', 'UTC time leap second T-0' );
+
+ $dt->set_time_zone('-0100');
+
+ is( $dt->datetime, '1997-06-30T22:59:60', '-0100 time leap second T-0' );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 1997, month => 7, day => 1,
+ hour => 0, minute => 0, second => 0,
+ time_zone => 'UTC'
+ );
+
+ is( $dt->datetime, '1997-07-01T00:00:00', 'UTC time leap second T+1' );
+
+ $dt->set_time_zone('-0100');
+
+ is( $dt->datetime, '1997-06-30T23:00:00', '-0100 time leap second T+1' );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 2005, month => 12, day => 31,
+ hour => 23, minute => 59, second => 60,
+ time_zone => 'UTC'
+ );
+
+ is( $dt->second, 60, 'leap second at end of 2005 is allowed' );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 2005, month => 12, day => 31,
+ hour => 23, minute => 59, second => 59,
+ time_zone => 'UTC',
+ );
+
+ $dt->add( seconds => 1 );
+ is( $dt->datetime, '2005-12-31T23:59:60', 'dt is 2005-12-31T23:59:60' );
+
+ $dt->add( seconds => 1 );
+ is( $dt->datetime, '2006-01-01T00:00:00', 'dt is 2006-01-01T00:00:00' );
+}
+
+# bug reported by Mike Schilli - addition got "stuck" at 60 seconds
+# and never rolled over to the following day
+{
+ my $dt = DateTime->new(
+ year => 2005, month => 12, day => 31,
+ hour => 23, minute => 59, second => 59,
+ time_zone => 'UTC',
+ );
+
+ $dt->add( seconds => 1 );
+ is( $dt->datetime, '2005-12-31T23:59:60', 'dt is 2005-12-31T23:59:60' );
+
+ $dt->add( seconds => 1 );
+ is( $dt->datetime, '2006-01-01T00:00:00', 'dt is 2006-01-01T00:00:00' );
+}
+
+# and this makes sure that fix for the above bug didn't break
+# _non-leapsecond_ second addition
+{
+ my $dt = DateTime->new(
+ year => 2005, month => 12, day => 30,
+ hour => 23, minute => 59, second => 58,
+ time_zone => 'UTC',
+ );
+
+ $dt->add( seconds => 1 );
+ is( $dt->datetime, '2005-12-30T23:59:59', 'dt is 2005-12-30T23:59:59' );
+
+ $dt->add( seconds => 1 );
+ is( $dt->datetime, '2005-12-31T00:00:00', 'dt is 2005-12-31T00:00:00' );
+}
+
+{
+ for my $date (
+ [ 1972, 6, 30 ],
+ [ 1972, 12, 31 ],
+ [ 1973, 12, 31 ],
+ [ 1974, 12, 31 ],
+ [ 1975, 12, 31 ],
+ [ 1976, 12, 31 ],
+ [ 1977, 12, 31 ],
+ [ 1978, 12, 31 ],
+ [ 1979, 12, 31 ],
+ [ 1981, 6, 30 ],
+ [ 1982, 6, 30 ],
+ [ 1983, 6, 30 ],
+ [ 1985, 6, 30 ],
+ [ 1987, 12, 31 ],
+ [ 1989, 12, 31 ],
+ [ 1990, 12, 31 ],
+ [ 1992, 6, 30 ],
+ [ 1993, 6, 30 ],
+ [ 1994, 6, 30 ],
+ [ 1995, 12, 31 ],
+ [ 1997, 6, 30 ],
+ [ 1998, 12, 31 ],
+ [ 2005, 12, 31 ],
+ [ 2008, 12, 31 ],
+ [ 2012, 6, 30 ],
+ [ 2015, 6, 30 ],
+ [ 2016, 12, 31 ],
+ ) {
+ my $formatted = join '-', map { sprintf( '%02d', $_ ) } @{$date};
+
+ my $dt;
+ is(
+ exception {
+ $dt = DateTime->new(
+ year => $date->[0],
+ month => $date->[1],
+ day => $date->[2],
+ hour => 23,
+ minute => 59,
+ second => 60,
+ time_zone => 'UTC',
+ );
+ },
+ undef,
+ "We can make a DateTime object for the leap second on $formatted"
+ );
+
+ is(
+ DateTime::LeapSecond::day_length( ( $dt->utc_rd_values )[0] ),
+ 86401,
+ "DateTime::LeapSecond::day_length returns 86401 for $formatted"
+ );
+ }
+}
+
+done_testing();
+
--- /dev/null
+BEGIN {
+ $ENV{PERL_DATETIME_PP} = 1;
+}
+
+use strict;
+use warnings;
+
+use Test::More;
+
+use DateTime;
+use DateTime::Locale;
+
+undef $ENV{PERL_DATETIME_DEFAULT_TZ};
+
+my $pos = DateTime::Infinite::Future->new;
+my $neg = DateTime::Infinite::Past->new;
+my $posinf = DateTime::INFINITY;
+my $neginf = DateTime::NEG_INFINITY;
+my $nan_string = DateTime::NAN;
+
+# infinite date math
+{
+ ok( $pos->is_infinite, 'positive infinity should be infinite' );
+ ok( $neg->is_infinite, 'negative infinity should be infinite' );
+ ok( !$pos->is_finite, 'positive infinity should not be finite' );
+ ok( !$neg->is_finite, 'negative infinity should not be finite' );
+
+ # These methods produce numbers or strings - we want to make sure they all
+ # return Inf or -Inf as expected.
+ my @ification_methods = qw(
+ ymd mdy dmy hms time iso8601 datetime
+ year ce_year month day day_of_week
+ quarter
+ hour hour_1 hour_12 hour_12_0 minute second
+ fractional_second
+ week week_year week_number
+ mjd jd
+ nanosecond millisecond microsecond
+ epoch
+ );
+
+ for my $meth (@ification_methods) {
+ is( $pos->$meth, $posinf, "+Infinity $meth returns $posinf" );
+ is( $neg->$meth, $neginf, "-Infinity $meth returns $neginf" );
+ }
+
+ # that's a long time ago!
+ my $long_ago = DateTime->new( year => -100_000 );
+
+ ok(
+ $neg < $long_ago,
+ 'negative infinity is really negative'
+ );
+
+ my $far_future = DateTime->new( year => 100_000 );
+ ok(
+ $pos > $far_future,
+ 'positive infinity is really positive'
+ );
+
+ ok(
+ $pos > $neg,
+ 'positive infinity is bigger than negative infinity'
+ );
+
+ my $pos_dur = $pos - $far_future;
+ ok(
+ $pos_dur->is_positive,
+ 'infinity - normal = infinity'
+ );
+
+ my $pos2 = $long_ago + $pos_dur;
+ ok(
+ $pos2 == $pos,
+ 'normal + infinite duration = infinity'
+ );
+
+ my $neg_dur = $far_future - $pos;
+ ok(
+ $neg_dur->is_negative,
+ 'normal - infinity = neg infinity'
+ );
+
+ my $neg2 = $long_ago + $neg_dur;
+ ok(
+ $neg2 == $neg,
+ 'normal + neg infinite duration = neg infinity'
+ );
+
+ my $dur = $pos - $pos;
+ my %deltas = $dur->deltas;
+ my @compare = qw( days seconds nanoseconds );
+ foreach (@compare) {
+
+ # NaN != NaN (but should stringify the same)
+ is(
+ $deltas{$_} . q{}, $nan_string,
+ "infinity - infinity = nan ($_)"
+ );
+ }
+
+ my $new_pos = $pos->clone->add( days => 10 );
+ ok(
+ $new_pos == $pos,
+ 'infinity + normal duration = infinity'
+ );
+
+ my $new_pos2 = $pos->clone->subtract( days => 10 );
+ ok(
+ $new_pos2 == $pos,
+ 'infinity - normal duration = infinity'
+ );
+
+ ok(
+ $pos == $posinf,
+ 'infinity (datetime) == infinity (number)'
+ );
+
+ ok(
+ $neg == $neginf,
+ 'neg infinity (datetime) == neg infinity (number)'
+ );
+}
+
+# This could vary across platforms
+my $pos_as_string = $posinf . q{};
+my $neg_as_string = $neginf . q{};
+
+# formatting
+{
+ foreach my $m (
+ qw( year month day hour minute second
+ microsecond millisecond nanosecond )
+ ) {
+ is(
+ $pos->$m() . q{}, $pos_as_string,
+ "pos $m is $pos_as_string"
+ );
+
+ is(
+ $neg->$m() . q{}, $neg_as_string,
+ "neg $m is $pos_as_string"
+ );
+ }
+}
+
+{
+ my $now = DateTime->now;
+
+ is(
+ DateTime->compare( $pos, $now ), 1,
+ 'positive infinite is greater than now'
+ );
+ is(
+ DateTime->compare( $neg, $now ), -1,
+ 'negative infinite is less than now'
+ );
+}
+
+{
+ my $now = DateTime->now;
+ my $pos2 = $pos + DateTime::Duration->new( months => 1 );
+
+ ok(
+ $pos == $pos2,
+ 'infinity (datetime) == infinity (datetime)'
+ );
+}
+
+{
+ my $now = DateTime->now;
+ my $neg2 = $neg + DateTime::Duration->new( months => 1 );
+
+ ok(
+ $neg == $neg2,
+ '-infinity (datetime) == -infinity (datetime)'
+ );
+}
+
+{
+ cmp_ok(
+ "$pos", 'eq', $posinf,
+ 'stringified infinity (datetime) eq infinity (number)'
+ );
+ cmp_ok(
+ "$neg", 'eq', $neginf,
+ 'stringified neg infinity (datetime) eq neg infinity (number)'
+ );
+}
+
+{
+ is(
+ $pos->day_name(),
+ undef,
+ 'day_name returns undef',
+ );
+
+ is(
+ $pos->am_or_pm(),
+ undef,
+ 'am_or_pm returns undef'
+ );
+
+ is(
+ $pos->locale()->name(),
+ 'Fake locale for Infinite DateTime objects',
+ 'locale name for fake locale'
+ );
+
+ is(
+ $pos->locale()->datetime_format_long(),
+ DateTime::Locale->load('en_US')->datetime_format_long(),
+ 'fake locale returns same format as en_US'
+ );
+}
+
+done_testing();
+
--- /dev/null
+BEGIN {
+ $ENV{PERL_DATETIME_PP} = 1;
+}
+
+use strict;
+use warnings;
+
+use Test::Fatal;
+use Test::More;
+
+use DateTime;
+
+undef $ENV{PERL_DATETIME_DEFAULT_TZ};
+
+foreach my $p (
+ { year => 2000, month => 13 },
+ { year => 2000, month => 0 },
+ { year => 2000, month => 12, day => 32 },
+ { year => 2000, month => 12, day => 0 },
+ { year => 2000, month => 12, day => 10, hour => -1 },
+ { year => 2000, month => 12, day => 10, hour => 24 },
+ { year => 2000, month => 12, day => 10, hour => 12, minute => -1 },
+ { year => 2000, month => 12, day => 10, hour => 12, minute => 60 },
+ { year => 2000, month => 12, day => 10, hour => 12, second => -1 },
+ { year => 2000, month => 12, day => 10, hour => 12, second => 62 },
+) {
+ like(
+ exception { DateTime->new(%$p) },
+ qr/Validation failed/,
+ 'Parameters outside valid range should fail in call to new()'
+ );
+
+ like(
+ exception { DateTime->new( year => 2000 )->set(%$p) },
+ qr/Validation failed/,
+ 'Parameters outside valid range should fail in call to set()'
+ );
+}
+
+{
+ like(
+ exception {
+ DateTime->last_day_of_month(
+ year => 2000,
+ month => 13,
+ );
+ },
+ qr/Validation failed/,
+ 'Parameters outside valid range should fail in call to last_day_of_month()'
+ );
+
+ like(
+ exception { DateTime->last_day_of_month( year => 2000, month => 0 ) },
+ qr/Validation failed/,
+ 'Parameters outside valid range should fail in call to last_day_of_month()'
+ );
+}
+
+{
+ like(
+ exception { DateTime->new( year => 2000, month => 4, day => 31 ) },
+ qr/valid day of month/i,
+ 'Day past last day of month should fail'
+ );
+
+ like(
+ exception { DateTime->new( year => 2001, month => 2, day => 29 ) },
+ qr/valid day of month/i,
+ 'Day past last day of month should fail'
+ );
+
+ is(
+ exception { DateTime->new( year => 2000, month => 2, day => 29 ) },
+ undef,
+ 'February 29 should be valid in leap years'
+ );
+}
+
+done_testing();
+
--- /dev/null
+BEGIN {
+ $ENV{PERL_DATETIME_PP} = 1;
+}
+
+use strict;
+use warnings;
+
+use Test::Fatal;
+use Test::More;
+
+use DateTime;
+
+undef $ENV{PERL_DATETIME_DEFAULT_TZ};
+
+my @last_day = ( 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 );
+my @leap_last_day = @last_day;
+$leap_last_day[1]++;
+
+{
+ my $doy = 15;
+ foreach my $month ( 1 .. 12 ) {
+ $doy += $last_day[ $month - 2 ] if $month > 1;
+
+ my $dt = DateTime->from_day_of_year(
+ year => 2001,
+ day_of_year => $doy,
+ time_zone => 'UTC',
+ );
+
+ is( $dt->year, 2001, 'check year' );
+ is( $dt->month, $month, 'check month' );
+ is( $dt->day, 15, 'check day' );
+ is( $dt->day_of_year, $doy, 'check day of year' );
+ }
+}
+
+{
+ my $doy = 15;
+ foreach my $month ( 1 .. 12 ) {
+ $doy += $leap_last_day[ $month - 2 ] if $month > 1;
+
+ my $dt = DateTime->from_day_of_year(
+ year => 2004,
+ day_of_year => $doy,
+ time_zone => 'UTC',
+ );
+
+ is( $dt->year, 2004, 'check year' );
+ is( $dt->month, $month, 'check month' );
+ is( $dt->day, 15, 'check day' );
+ is( $dt->day_of_year, $doy, 'check day of year' );
+ }
+}
+
+{
+ like(
+ exception {
+ DateTime->from_day_of_year( year => 2001, day_of_year => 366 )
+ },
+ qr/2001 is not a leap year/,
+ 'Cannot give day of year 366 in non-leap years'
+ );
+
+ is(
+ exception {
+ DateTime->from_day_of_year( year => 2004, day_of_year => 366 )
+ },
+ undef,
+ 'Day of year 366 should work in leap years'
+ );
+}
+
+done_testing();
+
--- /dev/null
+BEGIN {
+ $ENV{PERL_DATETIME_PP} = 1;
+}
+
+use strict;
+use warnings;
+
+use Test::More;
+
+use DateTime;
+
+unless ( eval { require Storable; 1 } ) {
+ plan skip_all => 'Cannot load Storable';
+}
+
+undef $ENV{PERL_DATETIME_DEFAULT_TZ};
+
+{
+ my @dt = (
+ DateTime->new(
+ year => 1950,
+ hour => 1,
+ nanosecond => 1,
+ time_zone => 'America/Chicago',
+ locale => 'de'
+ ),
+ DateTime::Infinite::Past->new,
+ DateTime::Infinite::Future->new,
+ );
+
+ foreach my $dt (@dt) {
+ my $copy = Storable::thaw( Storable::nfreeze($dt) );
+
+ is(
+ $copy->time_zone->name, $dt->time_zone->name,
+ 'Storable freeze/thaw preserves tz'
+ );
+
+ is(
+ ref $copy->locale, ref $dt->locale,
+ 'Storable freeze/thaw preserves locale'
+ );
+
+ is(
+ $copy->year, $dt->year,
+ 'Storable freeze/thaw preserves rd values'
+ );
+
+ is(
+ $copy->hour, $dt->hour,
+ 'Storable freeze/thaw preserves rd values'
+ );
+
+ is(
+ $copy->nanosecond, $dt->nanosecond,
+ 'Storable freeze/thaw preserves rd values'
+ );
+ }
+}
+
+{
+ my $dt1 = DateTime->now( locale => 'en-US' );
+ my $dt2 = Storable::dclone($dt1);
+ my $dt3 = Storable::thaw( Storable::nfreeze($dt2) );
+
+ is(
+ $dt1->iso8601, $dt2->iso8601,
+ 'dclone produces date equal to original'
+ );
+ is(
+ $dt2->iso8601, $dt3->iso8601,
+ 'explicit freeze and thaw produces date equal to original'
+ );
+
+ # Back-compat shim for new DateTime::Locale. Remove once DT::Locale based
+ # on CLDR 28+ is released.
+ my $meth = $dt1->locale->can('code') ? 'code' : 'id';
+ my $orig_code = $dt1->locale->$meth;
+ is(
+ $dt2->locale->$meth,
+ $orig_code,
+ 'check locale id after dclone'
+ );
+ is(
+ $dt3->locale->$meth,
+ $orig_code,
+ 'check locale id after explicit freeze/thaw'
+ );
+}
+
+{
+ package Formatter;
+
+ sub format_datetime { }
+}
+
+{
+ my $dt = DateTime->new(
+ year => 2004,
+ formatter => 'Formatter',
+ );
+
+ my $copy = Storable::thaw( Storable::nfreeze($dt) );
+
+ is(
+ $dt->formatter, $copy->formatter,
+ 'Storable freeze/thaw preserves formatter'
+ );
+}
+
+done_testing();
+
--- /dev/null
+BEGIN {
+ $ENV{PERL_DATETIME_PP} = 1;
+}
+
+## no critic (Modules::ProhibitMultiplePackages)
+use strict;
+use warnings;
+
+use Test::More;
+
+use DateTime;
+
+undef $ENV{PERL_DATETIME_DEFAULT_TZ};
+
+my $dt1 = DateTime->new( year => 1970, hour => 1, nanosecond => 100 );
+
+my $dt2 = DateTime->from_object( object => $dt1 );
+
+is( $dt1->year, 1970, 'year is 1970' );
+is( $dt1->hour, 1, 'hour is 1' );
+is( $dt1->nanosecond, 100, 'nanosecond is 100' );
+
+{
+ my $t1 = DateTime::Calendar::_Test::WithoutTZ->new(
+ rd_days => 1,
+ rd_secs => 0
+ );
+
+ # Tests creating objects from other calendars (without time zones)
+ my $t2 = DateTime->from_object( object => $t1 );
+
+ isa_ok( $t2, 'DateTime' );
+ is(
+ $t2->datetime, '0001-01-01T00:00:00',
+ 'convert from object without tz'
+ );
+ ok( $t2->time_zone->is_floating, 'time_zone is floating' );
+}
+
+{
+ my $tz = DateTime::TimeZone->new( name => 'America/Chicago' );
+ my $t1 = DateTime::Calendar::_Test::WithTZ->new(
+ rd_days => 1, rd_secs => 0,
+ time_zone => $tz
+ );
+
+ # Tests creating objects from other calendars (with time zones)
+ my $t2 = DateTime->from_object( object => $t1 );
+
+ isa_ok( $t2, 'DateTime' );
+ is( $t2->time_zone->name, 'America/Chicago', 'time_zone is preserved' );
+}
+
+{
+ my $tz = DateTime::TimeZone->new( name => 'UTC' );
+ my $t1 = DateTime::Calendar::_Test::WithTZ->new(
+ rd_days => 720258,
+ rd_secs => 86400, time_zone => $tz
+ );
+
+ my $t2 = DateTime->from_object( object => $t1 );
+
+ isa_ok( $t2, 'DateTime' );
+ is(
+ $t2->second, 60,
+ 'new DateTime from_object with TZ which is a leap second'
+ );
+}
+
+{
+ for my $class (qw( DateTime::Infinite::Past DateTime::Infinite::Future ))
+ {
+ isa_ok(
+ DateTime->from_object( object => $class->new ),
+ $class,
+ "from_object($class)"
+ );
+ }
+}
+
+done_testing();
+
+# Set up two simple test packages
+
+package DateTime::Calendar::_Test::WithoutTZ;
+
+sub new {
+ my $class = shift;
+ bless {@_}, $class;
+}
+
+sub utc_rd_values {
+ return $_[0]{rd_days}, $_[0]{rd_secs}, 0;
+}
+
+package DateTime::Calendar::_Test::WithTZ;
+
+sub new {
+ my $class = shift;
+ bless {@_}, $class;
+}
+
+sub utc_rd_values {
+ return $_[0]{rd_days}, $_[0]{rd_secs}, 0;
+}
+
+sub time_zone {
+ return $_[0]{time_zone};
+}
+
--- /dev/null
+BEGIN {
+ $ENV{PERL_DATETIME_PP} = 1;
+}
+
+use strict;
+use warnings;
+
+use Test::More;
+
+use DateTime;
+
+undef $ENV{PERL_DATETIME_DEFAULT_TZ};
+
+# exercises a bug found in Perl version of _normalize_tai_seconds -
+# fixed in 0.15
+{
+ my $dt = DateTime->new( year => 2000, month => 12 );
+
+ $dt->add( months => 1 )->truncate( to => 'month' )
+ ->subtract( seconds => 1 );
+
+ is( $dt->year, 2000, 'year is 2001' );
+ is( $dt->month, 12, 'month is 12' );
+ is( $dt->hour, 23, 'hour is 23' );
+ is( $dt->minute, 59, 'minute is 59' );
+ is( $dt->second, 59, 'second is 59' );
+}
+
+{
+ my $dt = DateTime->new( year => 2000, month => 12 );
+ my $dt2 = $dt->clone->add( months => 1 )->subtract( seconds => 1 );
+
+ is( $dt2->year, 2000, 'year is 2001' );
+ is( $dt2->month, 12, 'month is 12' );
+ is( $dt2->hour, 23, 'hour is 23' );
+ is( $dt2->minute, 59, 'minute is 59' );
+ is( $dt2->second, 59, 'second is 59' );
+}
+
+done_testing();
+
--- /dev/null
+BEGIN {
+ $ENV{PERL_DATETIME_PP} = 1;
+}
+
+use strict;
+use warnings;
+
+use Test::More;
+
+use DateTime;
+
+undef $ENV{PERL_DATETIME_DEFAULT_TZ};
+
+{
+ my $date1 = DateTime->new(
+ year => 2001, month => 5, day => 10,
+ hour => 4, minute => 3, second => 2,
+ nanosecond => 12,
+ time_zone => 'UTC'
+ );
+
+ my $date2 = DateTime->new(
+ year => 2001, month => 6, day => 12,
+ hour => 5, minute => 7, second => 23,
+ nanosecond => 7,
+ time_zone => 'UTC'
+ );
+
+ {
+ my $dur_md = $date2->delta_md($date1);
+
+ is( $dur_md->delta_months, 1, 'delta_md months is 1' );
+ is( $dur_md->delta_days, 2, 'delta_md days is 2' );
+ is( $dur_md->delta_minutes, 0, 'delta_md minutes is 0' );
+ is( $dur_md->delta_seconds, 0, 'delta_md seconds is 0' );
+ is( $dur_md->delta_nanoseconds, 0, 'delta_md nanoseconds is 0' );
+
+ my $dur_d = $date2->delta_days($date1);
+
+ is( $dur_d->delta_months, 0, 'delta_d months is 0' );
+ is( $dur_d->delta_days, 33, 'delta_d days is 33' );
+ is( $dur_d->delta_minutes, 0, 'delta_d minutes is 0' );
+ is( $dur_d->delta_seconds, 0, 'delta_d seconds is 0' );
+ is( $dur_d->delta_nanoseconds, 0, 'delta_d nanoseconds is 0' );
+
+ my $dur_ms = $date2->delta_ms($date1);
+
+ is( $dur_ms->delta_months, 0, 'delta_ms months is 0' );
+ is( $dur_ms->delta_days, 0, 'delta_ms days is 0' );
+ is( $dur_ms->delta_minutes, 47584, 'delta_ms minutes is 47584' );
+ is( $dur_ms->delta_seconds, 20, 'delta_ms seconds is 20' );
+ is( $dur_ms->delta_nanoseconds, 0, 'delta_ms nanoseconds is 0' );
+
+ is( $dur_ms->hours, 793, 'hours is 793' );
+ }
+
+ {
+ my $dur_md = $date1->delta_md($date2);
+
+ is( $dur_md->delta_months, 1, 'delta_md months is 1' );
+ is( $dur_md->delta_days, 2, 'delta_md days is 2' );
+ is( $dur_md->delta_minutes, 0, 'delta_md minutes is 0' );
+ is( $dur_md->delta_seconds, 0, 'delta_md seconds is 0' );
+ is( $dur_md->delta_nanoseconds, 0, 'delta_md nanoseconds is 0' );
+
+ my $dur_d = $date1->delta_days($date2);
+
+ is( $dur_d->delta_months, 0, 'delta_d months is 0' );
+ is( $dur_d->delta_days, 33, 'delta_d days is 33' );
+ is( $dur_d->delta_minutes, 0, 'delta_d minutes is 0' );
+ is( $dur_d->delta_seconds, 0, 'delta_d seconds is 0' );
+ is( $dur_d->delta_nanoseconds, 0, 'delta_d nanoseconds is 0' );
+
+ my $dur_ms = $date1->delta_ms($date2);
+
+ is( $dur_ms->delta_months, 0, 'delta_ms months is 0' );
+ is( $dur_ms->delta_days, 0, 'delta_ms days is 0' );
+ is( $dur_ms->delta_minutes, 47584, 'delta_ms minutes is 47584' );
+ is( $dur_ms->delta_seconds, 20, 'delta_ms seconds is 20' );
+ is( $dur_ms->delta_nanoseconds, 0, 'delta_ms nanoseconds is 0' );
+
+ is( $dur_ms->hours, 793, 'hours is 793' );
+ }
+}
+
+{
+ my $date1 = DateTime->new(
+ year => 2001, month => 5, day => 10,
+ hour => 15, minute => 0, second => 0,
+ time_zone => 'UTC'
+ );
+
+ my $date2 = DateTime->new(
+ year => 2001, month => 5, day => 11,
+ hour => 12, minute => 30, second => 10,
+ time_zone => 'UTC'
+ );
+
+ my $dur_ms = $date1->delta_ms($date2);
+
+ is( $dur_ms->delta_months, 0, 'delta_ms months is 0' );
+ is( $dur_ms->delta_days, 0, 'delta_ms days is 0' );
+ is( $dur_ms->delta_minutes, 1290, 'delta_ms minutes is 1290' );
+ is( $dur_ms->delta_seconds, 10, 'delta_ms seconds is 30' );
+ is( $dur_ms->delta_nanoseconds, 0, 'delta_ms nanoseconds is 0' );
+
+ is( $dur_ms->hours, 21, 'hours is 21' );
+}
+
+done_testing();
+
--- /dev/null
+BEGIN {
+ $ENV{PERL_DATETIME_PP} = 1;
+}
+
+use strict;
+use warnings;
+
+use Test::More;
+
+use DateTime;
+
+undef $ENV{PERL_DATETIME_DEFAULT_TZ};
+
+{
+ my $dt = DateTime->new( year => 0 );
+
+ is( $dt->year, 0, 'year is 0' );
+ is( $dt->month, 1, 'month is 1' );
+ is( $dt->day, 1, 'day is 1' );
+ is( $dt->day_of_week, 6, 'day of week is 6' );
+}
+
+{
+ my $dt = DateTime->new( year => 0, month => 12, day => 31 );
+
+ is( $dt->year, 0, 'year is 0' );
+ is( $dt->month, 12, 'month is 12' );
+ is( $dt->day, 31, 'day is 31' );
+ is( $dt->day_of_week, 7, 'day of week is 7' );
+}
+
+{
+ my $dt = DateTime->new( year => -1 );
+
+ is( $dt->year, -1, 'year is -1' );
+ is( $dt->month, 1, 'month is 1' );
+ is( $dt->day, 1, 'day is 1' );
+ is( $dt->day_of_week, 5, 'day of week is 5' );
+}
+
+{
+ my $dt = DateTime->new( year => 1 );
+
+ is( $dt->year, 1, 'year is 1' );
+ is( $dt->month, 1, 'month is 1' );
+ is( $dt->day, 1, 'day is 1' );
+ is( $dt->day_of_week, 1, 'day of week is 1' );
+}
+
+{
+ my $dow = 1;
+ for my $year ( 1, 0, -1 ) {
+ my $days_in_year = $year ? 365 : 366;
+
+ for my $doy ( reverse 1 .. $days_in_year ) {
+ is(
+ DateTime->from_day_of_year(
+ year => $year,
+ day_of_year => $doy,
+ )->day_of_week,
+ $dow,
+ "day of week for day $doy of year $year is $dow"
+ );
+
+ $dow--;
+ $dow = 7 if $dow == 0;
+ }
+ }
+}
+
+done_testing();
+
--- /dev/null
+BEGIN {
+ $ENV{PERL_DATETIME_PP} = 1;
+}
+
+use strict;
+use warnings;
+
+use Test::Fatal;
+use Test::More;
+use Test::Warnings 0.005 ':all';
+
+use DateTime;
+
+undef $ENV{PERL_DATETIME_DEFAULT_TZ};
+
+{
+ my $dt = DateTime->new( year => 1900, month => 12, day => 1 );
+
+ is( "$dt", '1900-12-01T00:00:00', 'stringification overloading' );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 2050, month => 1, day => 15,
+ hour => 20, minute => 10, second => 10
+ );
+
+ my $before_string = '2050-01-15T20:10:09';
+ my $same_string = '2050-01-15T20:10:10';
+ my $after_string = '2050-01-15T20:10:11';
+
+ is( "$dt", $same_string, 'stringification overloading' );
+ ok( $dt eq $same_string, 'eq overloading true' );
+ ok( !( $dt eq $after_string ), 'eq overloading false' );
+ ok( $dt ne $after_string, 'ne overloading true' );
+ ok( !( $dt ne $same_string ), 'ne overloading false' );
+
+ is( $dt cmp $same_string, 0, 'cmp overloading' );
+ is( $dt cmp $after_string, -1, ' less than' );
+ ok( $dt lt $after_string, 'lt overloading' );
+ ok( !( $dt lt $same_string ), ' not' );
+
+ {
+
+ package Other::Date;
+ use overload
+ q[""] => sub { return ${ $_[0] }; },
+ fallback => 1;
+
+ sub new {
+ my ( $class, $date ) = @_;
+ return bless \$date, $class;
+ }
+ }
+
+ my $same_od = Other::Date->new($same_string);
+ my $after_od = Other::Date->new($after_string);
+ my $before_od = Other::Date->new($before_string);
+
+ ok( $dt eq $same_od, 'DateTime eq non-DateTime overloaded object true' );
+ ok( !( $dt eq $after_od ), ' eq false' );
+ ok( $dt ne $after_od, ' ne true' );
+ ok( !( $dt ne $same_od ), ' ne false' );
+
+ is( $dt cmp $same_od, 0, 'cmp overloading' );
+ is( $dt cmp $after_od, -1, ' lt overloading' );
+ ok( $dt lt $after_od, 'lt overloading' );
+ ok( !( $dt lt $same_od ), ' not' );
+
+ is_deeply(
+ [
+ map { $_ . ' - ' . ( ref $_ || 'no ref' ) }
+ sort { $a cmp $b or ref $a cmp ref $b } $same_od, $after_od,
+ $before_od, $dt, $same_string, $after_string, $before_string
+ ],
+ [
+ map { $_ . ' - ' . ( ref $_ || 'no ref' ) } $before_string,
+ $before_od, $same_string, $dt, $same_od, $after_string, $after_od
+ ],
+ 'eq sort'
+ );
+
+ like(
+ exception { my $x = $dt + 1 },
+ qr/Cannot add 1 to a DateTime object/,
+ 'Cannot add plain scalar to a DateTime object'
+ );
+
+ like(
+ exception { my $x = $dt + bless {}, 'FooBar' },
+ qr/Cannot add FooBar=HASH\([^\)]+\) to a DateTime object/,
+ 'Cannot add plain FooBar object to a DateTime object'
+ );
+
+ like(
+ exception { my $x = $dt - 1 },
+ qr/Cannot subtract 1 from a DateTime object/,
+ 'Cannot subtract plain scalar from a DateTime object'
+ );
+
+ like(
+ exception { my $x = $dt - bless {}, 'FooBar' },
+ qr/Cannot subtract FooBar=HASH\([^\)]+\) from a DateTime object/,
+ 'Cannot subtract plain FooBar object from a DateTime object'
+ );
+
+ like(
+ exception { my $x = $dt > 1 },
+ qr/A DateTime object can only be compared to another DateTime object/,
+ 'Cannot compare a DateTime object to a scalar'
+ );
+
+ like(
+ exception { my $x = $dt > bless {}, 'FooBar' },
+ qr/A DateTime object can only be compared to another DateTime object/,
+ 'Cannot compare a DateTime object to a FooBar object'
+ );
+
+ like(
+ warning { my $x = undef; $dt > $x; },
+ qr/uninitialized value in numeric gt .+ at .*x?t.(author.pp.)?29overload\.t/,
+ 'Comparing undef to a DateTime object generates a Perl warning at the right spot ($dt > undef)'
+ );
+
+ like(
+ warning { my $x = undef; $x > $dt; },
+ qr/uninitialized value in numeric gt .+ at .*x?t.(author.pp.)?29overload\.t/,
+ 'Comparing undef to a DateTime object generates a Perl warning at the right spot (undef > $dt)'
+ );
+
+ ok(
+ !( $dt eq 'some string' ),
+ 'DateTime object always compares false to a string'
+ );
+
+ ok(
+ $dt ne 'some string',
+ 'DateTime object always compares false to a string'
+ );
+
+ ok(
+ $dt eq $dt->clone,
+ 'DateTime object is equal to a clone of itself'
+ );
+
+ ok(
+ !( $dt ne $dt->clone ),
+ 'DateTime object is equal to a clone of itself (! ne)'
+ );
+}
+
+done_testing();
+
--- /dev/null
+BEGIN {
+ $ENV{PERL_DATETIME_PP} = 1;
+}
+
+use strict;
+use warnings;
+
+use Test::More;
+
+use DateTime;
+
+undef $ENV{PERL_DATETIME_DEFAULT_TZ};
+
+#
+# This test exercises a bug that occurred when date math did not
+# always make sure to update the utc_year attribute of the given
+# DateTime. The sympton was that the time zone future span generation
+# would fail because utc_year was less than the span's max_year, so
+# span generation wouldn't actually do anything, and it would die with
+# "Invalid local time".
+#
+{
+
+ # Each iteration needs to use a different zone, because if it
+ # works once, the generated spans are cached.
+ for my $add (
+ [ years => 50, 1, 'America/New_York' ],
+ [ days => 50, 365, 'America/Chicago' ],
+ [ minutes => 50, 365 * 1440, 'America/Denver', ],
+ [ seconds => 50, 365 * 1440 * 60, 'America/Los_Angeles' ],
+ [
+ nanoseconds => 50, 365 * 1440 * 60 * 1_000_000_000,
+ 'America/North_Dakota/Center'
+ ],
+
+ [ years => 750, 1, 'Europe/Paris' ],
+ [ days => 750, 365, 'Europe/London' ],
+ [ minutes => 750, 365 * 1440, 'Europe/Brussels', ],
+ [ seconds => 750, 365 * 1440 * 60, 'Europe/Vienna' ],
+ [
+ nanoseconds => 750, 365 * 1440 * 60 * 1_000_000_000,
+ 'Europe/Prague'
+ ],
+ ) {
+
+ my $dt = DateTime->now->set( hour => 12 )->set_time_zone( $add->[3] );
+
+ my $new
+ = eval { $dt->clone->add( $add->[0], $add->[1] * $add->[2] ) };
+
+ is(
+ $@,
+ q{},
+ "Make sure we can add $add->[1] years worth of $add->[0] in $add->[3] time zone"
+ );
+ }
+}
+
+done_testing();
+
--- /dev/null
+BEGIN {
+ $ENV{PERL_DATETIME_PP} = 1;
+}
+
+use strict;
+use warnings;
+
+use Test::Fatal;
+use Test::More;
+
+use DateTime;
+
+undef $ENV{PERL_DATETIME_DEFAULT_TZ};
+
+{
+ package Formatter;
+
+ sub new {
+ return bless {}, __PACKAGE__;
+ }
+
+ sub format_datetime {
+ $_[1]->strftime('%Y%m%d %T');
+ }
+}
+
+my $formatter = Formatter->new();
+
+{
+ is(
+ exception {
+ DateTime->from_epoch( epoch => time(), formatter => $formatter )
+ },
+ undef,
+ 'passed formatter to from_epoch'
+ );
+}
+
+{
+ is(
+ exception {
+ DateTime->new(
+ year => 2004,
+ month => 9,
+ day => 2,
+ hour => 13,
+ minute => 23,
+ second => 34,
+ formatter => $formatter
+ );
+ },
+ undef,
+ 'passed formatter to new'
+ );
+}
+
+{
+ my $from = DateTime->new(
+ year => 2004,
+ month => 9,
+ day => 2,
+ hour => 13,
+ minute => 23,
+ second => 34,
+ formatter => $formatter
+ );
+ my $dt;
+ is(
+ exception {
+ $dt = DateTime->from_object(
+ object => $from,
+ formatter => $formatter
+ );
+ },
+ undef,
+ 'passed formatter to from_object'
+ );
+
+ is(
+ $dt->formatter, $formatter,
+ 'check from_object copies formatter'
+ );
+
+ is( $dt->stringify(), '20040902 13:23:34', 'Format datetime' );
+
+ # check stringification (with formatter)
+ is( $dt->stringify, "$dt", 'Stringification (with formatter)' );
+
+ # check that set() and truncate() don't lose formatter
+ $dt->set( hour => 3 );
+ is(
+ $dt->stringify, '20040902 03:23:34',
+ 'formatter is preserved after set()'
+ );
+
+ $dt->truncate( to => 'minute' );
+ is(
+ $dt->stringify, '20040902 03:23:00',
+ 'formatter is preserved after truncate()'
+ );
+
+ # check if the default behavior works
+ $dt->set_formatter(undef);
+ is( $dt->stringify(), $dt->iso8601, 'Default iso8601 works' );
+
+ # check stringification (default)
+ is(
+ $dt->stringify, "$dt",
+ 'Stringification (no formatter -> format_datetime)'
+ );
+ is(
+ $dt->iso8601, "$dt",
+ 'Stringification (no formatter -> iso8601)'
+ );
+}
+
+done_testing();
+
--- /dev/null
+BEGIN {
+ $ENV{PERL_DATETIME_PP} = 1;
+}
+
+use strict;
+use warnings;
+
+use Test::More;
+
+use DateTime;
+
+undef $ENV{PERL_DATETIME_DEFAULT_TZ};
+
+{
+ my $t = DateTime->new(
+ year => 1972, month => 7, day => 1,
+ hour => 0, minute => 59, second => 58,
+ time_zone => '+0100',
+ );
+
+ is( $t->second, 58, 'second value for leap second T-2, +0100' );
+
+ is(
+ $t->{utc_rd_days}, 720074,
+ 'UTC RD days for leap second T-2'
+ );
+ is(
+ $t->{utc_rd_secs}, 86398,
+ 'UTC RD seconds for leap second T-2'
+ );
+
+ is(
+ $t->{local_rd_days}, 720075,
+ 'local RD days for leap second T-2'
+ );
+ is(
+ $t->{local_rd_secs}, 3598,
+ 'local RD seconds for leap second T-2'
+ );
+}
+
+{
+ my $t = DateTime->new(
+ year => 1972, month => 7, day => 1,
+ hour => 0, minute => 59, second => 59,
+ time_zone => '+0100',
+ );
+
+ is( $t->second, 59, 'second value for leap second T-1, +0100' );
+ is(
+ $t->{utc_rd_days}, 720074,
+ 'UTC RD days for leap second T-1'
+ );
+ is(
+ $t->{utc_rd_secs}, 86399,
+ 'UTC RD seconds for leap second T-1'
+ );
+
+ is(
+ $t->{local_rd_days}, 720075,
+ 'local RD days for leap second T-1'
+ );
+ is(
+ $t->{local_rd_secs}, 3599,
+ 'local RD seconds for leap second T-1'
+ );
+}
+
+{
+ my $t = eval {
+ DateTime->new(
+ year => 1972, month => 7, day => 1,
+ hour => 0, minute => 59, second => 60,
+ time_zone => '+0100',
+ );
+ };
+
+ ok( !$@, 'constructor for second = 60' );
+
+SKIP:
+ {
+ skip 'constructor failed - no object to test', 5
+ unless $t;
+
+ is( $t->second, 60, 'second value for leap second T-0, +0100' );
+ is(
+ $t->{utc_rd_days}, 720074,
+ 'UTC RD days for leap second T-0'
+ );
+ is(
+ $t->{utc_rd_secs}, 86400,
+ 'UTC RD seconds for leap second T-0'
+ );
+
+ is(
+ $t->{local_rd_days}, 720075,
+ 'local RD days for leap second T-0'
+ );
+ is(
+ $t->{local_rd_secs}, 3600,
+ 'local RD seconds for leap second T-0'
+ );
+ }
+}
+
+{
+ my $t = DateTime->new(
+ year => 1972, month => 7, day => 1,
+ hour => 1, minute => 0, second => 0,
+ time_zone => '+0100',
+ );
+
+ is( $t->second, 0, 'second value for leap second T+1, +0100' );
+ is(
+ $t->{utc_rd_days}, 720075,
+ 'UTC RD days for leap second T+1'
+ );
+ is(
+ $t->{utc_rd_secs}, 0,
+ 'UTC RD seconds for leap second T+1'
+ );
+
+ is(
+ $t->{local_rd_days}, 720075,
+ 'local RD days for leap second T+1'
+ );
+ is(
+ $t->{local_rd_secs}, 3601,
+ 'local RD seconds for leap second T+1'
+ );
+}
+
+{
+ my $t = DateTime->new(
+ year => 1972, month => 7, day => 1,
+ hour => 1, minute => 0, second => 1,
+ time_zone => '+0100',
+ );
+
+ is( $t->second, 1, 'second value for leap second T+2, +0100' );
+ is(
+ $t->{utc_rd_days}, 720075,
+ 'UTC RD days for leap second T+2'
+ );
+ is(
+ $t->{utc_rd_secs}, 1,
+ 'UTC RD seconds for leap second T+2'
+ );
+
+ is(
+ $t->{local_rd_days}, 720075,
+ 'local RD days for leap second T+2'
+ );
+ is(
+ $t->{local_rd_secs}, 3602,
+ 'local RD seconds for leap second T+2'
+ );
+}
+
+{
+ my $t = DateTime->new(
+ year => 1972, month => 7, day => 1,
+ hour => 23, minute => 59, second => 59,
+ time_zone => '+0100',
+ );
+
+ is( $t->second, 59, 'second value for end of leap second day, +0100' );
+ is(
+ $t->{utc_rd_days}, 720075,
+ 'UTC RD days for end of leap second day'
+ );
+ is(
+ $t->{utc_rd_secs}, 82799,
+ 'UTC RD seconds for end of leap second day'
+ );
+
+ is(
+ $t->{local_rd_days}, 720075,
+ 'local RD days for leap second day'
+ );
+ is(
+ $t->{local_rd_secs}, 86400,
+ 'local RD seconds for end of leap second day'
+ );
+}
+
+{
+ my $t = DateTime->new(
+ year => 1972, month => 6, day => 30,
+ hour => 22, minute => 59, second => 58,
+ time_zone => '-0100',
+ );
+
+ is( $t->second, 58, 'second value for leap second T-2, -0100' );
+
+ is(
+ $t->{utc_rd_days}, 720074,
+ 'UTC RD days for leap second T-2'
+ );
+ is(
+ $t->{utc_rd_secs}, 86398,
+ 'UTC RD seconds for leap second T-2'
+ );
+
+ is(
+ $t->{local_rd_days}, 720074,
+ 'local RD days for leap second T-2'
+ );
+ is(
+ $t->{local_rd_secs}, 82798,
+ 'local RD seconds for leap second T-2'
+ );
+}
+
+{
+ my $t = DateTime->new(
+ year => 1972, month => 6, day => 30,
+ hour => 22, minute => 59, second => 59,
+ time_zone => '-0100',
+ );
+
+ is( $t->second, 59, 'second value for leap second T-1, -0100' );
+
+ is(
+ $t->{utc_rd_days}, 720074,
+ 'UTC RD days for leap second T-1'
+ );
+ is(
+ $t->{utc_rd_secs}, 86399,
+ 'UTC RD seconds for leap second T-1'
+ );
+
+ is(
+ $t->{local_rd_days}, 720074,
+ 'local RD days for leap second T-1'
+ );
+ is(
+ $t->{local_rd_secs}, 82799,
+ 'local RD seconds for leap second T-1'
+ );
+}
+
+{
+ my $t = eval {
+ DateTime->new(
+ year => 1972, month => 6, day => 30,
+ hour => 22, minute => 59, second => 60,
+ time_zone => '-0100',
+ );
+ };
+
+ ok( !$@, 'constructor for second = 60' );
+
+SKIP:
+ {
+ skip 'constructor failed - no object to test', 5
+ unless $t;
+
+ is( $t->second, 60, 'second value for leap second T-0, -0100' );
+
+ is(
+ $t->{utc_rd_days}, 720074,
+ 'UTC RD days for leap second T-0'
+ );
+ is(
+ $t->{utc_rd_secs}, 86400,
+ 'UTC RD seconds for leap second T-0'
+ );
+
+ is(
+ $t->{local_rd_days}, 720074,
+ 'local RD days for leap second T-0'
+ );
+ is(
+ $t->{local_rd_secs}, 82800,
+ 'local RD seconds for leap second T-0'
+ );
+ }
+}
+
+{
+ my $t = DateTime->new(
+ year => 1972, month => 6, day => 30,
+ hour => 23, minute => 0, second => 0,
+ time_zone => '-0100',
+ );
+
+ is( $t->second, 0, 'second value for leap second T+1, -0100' );
+
+ is(
+ $t->{utc_rd_days}, 720075,
+ 'UTC RD days for leap second T+1'
+ );
+ is(
+ $t->{utc_rd_secs}, 0,
+ 'UTC RD seconds for leap second T+1'
+ );
+
+ is(
+ $t->{local_rd_days}, 720074,
+ 'local RD days for leap second T+1'
+ );
+ is(
+ $t->{local_rd_secs}, 82801,
+ 'local RD seconds for leap second T+1'
+ );
+}
+
+{
+ my $t = DateTime->new(
+ year => 1972, month => 6, day => 30,
+ hour => 23, minute => 0, second => 1,
+ time_zone => '-0100',
+ );
+
+ is( $t->second, 1, 'second value for leap second T+2, -0100' );
+
+ is(
+ $t->{utc_rd_days}, 720075,
+ 'UTC RD days for leap second T+2'
+ );
+ is(
+ $t->{utc_rd_secs}, 1,
+ 'UTC RD seconds for leap second T+2'
+ );
+
+ is(
+ $t->{local_rd_days}, 720074,
+ 'local RD days for leap second T+2'
+ );
+ is(
+ $t->{local_rd_secs}, 82802,
+ 'local RD seconds for leap second T+2'
+ );
+}
+
+done_testing();
+
--- /dev/null
+BEGIN {
+ $ENV{PERL_DATETIME_PP} = 1;
+}
+
+use strict;
+use warnings;
+
+use Test::More;
+
+use DateTime;
+
+undef $ENV{PERL_DATETIME_DEFAULT_TZ};
+
+{
+ my $dt = DateTime->new(
+ year => 1997, month => 6, day => 30,
+ hour => 23, minute => 58, second => 59,
+ time_zone => 'UTC'
+ );
+
+ $dt->set_time_zone('+00:00:30');
+
+ is( $dt->datetime, '1997-06-30T23:59:29', '+00:00:30 leap second T-61' );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 1997, month => 6, day => 30,
+ hour => 23, minute => 59, second => 29,
+ time_zone => 'UTC'
+ );
+
+ $dt->set_time_zone('+00:00:30');
+
+ is( $dt->datetime, '1997-06-30T23:59:59', '+00:00:30 leap second T-31' );
+}
+
+{
+ local $TODO = 'offsets with seconds are broken near leap seconds';
+
+ my $dt = DateTime->new(
+ year => 1997, month => 6, day => 30,
+ hour => 23, minute => 59, second => 30,
+ time_zone => 'UTC'
+ );
+
+ $dt->set_time_zone('+00:00:30');
+
+ is( $dt->datetime, '1997-06-30T23:59:60', '+00:00:30 leap second T-30' );
+}
+
+{
+ local $TODO = 'offsets with seconds are broken near leap seconds';
+
+ my $dt = DateTime->new(
+ year => 1997, month => 6, day => 30,
+ hour => 23, minute => 59, second => 31,
+ time_zone => 'UTC'
+ );
+
+ $dt->set_time_zone('+00:00:30');
+
+ is( $dt->datetime, '1997-07-01T00:00:00', '+00:00:30 leap second T-29' );
+}
+
+{
+ local $TODO = 'offsets with seconds are broken near leap seconds';
+
+ my $dt = DateTime->new(
+ year => 1997, month => 6, day => 30,
+ hour => 23, minute => 59, second => 60,
+ time_zone => 'UTC'
+ );
+
+ $dt->set_time_zone('+00:00:30');
+
+ is( $dt->datetime, '1997-07-01T00:00:30', '+00:00:30 leap second T-0' );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 1997, month => 7, day => 1,
+ hour => 0, minute => 0, second => 0,
+ time_zone => 'UTC'
+ );
+
+ $dt->set_time_zone('+00:00:30');
+
+ is( $dt->datetime, '1997-07-01T00:00:30', '+00:00:30 leap second T+1' );
+}
+
+done_testing();
+
--- /dev/null
+BEGIN {
+ $ENV{PERL_DATETIME_PP} = 1;
+}
+
+use strict;
+use warnings;
+
+use Test::Fatal;
+use Test::More 0.88;
+
+use DateTime;
+
+undef $ENV{PERL_DATETIME_DEFAULT_TZ};
+
+# These tests are for a bug related to a bad interaction between the
+# horrid ->_handle_offset_modifier method and calling ->set_time_zone
+# on a real Olson time zone. When _handle_offset_modifier was called
+# from set_time_zone, it tried calling ->_offset_for_local_datetime,
+# which was bogus, because at that point it doesn't know the local
+# date time any more, only UTC.
+#
+# The fix is to have ->_handle_offset_modifier call ->offset when it
+# knows that UTC is valid, which is determined by an arg to
+# ->_handle_offset_modifier
+
+# These tests come from one of the zdump-generated test files in
+# DT::TZ
+{
+ my $dt = DateTime->new(
+ year => 1922, month => 8, day => 31,
+ hour => 23, minute => 59, second => 59,
+ time_zone => 'UTC',
+ );
+ $dt->set_time_zone('Africa/Accra');
+
+ is( $dt->year, 1922, 'local year should be 1922 (1922-08-31 23:59:59)' );
+ is( $dt->month, 8, 'local month should be 8 (1922-08-31 23:59:59)' );
+ is( $dt->day, 31, 'local day should be 31 (1922-08-31 23:59:59)' );
+ is( $dt->hour, 23, 'local hour should be 23 (1922-08-31 23:59:59)' );
+ is( $dt->minute, 59, 'local minute should be 59 (1922-08-31 23:59:59)' );
+ is( $dt->second, 59, 'local second should be 59 (1922-08-31 23:59:59)' );
+
+ is( $dt->is_dst, 0, 'is_dst should be 0 (1922-08-31 23:59:59)' );
+ is( $dt->offset, 0, 'offset should be 0 (1922-08-31 23:59:59)' );
+ is(
+ $dt->time_zone_short_name, 'GMT',
+ 'short name should be GMT (1922-08-31 23:59:59)'
+ );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 2013,
+ month => 3,
+ day => 10,
+ hour => 2,
+ minute => 4,
+ time_zone => 'floating',
+ );
+
+ like(
+ exception { $dt->set_time_zone('America/Los_Angeles') },
+ qr/\QInvalid local time for date in time zone/,
+ 'got an exception when trying to set time zone when it leads to invalid local time'
+ );
+
+ is(
+ $dt->time_zone()->name(),
+ 'floating',
+ 'time zone was not changed after set_time_zone() throws an exception'
+ );
+}
+
+{
+ my $dt = DateTime->now( time_zone => 'America/Chicago' );
+
+ ok(
+ $dt->set_time_zone('America/Chicago'),
+ 'set_time_zone returns object when time zone name is same as current'
+ );
+
+ ok(
+ $dt->set_time_zone( $dt->time_zone() ),
+ 'set_time_zone returns object when time zone object is same as current'
+ );
+}
+
+done_testing();
+
--- /dev/null
+BEGIN {
+ $ENV{PERL_DATETIME_PP} = 1;
+}
+
+use strict;
+use warnings;
+
+use Test::More;
+
+use DateTime;
+
+undef $ENV{PERL_DATETIME_DEFAULT_TZ};
+
+{
+ my $dt = DateTime->new(
+ year => 2000,
+ hour => 1,
+ nanosecond => 500,
+ time_zone => 'UTC',
+ );
+
+ my ( $utc_rd_days, $utc_rd_secs, $utc_nanosecs ) = $dt->utc_rd_values;
+
+ is( $utc_rd_days, 730120, 'utc rd days is 730120' );
+ is( $utc_rd_secs, 3600, 'utc rd seconds is 3600' );
+ is( $utc_nanosecs, 500, 'nanoseconds is 500' );
+
+ my ( $local_rd_days, $local_rd_secs, $local_nanosecs )
+ = $dt->local_rd_values;
+
+ is( $local_rd_days, $utc_rd_days, 'local & utc rd days are equal' );
+ is( $local_rd_secs, $utc_rd_secs, 'local & utc rd seconds are equal' );
+ is( $local_nanosecs, $utc_nanosecs, 'local & UTC nanoseconds are equal' );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 2000,
+ hour => 1,
+ nanosecond => 500,
+ time_zone => '+02:00',
+ );
+
+ my ( $utc_rd_days, $utc_rd_secs, $utc_nanosecs ) = $dt->utc_rd_values;
+
+ is( $utc_rd_days, 730119, 'utc rd days is 730119' );
+ is( $utc_rd_secs, 82800, 'utc rd seconds is 82800' );
+ is( $utc_nanosecs, 500, 'nanoseconds is 500' );
+
+ my ( $local_rd_days, $local_rd_secs, $local_nanosecs )
+ = $dt->local_rd_values;
+
+ is( $local_rd_days, 730120, 'local rd days is 730120' );
+ is( $local_rd_secs, 3600, 'local rd seconds is 3600' );
+ is( $local_nanosecs, 500, 'local nanoseconds is 500' );
+}
+
+done_testing();
+
--- /dev/null
+BEGIN {
+ $ENV{PERL_DATETIME_PP} = 1;
+}
+
+use strict;
+use warnings;
+
+use Test::Fatal;
+use Test::More;
+
+use DateTime;
+
+undef $ENV{PERL_DATETIME_DEFAULT_TZ};
+
+my $badlt_rx = qr/Invalid local time|local time [0-9\-:T]+ does not exist/;
+
+{
+ like(
+ exception {
+ DateTime->new(
+ year => 2003, month => 4, day => 6,
+ hour => 2, time_zone => 'America/Chicago',
+ );
+ },
+ $badlt_rx,
+ 'exception for invalid time'
+ );
+
+ like(
+ exception {
+ DateTime->new(
+ year => 2003, month => 4, day => 6,
+ hour => 2, minute => 59, second => 59,
+ time_zone => 'America/Chicago',
+ );
+ },
+ $badlt_rx,
+ 'exception for invalid time'
+ );
+}
+
+{
+ is(
+ exception {
+ DateTime->new(
+ year => 2003, month => 4, day => 6,
+ hour => 1, minute => 59, second => 59,
+ time_zone => 'America/Chicago',
+ );
+ },
+ undef,
+ 'no exception for valid time'
+ );
+
+ my $dt = DateTime->new(
+ year => 2003, month => 4, day => 5,
+ hour => 2,
+ time_zone => 'America/Chicago',
+ );
+
+ like(
+ exception { $dt->add( days => 1 ) },
+ $badlt_rx,
+ 'exception for invalid time produced via add'
+ );
+
+ $dt->add( days => 2 );
+
+ my $dt2 = DateTime->new(
+ year => 2003, month => 4, day => 5,
+ hour => 2,
+ time_zone => 'America/Chicago',
+ )->add( days => 2 );
+
+ is( $dt, $dt2, 'adding after failed addition leads to correct result' );
+}
+
+done_testing();
+
--- /dev/null
+BEGIN {
+ $ENV{PERL_DATETIME_PP} = 1;
+}
+
+use strict;
+use warnings;
+
+use Test::Fatal;
+use Test::More;
+
+use DateTime;
+
+undef $ENV{PERL_DATETIME_DEFAULT_TZ};
+
+# These tests should be the final word on dt addition involving a
+# DST-changing time zone
+
+# time addition is "wait X amount of time, then what does the clock
+# say?" this means it acts on the UTC components.
+{
+ my $dt = DateTime->new(
+ year => 2003, month => 4, day => 6,
+ time_zone => 'America/Chicago',
+ );
+
+ $dt->add( hours => 1 );
+ is(
+ $dt->datetime, '2003-04-06T01:00:00',
+ 'add one hour to midnight, get 1 am'
+ );
+
+ is(
+ exception { $dt->add( hours => 1 ) },
+ undef,
+ 'no error adding 1 hour just before DST leap forward'
+ );
+ is(
+ $dt->datetime, '2003-04-06T03:00:00',
+ 'add one hour to 1 am, get 3 am'
+ );
+
+ $dt->subtract( hours => 1 );
+ is(
+ $dt->datetime, '2003-04-06T01:00:00',
+ 'subtract one hour from 3 am, get 1 am'
+ );
+
+ $dt->subtract( hours => 1 );
+ is(
+ $dt->datetime, '2003-04-06T00:00:00',
+ 'subtract one hour from 1 am, get midnight'
+ );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 2003, month => 10, day => 26,
+ time_zone => 'America/Chicago',
+ );
+
+ $dt->add( hours => 1 );
+ is(
+ $dt->datetime, '2003-10-26T01:00:00',
+ 'add one hour to midnight, get 1 am'
+ );
+
+ $dt->add( hours => 1 );
+ is(
+ $dt->datetime, '2003-10-26T01:00:00',
+ 'add one hour to 1 am, get 1 am (again)'
+ );
+
+ $dt->add( hours => 1 );
+ is(
+ $dt->datetime, '2003-10-26T02:00:00',
+ 'add one hour to 1 am (2nd time), get 2 am'
+ );
+
+ $dt->subtract( hours => 1 );
+ is(
+ $dt->datetime, '2003-10-26T01:00:00',
+ 'subtract 1 hour from 2 am, get 1 am'
+ );
+
+ $dt->subtract( hours => 1 );
+ is(
+ $dt->datetime, '2003-10-26T01:00:00',
+ 'subtract 1 hour from 1 am, get 1 am (again)'
+ );
+
+ $dt->subtract( hours => 1 );
+ is(
+ $dt->datetime, '2003-10-26T00:00:00',
+ 'subtract 1 hour from 1 am (2nd), get midnight'
+ );
+}
+
+# date addition is "leave the clock alone, just change the date
+# portion". this means it acts on local components
+{
+ my $dt = DateTime->new(
+ year => 2003, month => 4, day => 6,
+ time_zone => 'America/Chicago',
+ );
+
+ $dt->add( days => 1 );
+ is(
+ $dt->datetime, '2003-04-07T00:00:00',
+ 'add 1 day at midnight, same clock time'
+ );
+
+ $dt->add( months => 7 );
+ is(
+ $dt->datetime, '2003-11-07T00:00:00',
+ 'add 7 months at midnight, same clock time'
+ );
+
+ $dt->subtract( months => 7 );
+ is(
+ $dt->datetime, '2003-04-07T00:00:00',
+ 'subtract 7 months at midnight, same clock time'
+ );
+
+ $dt->subtract( days => 1 );
+ is(
+ $dt->datetime, '2003-04-06T00:00:00',
+ 'subtract 1 day at midnight, same clock time'
+ );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 2003, month => 10, day => 26,
+ time_zone => 'America/Chicago',
+ );
+
+ $dt->add( days => 1 );
+ is(
+ $dt->datetime, '2003-10-27T00:00:00',
+ 'add 1 day at midnight, get midnight'
+ );
+
+ $dt->add( months => 7 );
+ is(
+ $dt->datetime, '2004-05-27T00:00:00',
+ 'add 7 months at midnight, get midnight'
+ );
+
+ $dt->subtract( months => 7 );
+ is(
+ $dt->datetime, '2003-10-27T00:00:00',
+ 'subtract 7 months at midnight, get midnight'
+ );
+
+ $dt->subtract( days => 1 );
+ is(
+ $dt->datetime, '2003-10-26T00:00:00',
+ 'subtract 1 day at midnight, get midnight'
+ );
+}
+
+# date and time addition in one call is still two separate operations.
+# First we do date, then time.
+{
+ my $dt = DateTime->new(
+ year => 2003, month => 4, day => 5,
+ time_zone => 'America/Chicago',
+ );
+
+ $dt->add( days => 1, hours => 2 );
+ is(
+ $dt->datetime, '2003-04-06T03:00:00',
+ 'add one day & 2 hours from midnight, get 3 am'
+ );
+
+ # !!! - not reversible this way - needs some good docs
+ my $dt1 = $dt->clone->subtract( days => 1, hours => 2 );
+ is(
+ $dt1->datetime, '2003-04-05T01:00:00',
+ 'subtract one day & 2 hours from 3 am, get 1 am'
+ );
+
+ # is reversible this way - also needs docs
+ my $dt2 = $dt->clone->subtract( hours => 2 )->subtract( days => 1 );
+ is(
+ $dt2->datetime, '2003-04-05T00:00:00',
+ 'subtract 2 hours and then one day from 3 am, get midnight'
+ );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 2003, month => 10, day => 25,
+ time_zone => 'America/Chicago',
+ );
+
+ $dt->add( days => 1, hours => 2 );
+ is(
+ $dt->datetime, '2003-10-26T01:00:00',
+ 'add one day & 2 hours from midnight, get 1 am'
+ );
+
+ my $dt1 = $dt->clone->subtract( days => 1, hours => 2 );
+ is(
+ $dt1->datetime, '2003-10-24T23:00:00',
+ 'add one day & 2 hours from midnight, get 11 pm'
+ );
+
+ my $dt2 = $dt->clone->subtract( hours => 2 )->subtract( days => 1 );
+ is(
+ $dt2->datetime, '2003-10-25T00:00:00',
+ 'subtract 2 hours and then one day from 3 am, get midnight'
+ );
+}
+
+# an example from the docs
+{
+ my $dt = DateTime->new(
+ year => 2003, month => 4, day => 5,
+ hour => 2,
+ time_zone => 'America/Chicago',
+ );
+
+ $dt->add( hours => 24 );
+
+ is(
+ $dt->datetime, '2003-04-06T03:00:00',
+ 'datetime after adding 24 hours is 2003-04-06T03:00:00'
+ );
+}
+
+done_testing();
+
--- /dev/null
+BEGIN {
+ $ENV{PERL_DATETIME_PP} = 1;
+}
+
+use strict;
+use warnings;
+
+use Test::More;
+
+use DateTime;
+
+undef $ENV{PERL_DATETIME_DEFAULT_TZ};
+
+# These tests should be the final word on dt subtraction involving a
+# DST-changing time zone
+
+{
+ my $dt1 = DateTime->new(
+ year => 2003, month => 5, day => 6,
+ time_zone => 'America/Chicago',
+ );
+
+ my $dt2 = DateTime->new(
+ year => 2003, month => 11, day => 6,
+ time_zone => 'America/Chicago',
+ );
+
+ my $dur1 = $dt2->subtract_datetime($dt1);
+ my %deltas1 = $dur1->deltas;
+ is( $deltas1{months}, 6, 'delta_months is 6' );
+ is( $deltas1{days}, 0, 'delta_days is 0' );
+ is( $deltas1{minutes}, 0, 'delta_minutes is 0' );
+ is( $deltas1{seconds}, 0, 'delta_seconds is 0' );
+
+ is(
+ DateTime->compare( $dt1->clone->add_duration($dur1), $dt2 ), 0,
+ 'subtract_datetime is reversible from start point'
+ );
+ is(
+ DateTime->compare( $dt2->clone->subtract_duration($dur1), $dt1 ), 0,
+ 'subtract_datetime is reversible from end point'
+ );
+ is( $deltas1{nanoseconds}, 0, 'delta_nanoseconds is 0' );
+
+ my $dur2 = $dt1->subtract_datetime($dt2);
+ my %deltas2 = $dur2->deltas;
+ is( $deltas2{months}, -6, 'delta_months is -6' );
+ is( $deltas2{days}, 0, 'delta_days is 0' );
+ is( $deltas2{minutes}, 0, 'delta_minutes is 0' );
+ is( $deltas2{seconds}, 0, 'delta_seconds is 0' );
+ is( $deltas2{nanoseconds}, 0, 'delta_nanoseconds is 0' );
+
+ my $dur3 = $dt2->delta_md($dt1);
+ my %deltas3 = $dur3->deltas;
+ is( $deltas3{months}, 6, 'delta_months is 6' );
+ is( $deltas3{days}, 0, 'delta_days is 0' );
+ is( $deltas3{minutes}, 0, 'delta_minutes is 0' );
+ is( $deltas3{seconds}, 0, 'delta_seconds is 0' );
+ is( $deltas3{nanoseconds}, 0, 'delta_nanoseconds is 0' );
+
+ is(
+ DateTime->compare( $dt1->clone->add_duration($dur3), $dt2 ), 0,
+ 'delta_md is reversible from start point'
+ );
+ is(
+ DateTime->compare( $dt2->clone->subtract_duration($dur3), $dt1 ), 0,
+ 'delta_md is reversible from end point'
+ );
+
+ my $dur4 = $dt2->delta_days($dt1);
+ my %deltas4 = $dur4->deltas;
+ is( $deltas4{months}, 0, 'delta_months is 0' );
+ is( $deltas4{days}, 184, 'delta_days is 184' );
+ is( $deltas4{minutes}, 0, 'delta_minutes is 0' );
+ is( $deltas4{seconds}, 0, 'delta_seconds is 0' );
+ is( $deltas4{nanoseconds}, 0, 'delta_nanoseconds is 0' );
+
+ is(
+ DateTime->compare( $dt1->clone->add_duration($dur3), $dt2 ), 0,
+ 'delta_days is reversible from start point'
+ );
+ is(
+ DateTime->compare( $dt2->clone->subtract_duration($dur4), $dt1 ), 0,
+ 'delta_days is reversible from end point'
+ );
+}
+
+# same as above, but now the UTC hour of the earlier datetime is
+# _greater_ than that of the later one. this checks that overflows
+# are handled correctly.
+{
+ my $dt1 = DateTime->new(
+ year => 2003, month => 5, day => 6, hour => 18,
+ time_zone => 'America/Chicago',
+ );
+
+ my $dt2 = DateTime->new(
+ year => 2003, month => 11, day => 6, hour => 18,
+ time_zone => 'America/Chicago',
+ );
+
+ my $dur1 = $dt2->subtract_datetime($dt1);
+ my %deltas1 = $dur1->deltas;
+ is( $deltas1{months}, 6, 'delta_months is 6' );
+ is( $deltas1{days}, 0, 'delta_days is 0' );
+ is( $deltas1{minutes}, 0, 'delta_minutes is 0' );
+ is( $deltas1{seconds}, 0, 'delta_seconds is 0' );
+ is( $deltas1{nanoseconds}, 0, 'delta_nanoseconds is 0' );
+}
+
+# make sure delta_md and delta_days work in the face of DST change
+# where we lose an hour
+{
+ my $dt1 = DateTime->new(
+ year => 2003, month => 11, day => 6,
+ time_zone => 'America/Chicago',
+ );
+
+ my $dt2 = DateTime->new(
+ year => 2004, month => 5, day => 6,
+ time_zone => 'America/Chicago',
+ );
+
+ my $dur1 = $dt2->delta_md($dt1);
+ my %deltas1 = $dur1->deltas;
+ is( $deltas1{months}, 6, 'delta_months is 6' );
+ is( $deltas1{days}, 0, 'delta_days is 0' );
+ is( $deltas1{minutes}, 0, 'delta_minutes is 0' );
+ is( $deltas1{seconds}, 0, 'delta_seconds is 0' );
+ is( $deltas1{nanoseconds}, 0, 'delta_nanoseconds is 0' );
+
+ my $dur2 = $dt2->delta_days($dt1);
+ my %deltas2 = $dur2->deltas;
+ is( $deltas2{months}, 0, 'delta_months is 0' );
+ is( $deltas2{days}, 182, 'delta_days is 182' );
+ is( $deltas2{minutes}, 0, 'delta_minutes is 0' );
+ is( $deltas2{seconds}, 0, 'delta_seconds is 0' );
+ is( $deltas2{nanoseconds}, 0, 'delta_nanoseconds is 0' );
+
+}
+
+# the docs say use UTC to guarantee reversibility
+{
+ my $dt1 = DateTime->new(
+ year => 2003, month => 5, day => 6,
+ time_zone => 'America/Chicago',
+ );
+
+ my $dt2 = DateTime->new(
+ year => 2003, month => 11, day => 6,
+ time_zone => 'America/Chicago',
+ );
+
+ $dt1->set_time_zone('UTC');
+ $dt2->set_time_zone('UTC');
+
+ my $dur = $dt2->subtract_datetime($dt1);
+
+ is(
+ DateTime->compare( $dt1->add_duration($dur), $dt2 ), 0,
+ 'subtraction is reversible from start point with UTC'
+ );
+ is(
+ DateTime->compare( $dt2->subtract_duration($dur), $dt2 ), 0,
+ 'subtraction is reversible from start point with UTC'
+ );
+}
+
+# The important thing here is that after a subtraction, we can use the
+# duration to get from one date to the other, regardless of the type
+# of subtraction done.
+{
+ my $dt1 = DateTime->new(
+ year => 2003, month => 5, day => 6,
+ time_zone => 'America/Chicago',
+ );
+
+ my $dt2 = DateTime->new(
+ year => 2003, month => 11, day => 6,
+ time_zone => 'America/Chicago',
+ );
+
+ my $dur1 = $dt2->subtract_datetime_absolute($dt1);
+
+ my %deltas1 = $dur1->deltas;
+ is( $deltas1{months}, 0, 'delta_months is 0' );
+ is( $deltas1{days}, 0, 'delta_days is 0' );
+ is( $deltas1{minutes}, 0, 'delta_minutes is 0' );
+ is( $deltas1{seconds}, 15901200, 'delta_seconds is 15901200' );
+ is( $deltas1{nanoseconds}, 0, 'delta_nanoseconds is 0' );
+
+ is(
+ DateTime->compare( $dt1->clone->add_duration($dur1), $dt2 ), 0,
+ 'subtraction is reversible'
+ );
+ is(
+ DateTime->compare( $dt2->clone->subtract_duration($dur1), $dt1 ), 0,
+ 'subtraction is doubly reversible'
+ );
+
+ my $dur2 = $dt1->subtract_datetime_absolute($dt2);
+
+ my %deltas2 = $dur2->deltas;
+ is( $deltas2{months}, 0, 'delta_months is 0' );
+ is( $deltas2{days}, 0, 'delta_days is 0' );
+ is( $deltas2{minutes}, 0, 'delta_minutes is 0' );
+ is( $deltas2{seconds}, -15901200, 'delta_seconds is -15901200' );
+ is( $deltas2{nanoseconds}, 0, 'delta_nanoseconds is 0' );
+
+ is(
+ DateTime->compare( $dt2->clone->add_duration($dur2), $dt1 ), 0,
+ 'subtraction is reversible'
+ );
+ is(
+ DateTime->compare( $dt1->clone->subtract_duration($dur2), $dt2 ), 0,
+ 'subtraction is doubly reversible'
+ );
+}
+
+{
+ my $dt1 = DateTime->new(
+ year => 2003, month => 4, day => 6,
+ hour => 1, minute => 58,
+ time_zone => 'America/Chicago',
+ );
+
+ my $dt2 = DateTime->new(
+ year => 2003, month => 4, day => 6,
+ hour => 3, minute => 1,
+ time_zone => 'America/Chicago',
+ );
+
+ my $dur = $dt2->subtract_datetime($dt1);
+
+ my %deltas = $dur->deltas;
+ is( $deltas{months}, 0, 'delta_months is 0' );
+ is( $deltas{days}, 0, 'delta_days is 0' );
+ is( $deltas{minutes}, 3, 'delta_minutes is 3' );
+ is( $deltas{seconds}, 0, 'delta_seconds is 0' );
+ is( $deltas{nanoseconds}, 0, 'delta_nanoseconds is 0' );
+
+ is(
+ DateTime->compare( $dt1->clone->add_duration($dur), $dt2 ), 0,
+ 'subtraction is reversible'
+ );
+ is(
+ DateTime->compare( $dt2->clone->subtract_duration($dur), $dt1 ), 0,
+ 'subtraction is doubly reversible'
+ );
+}
+
+{
+ my $dt1 = DateTime->new(
+ year => 2003, month => 4, day => 5,
+ hour => 1, minute => 58,
+ time_zone => 'America/Chicago',
+ );
+
+ my $dt2 = DateTime->new(
+ year => 2003, month => 4, day => 6,
+ hour => 3, minute => 1,
+ time_zone => 'America/Chicago',
+ );
+
+ my $dur = $dt2->subtract_datetime($dt1);
+
+ my %deltas = $dur->deltas;
+ is( $deltas{months}, 0, 'delta_months is 0' );
+ is( $deltas{days}, 1, 'delta_days is 1' );
+ is( $deltas{minutes}, 3, 'delta_minutes is 3' );
+ is( $deltas{seconds}, 0, 'delta_seconds is 0' );
+ is( $deltas{nanoseconds}, 0, 'delta_nanoseconds is 0' );
+
+ is(
+ DateTime->compare( $dt1->clone->add_duration($dur), $dt2 ), 0,
+ 'dt1 + dur = dt2'
+ );
+
+ # this are two examples from the docs
+ is(
+ DateTime->compare(
+ $dt2->clone->subtract_duration($dur),
+ $dt1->clone->add( hours => 1 )
+ ),
+ 0,
+ 'dt2 - dur != dt1 (not reversible)'
+ );
+ is(
+ DateTime->compare(
+ $dt2->clone->subtract_duration( $dur->clock_duration )
+ ->subtract_duration( $dur->calendar_duration ),
+ $dt1
+ ),
+ 0,
+ 'dt2 - dur->clock - dur->cal = dt1 (reversible when componentized)'
+ );
+
+ my $dur2 = $dt1->subtract_datetime($dt2);
+ my %deltas2 = $dur2->deltas;
+ is( $deltas2{months}, 0, 'delta_months is 0' );
+ is( $deltas2{days}, -1, 'delta_days is 1' );
+ is( $deltas2{minutes}, -3, 'delta_minutes is 3' );
+ is( $deltas2{seconds}, 0, 'delta_seconds is 0' );
+ is( $deltas2{nanoseconds}, 0, 'delta_nanoseconds is 0' );
+ is(
+ $dt2->clone->add_duration($dur2)->datetime, '2003-04-05T02:58:00',
+ 'dt2 + dur2 != dt1'
+ );
+ is(
+ DateTime->compare(
+ $dt2->clone->add_duration( $dur2->clock_duration )
+ ->add_duration( $dur2->calendar_duration ),
+ $dt1
+ ),
+ 0,
+ 'dt2 + dur2->clock + dur2->cal = dt1'
+ );
+ is(
+ DateTime->compare( $dt1->clone->subtract_duration($dur2), $dt2 ), 0,
+ 'dt1 - dur2 = dt2'
+ );
+
+}
+
+# These tests makes sure that days with DST changes are "normal" when
+# they're the smaller operand
+{
+ my $dt1 = DateTime->new(
+ year => 2003, month => 4, day => 6,
+ hour => 3, minute => 1,
+ time_zone => 'America/Chicago',
+ );
+
+ my $dt2 = DateTime->new(
+ year => 2003, month => 4, day => 7,
+ hour => 3, minute => 2,
+ time_zone => 'America/Chicago',
+ );
+
+ my $dur = $dt2->subtract_datetime($dt1);
+
+ my %deltas = $dur->deltas;
+ is( $deltas{months}, 0, 'delta_months is 0' );
+ is( $deltas{days}, 1, 'delta_days is 1' );
+ is( $deltas{minutes}, 1, 'delta_minutes is 1' );
+ is( $deltas{seconds}, 0, 'delta_seconds is 0' );
+ is( $deltas{nanoseconds}, 0, 'delta_nanoseconds is 0' );
+
+ my $dur2 = $dt1->subtract_datetime($dt2);
+
+ my %deltas2 = $dur2->deltas;
+ is( $deltas2{months}, 0, 'delta_months is 0' );
+ is( $deltas2{days}, -1, 'delta_days is -1' );
+ is( $deltas2{minutes}, -1, 'delta_minutes is -1' );
+ is( $deltas2{seconds}, 0, 'delta_seconds is 0' );
+ is( $deltas2{nanoseconds}, 0, 'delta_nanoseconds is 0' );
+
+}
+
+{
+ my $dt1 = DateTime->new(
+ year => 2003, month => 4, day => 5,
+ hour => 1, minute => 58,
+ time_zone => 'America/Chicago',
+ );
+
+ my $dt2 = DateTime->new(
+ year => 2003, month => 4, day => 7,
+ hour => 2, minute => 1,
+ time_zone => 'America/Chicago',
+ );
+
+ my $dur = $dt2->subtract_datetime($dt1);
+
+ my %deltas = $dur->deltas;
+ is( $deltas{months}, 0, 'delta_months is 0' );
+ is( $deltas{days}, 2, 'delta_days is 2' );
+ is( $deltas{minutes}, 3, 'delta_minutes is 3' );
+ is( $deltas{seconds}, 0, 'delta_seconds is 0' );
+ is( $deltas{nanoseconds}, 0, 'delta_nanoseconds is 0' );
+
+ is(
+ DateTime->compare( $dt1->clone->add_duration($dur), $dt2 ), 0,
+ 'subtraction is reversible'
+ );
+ is(
+ DateTime->compare( $dt2->clone->subtract_duration($dur), $dt1 ), 0,
+ 'subtraction is doubly reversible'
+ );
+}
+
+# from example in docs
+{
+ my $dt1 = DateTime->new(
+ year => 2003, month => 5, day => 6,
+ time_zone => 'America/Chicago',
+ );
+
+ my $dt2 = DateTime->new(
+ year => 2003, month => 11, day => 6,
+ time_zone => 'America/Chicago',
+ );
+
+ $dt1->set_time_zone('floating');
+ $dt2->set_time_zone('floating');
+
+ my $dur = $dt2->subtract_datetime($dt1);
+ my %deltas = $dur->deltas;
+ is( $deltas{months}, 6, 'delta_months is 6' );
+ is( $deltas{days}, 0, 'delta_days is 0' );
+ is( $deltas{minutes}, 0, 'delta_minutes is 0' );
+ is( $deltas{seconds}, 0, 'delta_seconds is 0' );
+ is( $deltas{nanoseconds}, 0, 'delta_nanoseconds is 0' );
+
+ is(
+ DateTime->compare( $dt1->clone->add_duration($dur), $dt2 ), 0,
+ 'subtraction is reversible from start point'
+ );
+ is(
+ DateTime->compare( $dt2->clone->subtract_duration($dur), $dt1 ), 0,
+ 'subtraction is reversible from end point'
+ );
+}
+
+{
+ my $dt1 = DateTime->new(
+ year => 2005, month => 8,
+ time_zone => 'Europe/London',
+ );
+
+ my $dt2 = DateTime->new(
+ year => 2005, month => 11,
+ time_zone => 'Europe/London',
+ );
+
+ my $dur = $dt2->subtract_datetime($dt1);
+ my %deltas = $dur->deltas;
+ is(
+ $deltas{months}, 3,
+ '3 months between two local times over DST change'
+ );
+ is( $deltas{days}, 0, '0 days between two local times over DST change' );
+ is(
+ $deltas{minutes}, 0,
+ '0 minutes between two local times over DST change'
+ );
+}
+
+# same as previous but without hours overflow
+{
+ my $dt1 = DateTime->new(
+ year => 2005, month => 8, hour => 12,
+ time_zone => 'Europe/London',
+ );
+
+ my $dt2 = DateTime->new(
+ year => 2005, month => 11, hour => 12,
+ time_zone => 'Europe/London',
+ );
+
+ my $dur = $dt2->subtract_datetime($dt1);
+ my %deltas = $dur->deltas;
+ is(
+ $deltas{months}, 3,
+ '3 months between two local times over DST change'
+ );
+ is( $deltas{days}, 0, '0 days between two local times over DST change' );
+ is(
+ $deltas{minutes}, 0,
+ '0 minutes between two local times over DST change'
+ );
+}
+
+# another docs example
+{
+ my $dt2 = DateTime->new(
+ year => 2003, month => 10, day => 26,
+ hour => 1,
+ time_zone => 'America/Chicago',
+ );
+
+ my $dt1 = $dt2->clone->subtract( hours => 1 );
+
+ my $dur = $dt2->subtract_datetime($dt1);
+
+ my %deltas = $dur->deltas;
+ is(
+ $deltas{months}, 0,
+ '0 months between two local times over DST change'
+ );
+ is( $deltas{days}, 0, '0 days between two local times over DST change' );
+ is(
+ $deltas{minutes}, 60,
+ '60 minutes between two local times over DST change'
+ );
+
+ is(
+ DateTime->compare( $dt1->clone->add_duration($dur), $dt2 ), 0,
+ 'subtraction is reversible'
+ );
+ is(
+ DateTime->compare( $dt2->clone->subtract_duration($dur), $dt1 ), 0,
+ 'subtraction is doubly reversible'
+ );
+}
+
+{
+ my $dt1 = DateTime->new(
+ year => 2003, month => 5, day => 6,
+ time_zone => 'America/New_York',
+ );
+
+ my $dt2 = DateTime->new(
+ year => 2003, month => 5, day => 6,
+ time_zone => 'America/Chicago',
+ );
+
+ my $dur = $dt2->subtract_datetime($dt1);
+
+ my %deltas = $dur->deltas;
+ is(
+ $deltas{months}, 0,
+ '0 months between two local times over DST change'
+ );
+ is( $deltas{days}, 0, '0 days between two local times over DST change' );
+ is(
+ $deltas{minutes}, 60,
+ '60 minutes between two local times over DST change'
+ );
+
+ is(
+ DateTime->compare( $dt1->clone->add_duration($dur), $dt2 ), 0,
+ 'subtraction is reversible'
+ );
+ is(
+ DateTime->compare( $dt2->clone->subtract_duration($dur), $dt1 ), 0,
+ 'subtraction is doubly reversible'
+ );
+}
+
+# Fix a bug that occurred when the local time zone had DST and the two
+# datetime objects were on the same day
+{
+ my $dt1 = DateTime->new(
+ year => 2005, month => 4, day => 3,
+ hour => 7, minute => 0,
+ time_zone => 'America/New_York'
+ );
+
+ my $dt2 = DateTime->new(
+ year => 2005, month => 4, day => 3,
+ hour => 8, minute => 0,
+ time_zone => 'America/New_York'
+ );
+
+ my $dur = $dt2->subtract_datetime($dt1);
+ my ( $minutes, $seconds ) = $dur->in_units( 'minutes', 'seconds' );
+
+ is(
+ $minutes, 60,
+ 'subtraction of two dates on a DST change date, minutes == 60'
+ );
+ is(
+ $seconds, 0,
+ 'subtraction of two dates on a DST change date, seconds == 0'
+ );
+
+ $dur = $dt1->subtract_datetime($dt1);
+ ok(
+ $dur->is_zero,
+ 'dst change date (no dst) - itself, duration is zero'
+ );
+}
+
+{
+ my $dt1 = DateTime->new(
+ year => 2005, month => 4, day => 3,
+ hour => 1, minute => 0,
+ time_zone => 'America/New_York'
+ );
+
+ my $dur = $dt1->subtract_datetime($dt1);
+ ok(
+ $dur->is_zero,
+ 'dst change date (with dst) - itself, duration is zero'
+ );
+}
+
+# This tests a bug where one of the datetimes is changing DST, and the
+# other is not. In this case, no "adjustments" (aka hacks) are made in
+# subtract_datetime, and it just gives the "UTC difference".
+{
+
+ # This is UTC-4
+ my $dt1 = DateTime->new(
+ year => 2009, month => 3, day => 9,
+ time_zone => 'America/New_York'
+ );
+
+ # This is UTC+8
+ my $dt2 = DateTime->new(
+ year => 2009, month => 3, day => 9,
+ time_zone => 'Asia/Hong_Kong'
+ );
+
+ my $dur = $dt1->subtract_datetime($dt2);
+
+ is(
+ $dur->delta_minutes, 720,
+ 'subtraction the day after a DST change in one zone, where the other datetime is in a different zone'
+ );
+}
+
+{
+
+ # This is UTC-5
+ my $dt1 = DateTime->new(
+ year => 2009, month => 3, day => 8,
+ hour => 1,
+ time_zone => 'America/New_York'
+ );
+
+ # This is UTC+8
+ my $dt2 = DateTime->new(
+ year => 2009, month => 3, day => 8,
+ hour => 1,
+ time_zone => 'Asia/Hong_Kong'
+ );
+
+ my $dur = $dt1->subtract_datetime($dt2);
+
+ is(
+ $dur->delta_minutes, 780,
+ 'subtraction the day of a DST change in one zone (before the change),'
+ . ' where the other datetime is in a different zone'
+ );
+}
+
+{
+
+ # This is UTC-4
+ my $dt1 = DateTime->new(
+ year => 2009, month => 3, day => 8,
+ hour => 4,
+ time_zone => 'America/New_York'
+ );
+
+ # This is UTC+8
+ my $dt2 = DateTime->new(
+ year => 2009, month => 3, day => 8,
+ hour => 4,
+ time_zone => 'Asia/Hong_Kong'
+ );
+
+ my $dur = $dt1->subtract_datetime($dt2);
+
+ is(
+ $dur->delta_minutes, 720,
+ 'subtraction the day of a DST change in one zone (after the change),'
+ . ' where the other datetime is in a different zone'
+ );
+}
+
+done_testing();
+
--- /dev/null
+BEGIN {
+ $ENV{PERL_DATETIME_PP} = 1;
+}
+
+use strict;
+use warnings;
+
+use Test::More;
+
+use DateTime;
+
+undef $ENV{PERL_DATETIME_DEFAULT_TZ};
+
+## no critic (Subroutines::ProtectPrivateSubs)
+for my $y ( 0, 400, 2000, 2004 ) {
+ ok( DateTime->_is_leap_year($y), "$y is a leap year" );
+}
+
+for my $y ( 1, 100, 1900, 2133 ) {
+ ok( !DateTime->_is_leap_year($y), "$y is not a leap year" );
+}
+
+done_testing();
+
--- /dev/null
+BEGIN {
+ $ENV{PERL_DATETIME_PP} = 1;
+}
+
+use strict;
+use warnings;
+use utf8;
+
+use Test::More;
+
+use DateTime;
+
+undef $ENV{PERL_DATETIME_DEFAULT_TZ};
+
+for my $o (
+ Test::Builder->new->output,
+ Test::Builder->new->failure_output,
+ Test::Builder->new->todo_output
+) {
+ binmode $o, ':encoding(UTF-8)' or die $!;
+}
+
+{
+ my $dt = DateTime->new(
+ year => 1976,
+ month => 10,
+ day => 20,
+ hour => 18,
+ minute => 34,
+ second => 55,
+ nanosecond => 1_000_000,
+ locale => 'en',
+ time_zone => 'America/Chicago',
+ );
+
+ my %tests = (
+ 'GGGGG' => 'A',
+ 'GGGG' => 'Anno Domini',
+ 'GGG' => 'AD',
+ 'GG' => 'AD',
+ 'G' => 'AD',
+
+ 'yyyyy' => '01976',
+ 'yyyy' => '1976',
+ 'yyy' => '1976',
+ 'yy' => '76',
+ 'y' => '1976',
+
+ 'uuuuuu' => '001976',
+ 'uuuuu' => '01976',
+ 'uuuu' => '1976',
+ 'uuu' => '1976',
+ 'uu' => '1976',
+ 'u' => '1976',
+
+ 'YYYYY' => '01976',
+ 'YYYY' => '1976',
+ 'YYY' => '1976',
+ 'YY' => '1976',
+ 'Y' => '1976',
+
+ 'QQQQ' => '4th quarter',
+ 'QQQ' => 'Q4',
+ 'QQ' => '04',
+ 'Q' => '4',
+
+ 'qqqq' => '4th quarter',
+ 'qqq' => 'Q4',
+ 'qq' => '04',
+ 'q' => '4',
+
+ 'MMMMM' => 'O',
+ 'MMMM' => 'October',
+ 'MMM' => 'Oct',
+ 'MM' => '10',
+ 'M' => '10',
+
+ 'LLLLL' => 'O',
+ 'LLLL' => 'October',
+ 'LLL' => 'Oct',
+ 'LL' => '10',
+ 'L' => '10',
+
+ 'ww' => '43',
+ 'w' => '43',
+ 'W' => '3',
+
+ 'dd' => '20',
+ 'd' => '20',
+
+ 'DDD' => '294',
+ 'DD' => '294',
+ 'D' => '294',
+
+ 'F' => '3',
+ 'gggggg' => '043071',
+ 'g' => '43071',
+
+ 'EEEEE' => 'W',
+ 'EEEE' => 'Wednesday',
+ 'EEE' => 'Wed',
+ 'EE' => 'Wed',
+ 'E' => 'Wed',
+
+ 'eeeee' => 'W',
+ 'eeee' => 'Wednesday',
+ 'eee' => 'Wed',
+ 'ee' => '03',
+ 'e' => '3',
+
+ 'ccccc' => 'W',
+ 'cccc' => 'Wednesday',
+ 'ccc' => 'Wed',
+ 'cc' => '03',
+ 'c' => '3',
+
+ 'a' => 'PM',
+
+ 'hh' => '06',
+ 'h' => '6',
+ 'HH' => '18',
+ 'H' => '18',
+ 'KK' => '06',
+ 'K' => '6',
+ 'kk' => '18',
+ 'j' => '6',
+ 'jj' => '06',
+
+ 'mm' => '34',
+ 'm' => '34',
+
+ 'ss' => '55',
+ 's' => '55',
+ 'SS' => '00',
+ 'SSSSSS' => '001000',
+ 'A' => '66895001',
+
+ 'zzzz' => 'America/Chicago',
+ 'zzz' => 'CDT',
+ 'ZZZZ' => 'CDT-0500',
+ 'ZZZ' => '-0500',
+ 'vvvv' => 'America/Chicago',
+ 'vvv' => 'CDT',
+ 'VVVV' => 'America/Chicago',
+ 'VVV' => 'CDT',
+ 'ZZZZZ' => '-05:00',
+
+ q{'one fine day'} => 'one fine day',
+ q{'yy''yy' yyyy} => q{yy'yy 1976},
+
+ q{'yy''yy' 'hello' yyyy} => q{yy'yy hello 1976},
+
+ # Non-pattern text should pass through unchanged
+ 'dæ—¥' => '20æ—¥',
+ );
+
+ for my $k ( sort keys %tests ) {
+ is(
+ $dt->format_cldr($k), $tests{$k},
+ "format_cldr for $k"
+ );
+ }
+}
+
+{
+ my $dt = DateTime->new(
+ year => 2008,
+ month => 10,
+ day => 20,
+ hour => 18,
+ minute => 34,
+ second => 55,
+ nanosecond => 1_000_000,
+ locale => 'en',
+ time_zone => 'America/Chicago',
+ );
+
+ is(
+ $dt->format_cldr('yy'), '08',
+ 'format_cldr for yy in 2008 should be 08'
+ );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 2008,
+ month => 10,
+ day => 20,
+ hour => 18,
+ minute => 34,
+ second => 55,
+ nanosecond => 1_000_000,
+ locale => 'en_US',
+ time_zone => 'America/Chicago',
+ );
+
+ is(
+ $dt->format_cldr('j'), '6',
+ 'format_cldr for j in en_US should be 6 (at 18:34)'
+ );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 2008,
+ month => 10,
+ day => 20,
+ hour => 18,
+ minute => 34,
+ second => 55,
+ nanosecond => 1_000_000,
+ locale => 'fr',
+ time_zone => 'America/Chicago',
+ );
+
+ is(
+ $dt->format_cldr('j'), '18',
+ 'format_cldr for j in fr should be 18 (at 18:34)'
+ );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 2009,
+ month => 4,
+ day => 13,
+ locale => 'en_US',
+ );
+
+ is(
+ $dt->format_cldr('e'), '2',
+ 'format_cldr for e in en_US should be 2 (for Monday, 2009-04-13)'
+ );
+
+ is(
+ $dt->format_cldr('c'), '1',
+ 'format_cldr for c in en_US should be 1 (for Monday, 2009-04-13)'
+ );
+}
+
+{
+ my $dt = DateTime->new(
+ year => 2009,
+ month => 4,
+ day => 13,
+ locale => 'fr_FR',
+ );
+
+ is(
+ $dt->format_cldr('e'), '1',
+ 'format_cldr for e in fr_FR should be 1 (for Monday, 2009-04-13)'
+ );
+
+ is(
+ $dt->format_cldr('c'), '1',
+ 'format_cldr for c in fr_FR should be 1 (for Monday, 2009-04-13)'
+ );
+}
+
+{
+ my $dt = DateTime->new( year => -10 );
+
+ my %tests = (
+ 'y' => '-10',
+ 'yy' => '-10',
+ 'yyy' => '-10',
+ 'yyyy' => '-010',
+ 'yyyyy' => '-0010',
+
+ 'u' => '-10',
+ 'uu' => '-10',
+ 'uuu' => '-10',
+ 'uuuu' => '-010',
+ 'uuuuu' => '-0010',
+ );
+
+ for my $k ( sort keys %tests ) {
+ is(
+ $dt->format_cldr($k), $tests{$k},
+ "format_cldr for $k"
+ );
+ }
+}
+
+{
+ my $dt = DateTime->new( year => -1976 );
+
+ my %tests = (
+ 'y' => '-1976',
+ 'yy' => '-76',
+ 'yyy' => '-1976',
+ 'yyyy' => '-1976',
+ 'yyyyy' => '-1976',
+
+ 'u' => '-1976',
+ 'uu' => '-1976',
+ 'uuu' => '-1976',
+ 'uuuu' => '-1976',
+ 'uuuuu' => '-1976',
+ );
+
+ for my $k ( sort keys %tests ) {
+ is(
+ $dt->format_cldr($k), $tests{$k},
+ "format_cldr for $k"
+ );
+ }
+}
+
+{
+ my $dt = DateTime->new(
+ year => 1976,
+ month => 10,
+ day => 20,
+ hour => 18,
+ minute => 34,
+ second => 55,
+ nanosecond => 999_999_999,
+ locale => 'en',
+ time_zone => 'UTC',
+ );
+
+ is(
+ $dt->format_cldr('ss,SSS'),
+ '55,999',
+ 'milliseconds are rounded down',
+ );
+}
+
+{
+ my $dt = DateTime->new( year => 2019, nanosecond => 10 );
+ is(
+ '00000001000000',
+ $dt->format_cldr('SSSSSSSSSSSSSS'),
+ 'formatting nanosecond to > 9 digits of precision works',
+ );
+}
+
+done_testing();
+
--- /dev/null
+BEGIN {
+ $ENV{PERL_DATETIME_PP} = 1;
+}
+
+## no critic (Modules::ProhibitMultiplePackages)
+use strict;
+use warnings;
+
+use Test::More;
+use DateTime;
+
+undef $ENV{PERL_DATETIME_DEFAULT_TZ};
+
+{
+ package DateTime::MySubclass;
+ use parent 'DateTime';
+
+ sub duration_class {'DateTime::Duration::MySubclass'}
+
+ package DateTime::Duration::MySubclass;
+ use parent 'DateTime::Duration';
+
+ sub is_my_subclass {1}
+}
+
+my $dt = DateTime::MySubclass->now;
+my $delta = $dt - $dt;
+
+isa_ok( $delta, 'DateTime::Duration::MySubclass' );
+isa_ok( $dt + $delta, 'DateTime::MySubclass' );
+
+my $delta_days = $dt->delta_days($dt);
+isa_ok( $delta_days, 'DateTime::Duration::MySubclass' );
+
+done_testing();
+
--- /dev/null
+BEGIN {
+ $ENV{PERL_DATETIME_PP} = 1;
+}
+
+use strict;
+use warnings;
+
+use Test::Fatal;
+use Test::More;
+
+use DateTime;
+
+undef $ENV{PERL_DATETIME_DEFAULT_TZ};
+
+like(
+ exception { DateTime->new( year => 10.5 ) },
+ qr/Validation failed for type named Year/,
+ 'year must be an integer'
+);
+like(
+ exception { DateTime->new( year => -10.5 ) },
+ qr/Validation failed for type named Year/,
+ 'year must be an integer'
+);
+
+like(
+ exception { DateTime->new( year => 10, month => 2.5 ) },
+ qr/Validation failed for type named Month/,
+ 'month must be an integer'
+);
+
+like(
+ exception { DateTime->new( year => 10, month => 2, day => 12.4 ) },
+ qr/Validation failed for type named DayOfMonth/,
+ 'day must be an integer'
+);
+
+like(
+ exception {
+ DateTime->new( year => 10, month => 2, day => 12, hour => 4.1 );
+ },
+ qr/Validation failed for type named Hour/,
+ 'hour must be an integer'
+);
+
+like(
+ exception {
+ DateTime->new(
+ year => 10,
+ month => 2,
+ day => 12,
+ hour => 4,
+ minute => 12.2
+ );
+ },
+ qr/Validation failed for type named Minute/,
+ 'minute must be an integer'
+);
+
+like(
+ exception {
+ DateTime->new(
+ year => 10,
+ month => 2,
+ day => 12,
+ hour => 4,
+ minute => 12,
+ second => 51.8
+ );
+ },
+ qr/Validation failed for type named Second/,
+ 'second must be an integer'
+);
+
+like(
+ exception {
+ DateTime->new(
+ year => 10,
+ month => 2,
+ day => 12,
+ hour => 4,
+ minute => 12,
+ second => 51,
+ nanosecond => 124512.12412
+ );
+ },
+ qr/Validation failed for type named Nanosecond/,
+ 'nanosecond must be an integer'
+);
+
+like(
+ exception {
+ DateTime->new( year => 10, month => 2, day => 12 )->today;
+ },
+ qr/called with reference/,
+ 'today must be called as a class method, not an object method'
+);
+
+like(
+ exception {
+ DateTime->new( year => 10, month => 2, day => 12 )->now;
+ },
+ qr/called with reference/,
+ 'now must be called as a class method, not an object method'
+);
+
+done_testing();
+
--- /dev/null
+BEGIN {
+ $ENV{PERL_DATETIME_PP} = 1;
+}
+
+use strict;
+use warnings;
+
+use Test::Fatal;
+use Test::More;
+
+use DateTime;
+use overload;
+
+undef $ENV{PERL_DATETIME_DEFAULT_TZ};
+
+my $dt = DateTime->now;
+
+like(
+ exception { $dt->set_formatter('Invalid::Formatter') },
+ qr/\QValidation failed for type named Maybe[Formatter]/,
+ 'set_format is validated'
+);
+
+SKIP:
+{
+ ## no critic (BuiltinFunctions::ProhibitStringyEval)
+ skip 'This test requires DateTime::Format::Strptime 1.2000+', 1
+ unless eval 'use DateTime::Format::Strptime 1.2000; 1;';
+
+ my $formatter = DateTime::Format::Strptime->new(
+ pattern => '%Y%m%d %T',
+ );
+
+ is(
+ $dt->set_formatter($formatter),
+ $dt,
+ 'set_formatter returns the datetime object'
+ );
+}
+
+done_testing();
+
--- /dev/null
+BEGIN {
+ $ENV{PERL_DATETIME_PP} = 1;
+}
+
+use strict;
+use warnings;
+
+use Test::More;
+
+use DateTime;
+
+undef $ENV{PERL_DATETIME_DEFAULT_TZ};
+
+no warnings 'redefine';
+## no critic (Variables::ProtectPrivateVars)
+local *DateTime::_core_time = sub {0};
+
+my $dt = DateTime->now;
+
+is(
+ "$dt",
+ '1970-01-01T00:00:00',
+ 'overriding DateTime::_core_time() works'
+);
+
+done_testing();
+
--- /dev/null
+BEGIN {
+ $ENV{PERL_DATETIME_PP} = 1;
+}
+
+use strict;
+use warnings;
+
+use Test::More;
+use Test::Warnings 0.005 ':all';
+
+use DateTime;
+
+undef $ENV{PERL_DATETIME_DEFAULT_TZ};
+
+my $year_5001_epoch = 95649120000;
+
+## no critic (TestingAndDebugging::ProhibitNoWarnings)
+SKIP:
+{
+ my $year = ( gmtime($year_5001_epoch) )[5];
+ skip 'These tests require a 64-bit Perl', 2
+ unless defined $year && $year == 3101;
+
+ {
+ like(
+ warning {
+ DateTime->from_epoch(
+ epoch => $year_5001_epoch,
+ time_zone => 'Asia/Taipei',
+ );
+ },
+ qr{\QYou are creating a DateTime object with a far future year (5001) and a time zone (Asia/Taipei).},
+ 'got a warning when calling ->from_epoch with a far future epoch and a time_zone'
+ );
+ }
+
+ {
+ no warnings 'DateTime';
+ is_deeply(
+ warning {
+ DateTime->from_epoch(
+ epoch => $year_5001_epoch,
+ time_zone => 'Asia/Taipei',
+ );
+ },
+ [],
+ 'no warning when calling ->from_epoch with a far future epoch and a time_zone with DateTime warnings category suppressed'
+ );
+ }
+}
+
+{
+ like(
+ warning {
+ DateTime->new(
+ year => 5001,
+ time_zone => 'Asia/Taipei',
+ );
+ },
+ qr{\QYou are creating a DateTime object with a far future year (5001) and a time zone (Asia/Taipei).},
+ 'got a warning when calling ->new with a far future year and a time_zone'
+ );
+}
+
+{
+ no warnings 'DateTime';
+ is_deeply(
+ warning {
+ DateTime->new(
+ year => 5001,
+ time_zone => 'Asia/Taipei',
+ );
+ },
+ [],
+ 'no warning when calling ->new with a far future epoch and a time_zone with DateTime warnings category suppressed'
+ );
+}
+
+{
+ no warnings;
+ is_deeply(
+ warning {
+ DateTime->new(
+ year => 5001,
+ time_zone => 'Asia/Taipei',
+ );
+ },
+ [],
+ 'no warning when calling ->new with a far future epoch and a time_zone with all warnings suppressed'
+ );
+}
+
+done_testing();
+
--- /dev/null
+BEGIN {
+ $ENV{PERL_DATETIME_PP} = 1;
+}
+
+use strict;
+use warnings;
+
+use Test::More;
+
+use DateTime;
+
+undef $ENV{PERL_DATETIME_DEFAULT_TZ};
+
+{
+ my $dt = DateTime->new( year => 2000, month => 2, day => 21 );
+ is(
+ $dt->time_zone->name, 'floating',
+ 'Time zones for new DateTime objects should default to floating'
+ );
+ is(
+ DateTime->last_day_of_month( year => 2000, month => 2 )
+ ->time_zone->name,
+ 'floating',
+ 'last_day_of_month time zone also should default to floating'
+ );
+ is(
+ DateTime->from_day_of_year( year => 2000, day_of_year => 212 )
+ ->time_zone->name,
+ 'floating',
+ 'from_day_of_year time zone also should default to floating'
+ );
+ is(
+ DateTime->now->time_zone->name, 'UTC',
+ '... except for constructors which assume UTC'
+ );
+ is(
+ DateTime->from_epoch( epoch => time() )->time_zone->name, 'UTC',
+ '... except for constructors which assume UTC'
+ );
+}
+
+{
+ my $dt1 = DateTime->new( year => 1970, hour => 1, nanosecond => 100 );
+ my $dt2 = DateTime->from_object( object => $dt1 );
+ is(
+ $dt2->time_zone->name, 'floating',
+ 'Copying DateTime objects from other DateTime objects should retain the timezone'
+ );
+}
+
+{
+ my $dt = DateTime->new( year => 2000, month => 2, day => 21 );
+ local $ENV{PERL_DATETIME_DEFAULT_TZ} = 'America/Los_Angeles';
+ is(
+ $dt->time_zone->name, 'floating',
+ 'Setting PERL_DATETIME_DEFAULT_TZ env should not impact existing objects'
+ );
+ $dt = DateTime->new( year => 2000, month => 2, day => 21 );
+ is(
+ $dt->time_zone->name, $ENV{PERL_DATETIME_DEFAULT_TZ},
+ '... but new objects should no longer default to the floating time zone'
+ );
+ is(
+ DateTime->last_day_of_month( year => 2000, month => 2 )
+ ->time_zone->name,
+ $ENV{PERL_DATETIME_DEFAULT_TZ},
+ 'last_day_of_month time zone also should default to floating'
+ );
+ is(
+ DateTime->from_day_of_year( year => 2000, day_of_year => 212 )
+ ->time_zone->name,
+ $ENV{PERL_DATETIME_DEFAULT_TZ},
+ 'from_day_of_year time zone also should default to floating'
+ );
+ is(
+ DateTime->now->time_zone->name, 'UTC',
+ '... and constructors which assume UTC should remain unchanged'
+ );
+
+ my $dt1 = DateTime->new( year => 1970, hour => 1, nanosecond => 100 );
+ my $dt2 = DateTime->from_object( object => $dt1 );
+ is(
+ $dt2->time_zone->name, $ENV{PERL_DATETIME_DEFAULT_TZ},
+ 'Copying DateTime objects from other DateTime objects should retain the timezone'
+ );
+}
+
+{
+ my $dt = DateTime->new( year => 2000, month => 2, day => 21 );
+ is(
+ $dt->time_zone->name, 'floating',
+ 'Default time zone should revert to "floating" when PERL_DATETIME_DEFAULT_TZ no longer set'
+ );
+}
+
+done_testing();
+
--- /dev/null
+BEGIN {
+ $ENV{PERL_DATETIME_PP} = 1;
+}
+
+use strict;
+use warnings;
+
+use Test::Fatal;
+use Test::More;
+
+use DateTime;
+
+undef $ENV{PERL_DATETIME_DEFAULT_TZ};
+
+# The bug here is that if DateTime doesn't clean its namespace, it ends up
+# having a catch method that is getting called here and being passed a hashref
+# containing the return value of $dt->truncate. See
+# https://rt.cpan.org/Ticket/Display.html?id=115983
+
+my $dt = DateTime->now;
+like(
+ exception {
+ try { } catch {
+ $dt->truncate( to => 'hour' );
+ };
+ },
+ qr/Can\'t locate object method "catch"/,
+ 'DateTime does not have a catch method'
+);
+
+done_testing();
+
--- /dev/null
+BEGIN {
+ $ENV{PERL_DATETIME_PP} = 1;
+}
+
+use strict;
+use warnings;
+
+use Test::More 0.88;
+use Test::Without::Module qw( Sub::Util );
+
+undef $ENV{PERL_DATETIME_DEFAULT_TZ};
+
+use_ok('DateTime');
+
+done_testing();
+
--- /dev/null
+use strict;
+use warnings;
+
+use Test::More;
+
+use Capture::Tiny qw( capture );
+use Encode qw( decode );
+use FindBin qw( $Bin );
+
+binmode $_, ':encoding(utf-8)'
+ for map { Test::More->builder->$_ }
+ qw( output failure_output todo_output );
+
+chdir "$Bin/../.."
+ or die "Cannot chdir to $Bin/../..: $!";
+
+my ( $out, $err ) = capture { system(qw( precious lint -a )) };
+$_ = decode( 'UTF-8', $_ ) for grep {defined} $out, $err;
+
+is( $? >> 8, 0, 'precious lint -a exited with 0' )
+ or diag($out);
+is( $err, q{}, 'no output to stderr' );
+
+done_testing();
--- /dev/null
+use strict;
+use warnings;
+use Test::More;
+
+# generated by Dist::Zilla::Plugin::Test::Version 1.09
+use Test::Version;
+
+my @imports = qw( version_all_ok );
+
+my $params = {
+ is_strict => 1,
+ has_version => 1,
+ multiple => 0,
+
+};
+
+push @imports, $params
+ if version->parse( $Test::Version::VERSION ) >= version->parse('1.002');
+
+Test::Version->import(@imports);
+
+version_all_ok;
+done_testing;
--- /dev/null
+use strict;
+use warnings;
+
+use Test::More;
+
+BEGIN {
+ ## no critic (Variables::RequireLocalizedPunctuationVars)
+ $ENV{PERL_DATETIME_PP} = 1;
+}
+
+use DateTime;
+
+## no critic (Variables::ProhibitPackageVars)
+ok(
+ $DateTime::IsPurePerl,
+ 'PurePerl implementation is loaded when env var is set'
+);
+
+done_testing();
--- /dev/null
+use strict;
+use warnings;
+
+use Cwd qw( abs_path );
+use Test::More;
+
+BEGIN {
+ plan skip_all =>
+ 'Must set DATETIME_TEST_DEPS to true in order to run these tests'
+ unless $ENV{DATETIME_TEST_DEPS};
+}
+
+use Test::DependentModules qw( test_all_dependents );
+
+local $ENV{PERL_TEST_DM_LOG_DIR} = abs_path('.');
+
+my $exclude = $ENV{DATETIME_TEST_DEPS} eq 'all'
+ ? qr/(?:^App-)
+ |
+ ^(?:
+ Archive-RPM
+ |
+ Video-Xine
+ )$
+ /x
+ : qr/^(?!DateTime-)/;
+
+test_all_dependents( 'DateTime', { exclude => $exclude } );
--- /dev/null
+use strict;
+use warnings;
+
+use Test::More;
+
+use Cwd qw( abs_path );
+use File::Basename qw( dirname );
+use File::Spec;
+
+my $test_file = File::Spec->catfile(
+ dirname( abs_path($0) ),
+ File::Spec->updir, File::Spec->updir,
+ 't', '04epoch.t',
+);
+
+local $ENV{PERL_DATETIME_DEFAULT_TZ} = 'America/Chicago';
+is(
+ system( qw( prove --quiet ), $test_file ), 0,
+ 'no error running test with PERL_DATETIME_DEFAULT_TZ env var set',
+);
+
+done_testing();
--- /dev/null
+use strict;
+use warnings;
+
+use Test::More;
+
+use DateTime;
+
+## no critic (Variables::ProhibitPackageVars)
+ok(
+ !$DateTime::IsPurePerl,
+ 'XS implementation is loaded by default'
+);
+
+done_testing();
--- /dev/null
+use strict;
+use warnings;
+
+# this test was generated with Dist::Zilla::Plugin::Test::CPAN::Changes 0.012
+
+use Test::More 0.96 tests => 1;
+use Test::CPAN::Changes;
+subtest 'changes_ok' => sub {
+ changes_file_ok('Changes');
+};
--- /dev/null
+#!perl
+
+use Test::CPAN::Meta::JSON;
+meta_json_ok();
projects / platform / upstream / perl-DateTime.git / commitdiff