@@ -1,28 +1,29 @@
-Revision history for Perl extension Data::Validate::Domain.
+0.11 2015-05-05
+ - Don't allow non-ASCII digits in domain labels, RT #103121.
-0.10 Mon Dec 29 2010
+0.10 2010-12-29
- Fixed bug 41033, no longer allows \n in domain_labels
Thanks to marek.miska@netart.pl for reporting the bug
-0.09 Mon Feb 18 2008
+0.09 2008-02-18
- Added new option of domain_allow_underscore to allow this module
to be used for validating domainnames like _spf.neely.cx if the option is set
Default behavior was not changed
-0.08 Wed May 17 2007
+0.08 2007-05-17
- Ugh, forgot to add new tests to MANIFEST
-0.07 Wed May 17 2007
+0.07 2007-05-17
- Added POD testing, and minor cleanup related to that
-0.06 Wed May 16 2007
+0.06 2007-05-16
- Updated contact information to be neil@neely.cx, this is a purely cosmetic change
-0.05 Fri Dec 04 14:03:58 2006
+0.05 2006-12-04
- Added Support for compiled regular expressions to the private_domain_tld option.
- Thanks to Berhhard Graf <graf@augensalat.de> for the suggestion.
-0.04 Fri Dec 01 10:21:04 2006
+0.04 2006-12-01
- Added support for options to alter behavior of is_domain with these new
options is_domain will be able to work with private domains with custom TLD's.
- Special Thanks to Len Reed <lreed@levanta.com> for not only suggesting
@@ -33,13 +34,11 @@ Revision history for Perl extension Data::Validate::Domain.
helping flush out the details of how to utilize options in the
Data::Validate name space portably.
-
-
-0.03 Thu Nov 03 07:47:21 2005
+0.03 2005-11-03
- Updated to support new procedural version of Net::Domain::TLD
- Thanks to Ricardo Signes <rjbs@cpan.org> for letting me know about his new interface
-0.02 Fri Oct 28 12:46:51 2005
+0.02 2005-10-28
- added is_hostname method (which is valid for either somehost or somehost.domain.com)
- modified is_domain to verify TLD of domain supplied (Uses Net::Domain::TLD)
- Fixed bug that allowed domain.com... to return the same results as domain.com
@@ -48,7 +47,7 @@ Revision history for Perl extension Data::Validate::Domain.
Thanks to Smylers <smylers@donhost.co.uk> for the detailed bug
report and suggested fixes.
-0.01 Fri Mar 4 10:56:34 2005
+0.01 2005-03-04
- original version; created by h2xs 1.23 with options
-AXn Data::Validate::Domain
@@ -0,0 +1,43 @@
+This is the Perl distribution Data-Validate-Domain.
+
+Installing Data-Validate-Domain is straightforward.
+
+## Installation with cpanm
+
+If you have cpanm, you only need one line:
+
+ % cpanm Data::Validate::Domain
+
+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 Data::Validate::Domain
+
+## Installing with the CPAN shell
+
+Alternatively, if your CPAN shell is set up, you should just be able to do:
+
+ % cpan Data::Validate::Domain
+
+## 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
+
+Data-Validate-Domain documentation is available as POD.
+You can run perldoc from a shell to read the documentation:
+
+ % perldoc Data::Validate::Domain
@@ -0,0 +1,379 @@
+This software is copyright (c) 2015 by Neil Neely.
+
+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) 2015 by Neil Neely.
+
+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) 2015 by Neil Neely.
+
+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
+
@@ -1,9 +1,32 @@
+# This file was automatically generated by Dist::Zilla::Plugin::Manifest v5.036.
Changes
-Makefile.PL
+INSTALL
+LICENSE
MANIFEST
-README
-t/Data-Validate-Domain.t
-t/Pod.t
-t/Pod-Coverage.t
+META.json
+META.yml
+Makefile.PL
+README.md
+cpanfile
+dist.ini
lib/Data/Validate/Domain.pm
-META.yml Module meta-data (added by MakeMaker)
+perlcriticrc
+perltidyrc
+t/00-compile.t
+t/00-report-prereqs.dd
+t/00-report-prereqs.t
+t/Data-Validate-Domain.t
+t/author-eol.t
+t/author-no-tabs.t
+t/author-pod-spell.t
+t/release-cpan-changes.t
+t/release-pod-coverage.t
+t/release-pod-linkcheck.t
+t/release-pod-no404s.t
+t/release-pod-syntax.t
+t/release-portability.t
+t/release-synopsis.t
+t/release-test-version.t
+t/release-tidyall.t
+tidyall.ini
+weaver.ini
@@ -0,0 +1,743 @@
+{
+ "abstract" : "Domain and host name validation",
+ "author" : [
+ "Neil Neely <neil@neely.cx>",
+ "Dave Rolsky <autarch@urth.org>"
+ ],
+ "dynamic_config" : 0,
+ "generated_by" : "Dist::Zilla version 5.036, CPAN::Meta::Converter version 2.143240",
+ "license" : [
+ "perl_5"
+ ],
+ "meta-spec" : {
+ "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec",
+ "version" : 2
+ },
+ "name" : "Data-Validate-Domain",
+ "prereqs" : {
+ "configure" : {
+ "requires" : {
+ "ExtUtils::MakeMaker" : "0"
+ }
+ },
+ "develop" : {
+ "requires" : {
+ "Code::TidyAll" : "0.24",
+ "Perl::Critic" : "1.123",
+ "Perl::Tidy" : "20140711",
+ "Pod::Coverage::TrustPod" : "0",
+ "Test::CPAN::Changes" : "0.19",
+ "Test::Code::TidyAll" : "0.24",
+ "Test::EOL" : "0",
+ "Test::More" : "0.88",
+ "Test::NoTabs" : "0",
+ "Test::Pod" : "1.41",
+ "Test::Pod::Coverage" : "1.08",
+ "Test::Spelling" : "0.12",
+ "Test::Synopsis" : "0",
+ "Test::Version" : "1"
+ }
+ },
+ "runtime" : {
+ "requires" : {
+ "Exporter" : "0",
+ "Net::Domain::TLD" : "0",
+ "strict" : "0",
+ "warnings" : "0"
+ }
+ },
+ "test" : {
+ "recommends" : {
+ "CPAN::Meta" : "2.120900"
+ },
+ "requires" : {
+ "ExtUtils::MakeMaker" : "0",
+ "File::Spec" : "0",
+ "IO::Handle" : "0",
+ "IPC::Open3" : "0",
+ "Test::More" : "0.96",
+ "perl" : "5.006"
+ }
+ }
+ },
+ "provides" : {
+ "Data::Validate::Domain" : {
+ "file" : "lib/Data/Validate/Domain.pm",
+ "version" : "0.11"
+ }
+ },
+ "release_status" : "stable",
+ "resources" : {
+ "bugtracker" : {
+ "mailto" : "bug-data-validate-domain@rt.cpan.org",
+ "web" : "http://rt.cpan.org/Public/Dist/Display.html?Name=Data-Validate-Domain"
+ },
+ "homepage" : "http://metacpan.org/release/Data-Validate-Domain",
+ "repository" : {
+ "type" : "git",
+ "url" : "git://github.com/autarch-code/Data-Validate-Domain.git",
+ "web" : "https://github.com/autarch-code/Data-Validate-Domain"
+ }
+ },
+ "version" : "0.11",
+ "x_Dist_Zilla" : {
+ "perl" : {
+ "version" : "5.016003"
+ },
+ "plugins" : [
+ {
+ "class" : "Dist::Zilla::Plugin::MakeMaker",
+ "config" : {
+ "Dist::Zilla::Role::TestRunner" : {
+ "default_jobs" : 1
+ }
+ },
+ "name" : "@DROLSKY/MakeMaker",
+ "version" : "5.036"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::Authority",
+ "name" : "@DROLSKY/Authority",
+ "version" : "1.009"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::AutoPrereqs",
+ "name" : "@DROLSKY/AutoPrereqs",
+ "version" : "5.036"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::CopyFilesFromBuild",
+ "name" : "@DROLSKY/CopyFilesFromBuild",
+ "version" : "0.150250"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::Git::GatherDir",
+ "config" : {
+ "Dist::Zilla::Plugin::GatherDir" : {
+ "exclude_filename" : [
+ "README.md",
+ "cpanfile",
+ "Makefile.PL",
+ "LICENSE",
+ "Build.PL"
+ ],
+ "exclude_match" : [],
+ "follow_symlinks" : "0",
+ "include_dotfiles" : "0",
+ "prefix" : "",
+ "prune_directory" : [],
+ "root" : "."
+ },
+ "Dist::Zilla::Plugin::Git::GatherDir" : {
+ "include_untracked" : "0"
+ }
+ },
+ "name" : "@DROLSKY/Git::GatherDir",
+ "version" : "2.033"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::GitHub::Meta",
+ "name" : "@DROLSKY/GitHub::Meta",
+ "version" : "0.40"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::GitHub::Update",
+ "name" : "@DROLSKY/GitHub::Update",
+ "version" : "0.40"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::MetaResources",
+ "name" : "@DROLSKY/MetaResources",
+ "version" : "5.036"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::MetaProvides::Package",
+ "config" : {
+ "Dist::Zilla::Plugin::MetaProvides::Package" : {
+ "finder_objects" : [
+ {
+ "class" : "Dist::Zilla::Plugin::FinderCode",
+ "name" : "@DROLSKY/MetaProvides::Package/AUTOVIV/:InstallModulesPM",
+ "version" : "5.036"
+ }
+ ]
+ },
+ "Dist::Zilla::Role::MetaProvider::Provider" : {
+ "inherit_missing" : "1",
+ "inherit_version" : "1",
+ "meta_noindex" : "1"
+ }
+ },
+ "name" : "@DROLSKY/MetaProvides::Package",
+ "version" : "2.003001"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::NextRelease",
+ "name" : "@DROLSKY/NextRelease",
+ "version" : "5.036"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::Prereqs",
+ "config" : {
+ "Dist::Zilla::Plugin::Prereqs" : {
+ "phase" : "test",
+ "type" : "requires"
+ }
+ },
+ "name" : "@DROLSKY/Test::More with subtest()",
+ "version" : "5.036"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::Prereqs",
+ "config" : {
+ "Dist::Zilla::Plugin::Prereqs" : {
+ "phase" : "develop",
+ "type" : "requires"
+ }
+ },
+ "name" : "@DROLSKY/Modules for use with tidyall",
+ "version" : "5.036"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::PromptIfStale",
+ "config" : {
+ "Dist::Zilla::Plugin::PromptIfStale" : {
+ "check_all_plugins" : "1",
+ "check_all_prereqs" : "1",
+ "modules" : [],
+ "phase" : "release",
+ "skip" : [
+ "Dist::Zilla::Plugin::DROLSKY::Contributors",
+ "Dist::Zilla::Plugin::DROLSKY::License",
+ "Dist::Zilla::Plugin::DROLSKY::TidyAll"
+ ]
+ }
+ },
+ "name" : "@DROLSKY/PromptIfStale",
+ "version" : "0.042"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::ReadmeAnyFromPod",
+ "name" : "@DROLSKY/README.md in build",
+ "version" : "0.150250"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::ReadmeAnyFromPod",
+ "name" : "@DROLSKY/README.md in root",
+ "version" : "0.150250"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::Test::Pod::Coverage::Configurable",
+ "name" : "@DROLSKY/Test::Pod::Coverage::Configurable",
+ "version" : "0.05"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::Test::PodSpelling",
+ "name" : "@DROLSKY/Test::PodSpelling",
+ "version" : "2.006009"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::Test::ReportPrereqs",
+ "name" : "@DROLSKY/Test::ReportPrereqs",
+ "version" : "0.021"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::Test::Version",
+ "name" : "@DROLSKY/Test::Version",
+ "version" : "0.04"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::ManifestSkip",
+ "name" : "@DROLSKY/ManifestSkip",
+ "version" : "5.036"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::MetaYAML",
+ "name" : "@DROLSKY/MetaYAML",
+ "version" : "5.036"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::License",
+ "name" : "@DROLSKY/License",
+ "version" : "5.036"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::ExtraTests",
+ "name" : "@DROLSKY/ExtraTests",
+ "version" : "5.036"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::ExecDir",
+ "name" : "@DROLSKY/ExecDir",
+ "version" : "5.036"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::ShareDir",
+ "name" : "@DROLSKY/ShareDir",
+ "version" : "5.036"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::Manifest",
+ "name" : "@DROLSKY/Manifest",
+ "version" : "5.036"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::CheckVersionIncrement",
+ "name" : "@DROLSKY/CheckVersionIncrement",
+ "version" : "0.121750"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::TestRelease",
+ "name" : "@DROLSKY/TestRelease",
+ "version" : "5.036"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::ConfirmRelease",
+ "name" : "@DROLSKY/ConfirmRelease",
+ "version" : "5.036"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::UploadToCPAN",
+ "name" : "@DROLSKY/UploadToCPAN",
+ "version" : "5.036"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::CheckPrereqsIndexed",
+ "name" : "@DROLSKY/CheckPrereqsIndexed",
+ "version" : "0.015"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::CPANFile",
+ "name" : "@DROLSKY/CPANFile",
+ "version" : "5.036"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::DROLSKY::Contributors",
+ "name" : "@DROLSKY/DROLSKY::Contributors",
+ "version" : "0.33"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::DROLSKY::License",
+ "name" : "@DROLSKY/DROLSKY::License",
+ "version" : "0.33"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::DROLSKY::TidyAll",
+ "name" : "@DROLSKY/DROLSKY::TidyAll",
+ "version" : "0.33"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::Git::CheckFor::CorrectBranch",
+ "config" : {
+ "Dist::Zilla::Role::Git::Repo" : {
+ "repo_root" : "."
+ }
+ },
+ "name" : "@DROLSKY/Git::CheckFor::CorrectBranch",
+ "version" : "0.013"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::Git::CheckFor::MergeConflicts",
+ "config" : {
+ "Dist::Zilla::Role::Git::Repo" : {
+ "repo_root" : "."
+ }
+ },
+ "name" : "@DROLSKY/Git::CheckFor::MergeConflicts",
+ "version" : "0.013"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::Git::Contributors",
+ "config" : {
+ "Dist::Zilla::Plugin::Git::Contributors" : {
+ "include_authors" : "0",
+ "include_releaser" : "1",
+ "order_by" : "name",
+ "paths" : []
+ }
+ },
+ "name" : "@DROLSKY/Git::Contributors",
+ "version" : "0.011"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::InstallGuide",
+ "name" : "@DROLSKY/InstallGuide",
+ "version" : "1.200006"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::Meta::Contributors",
+ "name" : "@DROLSKY/Meta::Contributors",
+ "version" : "0.002"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::MetaConfig",
+ "name" : "@DROLSKY/MetaConfig",
+ "version" : "5.036"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::MetaJSON",
+ "name" : "@DROLSKY/MetaJSON",
+ "version" : "5.036"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::RewriteVersion",
+ "name" : "@DROLSKY/RewriteVersion",
+ "version" : "0.009"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::SurgicalPodWeaver",
+ "config" : {
+ "Dist::Zilla::Plugin::PodWeaver" : {
+ "finder" : [
+ ":InstallModules",
+ ":ExecFiles"
+ ],
+ "plugins" : [
+ {
+ "class" : "Pod::Weaver::Plugin::EnsurePod5",
+ "name" : "@CorePrep/EnsurePod5",
+ "version" : "4.010"
+ },
+ {
+ "class" : "Pod::Weaver::Plugin::H1Nester",
+ "name" : "@CorePrep/H1Nester",
+ "version" : "4.010"
+ },
+ {
+ "class" : "Pod::Weaver::Section::Name",
+ "name" : "Name",
+ "version" : "4.010"
+ },
+ {
+ "class" : "Pod::Weaver::Section::Version",
+ "name" : "Version",
+ "version" : "4.010"
+ },
+ {
+ "class" : "Pod::Weaver::Section::Region",
+ "name" : "prelude",
+ "version" : "4.010"
+ },
+ {
+ "class" : "Pod::Weaver::Section::Generic",
+ "name" : "SYNOPSIS",
+ "version" : "4.010"
+ },
+ {
+ "class" : "Pod::Weaver::Section::Generic",
+ "name" : "DESCRIPTION",
+ "version" : "4.010"
+ },
+ {
+ "class" : "Pod::Weaver::Section::Leftovers",
+ "name" : "Leftovers",
+ "version" : "4.010"
+ },
+ {
+ "class" : "Pod::Weaver::Section::Region",
+ "name" : "postlude",
+ "version" : "4.010"
+ },
+ {
+ "class" : "Pod::Weaver::Section::Authors",
+ "name" : "Authors",
+ "version" : "4.010"
+ },
+ {
+ "class" : "Pod::Weaver::Section::Contributors",
+ "name" : "Contributors",
+ "version" : "0.009"
+ },
+ {
+ "class" : "Pod::Weaver::Section::Legal",
+ "name" : "Legal",
+ "version" : "4.010"
+ }
+ ]
+ }
+ },
+ "name" : "@DROLSKY/SurgicalPodWeaver",
+ "version" : "0.0023"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::PodSyntaxTests",
+ "name" : "@DROLSKY/PodSyntaxTests",
+ "version" : "5.036"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::Test::CPAN::Changes",
+ "name" : "@DROLSKY/Test::CPAN::Changes",
+ "version" : "0.009"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::Test::Compile",
+ "config" : {
+ "Dist::Zilla::Plugin::Test::Compile" : {
+ "bail_out_on_fail" : "0",
+ "fail_on_warning" : "author",
+ "fake_home" : "0",
+ "filename" : "t/00-compile.t",
+ "module_finder" : [
+ ":InstallModules"
+ ],
+ "needs_display" : "0",
+ "phase" : "test",
+ "script_finder" : [
+ ":ExecFiles"
+ ],
+ "skips" : []
+ }
+ },
+ "name" : "@DROLSKY/Test::Compile",
+ "version" : "2.052"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::Test::EOL",
+ "config" : {
+ "Dist::Zilla::Plugin::Test::EOL" : {
+ "filename" : "xt/author/eol.t",
+ "finder" : [
+ ":InstallModules",
+ ":ExecFiles",
+ ":TestFiles"
+ ],
+ "trailing_whitespace" : "1"
+ }
+ },
+ "name" : "@DROLSKY/Test::EOL",
+ "version" : "0.18"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::Test::NoTabs",
+ "config" : {
+ "Dist::Zilla::Plugin::Test::NoTabs" : {
+ "filename" : "xt/author/no-tabs.t",
+ "finder" : [
+ ":InstallModules",
+ ":ExecFiles",
+ ":TestFiles"
+ ]
+ }
+ },
+ "name" : "@DROLSKY/Test::NoTabs",
+ "version" : "0.14"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::Test::Pod::LinkCheck",
+ "name" : "@DROLSKY/Test::Pod::LinkCheck",
+ "version" : "1.001"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::Test::Pod::No404s",
+ "name" : "@DROLSKY/Test::Pod::No404s",
+ "version" : "1.001"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::Test::Portability",
+ "name" : "@DROLSKY/Test::Portability",
+ "version" : "2.000006"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::Test::Synopsis",
+ "name" : "@DROLSKY/Test::Synopsis",
+ "version" : "2.000006"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::Test::TidyAll",
+ "name" : "@DROLSKY/Test::TidyAll",
+ "version" : "0.01"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::Git::Check",
+ "config" : {
+ "Dist::Zilla::Plugin::Git::Check" : {
+ "untracked_files" : "die"
+ },
+ "Dist::Zilla::Role::Git::DirtyFiles" : {
+ "allow_dirty" : [
+ "README.md",
+ "cpanfile",
+ "Makefile.PL",
+ "LICENSE",
+ "Build.PL",
+ "Changes",
+ "CONTRIBUTING.md"
+ ],
+ "allow_dirty_match" : [],
+ "changelog" : "Changes"
+ },
+ "Dist::Zilla::Role::Git::Repo" : {
+ "repo_root" : "."
+ }
+ },
+ "name" : "@DROLSKY/Git::Check",
+ "version" : "2.033"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::Git::Commit",
+ "config" : {
+ "Dist::Zilla::Plugin::Git::Commit" : {
+ "add_files_in" : [],
+ "commit_msg" : "v%v%n%n%c",
+ "time_zone" : "local"
+ },
+ "Dist::Zilla::Role::Git::DirtyFiles" : {
+ "allow_dirty" : [
+ "README.md",
+ "cpanfile",
+ "Makefile.PL",
+ "LICENSE",
+ "Build.PL",
+ "Changes",
+ "CONTRIBUTING.md"
+ ],
+ "allow_dirty_match" : [],
+ "changelog" : "Changes"
+ },
+ "Dist::Zilla::Role::Git::Repo" : {
+ "repo_root" : "."
+ }
+ },
+ "name" : "@DROLSKY/commit generated files",
+ "version" : "2.033"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::Git::Tag",
+ "config" : {
+ "Dist::Zilla::Plugin::Git::Tag" : {
+ "branch" : null,
+ "signed" : 0,
+ "tag" : "v0.11",
+ "tag_format" : "v%v",
+ "tag_message" : "v%v",
+ "time_zone" : "local"
+ },
+ "Dist::Zilla::Role::Git::Repo" : {
+ "repo_root" : "."
+ }
+ },
+ "name" : "@DROLSKY/Git::Tag",
+ "version" : "2.033"
+ },
+ {
+ "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" : "@DROLSKY/Git::Push",
+ "version" : "2.033"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::BumpVersionAfterRelease",
+ "name" : "@DROLSKY/BumpVersionAfterRelease",
+ "version" : "0.009"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::Git::Commit",
+ "config" : {
+ "Dist::Zilla::Plugin::Git::Commit" : {
+ "add_files_in" : [],
+ "commit_msg" : "Bump version after release",
+ "time_zone" : "local"
+ },
+ "Dist::Zilla::Role::Git::DirtyFiles" : {
+ "allow_dirty" : [
+ "dist.ini",
+ "Changes"
+ ],
+ "allow_dirty_match" : [
+ "(?^:.+)"
+ ],
+ "changelog" : "Changes"
+ },
+ "Dist::Zilla::Role::Git::Repo" : {
+ "repo_root" : "."
+ }
+ },
+ "name" : "@DROLSKY/commit version bump",
+ "version" : "2.033"
+ },
+ {
+ "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" : "@DROLSKY/push version bump",
+ "version" : "2.033"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::FinderCode",
+ "name" : ":InstallModules",
+ "version" : "5.036"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::FinderCode",
+ "name" : ":IncModules",
+ "version" : "5.036"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::FinderCode",
+ "name" : ":TestFiles",
+ "version" : "5.036"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::FinderCode",
+ "name" : ":ExecFiles",
+ "version" : "5.036"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::FinderCode",
+ "name" : ":ShareFiles",
+ "version" : "5.036"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::FinderCode",
+ "name" : ":MainModule",
+ "version" : "5.036"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::FinderCode",
+ "name" : ":AllFiles",
+ "version" : "5.036"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::FinderCode",
+ "name" : ":NoFiles",
+ "version" : "5.036"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::FinderCode",
+ "name" : "@DROLSKY/MetaProvides::Package/AUTOVIV/:InstallModulesPM",
+ "version" : "5.036"
+ }
+ ],
+ "zilla" : {
+ "class" : "Dist::Zilla::Dist::Builder",
+ "config" : {
+ "is_trial" : "0"
+ },
+ "version" : "5.036"
+ }
+ },
+ "x_authority" : "cpan:DROLSKY",
+ "x_contributors" : [
+ "David Steinbrunner <dsteinbrunner@pobox.com>"
+ ]
+}
+
@@ -1,21 +1,541 @@
---- #YAML:1.0
-name: Data-Validate-Domain
-version: 0.10
-abstract: domain validation methods
+---
+abstract: 'Domain and host name validation'
author:
- - Neil Neely <neil@neely.cx>
-license: perl
-distribution_type: module
+ - 'Neil Neely <neil@neely.cx>'
+ - 'Dave Rolsky <autarch@urth.org>'
+build_requires:
+ ExtUtils::MakeMaker: '0'
+ File::Spec: '0'
+ IO::Handle: '0'
+ IPC::Open3: '0'
+ Test::More: '0.96'
+ perl: '5.006'
configure_requires:
- ExtUtils::MakeMaker: 0
-requires:
- Net::Domain::TLD: 1.62
- Test::More: 0
-no_index:
- directory:
- - t
- - inc
-generated_by: ExtUtils::MakeMaker version 6.46
+ ExtUtils::MakeMaker: '0'
+dynamic_config: 0
+generated_by: 'Dist::Zilla version 5.036, CPAN::Meta::Converter version 2.143240'
+license: perl
meta-spec:
- url: http://module-build.sourceforge.net/META-spec-v1.4.html
- version: 1.4
+ url: http://module-build.sourceforge.net/META-spec-v1.4.html
+ version: '1.4'
+name: Data-Validate-Domain
+provides:
+ Data::Validate::Domain:
+ file: lib/Data/Validate/Domain.pm
+ version: '0.11'
+requires:
+ Exporter: '0'
+ Net::Domain::TLD: '0'
+ strict: '0'
+ warnings: '0'
+resources:
+ bugtracker: http://rt.cpan.org/Public/Dist/Display.html?Name=Data-Validate-Domain
+ homepage: http://metacpan.org/release/Data-Validate-Domain
+ repository: git://github.com/autarch-code/Data-Validate-Domain.git
+version: '0.11'
+x_Dist_Zilla:
+ perl:
+ version: '5.016003'
+ plugins:
+ -
+ class: Dist::Zilla::Plugin::MakeMaker
+ config:
+ Dist::Zilla::Role::TestRunner:
+ default_jobs: 1
+ name: '@DROLSKY/MakeMaker'
+ version: '5.036'
+ -
+ class: Dist::Zilla::Plugin::Authority
+ name: '@DROLSKY/Authority'
+ version: '1.009'
+ -
+ class: Dist::Zilla::Plugin::AutoPrereqs
+ name: '@DROLSKY/AutoPrereqs'
+ version: '5.036'
+ -
+ class: Dist::Zilla::Plugin::CopyFilesFromBuild
+ name: '@DROLSKY/CopyFilesFromBuild'
+ version: '0.150250'
+ -
+ class: Dist::Zilla::Plugin::Git::GatherDir
+ config:
+ Dist::Zilla::Plugin::GatherDir:
+ exclude_filename:
+ - README.md
+ - cpanfile
+ - Makefile.PL
+ - LICENSE
+ - Build.PL
+ exclude_match: []
+ follow_symlinks: '0'
+ include_dotfiles: '0'
+ prefix: ''
+ prune_directory: []
+ root: .
+ Dist::Zilla::Plugin::Git::GatherDir:
+ include_untracked: '0'
+ name: '@DROLSKY/Git::GatherDir'
+ version: '2.033'
+ -
+ class: Dist::Zilla::Plugin::GitHub::Meta
+ name: '@DROLSKY/GitHub::Meta'
+ version: '0.40'
+ -
+ class: Dist::Zilla::Plugin::GitHub::Update
+ name: '@DROLSKY/GitHub::Update'
+ version: '0.40'
+ -
+ class: Dist::Zilla::Plugin::MetaResources
+ name: '@DROLSKY/MetaResources'
+ version: '5.036'
+ -
+ class: Dist::Zilla::Plugin::MetaProvides::Package
+ config:
+ Dist::Zilla::Plugin::MetaProvides::Package:
+ finder_objects:
+ -
+ class: Dist::Zilla::Plugin::FinderCode
+ name: '@DROLSKY/MetaProvides::Package/AUTOVIV/:InstallModulesPM'
+ version: '5.036'
+ Dist::Zilla::Role::MetaProvider::Provider:
+ inherit_missing: '1'
+ inherit_version: '1'
+ meta_noindex: '1'
+ name: '@DROLSKY/MetaProvides::Package'
+ version: '2.003001'
+ -
+ class: Dist::Zilla::Plugin::NextRelease
+ name: '@DROLSKY/NextRelease'
+ version: '5.036'
+ -
+ class: Dist::Zilla::Plugin::Prereqs
+ config:
+ Dist::Zilla::Plugin::Prereqs:
+ phase: test
+ type: requires
+ name: '@DROLSKY/Test::More with subtest()'
+ version: '5.036'
+ -
+ class: Dist::Zilla::Plugin::Prereqs
+ config:
+ Dist::Zilla::Plugin::Prereqs:
+ phase: develop
+ type: requires
+ name: '@DROLSKY/Modules for use with tidyall'
+ version: '5.036'
+ -
+ class: Dist::Zilla::Plugin::PromptIfStale
+ config:
+ Dist::Zilla::Plugin::PromptIfStale:
+ check_all_plugins: '1'
+ check_all_prereqs: '1'
+ modules: []
+ phase: release
+ skip:
+ - Dist::Zilla::Plugin::DROLSKY::Contributors
+ - Dist::Zilla::Plugin::DROLSKY::License
+ - Dist::Zilla::Plugin::DROLSKY::TidyAll
+ name: '@DROLSKY/PromptIfStale'
+ version: '0.042'
+ -
+ class: Dist::Zilla::Plugin::ReadmeAnyFromPod
+ name: '@DROLSKY/README.md in build'
+ version: '0.150250'
+ -
+ class: Dist::Zilla::Plugin::ReadmeAnyFromPod
+ name: '@DROLSKY/README.md in root'
+ version: '0.150250'
+ -
+ class: Dist::Zilla::Plugin::Test::Pod::Coverage::Configurable
+ name: '@DROLSKY/Test::Pod::Coverage::Configurable'
+ version: '0.05'
+ -
+ class: Dist::Zilla::Plugin::Test::PodSpelling
+ name: '@DROLSKY/Test::PodSpelling'
+ version: '2.006009'
+ -
+ class: Dist::Zilla::Plugin::Test::ReportPrereqs
+ name: '@DROLSKY/Test::ReportPrereqs'
+ version: '0.021'
+ -
+ class: Dist::Zilla::Plugin::Test::Version
+ name: '@DROLSKY/Test::Version'
+ version: '0.04'
+ -
+ class: Dist::Zilla::Plugin::ManifestSkip
+ name: '@DROLSKY/ManifestSkip'
+ version: '5.036'
+ -
+ class: Dist::Zilla::Plugin::MetaYAML
+ name: '@DROLSKY/MetaYAML'
+ version: '5.036'
+ -
+ class: Dist::Zilla::Plugin::License
+ name: '@DROLSKY/License'
+ version: '5.036'
+ -
+ class: Dist::Zilla::Plugin::ExtraTests
+ name: '@DROLSKY/ExtraTests'
+ version: '5.036'
+ -
+ class: Dist::Zilla::Plugin::ExecDir
+ name: '@DROLSKY/ExecDir'
+ version: '5.036'
+ -
+ class: Dist::Zilla::Plugin::ShareDir
+ name: '@DROLSKY/ShareDir'
+ version: '5.036'
+ -
+ class: Dist::Zilla::Plugin::Manifest
+ name: '@DROLSKY/Manifest'
+ version: '5.036'
+ -
+ class: Dist::Zilla::Plugin::CheckVersionIncrement
+ name: '@DROLSKY/CheckVersionIncrement'
+ version: '0.121750'
+ -
+ class: Dist::Zilla::Plugin::TestRelease
+ name: '@DROLSKY/TestRelease'
+ version: '5.036'
+ -
+ class: Dist::Zilla::Plugin::ConfirmRelease
+ name: '@DROLSKY/ConfirmRelease'
+ version: '5.036'
+ -
+ class: Dist::Zilla::Plugin::UploadToCPAN
+ name: '@DROLSKY/UploadToCPAN'
+ version: '5.036'
+ -
+ class: Dist::Zilla::Plugin::CheckPrereqsIndexed
+ name: '@DROLSKY/CheckPrereqsIndexed'
+ version: '0.015'
+ -
+ class: Dist::Zilla::Plugin::CPANFile
+ name: '@DROLSKY/CPANFile'
+ version: '5.036'
+ -
+ class: Dist::Zilla::Plugin::DROLSKY::Contributors
+ name: '@DROLSKY/DROLSKY::Contributors'
+ version: '0.33'
+ -
+ class: Dist::Zilla::Plugin::DROLSKY::License
+ name: '@DROLSKY/DROLSKY::License'
+ version: '0.33'
+ -
+ class: Dist::Zilla::Plugin::DROLSKY::TidyAll
+ name: '@DROLSKY/DROLSKY::TidyAll'
+ version: '0.33'
+ -
+ class: Dist::Zilla::Plugin::Git::CheckFor::CorrectBranch
+ config:
+ Dist::Zilla::Role::Git::Repo:
+ repo_root: .
+ name: '@DROLSKY/Git::CheckFor::CorrectBranch'
+ version: '0.013'
+ -
+ class: Dist::Zilla::Plugin::Git::CheckFor::MergeConflicts
+ config:
+ Dist::Zilla::Role::Git::Repo:
+ repo_root: .
+ name: '@DROLSKY/Git::CheckFor::MergeConflicts'
+ version: '0.013'
+ -
+ class: Dist::Zilla::Plugin::Git::Contributors
+ config:
+ Dist::Zilla::Plugin::Git::Contributors:
+ include_authors: '0'
+ include_releaser: '1'
+ order_by: name
+ paths: []
+ name: '@DROLSKY/Git::Contributors'
+ version: '0.011'
+ -
+ class: Dist::Zilla::Plugin::InstallGuide
+ name: '@DROLSKY/InstallGuide'
+ version: '1.200006'
+ -
+ class: Dist::Zilla::Plugin::Meta::Contributors
+ name: '@DROLSKY/Meta::Contributors'
+ version: '0.002'
+ -
+ class: Dist::Zilla::Plugin::MetaConfig
+ name: '@DROLSKY/MetaConfig'
+ version: '5.036'
+ -
+ class: Dist::Zilla::Plugin::MetaJSON
+ name: '@DROLSKY/MetaJSON'
+ version: '5.036'
+ -
+ class: Dist::Zilla::Plugin::RewriteVersion
+ name: '@DROLSKY/RewriteVersion'
+ version: '0.009'
+ -
+ class: Dist::Zilla::Plugin::SurgicalPodWeaver
+ config:
+ Dist::Zilla::Plugin::PodWeaver:
+ finder:
+ - ':InstallModules'
+ - ':ExecFiles'
+ plugins:
+ -
+ class: Pod::Weaver::Plugin::EnsurePod5
+ name: '@CorePrep/EnsurePod5'
+ version: '4.010'
+ -
+ class: Pod::Weaver::Plugin::H1Nester
+ name: '@CorePrep/H1Nester'
+ version: '4.010'
+ -
+ class: Pod::Weaver::Section::Name
+ name: Name
+ version: '4.010'
+ -
+ class: Pod::Weaver::Section::Version
+ name: Version
+ version: '4.010'
+ -
+ class: Pod::Weaver::Section::Region
+ name: prelude
+ version: '4.010'
+ -
+ class: Pod::Weaver::Section::Generic
+ name: SYNOPSIS
+ version: '4.010'
+ -
+ class: Pod::Weaver::Section::Generic
+ name: DESCRIPTION
+ version: '4.010'
+ -
+ class: Pod::Weaver::Section::Leftovers
+ name: Leftovers
+ version: '4.010'
+ -
+ class: Pod::Weaver::Section::Region
+ name: postlude
+ version: '4.010'
+ -
+ class: Pod::Weaver::Section::Authors
+ name: Authors
+ version: '4.010'
+ -
+ class: Pod::Weaver::Section::Contributors
+ name: Contributors
+ version: '0.009'
+ -
+ class: Pod::Weaver::Section::Legal
+ name: Legal
+ version: '4.010'
+ name: '@DROLSKY/SurgicalPodWeaver'
+ version: '0.0023'
+ -
+ class: Dist::Zilla::Plugin::PodSyntaxTests
+ name: '@DROLSKY/PodSyntaxTests'
+ version: '5.036'
+ -
+ class: Dist::Zilla::Plugin::Test::CPAN::Changes
+ name: '@DROLSKY/Test::CPAN::Changes'
+ version: '0.009'
+ -
+ class: Dist::Zilla::Plugin::Test::Compile
+ config:
+ Dist::Zilla::Plugin::Test::Compile:
+ bail_out_on_fail: '0'
+ fail_on_warning: author
+ fake_home: '0'
+ filename: t/00-compile.t
+ module_finder:
+ - ':InstallModules'
+ needs_display: '0'
+ phase: test
+ script_finder:
+ - ':ExecFiles'
+ skips: []
+ name: '@DROLSKY/Test::Compile'
+ version: '2.052'
+ -
+ class: Dist::Zilla::Plugin::Test::EOL
+ config:
+ Dist::Zilla::Plugin::Test::EOL:
+ filename: xt/author/eol.t
+ finder:
+ - ':InstallModules'
+ - ':ExecFiles'
+ - ':TestFiles'
+ trailing_whitespace: '1'
+ name: '@DROLSKY/Test::EOL'
+ version: '0.18'
+ -
+ class: Dist::Zilla::Plugin::Test::NoTabs
+ config:
+ Dist::Zilla::Plugin::Test::NoTabs:
+ filename: xt/author/no-tabs.t
+ finder:
+ - ':InstallModules'
+ - ':ExecFiles'
+ - ':TestFiles'
+ name: '@DROLSKY/Test::NoTabs'
+ version: '0.14'
+ -
+ class: Dist::Zilla::Plugin::Test::Pod::LinkCheck
+ name: '@DROLSKY/Test::Pod::LinkCheck'
+ version: '1.001'
+ -
+ class: Dist::Zilla::Plugin::Test::Pod::No404s
+ name: '@DROLSKY/Test::Pod::No404s'
+ version: '1.001'
+ -
+ class: Dist::Zilla::Plugin::Test::Portability
+ name: '@DROLSKY/Test::Portability'
+ version: '2.000006'
+ -
+ class: Dist::Zilla::Plugin::Test::Synopsis
+ name: '@DROLSKY/Test::Synopsis'
+ version: '2.000006'
+ -
+ class: Dist::Zilla::Plugin::Test::TidyAll
+ name: '@DROLSKY/Test::TidyAll'
+ version: '0.01'
+ -
+ class: Dist::Zilla::Plugin::Git::Check
+ config:
+ Dist::Zilla::Plugin::Git::Check:
+ untracked_files: die
+ Dist::Zilla::Role::Git::DirtyFiles:
+ allow_dirty:
+ - README.md
+ - cpanfile
+ - Makefile.PL
+ - LICENSE
+ - Build.PL
+ - Changes
+ - CONTRIBUTING.md
+ allow_dirty_match: []
+ changelog: Changes
+ Dist::Zilla::Role::Git::Repo:
+ repo_root: .
+ name: '@DROLSKY/Git::Check'
+ version: '2.033'
+ -
+ class: Dist::Zilla::Plugin::Git::Commit
+ config:
+ Dist::Zilla::Plugin::Git::Commit:
+ add_files_in: []
+ commit_msg: v%v%n%n%c
+ time_zone: local
+ Dist::Zilla::Role::Git::DirtyFiles:
+ allow_dirty:
+ - README.md
+ - cpanfile
+ - Makefile.PL
+ - LICENSE
+ - Build.PL
+ - Changes
+ - CONTRIBUTING.md
+ allow_dirty_match: []
+ changelog: Changes
+ Dist::Zilla::Role::Git::Repo:
+ repo_root: .
+ name: '@DROLSKY/commit generated files'
+ version: '2.033'
+ -
+ class: Dist::Zilla::Plugin::Git::Tag
+ config:
+ Dist::Zilla::Plugin::Git::Tag:
+ branch: ~
+ signed: 0
+ tag: v0.11
+ tag_format: v%v
+ tag_message: v%v
+ time_zone: local
+ Dist::Zilla::Role::Git::Repo:
+ repo_root: .
+ name: '@DROLSKY/Git::Tag'
+ version: '2.033'
+ -
+ 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: '@DROLSKY/Git::Push'
+ version: '2.033'
+ -
+ class: Dist::Zilla::Plugin::BumpVersionAfterRelease
+ name: '@DROLSKY/BumpVersionAfterRelease'
+ version: '0.009'
+ -
+ class: Dist::Zilla::Plugin::Git::Commit
+ config:
+ Dist::Zilla::Plugin::Git::Commit:
+ add_files_in: []
+ commit_msg: 'Bump version after release'
+ time_zone: local
+ Dist::Zilla::Role::Git::DirtyFiles:
+ allow_dirty:
+ - dist.ini
+ - Changes
+ allow_dirty_match:
+ - (?^:.+)
+ changelog: Changes
+ Dist::Zilla::Role::Git::Repo:
+ repo_root: .
+ name: '@DROLSKY/commit version bump'
+ version: '2.033'
+ -
+ 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: '@DROLSKY/push version bump'
+ version: '2.033'
+ -
+ class: Dist::Zilla::Plugin::FinderCode
+ name: ':InstallModules'
+ version: '5.036'
+ -
+ class: Dist::Zilla::Plugin::FinderCode
+ name: ':IncModules'
+ version: '5.036'
+ -
+ class: Dist::Zilla::Plugin::FinderCode
+ name: ':TestFiles'
+ version: '5.036'
+ -
+ class: Dist::Zilla::Plugin::FinderCode
+ name: ':ExecFiles'
+ version: '5.036'
+ -
+ class: Dist::Zilla::Plugin::FinderCode
+ name: ':ShareFiles'
+ version: '5.036'
+ -
+ class: Dist::Zilla::Plugin::FinderCode
+ name: ':MainModule'
+ version: '5.036'
+ -
+ class: Dist::Zilla::Plugin::FinderCode
+ name: ':AllFiles'
+ version: '5.036'
+ -
+ class: Dist::Zilla::Plugin::FinderCode
+ name: ':NoFiles'
+ version: '5.036'
+ -
+ class: Dist::Zilla::Plugin::FinderCode
+ name: '@DROLSKY/MetaProvides::Package/AUTOVIV/:InstallModulesPM'
+ version: '5.036'
+ zilla:
+ class: Dist::Zilla::Dist::Builder
+ config:
+ is_trial: '0'
+ version: '5.036'
+x_authority: cpan:DROLSKY
+x_contributors:
+ - 'David Steinbrunner <dsteinbrunner@pobox.com>'
@@ -1,15 +1,62 @@
+# This file was automatically generated by Dist::Zilla::Plugin::MakeMaker v5.036.
+use strict;
+use warnings;
+
+use 5.006;
+
use ExtUtils::MakeMaker;
-# See lib/ExtUtils/MakeMaker.pm for details of how to influence
-# the contents of the Makefile that is written.
-WriteMakefile(
- NAME => 'Data::Validate::Domain',
- VERSION_FROM => 'lib/Data/Validate/Domain.pm', # finds $VERSION
- LICENSE => 'perl',
- PREREQ_PM => {
- Test::More => 0,
- Net::Domain::TLD => 1.62,
- }, # e.g., Module::Name => 1.1
- ($] >= 5.005 ? ## Add these new keywords supported since 5.005
- (ABSTRACT_FROM => 'lib/Data/Validate/Domain.pm', # retrieve abstract from module
- AUTHOR => 'Neil Neely <neil@neely.cx>') : ()),
+
+my %WriteMakefileArgs = (
+ "ABSTRACT" => "Domain and host name validation",
+ "AUTHOR" => "Neil Neely <neil\@neely.cx>, Dave Rolsky <autarch\@urth.org>",
+ "CONFIGURE_REQUIRES" => {
+ "ExtUtils::MakeMaker" => 0
+ },
+ "DISTNAME" => "Data-Validate-Domain",
+ "EXE_FILES" => [],
+ "LICENSE" => "perl",
+ "MIN_PERL_VERSION" => "5.006",
+ "NAME" => "Data::Validate::Domain",
+ "PREREQ_PM" => {
+ "Exporter" => 0,
+ "Net::Domain::TLD" => 0,
+ "strict" => 0,
+ "warnings" => 0
+ },
+ "TEST_REQUIRES" => {
+ "ExtUtils::MakeMaker" => 0,
+ "File::Spec" => 0,
+ "IO::Handle" => 0,
+ "IPC::Open3" => 0,
+ "Test::More" => "0.96"
+ },
+ "VERSION" => "0.11",
+ "test" => {
+ "TESTS" => "t/*.t"
+ }
);
+
+
+my %FallbackPrereqs = (
+ "Exporter" => 0,
+ "ExtUtils::MakeMaker" => 0,
+ "File::Spec" => 0,
+ "IO::Handle" => 0,
+ "IPC::Open3" => 0,
+ "Net::Domain::TLD" => 0,
+ "Test::More" => "0.96",
+ "strict" => 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);
@@ -1,250 +0,0 @@
-NAME
- Data::Validate::Domain - domain validation methods
-
-SYNOPSIS
- use Data::Validate::Domain qw(is_domain);
-
- # as a function
- my $test = is_domain($suspect);
- die "$test is not a domain" unless defined $test;
-
- or
-
- my $test = is_domain($suspect,\%options);
- die "$test is not a domain" unless defined $test;
-
- # or as an object
- my $v = Data::Validate::Domain->new(%options);
-
- my $test = $v->is_domain($suspect);
- die "$test is not a domain" unless defined $test;
-
-DESCRIPTION
- This module collects domain validation routines to make input
- validation, and untainting easier and more readable.
-
- All functions return an untainted value if the test passes, and undef if
- it fails. This means that you should always check for a defined status
- explicitly. Don't assume the return will be true. (e.g.
- is_username('0'))
-
- The value to test is always the first (and often only) argument.
-
-FUNCTIONS
- new - constructor for OO usage
- $obj = Data::Validate::Domain->new();
-
- my %options = (
- domain_allow_single_label => 1,
- domain_private_tld => {
- 'privatetld1 ' => 1,
- 'privatetld2' => 1,
- }
- );
-
- or
-
- my %options = (
- domain_allow_single_label => 1,
- domain_private_tld => qr /^(?:privatetld1|privatetld2)$/,
- );
-
- $obj = Data::Validate::Domain->new(%options);
-
- *Description*
- Returns a Data::Validator::Domain object. This lets you access
- all the validator function calls as methods without importing
- them into your namespace or using the clumsy
- Data::Validate::Domain::function_name() format.
-
- *Options*
-
- domain_allow_single_label
- By default is_domain will fail if you ask it to verify a
- domain that only has a single label i.e. 'neely.cx' is good,
- but 'com' would fail. If you set this option to a true value
- then is_domain will allow single label domains through. This
- is most likely to be useful in combination with
- domain_private_tld
-
- domain_private_tld
- By default is_domain requires all domains to have a valid
- TLD (i.e. com, net, org, uk, etc), this is verified using
- the Net::Domain::TLD module. This behavior can be extended
- in two different ways. Either a hash reference can be
- supplied keyed by the additional TLD's, or you can supply a
- precompiled regular expression.
-
- NOTE: The TLD is normalized to the lower case form prior to
- the check being done. This is done only for the TLD check,
- and does not alter the output in any way.
-
- The hash reference example:
-
- domain_private_tld => {
- 'privatetld1 ' => 1,
- 'privatetld2' => 1,
- }
-
- The precompiled regualar expression example:
-
- domain_private_tld => qr /^(?:privatetld1|privatetld2)$/,
-
- *Returns*
- Returns a Data::Validate::Domain object
-
- is_domain - does the value look like a domain name?
- is_domain($value);
- or
- $obj->is_domain($value);
- or
- is_domain($value,\%options);
- or
- $obj->is_domain($value,\%options);
-
- *Description*
- Returns the untainted domain name if the test value appears to
- be a well-formed domain name.
-
- Note: See new for list of options and how those alter the
- behavior of this funciton.
-
- *Arguments*
-
- $value
- The potential domain to test.
-
- *Returns*
- Returns the untainted domain on success, undef on failure.
-
- *Notes, Exceptions, & Bugs*
- The function does not make any attempt to check whether a domain
- actually exists. It only looks to see that the format is
- appropriate.
-
- A dotted quad (such as 127.0.0.1) is not considered a domain and
- will return false. See Data::Validate::IP(3) for IP Validation.
-
- Performs a lookup via Net::Domain::TLD to verify that the TLD is
- valid for this domain.
-
- Does not consider "domain.com." a valid format.
-
- *From RFC 952*
- A "name" (Net, Host, Gateway, or Domain name) is a text string up
- to 24 characters drawn from the alphabet (A-Z), digits (0-9), minus
- sign (-), and period (.). Note that periods are only allowed when
- they serve to delimit components of "domain style names".
-
- No blank or space characters are permitted as part of a
- name. No distinction is made between upper and lower case. The first
- character must be an alpha character [Relaxed in RFC 1123] . The last
- character must not be a minus sign or period.
-
- *From RFC 1035*
- labels 63 octets or less
- names 255 octets or less
-
- [snip] limit the label to 63 octets or less.
-
- To simplify implementations, the total length of a domain name (i.e.,
- label octets and label length octets) is restricted to 255 octets or
- less.
-
- *From RFC 1123*
- One aspect of host name syntax is hereby changed: the
- restriction on the first character is relaxed to allow either a
- letter or a digit. Host software MUST support this more liberal
- syntax.
-
- Host software MUST handle host names of up to 63 characters and
- SHOULD handle host names of up to 255 characters.
-
- is_hostname - does the value look like a hostname
- is_hostname($value);
- or
- $obj->is_hostname($value);
- or
- is_hostname($value,\%options);
- or
- $obj->is_hostname($value,\%options);
-
- *Description*
- Returns the untainted hostname if the test value appears to be a
- well-formed hostname.
-
- Note: See new for list of options and how those alter the
- behavior of this funciton.
-
- *Arguments*
-
- $value
- The potential hostname to test.
-
- *Returns*
- Returns the untainted hostname on success, undef on failure.
-
- *Notes, Exceptions, & Bugs*
- The function does not make any attempt to check whether a
- hostname actually exists. It only looks to see that the format
- is appropriate.
-
- Functions much like is_domain, except that it does not verify
- whether or not a valid TLD has been supplied and allows for
- there to only be a single component of the hostname (i.e www)
-
- Hostnames might or might not have a valid TLD attached.
-
- is_domain_label - does the value look like a domain label?
- is_domain_label($value);
- or
- $obj->is_domain_label($value);
- or
- is_domain_label($value,\%options);
- or
- $obj->is_domain_label($value,\%options);
-
- *Description*
- Returns the untainted domain label if the test value appears to
- be a well-formed domain label.
-
- Note: See new for list of options and how those alter the
- behavior of this funciton.
-
- *Arguments*
-
- $value
- The potential ip to test.
-
- *Returns*
- Returns the untainted domain label on success, undef on failure.
-
- *Notes, Exceptions, & Bugs*
- The function does not make any attempt to check whether a domain
- label actually exists. It only looks to see that the format is
- appropriate.
-
-SEE ALSO
- [RFC 1034] [RFC 1035] [RFC 2181] [RFC 1123]
-
- Data::Validate(3)
- Data::Validate::IP(3)
-
-AUTHOR
- Neil Neely <neil@neely.cx>.
-
-ACKNOWLEDGEMENTS
- Thanks to Richard Sonnen <sonnen@richardsonnen.com> for writing the
- Data::Validate module.
-
- Thanks to Len Reed <lreed@levanta.com> for helping develop the
- options mechanism for Data::Validate modules.
-
-COPYRIGHT AND LICENSE
- Copyright (c) 2005-2006 Neil Neely.
-
- This library is free software; you can redistribute it and/or modify
- it under the same terms as Perl itself, either Perl version 5.8.2
- or, at your option, any later version of Perl 5 you may have
- available.
-
@@ -0,0 +1,192 @@
+NAME
+
+ Data::Validate::Domain - Domain and host name validation
+
+VERSION
+
+ version 0.11
+
+SYNOPSIS
+
+ use Data::Validate::Domain qw(is_domain);
+
+ # as a function
+ my $test = is_domain($suspect);
+ die "$test is not a domain" unless $test;
+
+ # or
+
+ die "$test is not a domain" unless is_domain($suspect, \%options);
+
+ # or as an object
+ my $v = Data::Validate::Domain->new(%options);
+
+ die "$test is not a domain" unless $v->is_domain($suspect);
+
+DESCRIPTION
+
+ This module offers a few subroutines for validating domain and host
+ names.
+
+FUNCTIONS
+
+ All of the functions below are exported by default.
+
+ All of the functions return an untainted value on success and a false
+ value (undef or an empty list) on failure. In scalar context, you
+ should check that the return value is defined, because something like
+ is_domain_label('0') will return a defined but false value.
+
+ The value to test is always the first (and often only) argument.
+
+ Note that none of these functions test whether a domain or hostname is
+ actually resolvable or reachable.
+
+ Data::Validate::Domain->new()
+
+ This method constructs a validation object. It accepts the following
+ arguments:
+
+ * domain_allow_underscore
+
+ According to RFC underscores are forbidden in hostnames but not
+ domain names. By default is_domain(), is_domain_label(), and
+ is_hostname() will fail if the value to be checked includes
+ underscores. Setting this to a true value with allow the use of
+ underscores in all functions.
+
+ * domain_allow_single_label
+
+ By default is_domain() will fail if you ask it to verify a domain
+ that only has a single label i.e. "neely.cx" is good, but "com" would
+ fail. If you set this option to a true value then is_domain() will
+ allow single label domains through. This is most likely to be useful
+ in combination with the domain_private_tld argument.
+
+ * domain_private_tld
+
+ By default is_domain() requires all domains to have a valid public
+ TLD (i.e. com, net, org, uk, etc). This is verified using the
+ Net::Domain::TLD module. This behavior can be extended in two
+ different ways. You can provide either a hash reference where
+ additional TLDs are keys or you can supply a regular expression.
+
+ NOTE: The TLD is normalized to the lower case form prior to the check
+ being done. This is done only for the TLD check, and does not alter
+ the output in any way.
+
+ Hashref example:
+
+ domain_private_tld => {
+ privatetld1 => 1,
+ privatetld2 => 1,
+ }
+
+ Regular expression example:
+
+ domain_private_tld => qr /^(?:privatetld1|privatetld2)$/,
+
+ is_domain($domain, \%options)
+
+ This can be called as either a subroutine or a method. If called as a
+ sub, you can pass any of the arguments accepted by the constructor as
+ options. If called as a method, any additional options are ignored.
+
+ This returns the untainted domain name if the given $domain is a valid
+ domain.
+
+ A dotted quad (such as 127.0.0.1) is not considered a domain and will
+ return false. See Data::Validate::IP for IP Validation.
+
+ This sub does not consider a value ending a period (i.e. "domain.com.")
+ to be a valid domain.
+
+ From RFC 952
+
+ A "name" (Net, Host, Gateway, or Domain name) is a text string up
+ to 24 characters drawn from the alphabet (A-Z), digits (0-9), minus
+ sign (-), and period (.). Note that periods are only allowed when
+ they serve to delimit components of "domain style names".
+
+ No blank or space characters are permitted as part of a
+ name. No distinction is made between upper and lower case. The first
+ character must be an alpha character [Relaxed in RFC 1123] . The last
+ character must not be a minus sign or period.
+
+ From RFC 1035
+
+ labels 63 octets or less
+ names 255 octets or less
+
+ [snip] limit the label to 63 octets or less.
+
+ To simplify implementations, the total length of a domain name (i.e.,
+ label octets and label length octets) is restricted to 255 octets or
+ less.
+
+ From RFC 1123
+
+ One aspect of host name syntax is hereby changed: the
+ restriction on the first character is relaxed to allow either a
+ letter or a digit. Host software MUST support this more liberal
+ syntax.
+
+ Host software MUST handle host names of up to 63 characters and
+ SHOULD handle host names of up to 255 characters.
+
+ is_hostname($hostname, \%options)
+
+ This can be called as either a subroutine or a method. If called as a
+ sub, you can pass any of the arguments accepted by the constructor as
+ options. If called as a method, any additional options are ignored.
+
+ This returns the untainted hostname if the given $hostname is a valid
+ hostname.
+
+ Hostnames are not required to end in a valid TLD.
+
+ is_domain_label($label, \%options)
+
+ This can be called as either a subroutine or a method. If called as a
+ sub, you can pass any of the arguments accepted by the constructor as
+ options. If called as a method, any additional options are ignored.
+
+ This returns the untainted label if the given $label is a valid label.
+
+ A domain label is simply a single piece of a domain or hostname. For
+ example, the "www.foo.com" hostname contains the labels "www", "foo",
+ and "com".
+
+SEE ALSO
+
+ [RFC 1034] [RFC 1035] [RFC 2181] [RFC 1123]
+
+ Data::Validate
+
+ Data::Validate::IP
+
+ACKNOWLEDGEMENTS
+
+ Thanks to Richard Sonnen <sonnen@richardsonnen.com> for writing the
+ Data::Validate module.
+
+ Thanks to Len Reed <lreed@levanta.com> for helping develop the options
+ mechanism for Data::Validate modules.
+
+AUTHORS
+
+ * Neil Neely <neil@neely.cx>
+
+ * Dave Rolsky <autarch@urth.org>
+
+CONTRIBUTOR
+
+ David Steinbrunner <dsteinbrunner@pobox.com>
+
+COPYRIGHT AND LICENSE
+
+ This software is copyright (c) 2015 by Neil Neely.
+
+ This is free software; you can redistribute it and/or modify it under
+ the same terms as the Perl 5 programming language system itself.
+
@@ -0,0 +1,38 @@
+requires "Exporter" => "0";
+requires "Net::Domain::TLD" => "0";
+requires "strict" => "0";
+requires "warnings" => "0";
+
+on 'test' => sub {
+ requires "ExtUtils::MakeMaker" => "0";
+ requires "File::Spec" => "0";
+ requires "IO::Handle" => "0";
+ requires "IPC::Open3" => "0";
+ requires "Test::More" => "0.96";
+ requires "perl" => "5.006";
+};
+
+on 'test' => sub {
+ recommends "CPAN::Meta" => "2.120900";
+};
+
+on 'configure' => sub {
+ requires "ExtUtils::MakeMaker" => "0";
+};
+
+on 'develop' => sub {
+ requires "Code::TidyAll" => "0.24";
+ requires "Perl::Critic" => "1.123";
+ requires "Perl::Tidy" => "20140711";
+ requires "Pod::Coverage::TrustPod" => "0";
+ requires "Test::CPAN::Changes" => "0.19";
+ requires "Test::Code::TidyAll" => "0.24";
+ requires "Test::EOL" => "0";
+ requires "Test::More" => "0.88";
+ requires "Test::NoTabs" => "0";
+ requires "Test::Pod" => "1.41";
+ requires "Test::Pod::Coverage" => "1.08";
+ requires "Test::Spelling" => "0.12";
+ requires "Test::Synopsis" => "0";
+ requires "Test::Version" => "1";
+};
@@ -0,0 +1,15 @@
+name = Data-Validate-Domain
+author = Neil Neely <neil@neely.cx>
+author = Dave Rolsky <autarch@urth.org>
+license = Perl_5
+copyright_holder = Neil Neely
+
+[@DROLSKY]
+dist = Data-Validate-Domain
+stopwords = Sonnen
+stopwords = TLD
+stopwords = TLDs
+stopwords = cx
+stopwords = neely
+stopwords = uk
+stopwords = www
@@ -5,236 +5,270 @@ use warnings;
use Net::Domain::TLD qw(tld_exists);
-require Exporter;
-
-our @ISA = qw(Exporter);
-
-# Items to export into callers namespace by default. Note: do not export
-# names by default without a very good reason. Use EXPORT_OK instead.
-# Do not simply export all your public functions/methods/constants.
-
-# This allows declaration use Data::Validate::Domain ':all';
-# If you do not need this, moving things directly into @EXPORT or @EXPORT_OK
-# will save memory.
-our %EXPORT_TAGS = ( 'all' => [ qw(
-
-) ] );
-
-our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
+use Exporter qw( import );
+## no critic (Modules::ProhibitAutomaticExportation)
our @EXPORT = qw(
- is_domain
- is_hostname
- is_domain_label
+ is_domain
+ is_hostname
+ is_domain_label
);
-our $VERSION = '0.10';
-
-
-
-=head1 NAME
-
-Data::Validate::Domain - domain validation methods
-
-=head1 SYNOPSIS
-
- use Data::Validate::Domain qw(is_domain);
-
- # as a function
- my $test = is_domain($suspect);
- die "$test is not a domain" unless defined $test;
-
- or
-
- my $test = is_domain($suspect,\%options);
- die "$test is not a domain" unless defined $test;
-
-
- # or as an object
- my $v = Data::Validate::Domain->new(%options);
+our $VERSION = '0.11';
- my $test = $v->is_domain($suspect);
- die "$test is not a domain" unless defined $test;
+sub new {
+ my $class = shift;
-=head1 DESCRIPTION
-
-This module collects domain validation routines to make input validation,
-and untainting easier and more readable.
-
-All functions return an untainted value if the test passes, and undef if
-it fails. This means that you should always check for a defined status explicitly.
-Don't assume the return will be true. (e.g. is_username('0'))
-
-The value to test is always the first (and often only) argument.
-
-=head1 FUNCTIONS
-
-=over 4
-
-=item B<new> - constructor for OO usage
-
- $obj = Data::Validate::Domain->new();
- my %options = (
- domain_allow_underscore => 1,
- );
-
- or
-
- my %options = (
- domain_allow_single_label => 1,
- domain_private_tld => {
- 'privatetld1 ' => 1,
- 'privatetld2' => 1,
- }
- );
-
- or
+ return bless {@_}, ref($class) || $class;
+}
- my %options = (
- domain_allow_single_label => 1,
- domain_private_tld => qr /^(?:privatetld1|privatetld2)$/,
- );
+# -------------------------------------------------------------------------------
+sub is_domain {
+ my ( $value, $opt ) = _maybe_oo(@_);
+
+ return unless defined($value);
+
+ my $length = length($value);
+ return unless ( $length > 0 && $length <= 255 );
+
+ my @bits;
+ foreach my $label ( split /\./, $value, -1 ) {
+ my $bit = is_domain_label( $label, $opt );
+ return unless defined $bit;
+ push( @bits, $bit );
+ }
+ my $tld = $bits[-1];
+
+ #domain_allow_single_label set to true disables this check
+ unless ( defined $opt && $opt->{domain_allow_single_label} ) {
+
+ #All domains have more then 1 label (neely.cx good, com not good)
+ return unless ( @bits >= 2 );
+ }
+
+ #If the option to enable domain_private_tld is enabled
+ #and a private domain is specified, then we return if that matches
+
+ if ( defined $opt
+ && exists $opt->{domain_private_tld}
+ && ref( $opt->{domain_private_tld} ) ) {
+ my $lc_tld = lc($tld);
+ if ( ref( $opt->{domain_private_tld} ) eq 'HASH' ) {
+ if ( exists $opt->{domain_private_tld}->{$lc_tld} ) {
+ return join( '.', @bits );
+ }
+ }
+ else {
+ if ( $tld =~ $opt->{domain_private_tld} ) {
+ return join( '.', @bits );
+ }
+ }
+ }
+
+ #Verify domain has a valid TLD
+ return unless tld_exists($tld);
+
+ return join( '.', @bits );
+}
+# -------------------------------------------------------------------------------
+sub is_hostname {
+ my ( $value, $opt ) = _maybe_oo(@_);
- $obj = Data::Validate::Domain->new(%options);
+ return unless defined($value);
+ my $length = length($value);
+ return unless ( $length > 0 && $length <= 255 );
-=over 4
+ # return is_domain_label($value) unless $value =~ /\./; #If just a simple hostname
-=item I<Description>
+ #Anything past here has multiple bits in it
+ my @bits;
+ foreach my $label ( split /\./, $value, -1 ) {
+ my $bit = is_domain_label( $label, $opt );
+ return unless defined $bit;
+ push( @bits, $bit );
+ }
-Returns a Data::Validator::Domain object. This lets you access all the validator function
-calls as methods without importing them into your namespace or using the clumsy
-Data::Validate::Domain::function_name() format.
+ #We do not verify TLD for hostnames, as hostname.subhost is a valid hostname
-=item I<Options>
+ return join( '.', @bits );
-=over 4
+}
-=item B<domain_allow_underscore>
+sub is_domain_label {
+ my ( $value, $opt ) = _maybe_oo(@_);
+
+ return unless defined($value);
+
+ #Fix Bug: 41033
+ return if ( $value =~ /\n/ );
+
+ # bail if we are dealing with more then just a hostname
+ return if ( $value =~ /\./ );
+ my $length = length($value);
+ my $hostname;
+ if ( $length == 1 ) {
+ if ( defined $opt && $opt->{domain_allow_underscore} ) {
+ ($hostname) = $value =~ /^([0-9A-Za-z\_])$/;
+ }
+ else {
+ ($hostname) = $value =~ /^([0-9A-Za-z])$/;
+ }
+ }
+ elsif ( $length > 1 && $length <= 63 ) {
+ if ( defined $opt && $opt->{domain_allow_underscore} ) {
+ ($hostname)
+ = $value =~ /^([0-9A-Za-z\_][0-9A-Za-z\-\_]*[0-9A-Za-z])$/;
+ }
+ else {
+ ($hostname)
+ = $value =~ /^([0-9A-Za-z][0-9A-Za-z\-]*[0-9A-Za-z])$/;
+ }
+ }
+ else {
+ return;
+ }
+ return $hostname;
+}
-According to RFC underscores are forbidden in "hostnames" but not "domainnames".
-By default is_domain,is_domain_label, and is_hostname will fail if you include underscores, setting
-this to a true value with authorize the use of underscores in all functions.
+sub _maybe_oo {
+ if ( ref $_[0] ) {
+ return @_[ 1, 0 ];
+ }
+ else {
+ return @_[ 0, 1 ];
+ }
+}
-=item B<domain_allow_single_label>
+1;
-By default is_domain will fail if you ask it to verify a domain that only has a single label
-i.e. 'neely.cx' is good, but 'com' would fail. If you set this option to a true value then
-is_domain will allow single label domains through. This is most likely to be useful in
-combination with B<domain_private_tld>
+# ABSTRACT: Domain and host name validation
-=item B<domain_private_tld>
+__END__
-By default is_domain requires all domains to have a valid TLD (i.e. com, net, org, uk, etc),
-this is verified using the Net::Domain::TLD module. This behavior can be extended in two
-different ways. Either a hash reference can be supplied keyed by the additional TLD's, or you
-can supply a precompiled regular expression.
+=pod
-NOTE: The TLD is normalized to the lower case form prior to the check being done. This is
-done only for the TLD check, and does not alter the output in any way.
+=head1 NAME
- The hash reference example:
+Data::Validate::Domain - Domain and host name validation
- domain_private_tld => {
- 'privatetld1 ' => 1,
- 'privatetld2' => 1,
- }
+=head1 VERSION
- The precompiled regualar expression example:
+version 0.11
- domain_private_tld => qr /^(?:privatetld1|privatetld2)$/,
+=head1 SYNOPSIS
+ use Data::Validate::Domain qw(is_domain);
+ # as a function
+ my $test = is_domain($suspect);
+ die "$test is not a domain" unless $test;
-=back
+ # or
-=item I<Returns>
+ die "$test is not a domain" unless is_domain($suspect, \%options);
-Returns a Data::Validate::Domain object
+ # or as an object
+ my $v = Data::Validate::Domain->new(%options);
-=back
+ die "$test is not a domain" unless $v->is_domain($suspect);
-=cut
+=head1 DESCRIPTION
+This module offers a few subroutines for validating domain and host names.
+=for test_synopsis my ($suspect, %options);
+=head1 FUNCTIONS
-sub new{
- my $class = shift;
+All of the functions below are exported by default.
- my $self = bless {}, ref($class) || $class;
+All of the functions return an untainted value on success and a false value
+(C<undef> or an empty list) on failure. In scalar context, you should check
+that the return value is defined, because something like
+C<is_domain_label('0')> will return a defined but false value.
- %{$self} = @_;
-
- return $self;
-}
+The value to test is always the first (and often only) argument.
+Note that none of these functions test whether a domain or hostname is
+actually resolvable or reachable.
+=head2 Data::Validate::Domain->new()
-# -------------------------------------------------------------------------------
+This method constructs a validation object. It accepts the following arguments:
-=pod
+=over 4
-=item B<is_domain> - does the value look like a domain name?
+=item * domain_allow_underscore
- is_domain($value);
- or
- $obj->is_domain($value);
- or
- is_domain($value,\%options);
- or
- $obj->is_domain($value,\%options);
+According to RFC underscores are forbidden in hostnames but not domain names.
+By default C<is_domain()>, C<is_domain_label()>, and C<is_hostname()> will
+fail if the value to be checked includes underscores. Setting this to a true
+value with allow the use of underscores in all functions.
+=item * domain_allow_single_label
-=over 4
+By default C<is_domain()> will fail if you ask it to verify a domain that only
+has a single label i.e. "neely.cx" is good, but "com" would fail. If you set
+this option to a true value then C<is_domain()> will allow single label
+domains through. This is most likely to be useful in combination with
+the C<domain_private_tld> argument.
-=item I<Description>
+=item * domain_private_tld
-Returns the untainted domain name if the test value appears to be a well-formed
-domain name.
+By default C<is_domain()> requires all domains to have a valid public TLD
+(i.e. com, net, org, uk, etc). This is verified using the L<Net::Domain::TLD>
+module. This behavior can be extended in two different ways. You can provide
+either a hash reference where additional TLDs are keys or you can supply a
+regular expression.
-Note: See B<new> for list of options and how those alter the behavior of this
-funciton.
+NOTE: The TLD is normalized to the lower case form prior to the check being
+done. This is done only for the TLD check, and does not alter the output in
+any way.
-=item I<Arguments>
+Hashref example:
-=over 4
+ domain_private_tld => {
+ privatetld1 => 1,
+ privatetld2 => 1,
+ }
-=item $value
+Regular expression example:
-The potential domain to test.
+ domain_private_tld => qr /^(?:privatetld1|privatetld2)$/,
=back
-=item I<Returns>
-
-Returns the untainted domain on success, undef on failure.
+=head2 is_domain($domain, \%options)
-=item I<Notes, Exceptions, & Bugs>
+This can be called as either a subroutine or a method. If called as a sub, you
+can pass any of the arguments accepted by the constructor as options. If
+called as a method, any additional options are ignored.
-The function does not make any attempt to check whether a domain
-actually exists. It only looks to see that the format is appropriate.
+This returns the untainted domain name if the given C<$domain> is a valid
+domain.
A dotted quad (such as 127.0.0.1) is not considered a domain and will return false.
-See L<Data::Validate::IP(3)> for IP Validation.
+See L<Data::Validate::IP> for IP Validation.
-Performs a lookup via Net::Domain::TLD to verify that the TLD is valid for this domain.
+This sub does not consider a value ending a period (i.e. "domain.com.") to be
+a valid domain.
-Does not consider "domain.com." a valid format.
+=over 4
=item I<From RFC 952>
A "name" (Net, Host, Gateway, or Domain name) is a text string up
to 24 characters drawn from the alphabet (A-Z), digits (0-9), minus
- sign (-), and period (.). Note that periods are only allowed when
+ sign (-), and period (.). Note that periods are only allowed when
they serve to delimit components of "domain style names".
No blank or space characters are permitted as part of a
- name. No distinction is made between upper and lower case. The first
- character must be an alpha character [Relaxed in RFC 1123] . The last
+ name. No distinction is made between upper and lower case. The first
+ character must be an alpha character [Relaxed in RFC 1123] . The last
character must not be a minus sign or period.
=item I<From RFC 1035>
@@ -252,270 +286,80 @@ Does not consider "domain.com." a valid format.
One aspect of host name syntax is hereby changed: the
restriction on the first character is relaxed to allow either a
- letter or a digit. Host software MUST support this more liberal
+ letter or a digit. Host software MUST support this more liberal
syntax.
Host software MUST handle host names of up to 63 characters and
SHOULD handle host names of up to 255 characters.
-
=back
-=cut
-
-sub is_domain {
- my $self = shift if ref($_[0]);
- my $value = shift;
-
-
- return unless defined($value);
-
- my $opt = (defined $self)?$self:(shift);
-
- my $length = length($value);
- return unless ($length > 0 && $length <= 255);
-
- my @bits;
- foreach my $label (split('\.', $value, -1)) {
- my $bit = is_domain_label($label,$opt);
- return unless defined $bit;
- push(@bits, $bit);
- }
- my $tld = $bits[$#bits];
-
- #domain_allow_single_label set to true disables this check
- unless (defined $opt && $opt->{domain_allow_single_label}) {
- #All domains have more then 1 label (neely.cx good, com not good)
- return unless (@bits >= 2);
- }
-
- #If the option to enable domain_private_tld is enabled
- #and a private domain is specified, then we return if that matches
-
- if (defined $opt && exists $opt->{domain_private_tld} && ref($opt->{domain_private_tld})) {
- my $lc_tld = lc($tld);
- if (ref($opt->{domain_private_tld}) eq 'HASH') {
- if (exists $opt->{domain_private_tld}->{$lc_tld}) {
- return join('.', @bits);
- }
- } else {
- if ($tld =~ $opt->{domain_private_tld}) {
- return join('.', @bits);
- }
- }
- }
-
-
- #Verify domain has a valid TLD
- return unless tld_exists($tld);
-
- return join('.', @bits);
-}
-
-# -------------------------------------------------------------------------------
+=head2 is_hostname($hostname, \%options)
-=pod
+This can be called as either a subroutine or a method. If called as a sub, you
+can pass any of the arguments accepted by the constructor as options. If
+called as a method, any additional options are ignored.
-=item B<is_hostname> - does the value look like a hostname
+This returns the untainted hostname if the given C<$hostname> is a valid
+hostname.
- is_hostname($value);
- or
- $obj->is_hostname($value);
- or
- is_hostname($value,\%options);
- or
- $obj->is_hostname($value,\%options);
+Hostnames are not required to end in a valid TLD.
+=head2 is_domain_label($label, \%options)
-=over 4
+This can be called as either a subroutine or a method. If called as a sub, you
+can pass any of the arguments accepted by the constructor as options. If
+called as a method, any additional options are ignored.
-=item I<Description>
+This returns the untainted label if the given C<$label> is a valid
+label.
-Returns the untainted hostname if the test value appears to be a well-formed
-hostname.
+A domain label is simply a single piece of a domain or hostname. For example,
+the "www.foo.com" hostname contains the labels "www", "foo", and "com".
-Note: See B<new> for list of options and how those alter the behavior of this
-funciton.
+=head1 SEE ALSO
-=item I<Arguments>
+B<[RFC 1034] [RFC 1035] [RFC 2181] [RFC 1123]>
=over 4
-=item $value
+=item L<Data::Validate>
-The potential hostname to test.
+=item L<Data::Validate::IP>
=back
-=item I<Returns>
-
-Returns the untainted hostname on success, undef on failure.
-
-=item I<Notes, Exceptions, & Bugs>
-
-The function does not make any attempt to check whether a hostname
-actually exists. It only looks to see that the format is appropriate.
-
-Functions much like is_domain, except that it does not verify whether or
-not a valid TLD has been supplied and allows for there to only
-be a single component of the hostname (i.e www)
-
-Hostnames might or might not have a valid TLD attached.
-
-=back
-
-=cut
-
-sub is_hostname {
- my $self = shift if ref($_[0]);
- my $value = shift;
-
- return unless defined($value);
-
- my $opt = (defined $self)?$self:(shift);
+=head1 ACKNOWLEDGEMENTS
- my $length = length($value);
- return unless ($length > 0 && $length <= 255);
-
-# return is_domain_label($value) unless $value =~ /\./; #If just a simple hostname
-
- #Anything past here has multiple bits in it
- my @bits;
- foreach my $label (split('\.', $value, -1)) {
- my $bit = is_domain_label($label,$opt);
- return unless defined $bit;
- push(@bits, $bit);
- }
-
- #We do not verify TLD for hostnames, as hostname.subhost is a valid hostname
-
- return join('.', @bits);
-
-}
-
-=pod
-
-=item B<is_domain_label> - does the value look like a domain label?
+Thanks to Richard Sonnen <F<sonnen@richardsonnen.com>> for writing the Data::Validate module.
- is_domain_label($value);
- or
- $obj->is_domain_label($value);
- or
- is_domain_label($value,\%options);
- or
- $obj->is_domain_label($value,\%options);
+Thanks to Len Reed <F<lreed@levanta.com>> for helping develop the options mechanism for Data::Validate modules.
+=head1 AUTHORS
=over 4
-=item I<Description>
-
-Returns the untainted domain label if the test value appears to be a well-formed
-domain label.
-
-Note: See B<new> for list of options and how those alter the behavior of this
-funciton.
+=item *
-=item I<Arguments>
-
-=over 4
+Neil Neely <neil@neely.cx>
-=item $value
+=item *
-The potential ip to test.
+Dave Rolsky <autarch@urth.org>
=back
-=item I<Returns>
+=head1 CONTRIBUTOR
-Returns the untainted domain label on success, undef on failure.
-
-=item I<Notes, Exceptions, & Bugs>
-
-The function does not make any attempt to check whether a domain label
-actually exists. It only looks to see that the format is appropriate.
-
-=cut
+=for stopwords David Steinbrunner
-
-sub is_domain_label {
- my $self = shift if ref($_[0]);
- my $value = shift;
-
- return unless defined($value);
-
- #Fix Bug: 41033
- return if ($value =~ /\n/);
-
- my $opt = (defined $self)?$self:(shift);
-
- # bail if we are dealing with more then just a hostname
- return if ($value =~ /\./);
- my $length = length($value);
- my $hostname;
- if ($length == 1) {
- if (defined $opt && $opt->{domain_allow_underscore}) {
- ($hostname) = $value =~ /^([\dA-Za-z\_])$/;
- } else {
- ($hostname) = $value =~ /^([\dA-Za-z])$/;
- }
- } elsif ($length > 1 && $length <= 63) {
- if (defined $opt && $opt->{domain_allow_underscore}) {
- ($hostname) = $value =~ /^([\dA-Za-z\_][\dA-Za-z\-\_]*[\dA-Za-z])$/;
- } else {
- ($hostname) = $value =~ /^([\dA-Za-z][\dA-Za-z\-]*[\dA-Za-z])$/;
- }
- } else {
- return;
- }
- return $hostname;
-}
-
-1;
-__END__
-#
-
-
-
-# -------------------------------------------------------------------------------
-
-=pod
-
-
-=back
-
-=back
-
-=head1 SEE ALSO
-
-B<[RFC 1034] [RFC 1035] [RFC 2181] [RFC 1123]>
-
-=over 4
-
-=item L<Data::Validate(3)>
-
-=item L<Data::Validate::IP(3)>
-
-=back
-
-
-=head1 AUTHOR
-
-Neil Neely <F<neil@neely.cx>>.
-
-=head1 ACKNOWLEDGEMENTS
-
-Thanks to Richard Sonnen <F<sonnen@richardsonnen.com>> for writing the Data::Validate module.
-
-Thanks to Len Reed <F<lreed@levanta.com>> for helping develop the options mechanism for Data::Validate modules.
+David Steinbrunner <dsteinbrunner@pobox.com>
=head1 COPYRIGHT AND LICENSE
-Copyright (c) 2005-2007 Neil Neely.
-
-This library is free software; you can redistribute it and/or modify
-it under the same terms as Perl itself, either Perl version 5.8.2 or,
-at your option, any later version of Perl 5 you may have available.
+This software is copyright (c) 2015 by Neil Neely.
+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
@@ -0,0 +1,61 @@
+severity = 3
+verbose = 11
+theme = core + pbp + bugs + maintenance + cosmetic + complexity + security + tests + moose
+
+exclude = Subroutines::ProhibitCallsToUndeclaredSubs
+
+[BuiltinFunctions::ProhibitStringySplit]
+severity = 3
+
+[CodeLayout::RequireTrailingCommas]
+severity = 3
+
+[ControlStructures::ProhibitCStyleForLoops]
+severity = 3
+
+[InputOutput::RequireCheckedSyscalls]
+functions = :builtins
+exclude_functions = sleep
+severity = 3
+
+[RegularExpressions::ProhibitComplexRegexes]
+max_characters = 200
+
+[RegularExpressions::ProhibitUnusualDelimiters]
+severity = 3
+
+[Subroutines::ProhibitUnusedPrivateSubroutines]
+private_name_regex = _(?!build)\w+
+
+[TestingAndDebugging::ProhibitNoWarnings]
+allow = redefine
+
+[ValuesAndExpressions::ProhibitEmptyQuotes]
+severity = 3
+
+[ValuesAndExpressions::ProhibitInterpolationOfLiterals]
+severity = 3
+
+[ValuesAndExpressions::RequireUpperCaseHeredocTerminator]
+severity = 3
+
+[Variables::ProhibitPackageVars]
+add_packages = Carp Test::Builder
+
+[-ControlStructures::ProhibitNegativeExpressionsInUnlessAndUntilConditions]
+
+[-Subroutines::RequireFinalReturn]
+
+[-ErrorHandling::RequireCarping]
+
+# No need for /xsm everywhere
+[-RegularExpressions::RequireDotMatchAnything]
+[-RegularExpressions::RequireExtendedFormatting]
+[-RegularExpressions::RequireLineBoundaryMatching]
+
+# http://stackoverflow.com/questions/2275317/why-does-perlcritic-dislike-using-shift-to-populate-subroutine-variables
+[-Subroutines::RequireArgUnpacking]
+
+# "use v5.14" is more readable than "use 5.014"
+[-ValuesAndExpressions::ProhibitVersionStrings]
+
@@ -0,0 +1,22 @@
+-l=78
+-i=4
+-ci=4
+-se
+-b
+-bar
+-boc
+-vt=0
+-vtc=0
+-cti=0
+-pt=1
+-bt=1
+-sbt=1
+-bbt=1
+-nolq
+-npro
+-nsfs
+--blank-lines-before-packages=0
+--opening-hash-brace-right
+--no-outdent-long-comments
+--iterations=2
+-wbb="% + - * / x != == >= <= =~ !~ < > | & >= < = **= += *= &= <<= &&= -= /= |= >>= ||= .= %= ^= x="
@@ -0,0 +1,51 @@
+use 5.006;
+use strict;
+use warnings;
+
+# this test was generated with Dist::Zilla::Plugin::Test::Compile 2.052
+
+use Test::More;
+
+plan tests => 1 + ($ENV{AUTHOR_TESTING} ? 1 : 0);
+
+my @module_files = (
+ 'Data/Validate/Domain.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");
+
+ if (@_warnings)
+ {
+ warn @_warnings;
+ push @warnings, @_warnings;
+ }
+}
+
+
+
+is(scalar(@warnings), 0, 'no warnings found')
+ or diag 'got warnings: ', ( Test::More->can('explain') ? Test::More::explain(\@warnings) : join("\n", '', @warnings) ) if $ENV{AUTHOR_TESTING};
+
+
@@ -0,0 +1,48 @@
+do { my $x = {
+ 'configure' => {
+ 'requires' => {
+ 'ExtUtils::MakeMaker' => '0'
+ }
+ },
+ 'develop' => {
+ 'requires' => {
+ 'Code::TidyAll' => '0.24',
+ 'Perl::Critic' => '1.123',
+ 'Perl::Tidy' => '20140711',
+ 'Pod::Coverage::TrustPod' => '0',
+ 'Test::CPAN::Changes' => '0.19',
+ 'Test::Code::TidyAll' => '0.24',
+ 'Test::EOL' => '0',
+ 'Test::More' => '0.88',
+ 'Test::NoTabs' => '0',
+ 'Test::Pod' => '1.41',
+ 'Test::Pod::Coverage' => '1.08',
+ 'Test::Spelling' => '0.12',
+ 'Test::Synopsis' => '0',
+ 'Test::Version' => '1'
+ }
+ },
+ 'runtime' => {
+ 'requires' => {
+ 'Exporter' => '0',
+ 'Net::Domain::TLD' => '0',
+ 'strict' => '0',
+ 'warnings' => '0'
+ }
+ },
+ 'test' => {
+ 'recommends' => {
+ 'CPAN::Meta' => '2.120900'
+ },
+ 'requires' => {
+ 'ExtUtils::MakeMaker' => '0',
+ 'File::Spec' => '0',
+ 'IO::Handle' => '0',
+ 'IPC::Open3' => '0',
+ 'Test::More' => '0.96',
+ 'perl' => '5.006'
+ }
+ }
+ };
+ $x;
+ }
\ No newline at end of file
@@ -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:
@@ -1,111 +1,202 @@
-# Before `make install' is performed this script should be runnable with
-# `make test'. After `make install' it should work as `perl Data-Validate-Domain.t'
+use strict;
+use warnings;
+
+use Test::More;
+
+use Data::Validate::Domain;
+
+is( is_domain_label('www'), 'www', 'is_domain_label www' );
+is( is_domain_label('w-w'), 'w-w', 'is_domain_label w-w' );
+is( is_domain_label('neely'), 'neely', 'is_domain_label neely' );
+is( is_domain_label('com'), 'com', 'is_domain_label com' );
+is( is_domain_label('COM'), 'COM', 'is_domain_label COM' );
+is( is_domain_label('128'), '128', 'is_domain_label 128' );
+ok( !is_domain_label(q{}), 'is_domain_label ' );
+ok( !is_domain_label('-bob'), 'is_domain_label -bob' );
+ok(
+ !is_domain_label("bengali-\x{09ea}"),
+ 'bengali 4 is not accepted in domain label'
+);
-#########################
-
-# change 'tests => 1' to 'tests => last_test_to_print';
-
-use Test::More tests => 59;
-BEGIN { use_ok('Data::Validate::Domain', qw(is_hostname is_domain is_domain_label) ) };
-
-#########################
-
-# Insert your test code below, the Test::More module is use()ed here so read
-# its man page ( perldoc Test::More ) for help writing this test script.
-
-is ('www', is_domain_label('www'), 'is_domain_label www');
-is ('w-w', is_domain_label('w-w'), 'is_domain_label w-w');
-is ('neely', is_domain_label('neely'), 'is_domain_label neely');
-is ('com', is_domain_label('com'), 'is_domain_label com');
-is ('COM', is_domain_label('COM'), 'is_domain_label COM');
-is ('128', is_domain_label('128'), 'is_domain_label 128');
-is (undef, is_domain_label(''), 'is_domain_label ');
-is (undef, is_domain_label('-bob'), 'is_domain_label -bob');
#70 character label
-isnt ('1234567890123456789012345678901234567890123456789012345678901234567890',
- is_domain_label('1234567890123456789012345678901234567890123456789012345678901234567890'),
- 'is_domain_label 1234567890123456789012345678901234567890123456789012345678901234567890');
-
-is ('www.neely.cx', is_domain('www.neely.cx'), 'is_domain www.neely.cx');
-is (undef, is_domain('www.neely.cx.'), 'is_domain www.neely.cx.');
-is (undef, is_domain('www.neely.cx...'), 'is_domain www.neely.cx...');
-is (undef, is_domain('www.neely.lkj'), 'is_domain www.neely.lkj');
-is ('neely.cx', is_domain('neely.cx'), 'is_domain neely.cx');
-is ('test-neely.cx', is_domain('test-neely.cx'), 'is_domain test-neely.cx');
-is ('aa.com', is_domain('aa.com'), 'is_domain aa.com');
-is ('A-A.com', is_domain('A-A.com'), 'is_domain A-A.com');
-is ('aa.com', is_hostname('aa.com'), 'is_hostname aa.com');
-is ('aa.bb', is_hostname('aa.bb'), 'is_hostname aa.bb');
-is ('aa', is_hostname('aa'), 'is_hostname aa');
-is (undef, is_domain('216.17.184.1'), 'is_domain 216.17.184.1');
-is (undef, is_domain('test_neely.cx'), 'is_domain test_neely.cx');
-is (undef, is_domain('.neely.cx'), 'is_domain .neely.cx');
-is (undef, is_domain('-www.neely.cx'), 'is_domain -www.neely.cx');
-is (undef, is_domain('a'), 'is_domain a');
-is (undef, is_domain('.'), 'is_domain .');
-is (undef, is_domain('com.'), 'is_domain com.');
-is (undef, is_domain('com'), 'is_domain com');
-is (undef, is_domain('net'), 'is_domain net');
-is (undef, is_domain('uk'), 'is_domain uk');
-is ('co.uk', is_domain('co.uk'), 'is_domain co.uk');
+isnt(
+ '1234567890123456789012345678901234567890123456789012345678901234567890',
+ is_domain_label(
+ '1234567890123456789012345678901234567890123456789012345678901234567890'
+ ),
+ 'is_domain_label 1234567890123456789012345678901234567890123456789012345678901234567890'
+);
+
+is( is_domain('www.neely.cx'), 'www.neely.cx', 'is_domain www.neely.cx' );
+ok( !is_domain('www.neely.cx.'), 'is_domain www.neely.cx.' );
+ok( !is_domain('www.neely.cx...'), 'is_domain www.neely.cx...' );
+ok( !is_domain('www.neely.lkj'), 'is_domain www.neely.lkj' );
+is( is_domain('neely.cx'), 'neely.cx', 'is_domain neely.cx' );
+is( is_domain('test-neely.cx'), 'test-neely.cx', 'is_domain test-neely.cx' );
+is( is_domain('aa.com'), 'aa.com', 'is_domain aa.com' );
+is( is_domain('A-A.com'), 'A-A.com', 'is_domain A-A.com' );
+is( is_hostname('aa.com'), 'aa.com', 'is_hostname aa.com' );
+is( is_hostname('aa.bb'), 'aa.bb', 'is_hostname aa.bb' );
+is( is_hostname('aa'), 'aa', 'is_hostname aa' );
+ok( !is_domain('216.17.184.1'), 'is_domain 216.17.184.1' );
+ok( !is_domain('test_neely.cx'), 'is_domain test_neely.cx' );
+ok( !is_domain('.neely.cx'), 'is_domain .neely.cx' );
+ok( !is_domain('-www.neely.cx'), 'is_domain -www.neely.cx' );
+ok( !is_domain('a'), 'is_domain a' );
+ok( !is_domain('.'), 'is_domain .' );
+ok( !is_domain('com.'), 'is_domain com.' );
+ok( !is_domain('com'), 'is_domain com' );
+ok( !is_domain('net'), 'is_domain net' );
+ok( !is_domain('uk'), 'is_domain uk' );
+is( is_domain('co.uk'), 'co.uk', 'is_domain co.uk' );
+ok(
+ !is_domain("bengali-\x{09ea}.com"),
+ 'bengali 4 is not accepted in domain'
+);
+
#280+ character domain
-is (undef,
- is_domain('123456789012345678901234567890123456789012345678901234567890.1234567890123456789012345678901234567890.12345678901234567890123456789012345678901234567890.12345678901234567890123456789012345678901234567890.12345678901234567890123456789012345678901234567890.123456789012345678901234567890.com'),
- 'is_domain 123456789012345678901234567890123456789012345678901234567890.1234567890123456789012345678901234567890.12345678901234567890123456789012345678901234567890.12345678901234567890123456789012345678901234567890.12345678901234567890123456789012345678901234567890.123456789012345678901234567890.com');
-#Some additional tests for options
-is ('myhost.neely', is_domain('myhost.neely', {domain_private_tld => {'neely' => 1}}), 'is_domain myhost.neely w/domain_private_tld option');
-is (undef, is_domain('myhost.neely'), 'is_domain myhost.neely');
-is ('com', is_domain('com', {domain_allow_single_label => 1}), 'is_domain com w/domain_allow_single_label option');
-is ('neely', is_domain('neely', {domain_allow_single_label => 1, domain_private_tld => {'neely' => 1}}), 'is_domain neely w/domain_private_tld and domain_allow_single_label option');
-is (undef, is_domain('neely'), 'is_domain neely');
-isnt ('_spf', is_hostname('_spf'), 'is_hostname("_spf"');
-is ('_spf', is_hostname('_spf', {domain_allow_underscore => 1}), 'is_hostname("_spf", {domain_allow_underscore = 1}');
+ok(
+ !is_domain(
+ '123456789012345678901234567890123456789012345678901234567890.1234567890123456789012345678901234567890.12345678901234567890123456789012345678901234567890.12345678901234567890123456789012345678901234567890.12345678901234567890123456789012345678901234567890.123456789012345678901234567890.com'
+ ),
+ 'is_domain 123456789012345678901234567890123456789012345678901234567890.1234567890123456789012345678901234567890.12345678901234567890123456789012345678901234567890.12345678901234567890123456789012345678901234567890.12345678901234567890123456789012345678901234567890.123456789012345678901234567890.com'
+);
-is (undef, is_domain("example\n.com"), 'is_domain( "example\n.com")');
-is (undef, is_domain_label("example\n"), 'is_domain_label( "example\n")');
+#Some additional tests for options
+is(
+ is_domain( 'myhost.neely', { domain_private_tld => { 'neely' => 1 } } ),
+ 'myhost.neely',
+ 'is_domain myhost.neely w/domain_private_tld option'
+);
+ok( !is_domain('myhost.neely'), 'is_domain myhost.neely' );
+is(
+ is_domain( 'com', { domain_allow_single_label => 1 } ),
+ 'com',
+ 'is_domain com w/domain_allow_single_label option'
+);
+is(
+ is_domain(
+ 'neely', {
+ domain_allow_single_label => 1,
+ domain_private_tld => { 'neely' => 1 }
+ }
+ ),
+ 'neely',
+ 'is_domain neely w/domain_private_tld and domain_allow_single_label option'
+);
+ok( !is_domain('neely'), 'is_domain neely' );
+isnt( is_hostname('_spf'), '_spf', 'is_hostname("_spf"' );
+is(
+ is_hostname( '_spf', { domain_allow_underscore => 1 } ),
+ '_spf',
+ 'is_hostname("_spf", {domain_allow_underscore = 1}'
+);
+
+ok( !is_domain("example\n.com"), 'is_domain( "example\n.com")' );
+ok( !is_domain_label("example\n"), 'is_domain_label( "example\n")' );
#precompiled regex format
-is ('myhost.neely', is_domain('myhost.neely', {domain_private_tld => qr/^neely$/}), 'is_domain myhost.neely w/domain_private_tld option - precompiled regex');
-is (undef, is_domain('myhost.neely', {domain_private_tld => qr/^intra$/}), 'is_domain myhost.neely w/domain_private_tld option - precompiled regex looking for intra');
+is(
+ is_domain( 'myhost.neely', { domain_private_tld => qr/^neely$/ } ),
+ 'myhost.neely',
+ 'is_domain myhost.neely w/domain_private_tld option - precompiled regex'
+);
+ok(
+ !is_domain( 'myhost.neely', { domain_private_tld => qr/^intra$/ } ),
+ 'is_domain myhost.neely w/domain_private_tld option - precompiled regex looking for intra'
+);
my $obj = Data::Validate::Domain->new();
-is ('co.uk', $obj->is_domain('co.uk'), '$obj->is_domain co.uk');
+is( $obj->is_domain('co.uk'), 'co.uk', '$obj->is_domain co.uk' );
my $private_tld_obj = Data::Validate::Domain->new(
- domain_private_tld => {
- neely => 1,
- neely72 => 1,
- },
- );
-is ('myhost.neely', $private_tld_obj->is_domain('myhost.neely'), '$private_tld_obj->is_domain myhost.neely');
-is ('myhost.neely72', $private_tld_obj->is_domain('myhost.neely72'), '$private_tld_obj->is_domain myhost.neely72');
-is (undef, $private_tld_obj->is_domain('myhost.intra'), '$private_tld_obj->is_domain myhost.intra');
-is (undef, $private_tld_obj->is_domain('neely'), '$private_tld_obj->is_domain neely');
+ domain_private_tld => {
+ neely => 1,
+ neely72 => 1,
+ },
+);
+is(
+ $private_tld_obj->is_domain('myhost.neely'),
+ 'myhost.neely',
+ '$private_tld_obj->is_domain myhost.neely'
+);
+is(
+ $private_tld_obj->is_domain('myhost.neely72'),
+ 'myhost.neely72',
+ '$private_tld_obj->is_domain myhost.neely72'
+);
+ok(
+ !$private_tld_obj->is_domain('myhost.intra'),
+ '$private_tld_obj->is_domain myhost.intra'
+);
+ok(
+ !$private_tld_obj->is_domain('neely'),
+ '$private_tld_obj->is_domain neely'
+);
my $private_single_label_tld_obj = Data::Validate::Domain->new(
- domain_allow_single_label => 1,
- domain_private_tld => {
- neely => 1,
- },
- );
-
-is ('neely', $private_single_label_tld_obj->is_domain('neely'), '$private_single_label_tld_obj->is_domain neely');
-is ('NEELY', $private_single_label_tld_obj->is_domain('NEELY'), '$private_single_label_tld_obj->is_domain NEELY');
-is ('neely.cx', $private_single_label_tld_obj->is_domain('neely.cx'), '$private_single_label_tld_obj->is_domain neely.cx');
-
+ domain_allow_single_label => 1,
+ domain_private_tld => {
+ neely => 1,
+ },
+);
+
+is(
+ $private_single_label_tld_obj->is_domain('neely'),
+ 'neely',
+ '$private_single_label_tld_obj->is_domain neely'
+);
+is(
+ $private_single_label_tld_obj->is_domain('NEELY'),
+ 'NEELY',
+ '$private_single_label_tld_obj->is_domain NEELY'
+);
+is(
+ $private_single_label_tld_obj->is_domain('neely.cx'),
+ 'neely.cx',
+ '$private_single_label_tld_obj->is_domain neely.cx'
+);
#precompiled regex format
my $private_tld_obj2 = Data::Validate::Domain->new(
- domain_private_tld => qr/^(?:neely|neely72)$/,
- );
-is ('myhost.neely', $private_tld_obj2->is_domain('myhost.neely'), '$private_tld_obj2->is_domain myhost.neely');
-is ('myhost.neely72', $private_tld_obj2->is_domain('myhost.neely72'), '$private_tld_obj2->is_domain myhost.neely72');
-is (undef, $private_tld_obj2->is_domain('myhost.intra'), '$private_tld_obj2->is_domain myhost.intra');
-is (undef, $private_tld_obj2->is_domain('neely'), '$private_tld_obj2->is_domain neely');
+ domain_private_tld => qr/^(?:neely|neely72)$/,
+);
+is(
+ $private_tld_obj2->is_domain('myhost.neely'),
+ 'myhost.neely',
+ '$private_tld_obj2->is_domain myhost.neely'
+);
+is(
+ $private_tld_obj2->is_domain('myhost.neely72'),
+ 'myhost.neely72',
+ '$private_tld_obj2->is_domain myhost.neely72'
+);
+ok(
+ !$private_tld_obj2->is_domain('myhost.intra'),
+ '$private_tld_obj2->is_domain myhost.intra'
+);
+ok(
+ !$private_tld_obj2->is_domain('neely'),
+ '$private_tld_obj2->is_domain neely'
+);
my $allow_underscore_obj = Data::Validate::Domain->new(
- domain_allow_underscore => 1,
- );
-is ('_spf.neely.cx', $allow_underscore_obj->is_domain('_spf.neely.cx'), '$allow_underscore_obj->is_domain _spf.neely.cx');
-is ('_sip._tcp.neely.cx', $allow_underscore_obj->is_domain('_sip._tcp.neely.cx'), '$allow_underscore_obj->is_domain _sip._tcp.neely.cx');
-is ('_spf', $allow_underscore_obj->is_hostname('_spf'), '$allow_underscore_obj->is_domain _spf');
+ domain_allow_underscore => 1,
+);
+is(
+ $allow_underscore_obj->is_domain('_spf.neely.cx'),
+ '_spf.neely.cx',
+ '$allow_underscore_obj->is_domain _spf.neely.cx'
+);
+is(
+ $allow_underscore_obj->is_domain('_sip._tcp.neely.cx'),
+ '_sip._tcp.neely.cx',
+ '$allow_underscore_obj->is_domain _sip._tcp.neely.cx'
+);
+is(
+ $allow_underscore_obj->is_hostname('_spf'),
+ '_spf',
+ '$allow_underscore_obj->is_domain _spf'
+);
+
+done_testing();
@@ -1,6 +0,0 @@
-use Test::More;
-eval "use Test::Pod::Coverage 1.00";
-plan skip_all => "Test::Pod::Coverage 1.00 required for testing POD coverage" if $@;
-all_pod_coverage_ok();
-
-
@@ -1,4 +0,0 @@
-use Test::More;
-eval "use Test::Pod 1.00";
-plan skip_all => "Test::Pod 1.00 required for testing POD" if $@;
-all_pod_files_ok();
@@ -0,0 +1,38 @@
+
+BEGIN {
+ unless ($ENV{AUTHOR_TESTING}) {
+ require Test::More;
+ Test::More::plan(skip_all => 'these tests are for testing by the author');
+ }
+}
+
+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/Data/Validate/Domain.pm',
+ 't/00-compile.t',
+ 't/00-report-prereqs.dd',
+ 't/00-report-prereqs.t',
+ 't/Data-Validate-Domain.t',
+ 't/author-eol.t',
+ 't/author-no-tabs.t',
+ 't/author-pod-spell.t',
+ 't/release-cpan-changes.t',
+ 't/release-pod-coverage.t',
+ 't/release-pod-linkcheck.t',
+ 't/release-pod-no404s.t',
+ 't/release-pod-syntax.t',
+ 't/release-portability.t',
+ 't/release-synopsis.t',
+ 't/release-test-version.t',
+ 't/release-tidyall.t'
+);
+
+eol_unix_ok($_, { trailing_whitespace => 1 }) foreach @files;
+done_testing;
@@ -0,0 +1,38 @@
+
+BEGIN {
+ unless ($ENV{AUTHOR_TESTING}) {
+ require Test::More;
+ Test::More::plan(skip_all => 'these tests are for testing by the author');
+ }
+}
+
+use strict;
+use warnings;
+
+# this test was generated with Dist::Zilla::Plugin::Test::NoTabs 0.14
+
+use Test::More 0.88;
+use Test::NoTabs;
+
+my @files = (
+ 'lib/Data/Validate/Domain.pm',
+ 't/00-compile.t',
+ 't/00-report-prereqs.dd',
+ 't/00-report-prereqs.t',
+ 't/Data-Validate-Domain.t',
+ 't/author-eol.t',
+ 't/author-no-tabs.t',
+ 't/author-pod-spell.t',
+ 't/release-cpan-changes.t',
+ 't/release-pod-coverage.t',
+ 't/release-pod-linkcheck.t',
+ 't/release-pod-no404s.t',
+ 't/release-pod-syntax.t',
+ 't/release-portability.t',
+ 't/release-synopsis.t',
+ 't/release-test-version.t',
+ 't/release-tidyall.t'
+);
+
+notabs_ok($_) foreach @files;
+done_testing;
@@ -0,0 +1,43 @@
+
+BEGIN {
+ unless ($ENV{AUTHOR_TESTING}) {
+ require Test::More;
+ Test::More::plan(skip_all => 'these tests are for testing by the author');
+ }
+}
+
+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__
+DROLSKY
+DROLSKY's
+Rolsky
+Rolsky's
+Sonnen
+TLD
+TLDs
+cx
+neely
+uk
+www
+Neil
+Neely
+neil
+Dave
+autarch
+David
+Steinbrunner
+dsteinbrunner
+lib
+Data
+Validate
+Domain
@@ -0,0 +1,19 @@
+#!perl
+
+BEGIN {
+ unless ($ENV{RELEASE_TESTING}) {
+ require Test::More;
+ Test::More::plan(skip_all => 'these tests are for release candidate testing');
+ }
+}
+
+
+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();
@@ -0,0 +1,52 @@
+#!perl
+
+BEGIN {
+ unless ($ENV{RELEASE_TESTING}) {
+ require Test::More;
+ Test::More::plan(skip_all => 'these tests are for release candidate testing');
+ }
+}
+
+# This file was automatically generated by Dist::Zilla::Plugin::Test::Pod::Coverage::Configurable.
+
+use Test::Pod::Coverage 1.08;
+use Test::More 0.88;
+
+BEGIN {
+ if ( $] <= 5.008008 ) {
+ plan skip_all => 'These tests require Pod::Coverage::TrustPod, which only works with Perl 5.8.9+';
+ }
+}
+use Pod::Coverage::TrustPod;
+
+my %skip = map { $_ => 1 } qw( );
+
+my @modules;
+for my $module ( all_modules() ) {
+ next if $skip{$module};
+
+ push @modules, $module;
+}
+
+plan skip_all => 'All the modules we found were excluded from POD coverage test.'
+ unless @modules;
+
+plan tests => scalar @modules;
+
+my %trustme = ();
+
+my @also_private;
+
+for my $module ( sort @modules ) {
+ pod_coverage_ok(
+ $module,
+ {
+ coverage_class => 'Pod::Coverage::TrustPod',
+ also_private => \@also_private,
+ trustme => $trustme{$module} || [],
+ },
+ "pod coverage for $module"
+ );
+}
+
+done_testing();
@@ -0,0 +1,28 @@
+#!perl
+
+BEGIN {
+ unless ($ENV{RELEASE_TESTING}) {
+ require Test::More;
+ Test::More::plan(skip_all => 'these tests are for release candidate testing');
+ }
+}
+
+
+use strict;
+use warnings;
+use Test::More;
+
+foreach my $env_skip ( qw(
+ SKIP_POD_LINKCHECK
+) ){
+ plan skip_all => "\$ENV{$env_skip} is set, skipping"
+ if $ENV{$env_skip};
+}
+
+eval "use Test::Pod::LinkCheck";
+if ( $@ ) {
+ plan skip_all => 'Test::Pod::LinkCheck required for testing POD';
+}
+else {
+ Test::Pod::LinkCheck->new->all_pod_ok;
+}
@@ -0,0 +1,29 @@
+#!perl
+
+BEGIN {
+ unless ($ENV{RELEASE_TESTING}) {
+ require Test::More;
+ Test::More::plan(skip_all => 'these tests are for release candidate testing');
+ }
+}
+
+
+use strict;
+use warnings;
+use Test::More;
+
+foreach my $env_skip ( qw(
+ SKIP_POD_NO404S
+ AUTOMATED_TESTING
+) ){
+ plan skip_all => "\$ENV{$env_skip} is set, skipping"
+ if $ENV{$env_skip};
+}
+
+eval "use Test::Pod::No404s";
+if ( $@ ) {
+ plan skip_all => 'Test::Pod::No404s required for testing POD';
+}
+else {
+ all_pod_files_ok();
+}
@@ -0,0 +1,14 @@
+#!perl
+
+BEGIN {
+ unless ($ENV{RELEASE_TESTING}) {
+ require Test::More;
+ Test::More::plan(skip_all => 'these tests are for release candidate testing');
+ }
+}
+
+# This file was automatically generated by Dist::Zilla::Plugin::PodSyntaxTests.
+use Test::More;
+use Test::Pod 1.41;
+
+all_pod_files_ok();
@@ -0,0 +1,20 @@
+#!perl
+
+BEGIN {
+ unless ($ENV{RELEASE_TESTING}) {
+ require Test::More;
+ Test::More::plan(skip_all => 'these tests are for release candidate testing');
+ }
+}
+
+
+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();
@@ -0,0 +1,13 @@
+#!perl
+
+BEGIN {
+ unless ($ENV{RELEASE_TESTING}) {
+ require Test::More;
+ Test::More::plan(skip_all => 'these tests are for release candidate testing');
+ }
+}
+
+
+use Test::Synopsis;
+
+all_synopsis_ok();
@@ -0,0 +1,30 @@
+
+BEGIN {
+ unless ($ENV{RELEASE_TESTING}) {
+ require Test::More;
+ Test::More::plan(skip_all => 'these tests are for release candidate testing');
+ }
+}
+
+use strict;
+use warnings;
+use Test::More;
+
+# generated by Dist::Zilla::Plugin::Test::Version 0.04
+use Test::Version;
+
+my @imports = ( 'version_all_ok' );
+
+my $params = {
+ is_strict => 1,
+ has_version => 1,
+};
+
+push @imports, $params
+ if version->parse( $Test::Version::VERSION ) >= version->parse('1.002');
+
+
+Test::Version->import(@imports);
+
+version_all_ok;
+done_testing;
@@ -0,0 +1,17 @@
+#!perl
+
+BEGIN {
+ unless ($ENV{RELEASE_TESTING}) {
+ require Test::More;
+ Test::More::plan(skip_all => 'these tests are for release candidate testing');
+ }
+}
+
+# This file was automatically generated by Dist::Zilla::Plugin::Test::TidyAll
+
+use Test::Code::TidyAll 0.24;
+use Test::More 0.88;
+
+tidyall_ok();
+
+done_testing();
@@ -0,0 +1,19 @@
+[PerlTidy]
+select = **/*.{pl,pm,t,psgi}
+ignore = t/00-*
+ignore = t/author-*
+ignore = t/release-*
+ignore = blib/**/*
+ignore = .build/**/*
+ignore = Data-Validate-Domain-*/**/*
+argv = --profile=$ROOT/perltidyrc
+
+[PerlCritic]
+select = **/*.{pl,pm,t,psgi}
+ignore = t/00-*
+ignore = t/author-*
+ignore = t/release-*
+ignore = blib/**/*
+ignore = .build/**/*
+ignore = Data-Validate-Domain-*/**/*
+argv = --profile $ROOT/perlcriticrc --program-extensions .pl --program-extensions .t --program-extensions .psgi
@@ -0,0 +1,17 @@
+[@CorePrep]
+
+[Name]
+[Version]
+
+[Region / prelude]
+
+[Generic / SYNOPSIS]
+[Generic / DESCRIPTION]
+
+[Leftovers]
+
+[Region / postlude]
+
+[Authors]
+[Contributors]
+[Legal]