diff options
51 files changed, 4663 insertions, 0 deletions
diff --git a/CONTRIBUTING b/CONTRIBUTING new file mode 100644 index 0000000..3525a06 --- /dev/null +++ b/CONTRIBUTING @@ -0,0 +1,100 @@ + +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). +This means than many of the usual files you might expect are not in the +repository, but are generated at release time (e.g. Makefile.PL). + +However, you can run tests directly using the 'prove' tool: + + $ prove -l + $ prove -lv t/some_test_file.t + $ prove -lvr t/ + +In most cases, 'prove' is entirely sufficent for you to test any +patches you have. + +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/Class-Load. + +If you use cpanminus, you can do it without downloading the tarball first: + + $ cpanm --reinstall --installdeps --with-recommends Class::Load + +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 run one of the following commands, depending on +your CPAN client: + + $ cpan `dzil authordeps --missing` +or + $ dzil authordeps --missing | cpanm + +You should then also install any additional requirements not needed by the +dzil build but may be needed by tests or other development: + + $ cpan `dzil listdeps --author --missing` +or + $ dzil listdeps --author --missing | cpanm + +Or, you can use the 'dzil stale' command to install all requirements at once: + + $ cpan Dist::Zilla::App::Command::stale + $ cpan `dzil stale --all` +or + $ 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 Class::Load + +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 at GitHub. The repository is: +https://github.com/moose/Class-Load +You can submit code changes by forking the repository, pushing your code +changes to your clone, and then submitting a pull request. Detailed +instructions for doing that is available here: + +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 here: +https://rt.cpan.org/Public/Dist/Display.html?Name=Class-Load +or via bug-Class-Load@rt.cpan.org. + +There is also a mailing list available for users of this distribution, at +http://lists.perl.org/list/moose.html. +There is also an irc channel available for users of this distribution, at +irc://irc.perl.org/#moose. + +If you send me 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. + + +This file was generated via Dist::Zilla::Plugin::GenerateFile::ShareDir 0.005 from a +template file originating in Dist-Zilla-PluginBundle-Author-ETHER-0.097. @@ -0,0 +1,152 @@ +Revision history for Class-Load + +0.23 2015-06-25 + - remove use of namespace::clean + +0.22 2014-08-16 + - document some of the caveats to using this module, and refer to + Module::Runtime as an alternative + +0.21 2014-02-09 + - repository moved to the github moose organization + +0.20 2012-07-15 + +- Same as the most recent 0.19, but with a new version number. + +0.19 2012-07-15 + +- Uploaded by Dave Rolsky, not realizing 0.19 was already used + +- The load_class() subroutine now returns the class name on success. Requested + by Caleb Cushing. RT #76931. + +- Exceptions and errors from Class::Load no longer contain references to line + numbers in Class::Load or Module::Runtime. This applies to exceptions thrown + by load_class, load_first_existing_class, and load_optional_class, as well + as the error returned by try_load_class. + +- Exceptions are now croaked properly so they appear to come from the calling + code, not from an internal subroutine. This makes the exceptions look more + like the ones thrown by Perl's require. RT #68663. + +0.19 2012-04-03 + +- Uploaded by doy (Jesse Luehrs) + +- No changes, reupload to fix indexing. + +0.18 2012-02-18 + +- Require Package::Stash 0.14+. Fixes RT #75095. Reported by Zefram. + +0.17 2012-02-12 + +- A bug in Class::Load caused test failures when Module::Runtime 0.012 was + used with Perl 5.8.x. Reported by Zefram. RT #74897. ( Jesse Luehrs ) + +0.16 2012-02-12 + +- Require Module::Runtime 0.012, which has a number of useful bug fixes. + +0.15 2012-02-08 + +- Small test changes to accomodate latest version of + Module::Implementation. There's no need to upgrade if you're already using + 0.14 + +0.14 2012-02-06 + +- Use Module::Implementation to handle loading the XS or PP versions of the + code. Using this module fixes a few bugs. + +- Under taint mode, setting an implementation in the CLASS_LOAD_IMPLEMENTATION + env var caused a taint error. + +- An invalid value in the CLASS_LOAD_IMPLEMENTATION env var is now detected + and reported immediately. No attempt is made to load an invalid + implementation. + +0.13 2011-12-22 + +- Fix some bugs with our use of Try::Tiny. This could cause warnings on some + systems with Class::Load::XS wasn't installed. Fixes RT #72345. + +0.12 2011-10-25 + +- Depend on Module::Runtime 0.011+. This fixes problems with Catalyst under + Perl 5.8 and 5.10. + +0.11 2011-10-04 + +- Don't accept package names that start with a digit. ( Jesse Luehrs ) + +- Rewrote some of the guts to use Module::Runtime, rather than reimplementing + its functionality. ( Jesse Luehrs ) + +0.10 2011-09-06 + +- Make sure the $@ localization doesn't hide errors - invalid module name + errors were being suppressed on perls before 5.14. ( Jesse Luehrs ) + +0.09 2011-09-05 + +- Fix is_class_loaded to ignore $ISA (but still look for @ISA) when trying to + determine whether a class is loaded. ( Jesse Luehrs ) + +- Lots of internals cleanup. ( Jesse Luehrs ) + +0.08 2011-08-15 + +- The previous version was missing a prereq declaration for + Data::OptList. Reported by Daisuke Maki and Mark Hedges. RT #70285. + +0.07 2011-08-15 + +- All this module's subroutines now accept optional parameters for a module so + you can write something like - load_class( 'Foo', { -version => 42 } ) + +- There is now a Class::Load::XS distro available on CPAN which implements + some of this module's code in XS for speed. This code was originally written + by Goro Fuji and Florian Ragwitz for Class::MOP. You need to install this + distro explicitly if you want the XS implementation. + +- Added a load_first_existing_class subroutine based, mostly borrowed from + Class::MOP. + +- Fixed a bug where a package with a version object in its $VERSION would not + be seen as loaded. Reported by Chris Prather. + +0.06 2010-11-15 + +- BACK COMPAT CHANGE: Remove $Class::Load::ERROR in favor of a contextual + return value. ( Jesse Luehrs ) + +- Add load_optional_class($class) that fails only if there is a problem with + the attempted-to-load $class. ( Kent Fredric ) + +- Force internal require to try-again if we are SURE the class is not + there. This produces reliable errors. ( Kent Fredric ) + +- Replace Test::Exception with Test::Fatal ( Kent Fredric ) + +0.05 2009-09-02 + +- Cargo-cult Class::MOP's is_class_loaded so we work on 5.10 + +0.04 2008-11-09 + +- No changes + +0.03 2008-11-09 + +- Dist fix + +0.02 2008-11-09 + +- Declare dependency on Test::Exception + +0.01 2008-08-13 + +- First version, released on an unsuspecting world. + @@ -0,0 +1,43 @@ +This is the Perl distribution Class-Load. + +Installing Class-Load is straightforward. + +## Installation with cpanm + +If you have cpanm, you only need one line: + + % cpanm Class::Load + +If you are installing into a system-wide directory, you may need to pass the +"-S" flag to cpanm, which uses sudo to install the module: + + % cpanm -S Class::Load + +## Installing with the CPAN shell + +Alternatively, if your CPAN shell is set up, you should just be able to do: + + % cpan Class::Load + +## Manual installation + +As a last resort, you can manually install it. Download the tarball, untar it, +then build it: + + % perl Makefile.PL + % make && make test + +Then install it: + + % make install + +If you are installing into a system-wide directory, you may need to run: + + % sudo make install + +## Documentation + +Class-Load documentation is available as POD. +You can run perldoc from a shell to read the documentation: + + % perldoc Class::Load @@ -0,0 +1,379 @@ +This software is copyright (c) 2008 by Shawn M Moore. + +This is free software; you can redistribute it and/or modify it under +the same terms as the Perl 5 programming language system itself. + +Terms of the Perl programming language system itself + +a) the GNU General Public License as published by the Free + Software Foundation; either version 1, or (at your option) any + later version, or +b) the "Artistic License" + +--- The GNU General Public License, Version 1, February 1989 --- + +This software is Copyright (c) 2008 by Shawn M Moore. + +This is free software, licensed under: + + The GNU General Public License, Version 1, February 1989 + + GNU GENERAL PUBLIC LICENSE + Version 1, February 1989 + + Copyright (C) 1989 Free Software Foundation, Inc. + 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA + + Everyone is permitted to copy and distribute verbatim copies + of this license document, but changing it is not allowed. + + Preamble + + The license agreements of most software companies try to keep users +at the mercy of those companies. By contrast, our General Public +License is intended to guarantee your freedom to share and change free +software--to make sure the software is free for all its users. The +General Public License applies to the Free Software Foundation's +software and to any other program whose authors commit to using it. +You can use it for your programs, too. + + When we speak of free software, we are referring to freedom, not +price. Specifically, the General Public License is designed to make +sure that you have the freedom to give away or sell copies of free +software, that you receive source code or can get it if you want it, +that you can change the software or use pieces of it in new free +programs; and that you know you can do these things. + + To protect your rights, we need to make restrictions that forbid +anyone to deny you these rights or to ask you to surrender the rights. +These restrictions translate to certain responsibilities for you if you +distribute copies of the software, or if you modify it. + + For example, if you distribute copies of a such a program, whether +gratis or for a fee, you must give the recipients all the rights that +you have. You must make sure that they, too, receive or can get the +source code. And you must tell them their rights. + + We protect your rights with two steps: (1) copyright the software, and +(2) offer you this license which gives you legal permission to copy, +distribute and/or modify the software. + + Also, for each author's protection and ours, we want to make certain +that everyone understands that there is no warranty for this free +software. If the software is modified by someone else and passed on, we +want its recipients to know that what they have is not the original, so +that any problems introduced by others will not reflect on the original +authors' reputations. + + The precise terms and conditions for copying, distribution and +modification follow. + + GNU GENERAL PUBLIC LICENSE + TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION + + 0. This License Agreement applies to any program or other work which +contains a notice placed by the copyright holder saying it may be +distributed under the terms of this General Public License. The +"Program", below, refers to any such program or work, and a "work based +on the Program" means either the Program or any work containing the +Program or a portion of it, either verbatim or with modifications. Each +licensee is addressed as "you". + + 1. You may copy and distribute verbatim copies of the Program's source +code as you receive it, in any medium, provided that you conspicuously and +appropriately publish on each copy an appropriate copyright notice and +disclaimer of warranty; keep intact all the notices that refer to this +General Public License and to the absence of any warranty; and give any +other recipients of the Program a copy of this General Public License +along with the Program. You may charge a fee for the physical act of +transferring a copy. + + 2. You may modify your copy or copies of the Program or any portion of +it, and copy and distribute such modifications under the terms of Paragraph +1 above, provided that you also do the following: + + a) cause the modified files to carry prominent notices stating that + you changed the files and the date of any change; and + + b) cause the whole of any work that you distribute or publish, that + in whole or in part contains the Program or any part thereof, either + with or without modifications, to be licensed at no charge to all + third parties under the terms of this General Public License (except + that you may choose to grant warranty protection to some or all + third parties, at your option). + + c) If the modified program normally reads commands interactively when + run, you must cause it, when started running for such interactive use + in the simplest and most usual way, to print or display an + announcement including an appropriate copyright notice and a notice + that there is no warranty (or else, saying that you provide a + warranty) and that users may redistribute the program under these + conditions, and telling the user how to view a copy of this General + Public License. + + d) You may charge a fee for the physical act of transferring a + copy, and you may at your option offer warranty protection in + exchange for a fee. + +Mere aggregation of another independent work with the Program (or its +derivative) on a volume of a storage or distribution medium does not bring +the other work under the scope of these terms. + + 3. You may copy and distribute the Program (or a portion or derivative of +it, under Paragraph 2) in object code or executable form under the terms of +Paragraphs 1 and 2 above provided that you also do one of the following: + + a) accompany it with the complete corresponding machine-readable + source code, which must be distributed under the terms of + Paragraphs 1 and 2 above; or, + + b) accompany it with a written offer, valid for at least three + years, to give any third party free (except for a nominal charge + for the cost of distribution) a complete machine-readable copy of the + corresponding source code, to be distributed under the terms of + Paragraphs 1 and 2 above; or, + + c) accompany it with the information you received as to where the + corresponding source code may be obtained. (This alternative is + allowed only for noncommercial distribution and only if you + received the program in object code or executable form alone.) + +Source code for a work means the preferred form of the work for making +modifications to it. For an executable file, complete source code means +all the source code for all modules it contains; but, as a special +exception, it need not include source code for modules which are standard +libraries that accompany the operating system on which the executable +file runs, or for standard header files or definitions files that +accompany that operating system. + + 4. You may not copy, modify, sublicense, distribute or transfer the +Program except as expressly provided under this General Public License. +Any attempt otherwise to copy, modify, sublicense, distribute or transfer +the Program is void, and will automatically terminate your rights to use +the Program under this License. However, parties who have received +copies, or rights to use copies, from you under this General Public +License will not have their licenses terminated so long as such parties +remain in full compliance. + + 5. By copying, distributing or modifying the Program (or any work based +on the Program) you indicate your acceptance of this license to do so, +and all its terms and conditions. + + 6. Each time you redistribute the Program (or any work based on the +Program), the recipient automatically receives a license from the original +licensor to copy, distribute or modify the Program subject to these +terms and conditions. You may not impose any further restrictions on the +recipients' exercise of the rights granted herein. + + 7. The Free Software Foundation may publish revised and/or new versions +of the General Public License from time to time. Such new versions will +be similar in spirit to the present version, but may differ in detail to +address new problems or concerns. + +Each version is given a distinguishing version number. If the Program +specifies a version number of the license which applies to it and "any +later version", you have the option of following the terms and conditions +either of that version or of any later version published by the Free +Software Foundation. If the Program does not specify a version number of +the license, you may choose any version ever published by the Free Software +Foundation. + + 8. If you wish to incorporate parts of the Program into other free +programs whose distribution conditions are different, write to the author +to ask for permission. For software which is copyrighted by the Free +Software Foundation, write to the Free Software Foundation; we sometimes +make exceptions for this. Our decision will be guided by the two goals +of preserving the free status of all derivatives of our free software and +of promoting the sharing and reuse of software generally. + + NO WARRANTY + + 9. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY +FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN +OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES +PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED +OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF +MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS +TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU. SHOULD THE +PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING, +REPAIR OR CORRECTION. + + 10. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING +WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR +REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, +INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING +OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED +TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY +YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER +PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE +POSSIBILITY OF SUCH DAMAGES. + + END OF TERMS AND CONDITIONS + + Appendix: How to Apply These Terms to Your New Programs + + If you develop a new program, and you want it to be of the greatest +possible use to humanity, the best way to achieve this is to make it +free software which everyone can redistribute and change under these +terms. + + To do so, attach the following notices to the program. It is safest to +attach them to the start of each source file to most effectively convey +the exclusion of warranty; and each file should have at least the +"copyright" line and a pointer to where the full notice is found. + + <one line to give the program's name and a brief idea of what it does.> + Copyright (C) 19yy <name of author> + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 1, or (at your option) + any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston MA 02110-1301 USA + + +Also add information on how to contact you by electronic and paper mail. + +If the program is interactive, make it output a short notice like this +when it starts in an interactive mode: + + Gnomovision version 69, Copyright (C) 19xx name of author + Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'. + This is free software, and you are welcome to redistribute it + under certain conditions; type `show c' for details. + +The hypothetical commands `show w' and `show c' should show the +appropriate parts of the General Public License. Of course, the +commands you use may be called something other than `show w' and `show +c'; they could even be mouse-clicks or menu items--whatever suits your +program. + +You should also get your employer (if you work as a programmer) or your +school, if any, to sign a "copyright disclaimer" for the program, if +necessary. Here a sample; alter the names: + + Yoyodyne, Inc., hereby disclaims all copyright interest in the + program `Gnomovision' (a program to direct compilers to make passes + at assemblers) written by James Hacker. + + <signature of Ty Coon>, 1 April 1989 + Ty Coon, President of Vice + +That's all there is to it! + + +--- The Artistic License 1.0 --- + +This software is Copyright (c) 2008 by Shawn M Moore. + +This is free software, licensed under: + + The Artistic License 1.0 + +The Artistic License + +Preamble + +The intent of this document is to state the conditions under which a Package +may be copied, such that the Copyright Holder maintains some semblance of +artistic control over the development of the package, while giving the users of +the package the right to use and distribute the Package in a more-or-less +customary fashion, plus the right to make reasonable modifications. + +Definitions: + + - "Package" refers to the collection of files distributed by the Copyright + Holder, and derivatives of that collection of files created through + textual modification. + - "Standard Version" refers to such a Package if it has not been modified, + or has been modified in accordance with the wishes of the Copyright + Holder. + - "Copyright Holder" is whoever is named in the copyright or copyrights for + the package. + - "You" is you, if you're thinking about copying or distributing this Package. + - "Reasonable copying fee" is whatever you can justify on the basis of media + cost, duplication charges, time of people involved, and so on. (You will + not be required to justify it to the Copyright Holder, but only to the + computing community at large as a market that must bear the fee.) + - "Freely Available" means that no fee is charged for the item itself, though + there may be fees involved in handling the item. It also means that + recipients of the item may redistribute it under the same conditions they + received it. + +1. You may make and give away verbatim copies of the source form of the +Standard Version of this Package without restriction, provided that you +duplicate all of the original copyright notices and associated disclaimers. + +2. You may apply bug fixes, portability fixes and other modifications derived +from the Public Domain or from the Copyright Holder. A Package modified in such +a way shall still be considered the Standard Version. + +3. You may otherwise modify your copy of this Package in any way, provided that +you insert a prominent notice in each changed file stating how and when you +changed that file, and provided that you do at least ONE of the following: + + a) place your modifications in the Public Domain or otherwise make them + Freely Available, such as by posting said modifications to Usenet or an + equivalent medium, or placing the modifications on a major archive site + such as ftp.uu.net, or by allowing the Copyright Holder to include your + modifications in the Standard Version of the Package. + + b) use the modified Package only within your corporation or organization. + + c) rename any non-standard executables so the names do not conflict with + standard executables, which must also be provided, and provide a separate + manual page for each non-standard executable that clearly documents how it + differs from the Standard Version. + + d) make other distribution arrangements with the Copyright Holder. + +4. You may distribute the programs of this Package in object code or executable +form, provided that you do at least ONE of the following: + + a) distribute a Standard Version of the executables and library files, + together with instructions (in the manual page or equivalent) on where to + get the Standard Version. + + b) accompany the distribution with the machine-readable source of the Package + with your modifications. + + c) accompany any non-standard executables with their corresponding Standard + Version executables, giving the non-standard executables non-standard + names, and clearly documenting the differences in manual pages (or + equivalent), together with instructions on where to get the Standard + Version. + + d) make other distribution arrangements with the Copyright Holder. + +5. You may charge a reasonable copying fee for any distribution of this +Package. You may charge any fee you choose for support of this Package. You +may not charge a fee for this Package itself. However, you may distribute this +Package in aggregate with other (possibly commercial) programs as part of a +larger (possibly commercial) software distribution provided that you do not +advertise this Package as a product of your own. + +6. The scripts and library files supplied as input to or produced as output +from the programs of this Package do not automatically fall under the copyright +of this Package, but belong to whomever generated them, and may be sold +commercially, and may be aggregated with this Package. + +7. C or perl subroutines supplied by you and linked into this Package shall not +be considered part of this Package. + +8. The name of the Copyright Holder may not be used to endorse or promote +products derived from this software without specific prior written permission. + +9. THIS PACKAGE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED +WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF +MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE. + +The End + diff --git a/MANIFEST b/MANIFEST new file mode 100644 index 0000000..3e62e87 --- /dev/null +++ b/MANIFEST @@ -0,0 +1,52 @@ +# This file was automatically generated by Dist::Zilla::Plugin::Manifest v5.037. +CONTRIBUTING +Changes +INSTALL +LICENSE +MANIFEST +META.json +META.yml +Makefile.PL +README +dist.ini +lib/Class/Load.pm +lib/Class/Load/PP.pm +t/00-report-prereqs.dd +t/00-report-prereqs.t +t/000-load.t +t/001-is-class-loaded.t +t/002-try-load-class.t +t/003-load-class.t +t/004-load-double.t +t/005-load-optional.t +t/006-returned-error.t +t/007-first-existing.t +t/008-gvstash-bug.t +t/009-invalid-module-name.t +t/010-isa-false-positive.t +t/011-without-xs.t +t/012-without-implementation.t +t/013-errors.t +t/014-weird-constants.t +t/lib/Class/Load/Error/DieAfterBeginIsa.pm +t/lib/Class/Load/Error/DieAfterIsa.pm +t/lib/Class/Load/Error/SyntaxErrorAfterIsa.pm +t/lib/Class/Load/OK.pm +t/lib/Class/Load/Stash.pm +t/lib/Class/Load/Stash/Sub.pm +t/lib/Class/Load/SyntaxError.pm +t/lib/Class/Load/VersionCheck.pm +t/lib/Class/Load/VersionCheck2.pm +t/lib/Test/Class/Load.pm +xt/author/00-compile.t +xt/author/eol.t +xt/author/kwalitee.t +xt/author/no-tabs.t +xt/author/pod-spell.t +xt/release/changes_has_content.t +xt/release/cpan-changes.t +xt/release/distmeta.t +xt/release/minimum-version.t +xt/release/mojibake.t +xt/release/pod-syntax.t +xt/release/portability.t diff --git a/META.json b/META.json new file mode 100644 index 0000000..30e3304 --- /dev/null +++ b/META.json @@ -0,0 +1,1079 @@ +{ + "abstract" : "A working (require \"Class::Name\") and more", + "author" : [ + "Shawn M Moore <sartak at bestpractical.com>" + ], + "dynamic_config" : 0, + "generated_by" : "Dist::Zilla version 5.037, CPAN::Meta::Converter version 2.150005", + "keywords" : [ + "class", + "module", + "load", + "require", + "use", + "runtime" + ], + "license" : [ + "perl_5" + ], + "meta-spec" : { + "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec", + "version" : 2 + }, + "name" : "Class-Load", + "no_index" : { + "directory" : [ + "t", + "xt" + ] + }, + "prereqs" : { + "configure" : { + "requires" : { + "ExtUtils::MakeMaker" : "0", + "perl" : "5.006" + } + }, + "develop" : { + "recommends" : { + "Dist::Zilla::PluginBundle::Author::ETHER" : "0.097" + }, + "requires" : { + "Dist::Zilla" : "5", + "Dist::Zilla::Plugin::Authority" : "1.009", + "Dist::Zilla::Plugin::AuthorityFromModule" : "0.002", + "Dist::Zilla::Plugin::AutoMetaResources" : "0", + "Dist::Zilla::Plugin::AutoPrereqs" : "0", + "Dist::Zilla::Plugin::BumpVersionAfterRelease::Transitional" : "0.004", + "Dist::Zilla::Plugin::CheckIssues" : "0", + "Dist::Zilla::Plugin::CheckPrereqsIndexed" : "0", + "Dist::Zilla::Plugin::CheckSelfDependency" : "0", + "Dist::Zilla::Plugin::CheckStrictVersion" : "0", + "Dist::Zilla::Plugin::ConfirmRelease" : "0", + "Dist::Zilla::Plugin::CopyFilesFromRelease" : "0", + "Dist::Zilla::Plugin::FileFinder::ByName" : "0", + "Dist::Zilla::Plugin::GenerateFile::ShareDir" : "0", + "Dist::Zilla::Plugin::Git::Check" : "0", + "Dist::Zilla::Plugin::Git::CheckFor::CorrectBranch" : "0.004", + "Dist::Zilla::Plugin::Git::CheckFor::MergeConflicts" : "0", + "Dist::Zilla::Plugin::Git::Commit" : "2.020", + "Dist::Zilla::Plugin::Git::Contributors" : "0.004", + "Dist::Zilla::Plugin::Git::Describe" : "0.004", + "Dist::Zilla::Plugin::Git::GatherDir" : "2.016", + "Dist::Zilla::Plugin::Git::Push" : "0", + "Dist::Zilla::Plugin::Git::Remote::Check" : "0", + "Dist::Zilla::Plugin::Git::Tag" : "0", + "Dist::Zilla::Plugin::GitHub::Update" : "0.40", + "Dist::Zilla::Plugin::GithubMeta" : "0", + "Dist::Zilla::Plugin::InstallGuide" : "0", + "Dist::Zilla::Plugin::Keywords" : "0.004", + "Dist::Zilla::Plugin::License" : "0", + "Dist::Zilla::Plugin::MakeMaker" : "0", + "Dist::Zilla::Plugin::Manifest" : "0", + "Dist::Zilla::Plugin::MetaConfig" : "0", + "Dist::Zilla::Plugin::MetaJSON" : "0", + "Dist::Zilla::Plugin::MetaNoIndex" : "0", + "Dist::Zilla::Plugin::MetaProvides::Package" : "1.15000002", + "Dist::Zilla::Plugin::MetaResources" : "0", + "Dist::Zilla::Plugin::MetaTests" : "0", + "Dist::Zilla::Plugin::MetaYAML" : "0", + "Dist::Zilla::Plugin::MinimumPerl" : "1.006", + "Dist::Zilla::Plugin::MojibakeTests" : "0", + "Dist::Zilla::Plugin::NextRelease" : "5.033", + "Dist::Zilla::Plugin::PodSyntaxTests" : "0", + "Dist::Zilla::Plugin::Prereqs" : "0", + "Dist::Zilla::Plugin::Prereqs::AuthorDeps" : "0", + "Dist::Zilla::Plugin::PromptIfStale" : "0", + "Dist::Zilla::Plugin::Readme" : "0", + "Dist::Zilla::Plugin::ReadmeAnyFromPod" : "0.142180", + "Dist::Zilla::Plugin::RewriteVersion::Transitional" : "0.004", + "Dist::Zilla::Plugin::Run::AfterBuild" : "0.038", + "Dist::Zilla::Plugin::Run::AfterRelease" : "0.038", + "Dist::Zilla::Plugin::RunExtraTests" : "0.024", + "Dist::Zilla::Plugin::SurgicalPodWeaver" : "0", + "Dist::Zilla::Plugin::Test::CPAN::Changes" : "0.008", + "Dist::Zilla::Plugin::Test::ChangesHasContent" : "0", + "Dist::Zilla::Plugin::Test::Compile" : "2.039", + "Dist::Zilla::Plugin::Test::EOL" : "0.17", + "Dist::Zilla::Plugin::Test::Kwalitee" : "2.06", + "Dist::Zilla::Plugin::Test::MinimumVersion" : "2.000003", + "Dist::Zilla::Plugin::Test::NoTabs" : "0.08", + "Dist::Zilla::Plugin::Test::PodSpelling" : "2.006001", + "Dist::Zilla::Plugin::Test::Portability" : "0", + "Dist::Zilla::Plugin::Test::ReportPrereqs" : "0.019", + "Dist::Zilla::Plugin::TestRelease" : "0", + "Dist::Zilla::Plugin::UploadToCPAN" : "0", + "Dist::Zilla::PluginBundle::Author::ETHER" : "0.094", + "File::Spec" : "0", + "IO::Handle" : "0", + "IPC::Open3" : "0", + "Test::CPAN::Changes" : "0.19", + "Test::CPAN::Meta" : "0", + "Test::EOL" : "0", + "Test::Kwalitee" : "1.21", + "Test::More" : "0.94", + "Test::NoTabs" : "0", + "Test::Pod" : "1.41", + "Test::Spelling" : "0.12", + "Test::Without::Module" : "0" + } + }, + "runtime" : { + "requires" : { + "Carp" : "0", + "Data::OptList" : "0", + "Exporter" : "0", + "Module::Implementation" : "0.04", + "Module::Runtime" : "0.012", + "Package::Stash" : "0.14", + "Scalar::Util" : "0", + "Try::Tiny" : "0", + "base" : "0", + "perl" : "5.006", + "strict" : "0", + "warnings" : "0" + } + }, + "test" : { + "recommends" : { + "CPAN::Meta" : "2.120900" + }, + "requires" : { + "ExtUtils::MakeMaker" : "0", + "File::Spec" : "0", + "Test::Fatal" : "0", + "Test::More" : "0.88", + "Test::Requires" : "0", + "constant" : "0", + "lib" : "0", + "perl" : "5.006", + "version" : "0" + } + } + }, + "provides" : { + "Class::Load" : { + "file" : "lib/Class/Load.pm", + "version" : "0.23" + }, + "Class::Load::PP" : { + "file" : "lib/Class/Load/PP.pm", + "version" : "0.23" + } + }, + "release_status" : "stable", + "resources" : { + "bugtracker" : { + "mailto" : "bug-Class-Load@rt.cpan.org", + "web" : "https://rt.cpan.org/Public/Dist/Display.html?Name=Class-Load" + }, + "homepage" : "https://github.com/moose/Class-Load", + "repository" : { + "type" : "git", + "url" : "https://github.com/moose/Class-Load.git", + "web" : "https://github.com/moose/Class-Load" + }, + "x_IRC" : "irc://irc.perl.org/#moose", + "x_MailingList" : "http://lists.perl.org/list/moose.html" + }, + "version" : "0.23", + "x_Dist_Zilla" : { + "perl" : { + "version" : "5.023000" + }, + "plugins" : [ + { + "class" : "Dist::Zilla::Plugin::Prereqs", + "config" : { + "Dist::Zilla::Plugin::Prereqs" : { + "phase" : "develop", + "type" : "requires" + } + }, + "name" : "@Author::ETHER/bundle_plugins", + "version" : "5.037" + }, + { + "class" : "Dist::Zilla::Plugin::RewriteVersion::Transitional", + "config" : { + "Dist::Zilla::Plugin::RewriteVersion::Transitional" : { + "_fallback_version_provider_args" : { + "version_regexp" : "^v([\\d._]+)(-TRIAL)?$" + }, + "fallback_version_provider" : "Git::NextVersion" + } + }, + "name" : "@Author::ETHER/RewriteVersion::Transitional", + "version" : "0.005" + }, + { + "class" : "Dist::Zilla::Plugin::PromptIfStale", + "config" : { + "Dist::Zilla::Plugin::PromptIfStale" : { + "check_all_plugins" : 0, + "check_all_prereqs" : 0, + "modules" : [ + "Dist::Zilla::PluginBundle::Author::ETHER" + ], + "phase" : "build", + "skip" : [] + } + }, + "name" : "@Author::ETHER/stale modules, build", + "version" : "0.045" + }, + { + "class" : "Dist::Zilla::Plugin::PromptIfStale", + "config" : { + "Dist::Zilla::Plugin::PromptIfStale" : { + "check_all_plugins" : "1", + "check_all_prereqs" : "1", + "modules" : [], + "phase" : "release", + "skip" : [] + } + }, + "name" : "@Author::ETHER/stale modules, release", + "version" : "0.045" + }, + { + "class" : "Dist::Zilla::Plugin::FileFinder::ByName", + "name" : "@Author::ETHER/Examples", + "version" : "5.037" + }, + { + "class" : "Dist::Zilla::Plugin::FileFinder::ByName", + "name" : "@Author::ETHER/ExtraTestFiles", + "version" : "5.037" + }, + { + "class" : "Dist::Zilla::Plugin::Git::GatherDir", + "config" : { + "Dist::Zilla::Plugin::GatherDir" : { + "exclude_filename" : [ + "README.pod", + "CONTRIBUTING", + "LICENSE" + ], + "exclude_match" : [], + "follow_symlinks" : "0", + "include_dotfiles" : "0", + "prefix" : "", + "prune_directory" : [], + "root" : "." + }, + "Dist::Zilla::Plugin::Git::GatherDir" : { + "include_untracked" : "0" + } + }, + "name" : "@Author::ETHER/Git::GatherDir", + "version" : "2.035" + }, + { + "class" : "Dist::Zilla::Plugin::MetaYAML", + "name" : "@Author::ETHER/MetaYAML", + "version" : "5.037" + }, + { + "class" : "Dist::Zilla::Plugin::MetaJSON", + "name" : "@Author::ETHER/MetaJSON", + "version" : "5.037" + }, + { + "class" : "Dist::Zilla::Plugin::License", + "name" : "@Author::ETHER/License", + "version" : "5.037" + }, + { + "class" : "Dist::Zilla::Plugin::Readme", + "name" : "@Author::ETHER/Readme", + "version" : "5.037" + }, + { + "class" : "Dist::Zilla::Plugin::Manifest", + "name" : "@Author::ETHER/Manifest", + "version" : "5.037" + }, + { + "class" : "Dist::Zilla::Plugin::GenerateFile::ShareDir", + "config" : { + "Dist::Zilla::Plugin::GenerateFile::ShareDir" : { + "destination_filename" : "CONTRIBUTING", + "dist" : "Dist-Zilla-PluginBundle-Author-ETHER", + "encoding" : "UTF-8", + "has_xs" : 0, + "source_filename" : "CONTRIBUTING" + } + }, + "name" : "@Author::ETHER/generate CONTRIBUTING", + "version" : "0.005" + }, + { + "class" : "Dist::Zilla::Plugin::InstallGuide", + "name" : "@Author::ETHER/InstallGuide", + "version" : "1.200006" + }, + { + "class" : "Dist::Zilla::Plugin::Test::Compile", + "config" : { + "Dist::Zilla::Plugin::Test::Compile" : { + "bail_out_on_fail" : "1", + "fail_on_warning" : "author", + "fake_home" : "0", + "filename" : "xt/author/00-compile.t", + "module_finder" : [ + ":InstallModules" + ], + "needs_display" : "0", + "phase" : "develop", + "script_finder" : [ + ":ExecFiles", + "@Author::ETHER/Examples" + ], + "skips" : [] + } + }, + "name" : "@Author::ETHER/Test::Compile", + "version" : "2.053" + }, + { + "class" : "Dist::Zilla::Plugin::Test::NoTabs", + "config" : { + "Dist::Zilla::Plugin::Test::NoTabs" : { + "filename" : "xt/author/no-tabs.t", + "finder" : [ + ":InstallModules", + ":ExecFiles", + "@Author::ETHER/Examples", + ":TestFiles", + "@Author::ETHER/ExtraTestFiles" + ] + } + }, + "name" : "@Author::ETHER/Test::NoTabs", + "version" : "0.15" + }, + { + "class" : "Dist::Zilla::Plugin::Test::EOL", + "config" : { + "Dist::Zilla::Plugin::Test::EOL" : { + "filename" : "xt/author/eol.t", + "finder" : [ + ":InstallModules", + ":ExecFiles", + "@Author::ETHER/Examples", + ":TestFiles", + "@Author::ETHER/ExtraTestFiles" + ], + "trailing_whitespace" : "1" + } + }, + "name" : "@Author::ETHER/Test::EOL", + "version" : "0.18" + }, + { + "class" : "Dist::Zilla::Plugin::MetaTests", + "name" : "@Author::ETHER/MetaTests", + "version" : "5.037" + }, + { + "class" : "Dist::Zilla::Plugin::Test::CPAN::Changes", + "name" : "@Author::ETHER/Test::CPAN::Changes", + "version" : "0.009" + }, + { + "class" : "Dist::Zilla::Plugin::Test::ChangesHasContent", + "name" : "@Author::ETHER/Test::ChangesHasContent", + "version" : "0.008" + }, + { + "class" : "Dist::Zilla::Plugin::Test::MinimumVersion", + "name" : "@Author::ETHER/Test::MinimumVersion", + "version" : "2.000006" + }, + { + "class" : "Dist::Zilla::Plugin::PodSyntaxTests", + "name" : "@Author::ETHER/PodSyntaxTests", + "version" : "5.037" + }, + { + "class" : "Dist::Zilla::Plugin::Test::PodSpelling", + "name" : "@Author::ETHER/Test::PodSpelling", + "version" : "2.006009" + }, + { + "class" : "Dist::Zilla::Plugin::Test::Kwalitee", + "config" : { + "Dist::Zilla::Plugin::Test::Kwalitee" : { + "filename" : "xt/author/kwalitee.t", + "skiptest" : [] + } + }, + "name" : "@Author::ETHER/Test::Kwalitee", + "version" : "2.11" + }, + { + "class" : "Dist::Zilla::Plugin::MojibakeTests", + "name" : "@Author::ETHER/MojibakeTests", + "version" : "0.7" + }, + { + "class" : "Dist::Zilla::Plugin::Test::ReportPrereqs", + "name" : "@Author::ETHER/Test::ReportPrereqs", + "version" : "0.021" + }, + { + "class" : "Dist::Zilla::Plugin::Test::Portability", + "name" : "@Author::ETHER/Test::Portability", + "version" : "2.000006" + }, + { + "class" : "Dist::Zilla::Plugin::Git::Describe", + "name" : "@Author::ETHER/Git::Describe", + "version" : "0.005" + }, + { + "class" : "Dist::Zilla::Plugin::SurgicalPodWeaver", + "config" : { + "Dist::Zilla::Plugin::PodWeaver" : { + "config_plugins" : [ + "@Author::ETHER" + ], + "finder" : [ + ":InstallModules", + ":ExecFiles" + ], + "plugins" : [ + { + "class" : "Pod::Weaver::Plugin::EnsurePod5", + "name" : "@CorePrep/EnsurePod5", + "version" : "4.012" + }, + { + "class" : "Pod::Weaver::Plugin::H1Nester", + "name" : "@CorePrep/H1Nester", + "version" : "4.012" + }, + { + "class" : "Pod::Weaver::Plugin::SingleEncoding", + "name" : "@Author::ETHER/SingleEncoding", + "version" : "4.012" + }, + { + "class" : "Pod::Weaver::Plugin::Transformer", + "name" : "@Author::ETHER/List", + "version" : "4.012" + }, + { + "class" : "Pod::Weaver::Section::Region", + "name" : "@Author::ETHER/header", + "version" : "4.012" + }, + { + "class" : "Pod::Weaver::Section::Name", + "name" : "@Author::ETHER/Name", + "version" : "4.012" + }, + { + "class" : "Pod::Weaver::Section::Version", + "name" : "@Author::ETHER/Version", + "version" : "4.012" + }, + { + "class" : "Pod::Weaver::Section::Region", + "name" : "@Author::ETHER/prelude", + "version" : "4.012" + }, + { + "class" : "Pod::Weaver::Section::Generic", + "name" : "SYNOPSIS", + "version" : "4.012" + }, + { + "class" : "Pod::Weaver::Section::Generic", + "name" : "DESCRIPTION", + "version" : "4.012" + }, + { + "class" : "Pod::Weaver::Section::Generic", + "name" : "OVERVIEW", + "version" : "4.012" + }, + { + "class" : "Pod::Weaver::Section::Collect", + "name" : "ATTRIBUTES", + "version" : "4.012" + }, + { + "class" : "Pod::Weaver::Section::Collect", + "name" : "METHODS", + "version" : "4.012" + }, + { + "class" : "Pod::Weaver::Section::Collect", + "name" : "FUNCTIONS", + "version" : "4.012" + }, + { + "class" : "Pod::Weaver::Section::Collect", + "name" : "TYPES", + "version" : "4.012" + }, + { + "class" : "Pod::Weaver::Section::Leftovers", + "name" : "@Author::ETHER/Leftovers", + "version" : "4.012" + }, + { + "class" : "Pod::Weaver::Section::Region", + "name" : "@Author::ETHER/postlude", + "version" : "4.012" + }, + { + "class" : "Pod::Weaver::Section::Authors", + "name" : "@Author::ETHER/Authors", + "version" : "4.012" + }, + { + "class" : "Pod::Weaver::Section::Contributors", + "name" : "@Author::ETHER/Contributors", + "version" : "0.009" + }, + { + "class" : "Pod::Weaver::Section::Legal", + "name" : "@Author::ETHER/Legal", + "version" : "4.012" + }, + { + "class" : "Pod::Weaver::Section::Region", + "name" : "@Author::ETHER/footer", + "version" : "4.012" + } + ] + } + }, + "name" : "@Author::ETHER/SurgicalPodWeaver", + "version" : "0.0023" + }, + { + "class" : "Dist::Zilla::Plugin::ReadmeAnyFromPod", + "name" : "@Author::ETHER/ReadmeAnyFromPod", + "version" : "0.150250" + }, + { + "class" : "Dist::Zilla::Plugin::GithubMeta", + "name" : "@Author::ETHER/GithubMeta", + "version" : "0.52" + }, + { + "class" : "Dist::Zilla::Plugin::AutoMetaResources", + "name" : "@Author::ETHER/AutoMetaResources", + "version" : "1.21" + }, + { + "class" : "Dist::Zilla::Plugin::AuthorityFromModule", + "config" : { + "Dist::Zilla::Plugin::AuthorityFromModule" : { + "module" : "Class::Load" + }, + "Dist::Zilla::Role::ModuleMetadata" : { + "Module::Metadata" : "1.000027", + "version" : "0.003" + } + }, + "name" : "@Author::ETHER/AuthorityFromModule", + "version" : "0.006" + }, + { + "class" : "Dist::Zilla::Plugin::Authority", + "name" : "@Author::ETHER/Authority", + "version" : "1.009" + }, + { + "class" : "Dist::Zilla::Plugin::MetaNoIndex", + "name" : "@Author::ETHER/MetaNoIndex", + "version" : "5.037" + }, + { + "class" : "Dist::Zilla::Plugin::MetaProvides::Package", + "config" : { + "Dist::Zilla::Plugin::MetaProvides::Package" : { + "finder" : [ + ":InstallModules" + ], + "finder_objects" : [ + { + "class" : "Dist::Zilla::Plugin::FinderCode", + "name" : ":InstallModules", + "version" : "5.037" + } + ] + }, + "Dist::Zilla::Role::MetaProvider::Provider" : { + "inherit_missing" : "0", + "inherit_version" : "0", + "meta_noindex" : "1" + } + }, + "name" : "@Author::ETHER/MetaProvides::Package", + "version" : "2.003001" + }, + { + "class" : "Dist::Zilla::Plugin::MetaConfig", + "name" : "@Author::ETHER/MetaConfig", + "version" : "5.037" + }, + { + "class" : "Dist::Zilla::Plugin::Keywords", + "config" : { + "Dist::Zilla::Plugin::Keywords" : { + "keywords" : [ + "class", + "module", + "load", + "require", + "use", + "runtime" + ] + } + }, + "name" : "@Author::ETHER/Keywords", + "version" : "0.006" + }, + { + "class" : "Dist::Zilla::Plugin::Git::Contributors", + "config" : { + "Dist::Zilla::Plugin::Git::Contributors" : { + "include_authors" : "0", + "include_releaser" : "1", + "order_by" : "commits", + "paths" : [] + } + }, + "name" : "@Author::ETHER/Git::Contributors", + "version" : "0.011" + }, + { + "class" : "Dist::Zilla::Plugin::AutoPrereqs", + "name" : "@Author::ETHER/AutoPrereqs", + "version" : "5.037" + }, + { + "class" : "Dist::Zilla::Plugin::Prereqs::AuthorDeps", + "name" : "@Author::ETHER/Prereqs::AuthorDeps", + "version" : "0.004" + }, + { + "class" : "Dist::Zilla::Plugin::MinimumPerl", + "name" : "@Author::ETHER/MinimumPerl", + "version" : "1.006" + }, + { + "class" : "Dist::Zilla::Plugin::Prereqs", + "config" : { + "Dist::Zilla::Plugin::Prereqs" : { + "phase" : "develop", + "type" : "recommends" + } + }, + "name" : "@Author::ETHER/pluginbundle_version", + "version" : "5.037" + }, + { + "class" : "Dist::Zilla::Plugin::Prereqs", + "config" : { + "Dist::Zilla::Plugin::Prereqs" : { + "phase" : "develop", + "type" : "requires" + } + }, + "name" : "@Author::ETHER/pod_weaving", + "version" : "5.037" + }, + { + "class" : "Dist::Zilla::Plugin::MakeMaker", + "config" : { + "Dist::Zilla::Role::TestRunner" : { + "default_jobs" : 9 + } + }, + "name" : "@Author::ETHER/MakeMaker", + "version" : "5.037" + }, + { + "class" : "Dist::Zilla::Plugin::RunExtraTests", + "config" : { + "Dist::Zilla::Role::TestRunner" : { + "default_jobs" : 9 + } + }, + "name" : "@Author::ETHER/RunExtraTests", + "version" : "0.027" + }, + { + "class" : "Dist::Zilla::Plugin::CheckSelfDependency", + "config" : { + "Dist::Zilla::Plugin::CheckSelfDependency" : { + "finder" : [ + ":InstallModules" + ] + }, + "Dist::Zilla::Role::ModuleMetadata" : { + "Module::Metadata" : "1.000027", + "version" : "0.003" + } + }, + "name" : "@Author::ETHER/CheckSelfDependency", + "version" : "0.011" + }, + { + "class" : "Dist::Zilla::Plugin::Run::AfterBuild", + "config" : { + "Dist::Zilla::Plugin::Run::Role::Runner" : { + "fatal_errors" : 1, + "quiet" : 1, + "run" : [ + "bash -c \"test -e .ackrc && grep -q -- '--ignore-dir=.latest' .ackrc || echo '--ignore-dir=.latest' >> .ackrc; if [[ `dirname '%d'` != .build ]]; then test -e .ackrc && grep -q -- '--ignore-dir=%d' .ackrc || echo '--ignore-dir=%d' >> .ackrc; fi\"" + ] + } + }, + "name" : "@Author::ETHER/.ackrc", + "version" : "0.039" + }, + { + "class" : "Dist::Zilla::Plugin::Run::AfterBuild", + "config" : { + "Dist::Zilla::Plugin::Run::Role::Runner" : { + "eval" : [ + "if ('%d' =~ /^%n-[.[:xdigit:]]+$/) { unlink '.latest'; symlink '%d', '.latest'; }" + ], + "fatal_errors" : 1, + "quiet" : 1 + } + }, + "name" : "@Author::ETHER/.latest", + "version" : "0.039" + }, + { + "class" : "Dist::Zilla::Plugin::CheckStrictVersion", + "name" : "@Author::ETHER/CheckStrictVersion", + "version" : "0.001" + }, + { + "class" : "Dist::Zilla::Plugin::Git::Check", + "config" : { + "Dist::Zilla::Plugin::Git::Check" : { + "untracked_files" : "die" + }, + "Dist::Zilla::Role::Git::DirtyFiles" : { + "allow_dirty" : [], + "allow_dirty_match" : [], + "changelog" : "Changes" + }, + "Dist::Zilla::Role::Git::Repo" : { + "repo_root" : "." + } + }, + "name" : "@Author::ETHER/initial check", + "version" : "2.035" + }, + { + "class" : "Dist::Zilla::Plugin::Git::CheckFor::MergeConflicts", + "config" : { + "Dist::Zilla::Role::Git::Repo" : { + "repo_root" : "." + } + }, + "name" : "@Author::ETHER/Git::CheckFor::MergeConflicts", + "version" : "0.013" + }, + { + "class" : "Dist::Zilla::Plugin::Git::CheckFor::CorrectBranch", + "config" : { + "Dist::Zilla::Role::Git::Repo" : { + "repo_root" : "." + } + }, + "name" : "@Author::ETHER/Git::CheckFor::CorrectBranch", + "version" : "0.013" + }, + { + "class" : "Dist::Zilla::Plugin::Git::Remote::Check", + "name" : "@Author::ETHER/Git::Remote::Check", + "version" : "0.2.0" + }, + { + "class" : "Dist::Zilla::Plugin::CheckPrereqsIndexed", + "name" : "@Author::ETHER/CheckPrereqsIndexed", + "version" : "0.016" + }, + { + "class" : "Dist::Zilla::Plugin::TestRelease", + "name" : "@Author::ETHER/TestRelease", + "version" : "5.037" + }, + { + "class" : "Dist::Zilla::Plugin::Git::Check", + "config" : { + "Dist::Zilla::Plugin::Git::Check" : { + "untracked_files" : "die" + }, + "Dist::Zilla::Role::Git::DirtyFiles" : { + "allow_dirty" : [], + "allow_dirty_match" : [], + "changelog" : "Changes" + }, + "Dist::Zilla::Role::Git::Repo" : { + "repo_root" : "." + } + }, + "name" : "@Author::ETHER/after tests", + "version" : "2.035" + }, + { + "class" : "Dist::Zilla::Plugin::CheckIssues", + "name" : "@Author::ETHER/CheckIssues", + "version" : "0.008" + }, + { + "class" : "Dist::Zilla::Plugin::UploadToCPAN", + "name" : "@Author::ETHER/UploadToCPAN", + "version" : "5.037" + }, + { + "class" : "Dist::Zilla::Plugin::CopyFilesFromRelease", + "config" : { + "Dist::Zilla::Plugin::CopyFilesFromRelease" : { + "filename" : [ + "CONTRIBUTING", + "Changes", + "INSTALL", + "LICENSE", + "ppport.h" + ], + "match" : [] + } + }, + "name" : "@Author::ETHER/CopyFilesFromRelease", + "version" : "0.006" + }, + { + "class" : "Dist::Zilla::Plugin::Git::Commit", + "config" : { + "Dist::Zilla::Plugin::Git::Commit" : { + "add_files_in" : [ + "." + ], + "commit_msg" : "%N-%v%t%n%n%c", + "time_zone" : "local" + }, + "Dist::Zilla::Role::Git::DirtyFiles" : { + "allow_dirty" : [ + "README.pod", + "Changes", + "LICENSE", + "CONTRIBUTING" + ], + "allow_dirty_match" : [], + "changelog" : "Changes" + }, + "Dist::Zilla::Role::Git::Repo" : { + "repo_root" : "." + } + }, + "name" : "@Author::ETHER/release snapshot", + "version" : "2.035" + }, + { + "class" : "Dist::Zilla::Plugin::Git::Tag", + "config" : { + "Dist::Zilla::Plugin::Git::Tag" : { + "branch" : null, + "signed" : 0, + "tag" : "v0.23", + "tag_format" : "v%v", + "tag_message" : "v%v%t", + "time_zone" : "local" + }, + "Dist::Zilla::Role::Git::Repo" : { + "repo_root" : "." + } + }, + "name" : "@Author::ETHER/Git::Tag", + "version" : "2.035" + }, + { + "class" : "Dist::Zilla::Plugin::GitHub::Update", + "name" : "@Author::ETHER/GitHub::Update", + "version" : "0.40" + }, + { + "class" : "Dist::Zilla::Plugin::BumpVersionAfterRelease::Transitional", + "config" : { + "Dist::Zilla::Plugin::BumpVersionAfterRelease::Transitional" : {} + }, + "name" : "@Author::ETHER/BumpVersionAfterRelease::Transitional", + "version" : "0.005" + }, + { + "class" : "Dist::Zilla::Plugin::NextRelease", + "name" : "@Author::ETHER/NextRelease", + "version" : "5.037" + }, + { + "class" : "Dist::Zilla::Plugin::Git::Commit", + "config" : { + "Dist::Zilla::Plugin::Git::Commit" : { + "add_files_in" : [], + "commit_msg" : "increment $VERSION after %v release", + "time_zone" : "local" + }, + "Dist::Zilla::Role::Git::DirtyFiles" : { + "allow_dirty" : [ + "Changes" + ], + "allow_dirty_match" : [ + "(?^:^lib/.*\\.pm$)" + ], + "changelog" : "Changes" + }, + "Dist::Zilla::Role::Git::Repo" : { + "repo_root" : "." + } + }, + "name" : "@Author::ETHER/post-release commit", + "version" : "2.035" + }, + { + "class" : "Dist::Zilla::Plugin::Git::Push", + "config" : { + "Dist::Zilla::Plugin::Git::Push" : { + "push_to" : [ + "origin" + ], + "remotes_must_exist" : 1 + }, + "Dist::Zilla::Role::Git::Repo" : { + "repo_root" : "." + } + }, + "name" : "@Author::ETHER/Git::Push", + "version" : "2.035" + }, + { + "class" : "Dist::Zilla::Plugin::Run::AfterRelease", + "config" : { + "Dist::Zilla::Plugin::Run::Role::Runner" : { + "fatal_errors" : 0, + "quiet" : 0, + "run" : [ + "REDACTED" + ] + } + }, + "name" : "@Author::ETHER/install release", + "version" : "0.039" + }, + { + "class" : "Dist::Zilla::Plugin::Run::AfterRelease", + "config" : { + "Dist::Zilla::Plugin::Run::Role::Runner" : { + "eval" : [ + "print \"release complete!\\xa\"" + ], + "fatal_errors" : 1, + "quiet" : 1 + } + }, + "name" : "@Author::ETHER/release complete", + "version" : "0.039" + }, + { + "class" : "Dist::Zilla::Plugin::ConfirmRelease", + "name" : "@Author::ETHER/ConfirmRelease", + "version" : "5.037" + }, + { + "class" : "Dist::Zilla::Plugin::Prereqs", + "config" : { + "Dist::Zilla::Plugin::Prereqs" : { + "phase" : "develop", + "type" : "requires" + } + }, + "name" : "DevelopRequires", + "version" : "5.037" + }, + { + "class" : "Dist::Zilla::Plugin::MetaResources", + "name" : "MetaResources", + "version" : "5.037" + }, + { + "class" : "Dist::Zilla::Plugin::FinderCode", + "name" : ":InstallModules", + "version" : "5.037" + }, + { + "class" : "Dist::Zilla::Plugin::FinderCode", + "name" : ":IncModules", + "version" : "5.037" + }, + { + "class" : "Dist::Zilla::Plugin::FinderCode", + "name" : ":TestFiles", + "version" : "5.037" + }, + { + "class" : "Dist::Zilla::Plugin::FinderCode", + "name" : ":ExecFiles", + "version" : "5.037" + }, + { + "class" : "Dist::Zilla::Plugin::FinderCode", + "name" : ":ShareFiles", + "version" : "5.037" + }, + { + "class" : "Dist::Zilla::Plugin::FinderCode", + "name" : ":MainModule", + "version" : "5.037" + }, + { + "class" : "Dist::Zilla::Plugin::FinderCode", + "name" : ":AllFiles", + "version" : "5.037" + }, + { + "class" : "Dist::Zilla::Plugin::FinderCode", + "name" : ":NoFiles", + "version" : "5.037" + }, + { + "class" : "Dist::Zilla::Plugin::VerifyPhases", + "name" : "@Author::ETHER/PHASE VERIFICATION", + "version" : "0.011" + } + ], + "zilla" : { + "class" : "Dist::Zilla::Dist::Builder", + "config" : { + "is_trial" : "0" + }, + "version" : "5.037" + } + }, + "x_authority" : "cpan:SARTAK", + "x_authority_from_module" : "Class::Load", + "x_contributors" : [ + "Dave Rolsky <autarch@urth.org>", + "Shawn Moore <sartak@bestpractical.com>", + "Karen Etheridge <ether@cpan.org>", + "Shawn M Moore <sartak@bestpractical.com>", + "Jesse Luehrs <doy@tozt.net>", + "Kent Fredric <kentfredric@gmail.com>", + "Caleb Cushing <xenoterracide@gmail.com>" + ], + "x_permissions_from_module" : "Class::Load" +} + diff --git a/META.yml b/META.yml new file mode 100644 index 0000000..57560b2 --- /dev/null +++ b/META.yml @@ -0,0 +1,744 @@ +--- +abstract: 'A working (require "Class::Name") and more' +author: + - 'Shawn M Moore <sartak at bestpractical.com>' +build_requires: + ExtUtils::MakeMaker: '0' + File::Spec: '0' + Test::Fatal: '0' + Test::More: '0.88' + Test::Requires: '0' + constant: '0' + lib: '0' + perl: '5.006' + version: '0' +configure_requires: + ExtUtils::MakeMaker: '0' + perl: '5.006' +dynamic_config: 0 +generated_by: 'Dist::Zilla version 5.037, CPAN::Meta::Converter version 2.150005' +keywords: + - class + - module + - load + - require + - use + - runtime +license: perl +meta-spec: + url: http://module-build.sourceforge.net/META-spec-v1.4.html + version: '1.4' +name: Class-Load +no_index: + directory: + - t + - xt +provides: + Class::Load: + file: lib/Class/Load.pm + version: '0.23' + Class::Load::PP: + file: lib/Class/Load/PP.pm + version: '0.23' +requires: + Carp: '0' + Data::OptList: '0' + Exporter: '0' + Module::Implementation: '0.04' + Module::Runtime: '0.012' + Package::Stash: '0.14' + Scalar::Util: '0' + Try::Tiny: '0' + base: '0' + perl: '5.006' + strict: '0' + warnings: '0' +resources: + IRC: irc://irc.perl.org/#moose + MailingList: http://lists.perl.org/list/moose.html + bugtracker: https://rt.cpan.org/Public/Dist/Display.html?Name=Class-Load + homepage: https://github.com/moose/Class-Load + repository: https://github.com/moose/Class-Load.git +version: '0.23' +x_Dist_Zilla: + perl: + version: '5.023000' + plugins: + - + class: Dist::Zilla::Plugin::Prereqs + config: + Dist::Zilla::Plugin::Prereqs: + phase: develop + type: requires + name: '@Author::ETHER/bundle_plugins' + version: '5.037' + - + class: Dist::Zilla::Plugin::RewriteVersion::Transitional + config: + Dist::Zilla::Plugin::RewriteVersion::Transitional: + _fallback_version_provider_args: + version_regexp: ^v([\d._]+)(-TRIAL)?$ + fallback_version_provider: Git::NextVersion + name: '@Author::ETHER/RewriteVersion::Transitional' + version: '0.005' + - + class: Dist::Zilla::Plugin::PromptIfStale + config: + Dist::Zilla::Plugin::PromptIfStale: + check_all_plugins: 0 + check_all_prereqs: 0 + modules: + - Dist::Zilla::PluginBundle::Author::ETHER + phase: build + skip: [] + name: '@Author::ETHER/stale modules, build' + version: '0.045' + - + class: Dist::Zilla::Plugin::PromptIfStale + config: + Dist::Zilla::Plugin::PromptIfStale: + check_all_plugins: '1' + check_all_prereqs: '1' + modules: [] + phase: release + skip: [] + name: '@Author::ETHER/stale modules, release' + version: '0.045' + - + class: Dist::Zilla::Plugin::FileFinder::ByName + name: '@Author::ETHER/Examples' + version: '5.037' + - + class: Dist::Zilla::Plugin::FileFinder::ByName + name: '@Author::ETHER/ExtraTestFiles' + version: '5.037' + - + class: Dist::Zilla::Plugin::Git::GatherDir + config: + Dist::Zilla::Plugin::GatherDir: + exclude_filename: + - README.pod + - CONTRIBUTING + - LICENSE + exclude_match: [] + follow_symlinks: '0' + include_dotfiles: '0' + prefix: '' + prune_directory: [] + root: . + Dist::Zilla::Plugin::Git::GatherDir: + include_untracked: '0' + name: '@Author::ETHER/Git::GatherDir' + version: '2.035' + - + class: Dist::Zilla::Plugin::MetaYAML + name: '@Author::ETHER/MetaYAML' + version: '5.037' + - + class: Dist::Zilla::Plugin::MetaJSON + name: '@Author::ETHER/MetaJSON' + version: '5.037' + - + class: Dist::Zilla::Plugin::License + name: '@Author::ETHER/License' + version: '5.037' + - + class: Dist::Zilla::Plugin::Readme + name: '@Author::ETHER/Readme' + version: '5.037' + - + class: Dist::Zilla::Plugin::Manifest + name: '@Author::ETHER/Manifest' + version: '5.037' + - + class: Dist::Zilla::Plugin::GenerateFile::ShareDir + config: + Dist::Zilla::Plugin::GenerateFile::ShareDir: + destination_filename: CONTRIBUTING + dist: Dist-Zilla-PluginBundle-Author-ETHER + encoding: UTF-8 + has_xs: 0 + source_filename: CONTRIBUTING + name: '@Author::ETHER/generate CONTRIBUTING' + version: '0.005' + - + class: Dist::Zilla::Plugin::InstallGuide + name: '@Author::ETHER/InstallGuide' + version: '1.200006' + - + class: Dist::Zilla::Plugin::Test::Compile + config: + Dist::Zilla::Plugin::Test::Compile: + bail_out_on_fail: '1' + fail_on_warning: author + fake_home: '0' + filename: xt/author/00-compile.t + module_finder: + - ':InstallModules' + needs_display: '0' + phase: develop + script_finder: + - ':ExecFiles' + - '@Author::ETHER/Examples' + skips: [] + name: '@Author::ETHER/Test::Compile' + version: '2.053' + - + class: Dist::Zilla::Plugin::Test::NoTabs + config: + Dist::Zilla::Plugin::Test::NoTabs: + filename: xt/author/no-tabs.t + finder: + - ':InstallModules' + - ':ExecFiles' + - '@Author::ETHER/Examples' + - ':TestFiles' + - '@Author::ETHER/ExtraTestFiles' + name: '@Author::ETHER/Test::NoTabs' + version: '0.15' + - + class: Dist::Zilla::Plugin::Test::EOL + config: + Dist::Zilla::Plugin::Test::EOL: + filename: xt/author/eol.t + finder: + - ':InstallModules' + - ':ExecFiles' + - '@Author::ETHER/Examples' + - ':TestFiles' + - '@Author::ETHER/ExtraTestFiles' + trailing_whitespace: '1' + name: '@Author::ETHER/Test::EOL' + version: '0.18' + - + class: Dist::Zilla::Plugin::MetaTests + name: '@Author::ETHER/MetaTests' + version: '5.037' + - + class: Dist::Zilla::Plugin::Test::CPAN::Changes + name: '@Author::ETHER/Test::CPAN::Changes' + version: '0.009' + - + class: Dist::Zilla::Plugin::Test::ChangesHasContent + name: '@Author::ETHER/Test::ChangesHasContent' + version: '0.008' + - + class: Dist::Zilla::Plugin::Test::MinimumVersion + name: '@Author::ETHER/Test::MinimumVersion' + version: '2.000006' + - + class: Dist::Zilla::Plugin::PodSyntaxTests + name: '@Author::ETHER/PodSyntaxTests' + version: '5.037' + - + class: Dist::Zilla::Plugin::Test::PodSpelling + name: '@Author::ETHER/Test::PodSpelling' + version: '2.006009' + - + class: Dist::Zilla::Plugin::Test::Kwalitee + config: + Dist::Zilla::Plugin::Test::Kwalitee: + filename: xt/author/kwalitee.t + skiptest: [] + name: '@Author::ETHER/Test::Kwalitee' + version: '2.11' + - + class: Dist::Zilla::Plugin::MojibakeTests + name: '@Author::ETHER/MojibakeTests' + version: '0.7' + - + class: Dist::Zilla::Plugin::Test::ReportPrereqs + name: '@Author::ETHER/Test::ReportPrereqs' + version: '0.021' + - + class: Dist::Zilla::Plugin::Test::Portability + name: '@Author::ETHER/Test::Portability' + version: '2.000006' + - + class: Dist::Zilla::Plugin::Git::Describe + name: '@Author::ETHER/Git::Describe' + version: '0.005' + - + class: Dist::Zilla::Plugin::SurgicalPodWeaver + config: + Dist::Zilla::Plugin::PodWeaver: + config_plugins: + - '@Author::ETHER' + finder: + - ':InstallModules' + - ':ExecFiles' + plugins: + - + class: Pod::Weaver::Plugin::EnsurePod5 + name: '@CorePrep/EnsurePod5' + version: '4.012' + - + class: Pod::Weaver::Plugin::H1Nester + name: '@CorePrep/H1Nester' + version: '4.012' + - + class: Pod::Weaver::Plugin::SingleEncoding + name: '@Author::ETHER/SingleEncoding' + version: '4.012' + - + class: Pod::Weaver::Plugin::Transformer + name: '@Author::ETHER/List' + version: '4.012' + - + class: Pod::Weaver::Section::Region + name: '@Author::ETHER/header' + version: '4.012' + - + class: Pod::Weaver::Section::Name + name: '@Author::ETHER/Name' + version: '4.012' + - + class: Pod::Weaver::Section::Version + name: '@Author::ETHER/Version' + version: '4.012' + - + class: Pod::Weaver::Section::Region + name: '@Author::ETHER/prelude' + version: '4.012' + - + class: Pod::Weaver::Section::Generic + name: SYNOPSIS + version: '4.012' + - + class: Pod::Weaver::Section::Generic + name: DESCRIPTION + version: '4.012' + - + class: Pod::Weaver::Section::Generic + name: OVERVIEW + version: '4.012' + - + class: Pod::Weaver::Section::Collect + name: ATTRIBUTES + version: '4.012' + - + class: Pod::Weaver::Section::Collect + name: METHODS + version: '4.012' + - + class: Pod::Weaver::Section::Collect + name: FUNCTIONS + version: '4.012' + - + class: Pod::Weaver::Section::Collect + name: TYPES + version: '4.012' + - + class: Pod::Weaver::Section::Leftovers + name: '@Author::ETHER/Leftovers' + version: '4.012' + - + class: Pod::Weaver::Section::Region + name: '@Author::ETHER/postlude' + version: '4.012' + - + class: Pod::Weaver::Section::Authors + name: '@Author::ETHER/Authors' + version: '4.012' + - + class: Pod::Weaver::Section::Contributors + name: '@Author::ETHER/Contributors' + version: '0.009' + - + class: Pod::Weaver::Section::Legal + name: '@Author::ETHER/Legal' + version: '4.012' + - + class: Pod::Weaver::Section::Region + name: '@Author::ETHER/footer' + version: '4.012' + name: '@Author::ETHER/SurgicalPodWeaver' + version: '0.0023' + - + class: Dist::Zilla::Plugin::ReadmeAnyFromPod + name: '@Author::ETHER/ReadmeAnyFromPod' + version: '0.150250' + - + class: Dist::Zilla::Plugin::GithubMeta + name: '@Author::ETHER/GithubMeta' + version: '0.52' + - + class: Dist::Zilla::Plugin::AutoMetaResources + name: '@Author::ETHER/AutoMetaResources' + version: '1.21' + - + class: Dist::Zilla::Plugin::AuthorityFromModule + config: + Dist::Zilla::Plugin::AuthorityFromModule: + module: Class::Load + Dist::Zilla::Role::ModuleMetadata: + Module::Metadata: '1.000027' + version: '0.003' + name: '@Author::ETHER/AuthorityFromModule' + version: '0.006' + - + class: Dist::Zilla::Plugin::Authority + name: '@Author::ETHER/Authority' + version: '1.009' + - + class: Dist::Zilla::Plugin::MetaNoIndex + name: '@Author::ETHER/MetaNoIndex' + version: '5.037' + - + class: Dist::Zilla::Plugin::MetaProvides::Package + config: + Dist::Zilla::Plugin::MetaProvides::Package: + finder: + - ':InstallModules' + finder_objects: + - + class: Dist::Zilla::Plugin::FinderCode + name: ':InstallModules' + version: '5.037' + Dist::Zilla::Role::MetaProvider::Provider: + inherit_missing: '0' + inherit_version: '0' + meta_noindex: '1' + name: '@Author::ETHER/MetaProvides::Package' + version: '2.003001' + - + class: Dist::Zilla::Plugin::MetaConfig + name: '@Author::ETHER/MetaConfig' + version: '5.037' + - + class: Dist::Zilla::Plugin::Keywords + config: + Dist::Zilla::Plugin::Keywords: + keywords: + - class + - module + - load + - require + - use + - runtime + name: '@Author::ETHER/Keywords' + version: '0.006' + - + class: Dist::Zilla::Plugin::Git::Contributors + config: + Dist::Zilla::Plugin::Git::Contributors: + include_authors: '0' + include_releaser: '1' + order_by: commits + paths: [] + name: '@Author::ETHER/Git::Contributors' + version: '0.011' + - + class: Dist::Zilla::Plugin::AutoPrereqs + name: '@Author::ETHER/AutoPrereqs' + version: '5.037' + - + class: Dist::Zilla::Plugin::Prereqs::AuthorDeps + name: '@Author::ETHER/Prereqs::AuthorDeps' + version: '0.004' + - + class: Dist::Zilla::Plugin::MinimumPerl + name: '@Author::ETHER/MinimumPerl' + version: '1.006' + - + class: Dist::Zilla::Plugin::Prereqs + config: + Dist::Zilla::Plugin::Prereqs: + phase: develop + type: recommends + name: '@Author::ETHER/pluginbundle_version' + version: '5.037' + - + class: Dist::Zilla::Plugin::Prereqs + config: + Dist::Zilla::Plugin::Prereqs: + phase: develop + type: requires + name: '@Author::ETHER/pod_weaving' + version: '5.037' + - + class: Dist::Zilla::Plugin::MakeMaker + config: + Dist::Zilla::Role::TestRunner: + default_jobs: 9 + name: '@Author::ETHER/MakeMaker' + version: '5.037' + - + class: Dist::Zilla::Plugin::RunExtraTests + config: + Dist::Zilla::Role::TestRunner: + default_jobs: 9 + name: '@Author::ETHER/RunExtraTests' + version: '0.027' + - + class: Dist::Zilla::Plugin::CheckSelfDependency + config: + Dist::Zilla::Plugin::CheckSelfDependency: + finder: + - ':InstallModules' + Dist::Zilla::Role::ModuleMetadata: + Module::Metadata: '1.000027' + version: '0.003' + name: '@Author::ETHER/CheckSelfDependency' + version: '0.011' + - + class: Dist::Zilla::Plugin::Run::AfterBuild + config: + Dist::Zilla::Plugin::Run::Role::Runner: + fatal_errors: 1 + quiet: 1 + run: + - "bash -c \"test -e .ackrc && grep -q -- '--ignore-dir=.latest' .ackrc || echo '--ignore-dir=.latest' >> .ackrc; if [[ `dirname '%d'` != .build ]]; then test -e .ackrc && grep -q -- '--ignore-dir=%d' .ackrc || echo '--ignore-dir=%d' >> .ackrc; fi\"" + name: '@Author::ETHER/.ackrc' + version: '0.039' + - + class: Dist::Zilla::Plugin::Run::AfterBuild + config: + Dist::Zilla::Plugin::Run::Role::Runner: + eval: + - "if ('%d' =~ /^%n-[.[:xdigit:]]+$/) { unlink '.latest'; symlink '%d', '.latest'; }" + fatal_errors: 1 + quiet: 1 + name: '@Author::ETHER/.latest' + version: '0.039' + - + class: Dist::Zilla::Plugin::CheckStrictVersion + name: '@Author::ETHER/CheckStrictVersion' + version: '0.001' + - + class: Dist::Zilla::Plugin::Git::Check + config: + Dist::Zilla::Plugin::Git::Check: + untracked_files: die + Dist::Zilla::Role::Git::DirtyFiles: + allow_dirty: [] + allow_dirty_match: [] + changelog: Changes + Dist::Zilla::Role::Git::Repo: + repo_root: . + name: '@Author::ETHER/initial check' + version: '2.035' + - + class: Dist::Zilla::Plugin::Git::CheckFor::MergeConflicts + config: + Dist::Zilla::Role::Git::Repo: + repo_root: . + name: '@Author::ETHER/Git::CheckFor::MergeConflicts' + version: '0.013' + - + class: Dist::Zilla::Plugin::Git::CheckFor::CorrectBranch + config: + Dist::Zilla::Role::Git::Repo: + repo_root: . + name: '@Author::ETHER/Git::CheckFor::CorrectBranch' + version: '0.013' + - + class: Dist::Zilla::Plugin::Git::Remote::Check + name: '@Author::ETHER/Git::Remote::Check' + version: 0.2.0 + - + class: Dist::Zilla::Plugin::CheckPrereqsIndexed + name: '@Author::ETHER/CheckPrereqsIndexed' + version: '0.016' + - + class: Dist::Zilla::Plugin::TestRelease + name: '@Author::ETHER/TestRelease' + version: '5.037' + - + class: Dist::Zilla::Plugin::Git::Check + config: + Dist::Zilla::Plugin::Git::Check: + untracked_files: die + Dist::Zilla::Role::Git::DirtyFiles: + allow_dirty: [] + allow_dirty_match: [] + changelog: Changes + Dist::Zilla::Role::Git::Repo: + repo_root: . + name: '@Author::ETHER/after tests' + version: '2.035' + - + class: Dist::Zilla::Plugin::CheckIssues + name: '@Author::ETHER/CheckIssues' + version: '0.008' + - + class: Dist::Zilla::Plugin::UploadToCPAN + name: '@Author::ETHER/UploadToCPAN' + version: '5.037' + - + class: Dist::Zilla::Plugin::CopyFilesFromRelease + config: + Dist::Zilla::Plugin::CopyFilesFromRelease: + filename: + - CONTRIBUTING + - Changes + - INSTALL + - LICENSE + - ppport.h + match: [] + name: '@Author::ETHER/CopyFilesFromRelease' + version: '0.006' + - + class: Dist::Zilla::Plugin::Git::Commit + config: + Dist::Zilla::Plugin::Git::Commit: + add_files_in: + - . + commit_msg: '%N-%v%t%n%n%c' + time_zone: local + Dist::Zilla::Role::Git::DirtyFiles: + allow_dirty: + - README.pod + - Changes + - LICENSE + - CONTRIBUTING + allow_dirty_match: [] + changelog: Changes + Dist::Zilla::Role::Git::Repo: + repo_root: . + name: '@Author::ETHER/release snapshot' + version: '2.035' + - + class: Dist::Zilla::Plugin::Git::Tag + config: + Dist::Zilla::Plugin::Git::Tag: + branch: ~ + signed: 0 + tag: v0.23 + tag_format: v%v + tag_message: v%v%t + time_zone: local + Dist::Zilla::Role::Git::Repo: + repo_root: . + name: '@Author::ETHER/Git::Tag' + version: '2.035' + - + class: Dist::Zilla::Plugin::GitHub::Update + name: '@Author::ETHER/GitHub::Update' + version: '0.40' + - + class: Dist::Zilla::Plugin::BumpVersionAfterRelease::Transitional + config: + Dist::Zilla::Plugin::BumpVersionAfterRelease::Transitional: {} + name: '@Author::ETHER/BumpVersionAfterRelease::Transitional' + version: '0.005' + - + class: Dist::Zilla::Plugin::NextRelease + name: '@Author::ETHER/NextRelease' + version: '5.037' + - + class: Dist::Zilla::Plugin::Git::Commit + config: + Dist::Zilla::Plugin::Git::Commit: + add_files_in: [] + commit_msg: 'increment $VERSION after %v release' + time_zone: local + Dist::Zilla::Role::Git::DirtyFiles: + allow_dirty: + - Changes + allow_dirty_match: + - (?^:^lib/.*\.pm$) + changelog: Changes + Dist::Zilla::Role::Git::Repo: + repo_root: . + name: '@Author::ETHER/post-release commit' + version: '2.035' + - + class: Dist::Zilla::Plugin::Git::Push + config: + Dist::Zilla::Plugin::Git::Push: + push_to: + - origin + remotes_must_exist: 1 + Dist::Zilla::Role::Git::Repo: + repo_root: . + name: '@Author::ETHER/Git::Push' + version: '2.035' + - + class: Dist::Zilla::Plugin::Run::AfterRelease + config: + Dist::Zilla::Plugin::Run::Role::Runner: + fatal_errors: 0 + quiet: 0 + run: + - REDACTED + name: '@Author::ETHER/install release' + version: '0.039' + - + class: Dist::Zilla::Plugin::Run::AfterRelease + config: + Dist::Zilla::Plugin::Run::Role::Runner: + eval: + - 'print "release complete!\xa"' + fatal_errors: 1 + quiet: 1 + name: '@Author::ETHER/release complete' + version: '0.039' + - + class: Dist::Zilla::Plugin::ConfirmRelease + name: '@Author::ETHER/ConfirmRelease' + version: '5.037' + - + class: Dist::Zilla::Plugin::Prereqs + config: + Dist::Zilla::Plugin::Prereqs: + phase: develop + type: requires + name: DevelopRequires + version: '5.037' + - + class: Dist::Zilla::Plugin::MetaResources + name: MetaResources + version: '5.037' + - + class: Dist::Zilla::Plugin::FinderCode + name: ':InstallModules' + version: '5.037' + - + class: Dist::Zilla::Plugin::FinderCode + name: ':IncModules' + version: '5.037' + - + class: Dist::Zilla::Plugin::FinderCode + name: ':TestFiles' + version: '5.037' + - + class: Dist::Zilla::Plugin::FinderCode + name: ':ExecFiles' + version: '5.037' + - + class: Dist::Zilla::Plugin::FinderCode + name: ':ShareFiles' + version: '5.037' + - + class: Dist::Zilla::Plugin::FinderCode + name: ':MainModule' + version: '5.037' + - + class: Dist::Zilla::Plugin::FinderCode + name: ':AllFiles' + version: '5.037' + - + class: Dist::Zilla::Plugin::FinderCode + name: ':NoFiles' + version: '5.037' + - + class: Dist::Zilla::Plugin::VerifyPhases + name: '@Author::ETHER/PHASE VERIFICATION' + version: '0.011' + zilla: + class: Dist::Zilla::Dist::Builder + config: + is_trial: '0' + version: '5.037' +x_authority: cpan:SARTAK +x_authority_from_module: Class::Load +x_contributors: + - 'Dave Rolsky <autarch@urth.org>' + - 'Shawn Moore <sartak@bestpractical.com>' + - 'Karen Etheridge <ether@cpan.org>' + - 'Shawn M Moore <sartak@bestpractical.com>' + - 'Jesse Luehrs <doy@tozt.net>' + - 'Kent Fredric <kentfredric@gmail.com>' + - 'Caleb Cushing <xenoterracide@gmail.com>' +x_permissions_from_module: Class::Load diff --git a/Makefile.PL b/Makefile.PL new file mode 100644 index 0000000..69ce6b3 --- /dev/null +++ b/Makefile.PL @@ -0,0 +1,82 @@ +# This file was automatically generated by Dist::Zilla::Plugin::MakeMaker v5.037. +use strict; +use warnings; + +use 5.006; + +use ExtUtils::MakeMaker; + +my %WriteMakefileArgs = ( + "ABSTRACT" => "A working (require \"Class::Name\") and more", + "AUTHOR" => "Shawn M Moore <sartak at bestpractical.com>", + "CONFIGURE_REQUIRES" => { + "ExtUtils::MakeMaker" => 0 + }, + "DISTNAME" => "Class-Load", + "EXE_FILES" => [], + "LICENSE" => "perl", + "MIN_PERL_VERSION" => "5.006", + "NAME" => "Class::Load", + "PREREQ_PM" => { + "Carp" => 0, + "Data::OptList" => 0, + "Exporter" => 0, + "Module::Implementation" => "0.04", + "Module::Runtime" => "0.012", + "Package::Stash" => "0.14", + "Scalar::Util" => 0, + "Try::Tiny" => 0, + "base" => 0, + "strict" => 0, + "warnings" => 0 + }, + "TEST_REQUIRES" => { + "ExtUtils::MakeMaker" => 0, + "File::Spec" => 0, + "Test::Fatal" => 0, + "Test::More" => "0.88", + "Test::Requires" => 0, + "constant" => 0, + "lib" => 0, + "version" => 0 + }, + "VERSION" => "0.23", + "test" => { + "TESTS" => "t/*.t" + } +); + + +my %FallbackPrereqs = ( + "Carp" => 0, + "Data::OptList" => 0, + "Exporter" => 0, + "ExtUtils::MakeMaker" => 0, + "File::Spec" => 0, + "Module::Implementation" => "0.04", + "Module::Runtime" => "0.012", + "Package::Stash" => "0.14", + "Scalar::Util" => 0, + "Test::Fatal" => 0, + "Test::More" => "0.88", + "Test::Requires" => 0, + "Try::Tiny" => 0, + "base" => 0, + "constant" => 0, + "lib" => 0, + "strict" => 0, + "version" => 0, + "warnings" => 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); @@ -0,0 +1,15 @@ + + +This archive contains the distribution Class-Load, +version 0.23: + + A working (require "Class::Name") and more + +This software is copyright (c) 2008 by Shawn M Moore. + +This is free software; you can redistribute it and/or modify it under +the same terms as the Perl 5 programming language system itself. + + +This README file was generated by Dist::Zilla::Plugin::Readme v5.037. + diff --git a/dist.ini b/dist.ini new file mode 100644 index 0000000..ce32ff1 --- /dev/null +++ b/dist.ini @@ -0,0 +1,23 @@ +name = Class-Load +author = Shawn M Moore <sartak at bestpractical.com> +license = Perl_5 +copyright_holder = Shawn M Moore +copyright_year = 2008 + +[@Author::ETHER] +:version = 0.094 +surgical_podweaver = 1 +installer = MakeMaker +Authority.authority = cpan:SARTAK +-remove = Test::Pod::No404s +NextRelease.format = %-8v %{yyyy-MM-dd}d +AutoPrereqs.skip = Test::Without::Module +-remove = Test::CleanNamespaces ; TODO: Module::Implementation needs work +-remove = PodCoverageTests + +[Prereqs / DevelopRequires] +Test::Without::Module = 0 + +[MetaResources] +x_IRC = irc://irc.perl.org/#moose +x_MailingList = http://lists.perl.org/list/moose.html diff --git a/lib/Class/Load.pm b/lib/Class/Load.pm new file mode 100644 index 0000000..ae03c77 --- /dev/null +++ b/lib/Class/Load.pm @@ -0,0 +1,405 @@ +use strict; +use warnings; +package Class::Load; # git description: v0.22-9-g29ebb54 +# ABSTRACT: A working (require "Class::Name") and more +# KEYWORDS: class module load require use runtime + +our $VERSION = '0.23'; + +use base 'Exporter'; +use Data::OptList (); +use Module::Implementation 0.04; +use Module::Runtime 0.012 (); +use Try::Tiny; + +{ + my $loader = Module::Implementation::build_loader_sub( + implementations => [ 'XS', 'PP' ], + symbols => ['is_class_loaded'], + ); + + $loader->(); +} + +our @EXPORT_OK = qw/load_class load_optional_class try_load_class is_class_loaded load_first_existing_class/; +our %EXPORT_TAGS = ( + all => \@EXPORT_OK, +); + +our $ERROR; + +sub load_class { + my $class = shift; + my $options = shift; + + my ($res, $e) = try_load_class($class, $options); + return $class if $res; + + _croak($e); +} + +sub load_first_existing_class { + my $classes = Data::OptList::mkopt(\@_) + or return; + + foreach my $class (@{$classes}) { + Module::Runtime::check_module_name($class->[0]); + } + + for my $class (@{$classes}) { + my ($name, $options) = @{$class}; + + # We need to be careful not to pass an undef $options to this sub, + # since the XS version will blow up if that happens. + return $name if is_class_loaded($name, ($options ? $options : ())); + + my ($res, $e) = try_load_class($name, $options); + + return $name if $res; + + my $file = Module::Runtime::module_notional_filename($name); + + next if $e =~ /^Can't locate \Q$file\E in \@INC/; + next + if $options + && defined $options->{-version} + && $e =~ _version_fail_re($name, $options->{-version}); + + _croak("Couldn't load class ($name) because: $e"); + } + + my @list = map { + $_->[0] + . ( $_->[1] && defined $_->[1]{-version} + ? " (version >= $_->[1]{-version})" + : q{} ) + } @{$classes}; + + my $err + .= q{Can't locate } + . _or_list(@list) + . " in \@INC (\@INC contains: @INC)."; + _croak($err); +} + +sub _version_fail_re { + my $name = shift; + my $vers = shift; + + return qr/\Q$name\E version \Q$vers\E required--this is only version/; +} + +sub _nonexistent_fail_re { + my $name = shift; + + my $file = Module::Runtime::module_notional_filename($name); + return qr/Can't locate \Q$file\E in \@INC/; +} + +sub _or_list { + return $_[0] if @_ == 1; + + return join ' or ', @_ if @_ ==2; + + my $last = pop; + + my $list = join ', ', @_; + $list .= ', or ' . $last; + + return $list; +} + +sub load_optional_class { + my $class = shift; + my $options = shift; + + Module::Runtime::check_module_name($class); + + my ($res, $e) = try_load_class($class, $options); + return 1 if $res; + + return 0 + if $options + && defined $options->{-version} + && $e =~ _version_fail_re($class, $options->{-version}); + + return 0 + if $e =~ _nonexistent_fail_re($class); + + _croak($e); +} + +sub try_load_class { + my $class = shift; + my $options = shift; + + Module::Runtime::check_module_name($class); + + local $@; + undef $ERROR; + + if (is_class_loaded($class)) { + # We need to check this here rather than in is_class_loaded() because + # we want to return the error message for a failed version check, but + # is_class_loaded just returns true/false. + return 1 unless $options && defined $options->{-version}; + return try { + $class->VERSION($options->{-version}); + 1; + } + catch { + _error($_); + }; + } + + my $file = Module::Runtime::module_notional_filename($class); + # This says "our diagnostics of the package + # say perl's INC status about the file being loaded are + # wrong", so we delete it from %INC, so when we call require(), + # perl will *actually* try reloading the file. + # + # If the file is already in %INC, it won't retry, + # And on 5.8, it won't fail either! + # + # The extra benefit of this trick, is it helps even on + # 5.10, as instead of dying with "Compilation failed", + # it will die with the actual error, and that's a win-win. + delete $INC{$file}; + return try { + local $SIG{__DIE__} = 'DEFAULT'; + if ($options && defined $options->{-version}) { + Module::Runtime::use_module($class, $options->{-version}); + } + else { + Module::Runtime::require_module($class); + } + 1; + } + catch { + _error($_); + }; +} + +sub _error { + my $e = shift; + + $e =~ s/ at .+?Runtime\.pm line [0-9]+\.$//; + chomp $e; + + $ERROR = $e; + return 0 unless wantarray; + return 0, $ERROR; +} + +sub _croak { + require Carp; + local $Carp::CarpLevel = $Carp::CarpLevel + 2; + Carp::croak(shift); +} + +1; + +__END__ + +=pod + +=encoding UTF-8 + +=head1 NAME + +Class::Load - A working (require "Class::Name") and more + +=head1 VERSION + +version 0.23 + +=head1 SYNOPSIS + + use Class::Load ':all'; + + try_load_class('Class::Name') + or plan skip_all => "Class::Name required to run these tests"; + + load_class('Class::Name'); + + is_class_loaded('Class::Name'); + + my $baseclass = load_optional_class('Class::Name::MightExist') + ? 'Class::Name::MightExist' + : 'Class::Name::Default'; + +=head1 DESCRIPTION + +C<require EXPR> only accepts C<Class/Name.pm> style module names, not +C<Class::Name>. How frustrating! For that, we provide +C<load_class 'Class::Name'>. + +It's often useful to test whether a module can be loaded, instead of throwing +an error when it's not available. For that, we provide +C<try_load_class 'Class::Name'>. + +Finally, sometimes we need to know whether a particular class has been loaded. +Asking C<%INC> is an option, but that will miss inner packages and any class +for which the filename does not correspond to the package name. For that, we +provide C<is_class_loaded 'Class::Name'>. + +=head1 FUNCTIONS + +=head2 load_class Class::Name, \%options + +C<load_class> will load C<Class::Name> or throw an error, much like C<require>. + +If C<Class::Name> is already loaded (checked with C<is_class_loaded>) then it +will not try to load the class. This is useful when you have inner packages +which C<require> does not check. + +The C<%options> hash currently accepts one key, C<-version>. If you specify a +version, then this subroutine will call C<< Class::Name->VERSION( +$options{-version} ) >> internally, which will throw an error if the class's +version is not equal to or greater than the version you requested. + +This method will return the name of the class on success. + +=head2 try_load_class Class::Name, \%options -> (0|1, error message) + +Returns 1 if the class was loaded, 0 if it was not. If the class was not +loaded, the error will be returned as a second return value in list context. + +Again, if C<Class::Name> is already loaded (checked with C<is_class_loaded>) +then it will not try to load the class. This is useful when you have inner +packages which C<require> does not check. + +Like C<load_class>, you can pass a C<-version> in C<%options>. If the version +is not sufficient, then this subroutine will return false. + +=head2 is_class_loaded Class::Name, \%options -> 0|1 + +This uses a number of heuristics to determine if the class C<Class::Name> is +loaded. There heuristics were taken from L<Class::MOP>'s old pure-perl +implementation. + +Like C<load_class>, you can pass a C<-version> in C<%options>. If the version +is not sufficient, then this subroutine will return false. + +=head2 load_first_existing_class Class::Name, \%options, ... + +This attempts to load the first loadable class in the list of classes +given. Each class name can be followed by an options hash reference. + +If any one of the classes loads and passes the optional version check, that +class name will be returned. If I<none> of the classes can be loaded (or none +pass their version check), then an error will be thrown. + +If, when attempting to load a class, it fails to load because of a syntax +error, then an error will be thrown immediately. + +=head2 load_optional_class Class::Name, \%options -> 0|1 + +C<load_optional_class> is a lot like C<try_load_class>, but also a lot like +C<load_class>. + +If the class exists, and it works, then it will return 1. If you specify a +version in C<%options>, then the version check must succeed or it will return +0. + +If the class doesn't exist, and it appears to not exist on disk either, it +will return 0. + +If the class exists on disk, but loading from disk results in an error +(e.g.: a syntax error), then it will C<croak> with that error. + +This is useful for using if you want a fallback module system, i.e.: + + my $class = load_optional_class($foo) ? $foo : $default; + +That way, if $foo does exist, but can't be loaded due to error, you won't +get the behaviour of it simply not existing. + +=head1 CAVEATS + +Because of some of the heuristics that this module uses to infer whether a +module has been loaded, some false positives may occur in C<is_class_loaded> +checks (which are also performed internally in other interfaces) -- if a class +has started to be loaded but then dies, it may appear that it has already been +loaded, which can cause other things to make the wrong decision. +L<Module::Runtime> doesn't have this issue, but it also doesn't do some things +that this module does -- for example gracefully handle packages that have been +defined inline in the same file as another package. + +=head1 SEE ALSO + +=over 4 + +=item L<http://blog.fox.geek.nz/2010/11/searching-design-spec-for-ultimate.html> + +This blog post is a good overview of the current state of the existing modules +for loading other modules in various ways. + +=item L<http://blog.fox.geek.nz/2010/11/handling-optional-requirements-with.html> + +This blog post describes how to handle optional modules with L<Class::Load>. + +=item L<http://d.hatena.ne.jp/tokuhirom/20110202/1296598578> + +This Japanese blog post describes why L<DBIx::Skinny> now uses L<Class::Load> +over its competitors. + +=item L<Moose>, L<Jifty>, L<Prophet>, etc + +This module was designed to be used anywhere you have +C<if (eval "require $module"; 1)>, which occurs in many large projects. + +=item L<Module::Runtime> + +A leaner approach to loading modules + +=back + +=head1 AUTHOR + +Shawn M Moore <sartak at bestpractical.com> + +=head1 CONTRIBUTORS + +=for stopwords Dave Rolsky Shawn Moore Karen Etheridge M Jesse Luehrs Kent Fredric Caleb Cushing + +=over 4 + +=item * + +Dave Rolsky <autarch@urth.org> + +=item * + +Shawn Moore <sartak@bestpractical.com> + +=item * + +Karen Etheridge <ether@cpan.org> + +=item * + +Shawn M Moore <sartak@bestpractical.com> + +=item * + +Jesse Luehrs <doy@tozt.net> + +=item * + +Kent Fredric <kentfredric@gmail.com> + +=item * + +Caleb Cushing <xenoterracide@gmail.com> + +=back + +=head1 COPYRIGHT AND LICENSE + +This software is copyright (c) 2008 by Shawn M Moore. + +This is free software; you can redistribute it and/or modify it under +the same terms as the Perl 5 programming language system itself. + +=cut diff --git a/lib/Class/Load/PP.pm b/lib/Class/Load/PP.pm new file mode 100644 index 0000000..a38d408 --- /dev/null +++ b/lib/Class/Load/PP.pm @@ -0,0 +1,59 @@ +use strict; +use warnings; +package Class::Load::PP; + +our $VERSION = '0.23'; + +use Module::Runtime (); +use Package::Stash 0.14; +use Scalar::Util (); +use Try::Tiny; + +sub is_class_loaded { + my $class = shift; + my $options = shift; + + my $loaded = _is_class_loaded($class); + + return $loaded if ! $loaded; + return $loaded unless $options && $options->{-version}; + + return try { + $class->VERSION($options->{-version}); + 1; + } + catch { + 0; + }; +} + +sub _is_class_loaded { + my $class = shift; + + return 0 unless Module::Runtime::is_module_name($class); + + my $stash = Package::Stash->new($class); + + if ($stash->has_symbol('$VERSION')) { + my $version = ${ $stash->get_symbol('$VERSION') }; + if (defined $version) { + return 1 if ! ref $version; + # Sometimes $VERSION ends up as a reference to undef (weird) + return 1 if ref $version && Scalar::Util::reftype $version eq 'SCALAR' && defined ${$version}; + # a version object + return 1 if Scalar::Util::blessed $version; + } + } + + if ($stash->has_symbol('@ISA')) { + return 1 if @{ $stash->get_symbol('@ISA') }; + } + + # check for any method + return 1 if $stash->list_all_symbols('CODE'); + + # fail + return 0; +} + +1; diff --git a/t/00-report-prereqs.dd b/t/00-report-prereqs.dd new file mode 100644 index 0000000..9f1bab8 --- /dev/null +++ b/t/00-report-prereqs.dd @@ -0,0 +1,126 @@ +do { my $x = { + 'configure' => { + 'requires' => { + 'ExtUtils::MakeMaker' => '0', + 'perl' => '5.006' + } + }, + 'develop' => { + 'recommends' => { + 'Dist::Zilla::PluginBundle::Author::ETHER' => '0.097' + }, + 'requires' => { + 'Dist::Zilla' => '5', + 'Dist::Zilla::Plugin::Authority' => '1.009', + 'Dist::Zilla::Plugin::AuthorityFromModule' => '0.002', + 'Dist::Zilla::Plugin::AutoMetaResources' => '0', + 'Dist::Zilla::Plugin::AutoPrereqs' => '0', + 'Dist::Zilla::Plugin::BumpVersionAfterRelease::Transitional' => '0.004', + 'Dist::Zilla::Plugin::CheckIssues' => '0', + 'Dist::Zilla::Plugin::CheckPrereqsIndexed' => '0', + 'Dist::Zilla::Plugin::CheckSelfDependency' => '0', + 'Dist::Zilla::Plugin::CheckStrictVersion' => '0', + 'Dist::Zilla::Plugin::ConfirmRelease' => '0', + 'Dist::Zilla::Plugin::CopyFilesFromRelease' => '0', + 'Dist::Zilla::Plugin::FileFinder::ByName' => '0', + 'Dist::Zilla::Plugin::GenerateFile::ShareDir' => '0', + 'Dist::Zilla::Plugin::Git::Check' => '0', + 'Dist::Zilla::Plugin::Git::CheckFor::CorrectBranch' => '0.004', + 'Dist::Zilla::Plugin::Git::CheckFor::MergeConflicts' => '0', + 'Dist::Zilla::Plugin::Git::Commit' => '2.020', + 'Dist::Zilla::Plugin::Git::Contributors' => '0.004', + 'Dist::Zilla::Plugin::Git::Describe' => '0.004', + 'Dist::Zilla::Plugin::Git::GatherDir' => '2.016', + 'Dist::Zilla::Plugin::Git::Push' => '0', + 'Dist::Zilla::Plugin::Git::Remote::Check' => '0', + 'Dist::Zilla::Plugin::Git::Tag' => '0', + 'Dist::Zilla::Plugin::GitHub::Update' => '0.40', + 'Dist::Zilla::Plugin::GithubMeta' => '0', + 'Dist::Zilla::Plugin::InstallGuide' => '0', + 'Dist::Zilla::Plugin::Keywords' => '0.004', + 'Dist::Zilla::Plugin::License' => '0', + 'Dist::Zilla::Plugin::MakeMaker' => '0', + 'Dist::Zilla::Plugin::Manifest' => '0', + 'Dist::Zilla::Plugin::MetaConfig' => '0', + 'Dist::Zilla::Plugin::MetaJSON' => '0', + 'Dist::Zilla::Plugin::MetaNoIndex' => '0', + 'Dist::Zilla::Plugin::MetaProvides::Package' => '1.15000002', + 'Dist::Zilla::Plugin::MetaResources' => '0', + 'Dist::Zilla::Plugin::MetaTests' => '0', + 'Dist::Zilla::Plugin::MetaYAML' => '0', + 'Dist::Zilla::Plugin::MinimumPerl' => '1.006', + 'Dist::Zilla::Plugin::MojibakeTests' => '0', + 'Dist::Zilla::Plugin::NextRelease' => '5.033', + 'Dist::Zilla::Plugin::PodSyntaxTests' => '0', + 'Dist::Zilla::Plugin::Prereqs' => '0', + 'Dist::Zilla::Plugin::Prereqs::AuthorDeps' => '0', + 'Dist::Zilla::Plugin::PromptIfStale' => '0', + 'Dist::Zilla::Plugin::Readme' => '0', + 'Dist::Zilla::Plugin::ReadmeAnyFromPod' => '0.142180', + 'Dist::Zilla::Plugin::RewriteVersion::Transitional' => '0.004', + 'Dist::Zilla::Plugin::Run::AfterBuild' => '0.038', + 'Dist::Zilla::Plugin::Run::AfterRelease' => '0.038', + 'Dist::Zilla::Plugin::RunExtraTests' => '0.024', + 'Dist::Zilla::Plugin::SurgicalPodWeaver' => '0', + 'Dist::Zilla::Plugin::Test::CPAN::Changes' => '0.008', + 'Dist::Zilla::Plugin::Test::ChangesHasContent' => '0', + 'Dist::Zilla::Plugin::Test::Compile' => '2.039', + 'Dist::Zilla::Plugin::Test::EOL' => '0.17', + 'Dist::Zilla::Plugin::Test::Kwalitee' => '2.06', + 'Dist::Zilla::Plugin::Test::MinimumVersion' => '2.000003', + 'Dist::Zilla::Plugin::Test::NoTabs' => '0.08', + 'Dist::Zilla::Plugin::Test::PodSpelling' => '2.006001', + 'Dist::Zilla::Plugin::Test::Portability' => '0', + 'Dist::Zilla::Plugin::Test::ReportPrereqs' => '0.019', + 'Dist::Zilla::Plugin::TestRelease' => '0', + 'Dist::Zilla::Plugin::UploadToCPAN' => '0', + 'Dist::Zilla::PluginBundle::Author::ETHER' => '0.094', + 'File::Spec' => '0', + 'IO::Handle' => '0', + 'IPC::Open3' => '0', + 'Test::CPAN::Changes' => '0.19', + 'Test::CPAN::Meta' => '0', + 'Test::EOL' => '0', + 'Test::Kwalitee' => '1.21', + 'Test::More' => '0.94', + 'Test::NoTabs' => '0', + 'Test::Pod' => '1.41', + 'Test::Spelling' => '0.12', + 'Test::Without::Module' => '0' + } + }, + 'runtime' => { + 'requires' => { + 'Carp' => '0', + 'Data::OptList' => '0', + 'Exporter' => '0', + 'Module::Implementation' => '0.04', + 'Module::Runtime' => '0.012', + 'Package::Stash' => '0.14', + 'Scalar::Util' => '0', + 'Try::Tiny' => '0', + 'base' => '0', + 'perl' => '5.006', + 'strict' => '0', + 'warnings' => '0' + } + }, + 'test' => { + 'recommends' => { + 'CPAN::Meta' => '2.120900' + }, + 'requires' => { + 'ExtUtils::MakeMaker' => '0', + 'File::Spec' => '0', + 'Test::Fatal' => '0', + 'Test::More' => '0.88', + 'Test::Requires' => '0', + 'constant' => '0', + 'lib' => '0', + 'perl' => '5.006', + 'version' => '0' + } + } + }; + $x; + }
\ No newline at end of file diff --git a/t/00-report-prereqs.t b/t/00-report-prereqs.t new file mode 100644 index 0000000..d8d15ba --- /dev/null +++ b/t/00-report-prereqs.t @@ -0,0 +1,183 @@ +#!perl + +use strict; +use warnings; + +# This test was generated by Dist::Zilla::Plugin::Test::ReportPrereqs 0.021 + +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'; +if ( $source && $HAS_CPAN_META ) { + if ( my $meta = eval { CPAN::Meta->load_file($source) } ) { + $full_prereqs = _merge_prereqs($full_prereqs, $meta->prereqs); + } +} +else { + $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 $mod eq 'perl'; + next if grep { $_ eq $mod } @exclude; + + my $file = $mod; + $file =~ s{::}{/}g; + $file .= ".pm"; + my ($prefix) = grep { -e File::Spec->catfile($_, $file) } @INC; + + my $want = $req_hash->{$phase}{$type}{$mod}; + $want = "undef" unless defined $want; + $want = "any" if !$want && $want == 0; + + my $req_string = $want eq 'any' ? 'any version required' : "version '$want' required"; + + 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 ( @dep_errors ) { + diag join("\n", + "\n*** WARNING WARNING WARNING WARNING WARNING WARNING WARNING WARNING ***\n", + "The following REQUIRED prerequisites were not satisfied:\n", + @dep_errors, + "\n" + ); +} + +pass; + +# vim: ts=4 sts=4 sw=4 et: diff --git a/t/000-load.t b/t/000-load.t new file mode 100644 index 0000000..e9e073d --- /dev/null +++ b/t/000-load.t @@ -0,0 +1,15 @@ +use strict; +use warnings; +use Test::More 0.88; + +use lib 't/lib'; + +use Module::Implementation 0.04 (); + +use_ok 'Test::Class::Load'; + +diag( 'Using ' + . Module::Implementation::implementation_for('Class::Load') + . ' implementation' ); + +done_testing; diff --git a/t/001-is-class-loaded.t b/t/001-is-class-loaded.t new file mode 100644 index 0000000..e92c841 --- /dev/null +++ b/t/001-is-class-loaded.t @@ -0,0 +1,108 @@ +use strict; +use warnings; +use Test::More 0.88; + +use version; + +use lib 't/lib'; +use Test::Class::Load 'is_class_loaded'; + +# basic {{{ +ok(is_class_loaded('Class::Load'), "Class::Load is loaded"); +ok(!is_class_loaded('Class::Load::NONEXISTENT'), "nonexistent class is NOT loaded"); +# }}} + +# @ISA (yes) {{{ +do { + package Class::Load::WithISA; + our @ISA = 'Class::Load'; +}; +ok(is_class_loaded('Class::Load::WithISA'), "class that defines \@ISA is loaded"); +# }}} +# $ISA (no) {{{ +do { + package Class::Load::WithScalarISA; + our $ISA = 'Class::Load'; +}; +ok(!is_class_loaded('Class::Load::WithScalarISA'), "class that defines \$ISA is not loaded"); +# }}} +# $VERSION (yes) {{{ +do { + package Class::Load::WithVERSION; + our $VERSION = '1.0'; +}; +ok(is_class_loaded('Class::Load::WithVERSION'), "class that defines \$VERSION is loaded"); +# }}} +# $VERSION is a version object (yes) {{{ +do { + package Class::Load::WithVersionObject; + our $VERSION = version->new(1); +}; +ok(is_class_loaded('Class::Load::WithVersionObject'), 'when $VERSION contains a version object, we still return true'); +# }}} +# method (yes) {{{ +do { + package Class::Load::WithMethod; + sub foo { } +}; +ok(is_class_loaded('Class::Load::WithMethod'), "class that defines any method is loaded"); +# }}} +# global scalar (no) {{{ +do { + package Class::Load::WithScalar; + our $FOO = 1; +}; +ok(!is_class_loaded('Class::Load::WithScalar'), "class that defines just a scalar is not loaded"); +# }}} +# subpackage (no) {{{ +do { + package Class::Load::Foo::Bar; + sub bar {} +}; +ok(!is_class_loaded('Class::Load::Foo'), "even if Foo::Bar is loaded, Foo is not"); +# }}} +# superstring (no) {{{ +do { + package Class::Load::Quuxquux; + sub quux {} +}; +ok(!is_class_loaded('Class::Load::Quux'), "Quuxquux does not imply the existence of Quux"); +# }}} +# use constant (yes) {{{ +do { + package Class::Load::WithConstant; + use constant PI => 3; +}; +ok(is_class_loaded('Class::Load::WithConstant'), "defining a constant means the class is loaded"); +# }}} +# use constant with reference (yes) {{{ +do { + package Class::Load::WithRefConstant; + use constant PI => \3; +}; +ok(is_class_loaded('Class::Load::WithRefConstant'), "defining a constant as a reference means the class is loaded"); +# }}} +# stub (yes) {{{ +do { + package Class::Load::WithStub; + sub foo; +}; +ok(is_class_loaded('Class::Load::WithStub'), "defining a stub means the class is loaded"); +# }}} +# stub with prototype (yes) {{{ +do { + package Class::Load::WithPrototypedStub; + sub foo (&); +}; +ok(is_class_loaded('Class::Load::WithPrototypedStub'), "defining a stub with a prototype means the class is loaded"); +# }}} + +ok(!is_class_loaded('Class::Load::VersionCheck'), 'Class::Load::VersionCheck has not been loaded yet'); +require Class::Load::VersionCheck; +ok(is_class_loaded('Class::Load::VersionCheck'), 'Class::Load::VersionCheck has been loaded'); +ok(!is_class_loaded('Class::Load::VersionCheck', {-version => 43}), + 'Class::Load::VersionCheck has been loaded but the version check failed'); +ok(is_class_loaded('Class::Load::VersionCheck', {-version => 41}), + 'Class::Load::VersionCheck has been loaded and the version check passed'); + +done_testing; diff --git a/t/002-try-load-class.t b/t/002-try-load-class.t new file mode 100644 index 0000000..a2f46c8 --- /dev/null +++ b/t/002-try-load-class.t @@ -0,0 +1,38 @@ +use strict; +use warnings; +use Test::More 0.88; +use lib 't/lib'; +use Test::Class::Load ':all'; + +ok(try_load_class('Class::Load::OK'), "loaded class OK"); +is($Class::Load::ERROR, undef); + +ok(!try_load_class('Class::Load::Nonexistent'), "didn't load class Nonexistent"); +like($Class::Load::ERROR, qr{^Can't locate Class/Load/Nonexistent.pm in \@INC}); + +ok(try_load_class('Class::Load::OK'), "loaded class OK"); +is($Class::Load::ERROR, undef); + +ok(!try_load_class('Class::Load::SyntaxError'), "didn't load class SyntaxError"); +like($Class::Load::ERROR, qr{^Missing right curly or square bracket at }); + +ok(is_class_loaded('Class::Load::OK')); +ok(!is_class_loaded('Class::Load::Nonexistent')); +ok(!is_class_loaded('Class::Load::SyntaxError')); + +do { + package Class::Load::Inlined; + sub inlined { 1 } +}; + +ok(try_load_class('Class::Load::Inlined'), "loaded class Inlined"); +is($Class::Load::ERROR, undef); +ok(is_class_loaded('Class::Load::Inlined')); + +ok(!try_load_class('Class::Load::VersionCheck', { -version => 43 })); +ok(try_load_class('Class::Load::VersionCheck', { -version => 41 })); + +ok(try_load_class('Class::Load::VersionCheck2', { -version => 41 })); +ok(!try_load_class('Class::Load::VersionCheck2', { -version => 43 })); + +done_testing; diff --git a/t/003-load-class.t b/t/003-load-class.t new file mode 100644 index 0000000..325b63e --- /dev/null +++ b/t/003-load-class.t @@ -0,0 +1,96 @@ +use strict; +use warnings; +use Test::More 0.88; +use lib 't/lib'; +use Test::Class::Load ':all'; +use Test::Fatal; + +is( load_class('Class::Load::OK'), 'Class::Load::OK', 'loaded class OK' ); +is( $Class::Load::ERROR, undef, 'ERROR is undef' ); + +like( + exception { + load_class('Class::Load::Nonexistent'); + }, + qr{^Can't locate Class/Load/Nonexistent.pm in \@INC}, + 'threw exception for nonexistent class' +); + +like( + $Class::Load::ERROR, + qr{^Can't locate Class/Load/Nonexistent.pm in \@INC}, + 'ERROR message for nonexistent class', +); + +ok( load_class('Class::Load::OK'), 'loaded class OK' ); +is( $Class::Load::ERROR, undef, 'ERROR is undef' ); + +like( + exception { + load_class('Class::Load::SyntaxError'); + }, + qr{^Missing right curly or square bracket at }, + 'exception contains syntax error message' +); + +like( + $Class::Load::ERROR, + qr{^Missing right curly or square bracket at }, + 'ERROR contains syntax error message' +); + +ok( is_class_loaded('Class::Load::OK') ); +ok( !is_class_loaded('Class::Load::Nonexistent') ); +ok( !is_class_loaded('Class::Load::SyntaxError') ); + +do { + + package Class::Load::Inlined; + sub inlined { 1 } +}; + +is( + load_class('Class::Load::Inlined'), + 'Class::Load::Inlined', + 'loaded class Inlined' +); +is( $Class::Load::ERROR, undef ); +ok( is_class_loaded('Class::Load::Inlined') ); + +like( + exception { + load_class( 'Class::Load::VersionCheck', { -version => 43 } ); + }, + qr/^Class::Load::VersionCheck version 43 required/, + 'got expected error for load_class with explicit version' +); + +is( + load_class( 'Class::Load::VersionCheck', { -version => 41 } ), + 'Class::Load::VersionCheck', + 'loaded class with version check' +); + +is( + load_class( 'Class::Load::VersionCheck2', { -version => 41 } ), + 'Class::Load::VersionCheck2', + 'loaded class with version check' +); + +like( + exception { + load_class( 'Class::Load::VersionCheck2', { -version => 43 } ); + }, + qr/^Class::Load::VersionCheck2 version 43 required/, + 'got expected error for load_class with explicit version (after class has been loaded into memory)' +); + +like( + exception { + load_class('__PACKAGE__'); + }, + qr/__PACKAGE__\.pm.*\@INC/, + 'errors sanely on __PACKAGE__.pm' +); + +done_testing; diff --git a/t/004-load-double.t b/t/004-load-double.t new file mode 100644 index 0000000..40204bd --- /dev/null +++ b/t/004-load-double.t @@ -0,0 +1,28 @@ +use strict; +use warnings; + +use Test::More 0.88; +use lib 't/lib'; +use Test::Class::Load ':all'; +use Test::Fatal; + +# This test does 2 things. +# Firstly, confirm that on 5.8, load_class will +# still throw an exception , even if its been loaded before: +# +# eval { require Foo; }; require Foo; # doesn't error on 5.8 +# +# Secondly, to ensure errors thrown are useful. +# ( As without the code in load_class to delete $INC{file} +# it will just die with "COMPILATION ERROR", which is +# not useful ) +# +like( exception { + load_class('Class::Load::SyntaxError'); +}, qr/syntax error/ ); + +like( exception { + load_class('Class::Load::SyntaxError'); +}, qr/syntax error/ ); + +done_testing; diff --git a/t/005-load-optional.t b/t/005-load-optional.t new file mode 100644 index 0000000..560287a --- /dev/null +++ b/t/005-load-optional.t @@ -0,0 +1,42 @@ +use strict; +use warnings; + +use Test::More 0.88; +use Test::Fatal; +use lib 't/lib'; +use Test::Class::Load qw( :all ); + +is( + exception { + load_optional_class('Class::Load::OK'); + }, + undef, + 'No failure loading a good class' +); + +is( + exception { + load_optional_class('Class::Load::IDONOTEXIST'); + }, + undef, + 'No failure loading a missing class' +); + +isnt( + exception { + load_optional_class('Class::Load::SyntaxError'); + }, + undef, + 'Loading a broken class breaks' +); + +is( load_optional_class('Class::Load::OK'), 1 , 'Existing Class => 1'); +is( load_optional_class('Class::Load::IDONOTEXIST'), 0, 'Missing Class => 0'); + +is( load_optional_class('Class::Load::VersionCheck'), 1, 'VersionCheck => 1'); +is( load_optional_class('Class::Load::VersionCheck', {-version => 43}), 0, + 'VersionCheck (with too-high version) => 0'); +is( load_optional_class('Class::Load::VersionCheck', {-version => 41}), 1, + 'VersionCheck (with ok version) => 1'); + +done_testing; diff --git a/t/006-returned-error.t b/t/006-returned-error.t new file mode 100644 index 0000000..9601517 --- /dev/null +++ b/t/006-returned-error.t @@ -0,0 +1,48 @@ +use strict; +use warnings; +use Test::More 0.88; +use lib 't/lib'; +use Test::Class::Load ':all'; + +{ + ok(try_load_class('Class::Load::OK'), "loaded class OK"); + my ($r, $e) = try_load_class('Class::Load::OK'); + is($e, undef); +} + +{ + ok(!try_load_class('Class::Load::Nonexistent'), "didn't load class Nonexistent"); + my ($r, $e) = try_load_class('Class::Load::Nonexistent'); + like($e, qr{^Can't locate Class/Load/Nonexistent.pm in \@INC}); +} + +{ + ok(try_load_class('Class::Load::OK'), "loaded class OK"); + my ($r, $e) = try_load_class('Class::Load::OK'); + is($e, undef); +} + +{ + ok(!try_load_class('Class::Load::SyntaxError'), "didn't load class SyntaxError"); + delete $INC{'Class/Load/SyntaxError.pm'}; + my ($r, $e) = try_load_class('Class::Load::SyntaxError'); + like($e, qr{^Missing right curly or square bracket at }); +} + +ok(is_class_loaded('Class::Load::OK')); +ok(!is_class_loaded('Class::Load::Nonexistent')); +ok(!is_class_loaded('Class::Load::SyntaxError')); + +{ + $@ = "foo"; + ok(try_load_class('Class::Load::OK'), "loaded class OK"); + is($@, "foo"); +} + +{ + $@ = "foo"; + ok(!try_load_class('Class::Load::Nonexistent'), "didn't load class Nonexistent"); + is($@, "foo"); +} + +done_testing; diff --git a/t/007-first-existing.t b/t/007-first-existing.t new file mode 100644 index 0000000..9332369 --- /dev/null +++ b/t/007-first-existing.t @@ -0,0 +1,123 @@ +use strict; +use warnings; +use Test::Fatal; +use Test::More 0.88; +use lib 't/lib'; +use Test::Class::Load 'load_first_existing_class'; + +is( + load_first_existing_class( + 'Class::Load::Nonexistent', 'Class::Load::OK' + ), + 'Class::Load::OK', + 'load_first_existing_class ignore nonexistent class' +); + +is( + load_first_existing_class( + 'Class::Load::Nonexistent', 'Class::Load::OK' + ), + 'Class::Load::OK', + 'load_first_existing_class ignore nonexistent class - works when good class is already loaded' +); + +like( + exception { + load_first_existing_class( 'Foo', 'bad name' ); + }, + qr/^\Q`bad name' is not a module name/, + 'load_first_existing_class balks on bad class name' +); + +like( + exception { + load_first_existing_class( 'Class::Load::Nonexistent', 'Class::Load::Nonexistent2' ); + }, + qr/^\QCan't locate Class::Load::Nonexistent or Class::Load::Nonexistent2 in \E\@INC/, + 'load_first_existing_class throws an error when no classes can be loaded' +); + +like( + exception { + load_first_existing_class( + 'Class::Load::Nonexistent', + 'Class::Load::Nonexistent2', + 'Class::Load::Nonexistent3' + ); + }, + qr/^\QCan't locate Class::Load::Nonexistent, Class::Load::Nonexistent2, or Class::Load::Nonexistent3 in \E\@INC/, + 'load_first_existing_class throws an error when no classes can be loaded' +); + +like( + exception { + load_first_existing_class( 'Class::Load::Nonexistent' ); + }, + qr/^\QCan't locate Class::Load::Nonexistent in \E\@INC/, + 'load_first_existing_class throws an error when given one class which it cannot load' +); + +like( + exception { + load_first_existing_class( + 'Class::Load::VersionCheck', { -version => 43 }, + 'Class::Load::VersionCheck2', { -version => 43 }, + ); + }, + qr/^\QCan't locate Class::Load::VersionCheck (version >= 43) or Class::Load::VersionCheck2 (version >= 43) in \E\@INC/, + 'load_first_existing_class throws an error when given multiple classes which it cannot load because of version checks' +); + +like( + exception { + load_first_existing_class( + 'Class::Load::VersionCheck', { -version => 43 }, + 'Class::Load::VersionCheck2', { -version => 43 }, + 'Class::Load::Nonexistent' + ); + }, + qr/^\QCan't locate Class::Load::VersionCheck (version >= 43), Class::Load::VersionCheck2 (version >= 43), or Class::Load::Nonexistent in \E\@INC/, + 'load_first_existing_class throws an error when given multiple classes which it cannot load, some because of version checks' +); + +like( + exception { + load_first_existing_class( 'Class::Load::VersionCheck', {-version => 43} ); + }, + qr/^\QCan't locate Class::Load::VersionCheck (version >= 43) in \E\@INC/, + 'load_first_existing_class throws an error when given one class which it cannot load because of version checks' +); + +like( + exception { + load_first_existing_class( + 'Class::Load::VersionCheck2', { -version => 43 }, + 'Class::Load::SyntaxError', { -version => 43 }, + 'Class::Load::Nonexistent' + ); + }, + qr/^\QCouldn't load class (Class::Load::SyntaxError) because: Missing right curly or square bracket/, + 'load_first_existing_class throws an error when a class fails to load because of a syntax error' +); + +is( + load_first_existing_class( + 'Class::Load::VersionCheck', { -version => 43 }, + 'Class::Load::VersionCheck2', { -version => 43 }, + 'Class::Load::OK' + ), + 'Class::Load::OK', + 'load_first_existing_class returns loadable class when two classes fail version checks' +); + +is( + load_first_existing_class( + 'Class::Load::VersionCheck', { -version => 43 }, + 'Class::Load::VersionCheck2', { -version => 41 }, + 'Class::Load::OK' + ), + 'Class::Load::VersionCheck2', + 'load_first_existing_class returns loadable class when a class passes the version check' +); + +done_testing; diff --git a/t/008-gvstash-bug.t b/t/008-gvstash-bug.t new file mode 100644 index 0000000..fac7a7d --- /dev/null +++ b/t/008-gvstash-bug.t @@ -0,0 +1,23 @@ +use strict; +use warnings; +use Test::Fatal; +use Test::More 0.88; +use lib 't/lib'; +use Test::Class::Load 'load_class'; + +is( exception { + load_class('Class::Load::Stash::Sub'); +}, undef, 'Loaded Class::Load::Stash::Sub' ); + +Class::Load::Stash->can('a_method'); + +is( exception { + load_class('Class::Load::Stash'); +}, undef, 'Loaded Class::Load::Stash' ); + +is( exception { + Class::Load::Stash->a_method; +}, undef, +'Actually loaded Class::Load::Stash - we were not fooled by mention of this stash in Class::Load::Stash::Sub' ); + +done_testing; diff --git a/t/009-invalid-module-name.t b/t/009-invalid-module-name.t new file mode 100644 index 0000000..6f9babc --- /dev/null +++ b/t/009-invalid-module-name.t @@ -0,0 +1,25 @@ +use strict; +use warnings; +use Test::Fatal; +use Test::More 0.88; +use lib 't/lib'; +use Test::Class::Load 'load_class'; + +my @bad = qw( + Foo:Bar + 123 + Foo::..::..::tmp::bad.pl + ::..::tmp::bad + ''tmp + 'tmp +); + +for my $name (@bad) { + like( + exception { load_class($name) }, + qr/^\Q`$name' is not a module name/, + "invalid module name - $name" + ); +} + +done_testing; diff --git a/t/010-isa-false-positive.t b/t/010-isa-false-positive.t new file mode 100644 index 0000000..7136fb6 --- /dev/null +++ b/t/010-isa-false-positive.t @@ -0,0 +1,67 @@ +use strict; +use warnings; +use Test::More 0.88; +use Test::Fatal; + +use lib 't/lib'; +use Test::Class::Load 'load_optional_class'; + +isnt( + exception { + load_optional_class('Class::Load::Error::DieAfterIsa'); + }, + undef, + 'Class which calls die is reported as an error' +); + +{ + local $TODO + = q{I'm not sure this is fixable as it's really an interpreter issue.}; + + isnt( + exception { + load_optional_class('Class::Load::Error::DieAfterIsa'); + }, + undef, + 'Class which calls die is reported as an error (second attempt)' + ); +} + +isnt( + exception { + load_optional_class('Class::Load::Error::DieAfterBeginIsa'); + }, + undef, + 'Class populates @ISA in BEGIN then dies - error on load' +); + +{ + local $TODO + = q{I'm not sure this is fixable as it's really an interpreter issue.}; + + isnt( + exception { + load_optional_class('Class::Load::Error::DieAfterBeginIsa'); + }, + undef, + 'Class populates @ISA in BEGIN then dies - error on load (second attempt)' + ); +} + +isnt( + exception { + load_optional_class('Class::Load::Error::SyntaxErrorAfterIsa'); + }, + undef, + 'Class with a syntax error causes an error' +); + +isnt( + exception { + load_optional_class('Class::Load::Error::SyntaxErrorAfterIsa'); + }, + undef, + 'Class with a syntax error causes an error (second attempt)' +); + +done_testing; diff --git a/t/011-without-xs.t b/t/011-without-xs.t new file mode 100644 index 0000000..e1d1e43 --- /dev/null +++ b/t/011-without-xs.t @@ -0,0 +1,22 @@ +use strict; +use warnings; +use Test::More 0.88; + +use Test::Requires { + 'Test::Without::Module' => 0, +}; + +use Test::Without::Module 'Class::Load::XS'; + +{ + my @warnings; + local $SIG{__WARN__} = sub { push @warnings, @_ }; + require Class::Load; + + is_deeply( + \@warnings, [], + 'no warning from Class::Load when Class::Load::XS is not available' + ); +} + +done_testing(); diff --git a/t/012-without-implementation.t b/t/012-without-implementation.t new file mode 100644 index 0000000..9f47c52 --- /dev/null +++ b/t/012-without-implementation.t @@ -0,0 +1,20 @@ +use strict; +use warnings; +use Test::More 0.88; +use Test::Fatal; + +use Test::Requires { + 'Test::Without::Module' => 0, +}; + +use Test::Without::Module qw( Class::Load::PP Class::Load::XS ); + +{ + like( + exception { require Class::Load }, + qr/Class.Load.PP\.pm did not return a true value/, + 'error when loading Class::Load and no implementation is available includes errors from trying to load modules' + ); +} + +done_testing(); diff --git a/t/013-errors.t b/t/013-errors.t new file mode 100644 index 0000000..38fd4a1 --- /dev/null +++ b/t/013-errors.t @@ -0,0 +1,123 @@ +use strict; +use warnings; + +use Test::More 0.88; + +use lib 't/lib'; +use Test::Class::Load ':all'; + +my $file = __FILE__; + +{ +# line 1 + eval { load_class('Class::NonExistent') }; + my $e = $@; + + unlike( + $e, + qr/at .+Load\.pm line \d+/, + 'load_class exception does not refer to Class::Load internals' + ); + + unlike( + $e, + qr/at .+Runtime\.pm line \d+/, + 'load_class exception does not refer to Module::Runtime internals' + ); + + like( + $e, + qr/Can't locate [^\n]+ at \Q$file\E line 1/, + 'error appears from the spot that called load_class' + ); +} + +{ + my ( $ok, $e ) = try_load_class('Class::NonExistent::Take2'); + + unlike( + $e, + qr/at .+Load\.pm line \d+/, + 'try_load_class exception does not refer to Class::Load internals' + ); + + unlike( + $e, + qr/at .+Runtime\.pm line \d+/, + 'try_load_class exception does not refer to Module::Runtime internals' + ); +} + +{ +# line 2 + eval { load_first_existing_class('Class::NonExistent::Take3') }; + my $e = $@; + + unlike( + $e, + qr/at .+Load\.pm line \d+/, + 'load_first_existing_class exception does not refer to Class::Load internals' + ); + + unlike( + $e, + qr/at .+Runtime\.pm line \d+/, + 'load_first_existing_class exception does not refer to Module::Runtime internals' + ); + + like( + $e, + qr/Can't locate [^\n]+ at \Q$file\E line 2/, + 'error appears from the spot that called load_first_existing_class' + ); +} + +{ +# line 3 + eval { load_first_existing_class('Class::Load::SyntaxError') }; + my $e = $@; + + unlike( + $e, + qr/at .+Load\.pm line \d+/, + 'load_first_existing_class exception does not refer to Class::Load internals' + ); + + unlike( + $e, + qr/at .+Runtime\.pm line \d+/, + 'load_first_existing_class exception does not refer to Module::Runtime internals' + ); + + like( + $e, + qr/Compilation failed .+? at \Q$file\E line 3/s, + 'error appears from the spot that called load_first_existing_class' + ); +} + +{ +# line 4 + eval { load_optional_class('Class::Load::SyntaxError') }; + my $e = $@; + + unlike( + $e, + qr/at .+Load\.pm line \d+/, + 'load_optional_class exception does not refer to Class::Load internals' + ); + + unlike( + $e, + qr/at .+Runtime\.pm line \d+/, + 'load_optional_class exception does not refer to Module::Runtime internals' + ); + + like( + $e, + qr/Compilation failed .+? at \Q$file\E line 4/s, + 'error appears from the spot that called load_optional_class' + ); +} + +done_testing(); diff --git a/t/014-weird-constants.t b/t/014-weird-constants.t new file mode 100644 index 0000000..d3ad760 --- /dev/null +++ b/t/014-weird-constants.t @@ -0,0 +1,34 @@ +use strict; +use warnings; + +use Test::Fatal; +use Test::More 0.88; + +use lib 't/lib'; +use Test::Class::Load ':all'; + +{ + package ConstantISA; + + use constant ISA => 1; +} + +is( + exception { is_class_loaded('ConstantISA') }, + undef, + 'no error checking whether class with ISA constant is loaded' +); + +{ + package ConstantVERSION; + + use constant VERSION => 1; +} + +is( + exception { is_class_loaded('ConstantVERSION') }, + undef, + 'no error checking whether class with VERSION constant is loaded' +); + +done_testing(); diff --git a/t/lib/Class/Load/Error/DieAfterBeginIsa.pm b/t/lib/Class/Load/Error/DieAfterBeginIsa.pm new file mode 100644 index 0000000..5ef3384 --- /dev/null +++ b/t/lib/Class/Load/Error/DieAfterBeginIsa.pm @@ -0,0 +1,11 @@ +package Class::Load::Error::DieAfterBeginIsa; + +use strict; +use warnings; + +BEGIN { + our @ISA = qw( UNIVERSAL ); +} + +die "Not a syntax error"; + diff --git a/t/lib/Class/Load/Error/DieAfterIsa.pm b/t/lib/Class/Load/Error/DieAfterIsa.pm new file mode 100644 index 0000000..0a021cd --- /dev/null +++ b/t/lib/Class/Load/Error/DieAfterIsa.pm @@ -0,0 +1,14 @@ +package Class::Load::Error::DieAfterIsa; + +use strict; +use warnings; + +# This library emulates a bug that can occur under App::Cmd, +# +# A broken library use's another library ( App::Cmd::Setup ), and that library +# injects @ISA during import->() + +our @ISA = qw( UNIVERSAL ); + +die "Not a syntax error"; + diff --git a/t/lib/Class/Load/Error/SyntaxErrorAfterIsa.pm b/t/lib/Class/Load/Error/SyntaxErrorAfterIsa.pm new file mode 100644 index 0000000..a0ae426 --- /dev/null +++ b/t/lib/Class/Load/Error/SyntaxErrorAfterIsa.pm @@ -0,0 +1,11 @@ +package Class::Load::Error::SyntaxErrorAfterIsa; +use strict; +use warnings; + +# This library emulates a bug that can occur under App::Cmd, +# +# A Broken library "use"'s annother library ( App::Cmd::Setup ), and +# that library injects @ISA during import->() +our @ISA = qw( UNIVERSAL ); +#} +sub { diff --git a/t/lib/Class/Load/OK.pm b/t/lib/Class/Load/OK.pm new file mode 100644 index 0000000..230f9c9 --- /dev/null +++ b/t/lib/Class/Load/OK.pm @@ -0,0 +1,9 @@ +#!/usr/bin/env perl +package Class::Load::OK; +use strict; +use warnings; + +sub ok { 1 } + +1; + diff --git a/t/lib/Class/Load/Stash.pm b/t/lib/Class/Load/Stash.pm new file mode 100644 index 0000000..22f7280 --- /dev/null +++ b/t/lib/Class/Load/Stash.pm @@ -0,0 +1,7 @@ +package Class::Load::Stash; +use strict; +use warnings; + +sub a_method { 'a_method' } + +1; diff --git a/t/lib/Class/Load/Stash/Sub.pm b/t/lib/Class/Load/Stash/Sub.pm new file mode 100644 index 0000000..95cfdf2 --- /dev/null +++ b/t/lib/Class/Load/Stash/Sub.pm @@ -0,0 +1,7 @@ +package Class::Load::Stash::Sub; +use strict; +use warnings; + +sub ver_test { return "Class::Load::Stash ver $Class::Load::Stash::VERSION" } + +1; diff --git a/t/lib/Class/Load/SyntaxError.pm b/t/lib/Class/Load/SyntaxError.pm new file mode 100644 index 0000000..54c3ab6 --- /dev/null +++ b/t/lib/Class/Load/SyntaxError.pm @@ -0,0 +1,7 @@ +#!/usr/bin/env perl +package Class::Load::SyntaxError; +use strict; +use warnings; + +sub { + diff --git a/t/lib/Class/Load/VersionCheck.pm b/t/lib/Class/Load/VersionCheck.pm new file mode 100644 index 0000000..2e900f3 --- /dev/null +++ b/t/lib/Class/Load/VersionCheck.pm @@ -0,0 +1,11 @@ +#!/usr/bin/env perl +package Class::Load::VersionCheck; +use strict; +use warnings; + +our $VERSION = 42; + +sub ok { 1 } + +1; + diff --git a/t/lib/Class/Load/VersionCheck2.pm b/t/lib/Class/Load/VersionCheck2.pm new file mode 100644 index 0000000..aee87e0 --- /dev/null +++ b/t/lib/Class/Load/VersionCheck2.pm @@ -0,0 +1,11 @@ +#!/usr/bin/env perl +package Class::Load::VersionCheck2; +use strict; +use warnings; + +our $VERSION = 42; + +sub ok { 1 } + +1; + diff --git a/t/lib/Test/Class/Load.pm b/t/lib/Test/Class/Load.pm new file mode 100644 index 0000000..e87e286 --- /dev/null +++ b/t/lib/Test/Class/Load.pm @@ -0,0 +1,17 @@ +package # hide from PAUSE + Test::Class::Load; + +use strict; +use warnings; + +use Class::Load::PP; + +$ENV{CLASS_LOAD_IMPLEMENTATION} = 'PP'; + +require Class::Load; + +sub import { + Class::Load->export_to_level(1, @_); +} + +1; diff --git a/xt/author/00-compile.t b/xt/author/00-compile.t new file mode 100644 index 0000000..9a31122 --- /dev/null +++ b/xt/author/00-compile.t @@ -0,0 +1,55 @@ +use 5.006; +use strict; +use warnings; + +# this test was generated with Dist::Zilla::Plugin::Test::Compile 2.053 + +use Test::More 0.94; + +plan tests => 3; + +my @module_files = ( + 'Class/Load.pm', + 'Class/Load/PP.pm' +); + + + +# no fake home requested + +my $inc_switch = -d 'blib' ? '-Mblib' : '-Ilib'; + +use File::Spec; +use IPC::Open3; +use IO::Handle; + +open my $stdin, '<', File::Spec->devnull or die "can't open devnull: $!"; + +my @warnings; +for my $lib (@module_files) +{ + # see L<perlfaq8/How can I capture STDERR from an external command?> + my $stderr = IO::Handle->new; + + my $pid = open3($stdin, '>&STDERR', $stderr, $^X, $inc_switch, '-e', "require q[$lib]"); + binmode $stderr, ':crlf' if $^O eq 'MSWin32'; + my @_warnings = <$stderr>; + waitpid($pid, 0); + is($?, 0, "$lib loaded ok"); + + shift @_warnings if @_warnings and $_warnings[0] =~ /^Using .*\bblib/ + and not eval { blib->VERSION('1.01') }; + + if (@_warnings) + { + warn @_warnings; + push @warnings, @_warnings; + } +} + + + +is(scalar(@warnings), 0, 'no warnings found') + or diag 'got warnings: ', explain(\@warnings); + +BAIL_OUT("Compilation problems") if !Test::More->builder->is_passing; diff --git a/xt/author/eol.t b/xt/author/eol.t new file mode 100644 index 0000000..fc850b5 --- /dev/null +++ b/xt/author/eol.t @@ -0,0 +1,54 @@ +use strict; +use warnings; + +# this test was generated with Dist::Zilla::Plugin::Test::EOL 0.18 + +use Test::More 0.88; +use Test::EOL; + +my @files = ( + 'lib/Class/Load.pm', + 'lib/Class/Load/PP.pm', + 't/00-report-prereqs.dd', + 't/00-report-prereqs.t', + 't/000-load.t', + 't/001-is-class-loaded.t', + 't/002-try-load-class.t', + 't/003-load-class.t', + 't/004-load-double.t', + 't/005-load-optional.t', + 't/006-returned-error.t', + 't/007-first-existing.t', + 't/008-gvstash-bug.t', + 't/009-invalid-module-name.t', + 't/010-isa-false-positive.t', + 't/011-without-xs.t', + 't/012-without-implementation.t', + 't/013-errors.t', + 't/014-weird-constants.t', + 't/lib/Class/Load/Error/DieAfterBeginIsa.pm', + 't/lib/Class/Load/Error/DieAfterIsa.pm', + 't/lib/Class/Load/Error/SyntaxErrorAfterIsa.pm', + 't/lib/Class/Load/OK.pm', + 't/lib/Class/Load/Stash.pm', + 't/lib/Class/Load/Stash/Sub.pm', + 't/lib/Class/Load/SyntaxError.pm', + 't/lib/Class/Load/VersionCheck.pm', + 't/lib/Class/Load/VersionCheck2.pm', + 't/lib/Test/Class/Load.pm', + 'xt/author/00-compile.t', + 'xt/author/eol.t', + 'xt/author/kwalitee.t', + 'xt/author/no-tabs.t', + 'xt/author/pod-spell.t', + 'xt/release/changes_has_content.t', + 'xt/release/cpan-changes.t', + 'xt/release/distmeta.t', + 'xt/release/minimum-version.t', + 'xt/release/mojibake.t', + 'xt/release/pod-syntax.t', + 'xt/release/portability.t' +); + +eol_unix_ok($_, { trailing_whitespace => 1 }) foreach @files; +done_testing; diff --git a/xt/author/kwalitee.t b/xt/author/kwalitee.t new file mode 100644 index 0000000..bcbce84 --- /dev/null +++ b/xt/author/kwalitee.t @@ -0,0 +1,9 @@ +# this test was generated with Dist::Zilla::Plugin::Test::Kwalitee 2.11 +use strict; +use warnings; +use Test::More 0.88; +use Test::Kwalitee 1.21 'kwalitee_ok'; + +kwalitee_ok(); + +done_testing; diff --git a/xt/author/no-tabs.t b/xt/author/no-tabs.t new file mode 100644 index 0000000..4ba0259 --- /dev/null +++ b/xt/author/no-tabs.t @@ -0,0 +1,54 @@ +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/Class/Load.pm', + 'lib/Class/Load/PP.pm', + 't/00-report-prereqs.dd', + 't/00-report-prereqs.t', + 't/000-load.t', + 't/001-is-class-loaded.t', + 't/002-try-load-class.t', + 't/003-load-class.t', + 't/004-load-double.t', + 't/005-load-optional.t', + 't/006-returned-error.t', + 't/007-first-existing.t', + 't/008-gvstash-bug.t', + 't/009-invalid-module-name.t', + 't/010-isa-false-positive.t', + 't/011-without-xs.t', + 't/012-without-implementation.t', + 't/013-errors.t', + 't/014-weird-constants.t', + 't/lib/Class/Load/Error/DieAfterBeginIsa.pm', + 't/lib/Class/Load/Error/DieAfterIsa.pm', + 't/lib/Class/Load/Error/SyntaxErrorAfterIsa.pm', + 't/lib/Class/Load/OK.pm', + 't/lib/Class/Load/Stash.pm', + 't/lib/Class/Load/Stash/Sub.pm', + 't/lib/Class/Load/SyntaxError.pm', + 't/lib/Class/Load/VersionCheck.pm', + 't/lib/Class/Load/VersionCheck2.pm', + 't/lib/Test/Class/Load.pm', + 'xt/author/00-compile.t', + 'xt/author/eol.t', + 'xt/author/kwalitee.t', + 'xt/author/no-tabs.t', + 'xt/author/pod-spell.t', + 'xt/release/changes_has_content.t', + 'xt/release/cpan-changes.t', + 'xt/release/distmeta.t', + 'xt/release/minimum-version.t', + 'xt/release/mojibake.t', + 'xt/release/pod-syntax.t', + 'xt/release/portability.t' +); + +notabs_ok($_) foreach @files; +done_testing; diff --git a/xt/author/pod-spell.t b/xt/author/pod-spell.t new file mode 100644 index 0000000..d19b270 --- /dev/null +++ b/xt/author/pod-spell.t @@ -0,0 +1,36 @@ +use strict; +use warnings; +use Test::More; + +# generated by Dist::Zilla::Plugin::Test::PodSpelling 2.006009 +use Test::Spelling 0.12; +use Pod::Wordlist; + + +add_stopwords(<DATA>); +all_pod_files_spelling_ok( qw( bin lib ) ); +__DATA__ +Shawn +Moore +sartak +at +bestpractical +Dave +Rolsky +autarch +Karen +Etheridge +ether +Jesse +Luehrs +doy +Kent +Fredric +kentfredric +Caleb +Cushing +xenoterracide +lib +Class +Load +PP diff --git a/xt/release/changes_has_content.t b/xt/release/changes_has_content.t new file mode 100644 index 0000000..dfb4035 --- /dev/null +++ b/xt/release/changes_has_content.t @@ -0,0 +1,41 @@ +#!perl + +use Test::More tests => 2; + +note 'Checking Changes'; +my $changes_file = 'Changes'; +my $newver = '0.23'; +my $trial_token = '-TRIAL'; + +SKIP: { + ok(-e $changes_file, "$changes_file file exists") + or skip 'Changes is missing', 1; + + ok(_get_changes($newver), "$changes_file has content for $newver"); +} + +done_testing; + +# _get_changes copied and adapted from Dist::Zilla::Plugin::Git::Commit +# by Jerome Quelin +sub _get_changes +{ + my $newver = shift; + + # parse changelog to find commit message + open(my $fh, '<', $changes_file) or die "cannot open $changes_file: $!"; + my $changelog = join('', <$fh>); + close $fh; + + my @content = + grep { /^$newver(?:$trial_token)?(?:\s+|$)/ ... /^\S/ } # from newver to un-indented + split /\n/, $changelog; + shift @content; # drop the version line + + # drop unindented last line and trailing blank lines + pop @content while ( @content && $content[-1] =~ /^(?:\S|\s*$)/ ); + + # return number of non-blank lines + return scalar @content; +} + diff --git a/xt/release/cpan-changes.t b/xt/release/cpan-changes.t new file mode 100644 index 0000000..8e6e413 --- /dev/null +++ b/xt/release/cpan-changes.t @@ -0,0 +1,11 @@ +#!perl + +use strict; +use warnings; + +use Test::More 0.96 tests => 2; +use_ok('Test::CPAN::Changes'); +subtest 'changes_ok' => sub { + changes_file_ok('Changes'); +}; +done_testing(); diff --git a/xt/release/distmeta.t b/xt/release/distmeta.t new file mode 100644 index 0000000..c2280dc --- /dev/null +++ b/xt/release/distmeta.t @@ -0,0 +1,6 @@ +#!perl +# This file was automatically generated by Dist::Zilla::Plugin::MetaTests. + +use Test::CPAN::Meta; + +meta_yaml_ok(); diff --git a/xt/release/minimum-version.t b/xt/release/minimum-version.t new file mode 100644 index 0000000..c3f95dd --- /dev/null +++ b/xt/release/minimum-version.t @@ -0,0 +1,8 @@ +#!perl + +use Test::More; + +eval "use Test::MinimumVersion"; +plan skip_all => "Test::MinimumVersion required for testing minimum versions" + if $@; +all_minimum_version_ok( qq{5.006} ); diff --git a/xt/release/mojibake.t b/xt/release/mojibake.t new file mode 100644 index 0000000..390c632 --- /dev/null +++ b/xt/release/mojibake.t @@ -0,0 +1,12 @@ +#!perl + +use strict; +use warnings qw(all); + +use Test::More; + +## no critic (ProhibitStringyEval, RequireCheckingReturnValueOfEval) +eval q(use Test::Mojibake); +plan skip_all => q(Test::Mojibake required for source encoding testing) if $@; + +all_files_encoding_ok(); diff --git a/xt/release/pod-syntax.t b/xt/release/pod-syntax.t new file mode 100644 index 0000000..f0468f1 --- /dev/null +++ b/xt/release/pod-syntax.t @@ -0,0 +1,6 @@ +#!perl +# This file was automatically generated by Dist::Zilla::Plugin::PodSyntaxTests. +use Test::More; +use Test::Pod 1.41; + +all_pod_files_ok(); diff --git a/xt/release/portability.t b/xt/release/portability.t new file mode 100644 index 0000000..bb53c7b --- /dev/null +++ b/xt/release/portability.t @@ -0,0 +1,12 @@ +#!perl + +use strict; +use warnings; + +use Test::More; + +eval 'use Test::Portability::Files'; +plan skip_all => 'Test::Portability::Files required for testing portability' + if $@; + +run_tests(); |