Env-Assert-0.011000755001750001750 015066162164 13442 5ustar00mikkoimikkoi000000000000README100644001750001750 62415066162164 14365 0ustar00mikkoimikkoi000000000000Env-Assert-0.011This archive contains the distribution Env-Assert, version 0.011: Ensure that the environment variables match what you need, or abort. This software is copyright (c) 2023 by Mikko Koivunalho. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. This README file was generated by Dist::Zilla::Plugin::Readme v6.033. Changes100644001750001750 453215066162164 15022 0ustar00mikkoimikkoi000000000000Env-Assert-0.011Revision history for Env-Assert 0.011 2025-09-28 09:32:02+02:00 Europe/Stockholm * Bump version to 0.011 and remove underscore hack. * Change Security Policy to use CPANSec's template. * Add SEE ALSO chapters to Env::Assert and script/envassert. * Add .github dir. * Add files CONTRIBUTING.md, CODE_OF_CONDUCT.md and SECURITY.md. * Clean dist.ini. * Remove fatpacker instruction from README. * Add new LICENSE files and change README.md. * Use @Filter to use PluginBundle::MIKKOI. * Readjust Changes file. * Bump version. * Add BumpVersionAfterRelease and Git::Commit to dist.ini. * Add $VERSION to library and executable files. 0.010 2024-01-02 20:32:48+01:00 Europe/Stockholm * Fix errors in SYNOPSIS. (Ron Savage ) 0.009 2023-11-15 19:35:06+01:00 Europe/Stockholm * Add App::FatPacker to deps. * Add contributor gregor herrmann * Add Repology link to README.md. * Available as a Debian package. (gregor herrmann ) 0.008 2023-08-13 13:25:41+02:00 Europe/Berlin * Fix dist.ini Run::AfterRelease action. * Create CLI option --exact 0.007 2023-04-23 22:45:02+02:00 Europe/Stockholm * Replace say with print * Add envassert.self-contained to MANIFEST.SKIP. 0.006 2023-02-27 22:15:15+01:00 Europe/Stockholm * Clean up documentation. * Clean up dist.ini a little. * Use option auto_help in executable. * Use option auto_version in executable. * Move fatpacked executable to root. * Update dist.ini with ExecDir to `script`. * Update envassert.self-contained url. 0.005 2023-02-25 19:28:40+01:00 Europe/Stockholm * Fix typos (Ivan Bessarabov ) * Update README.md 0.004 2023-02-19 15:47:10+01:00 Europe/Stockholm * Move fatpacked executable to root. * Update dist.ini with ExecDir to `script`. 0.003 2023-02-16 09:55:57+01:00 Europe/Stockholm 0.002 2023-02-15 17:34:31+01:00 Europe/Stockholm 0.001 2023-02-15 14:51:19+01:00 Europe/Stockholm * Initial version META.yml100644001750001750 212215066162164 14771 0ustar00mikkoimikkoi000000000000Env-Assert-0.011--- abstract: 'Ensure that the environment variables match what you need, or abort.' author: - 'Mikko Koivunalho ' build_requires: Test2::V0: '0' perl: '5.010' configure_requires: ExtUtils::MakeMaker: '0' perl: '5.010' dynamic_config: 0 generated_by: 'Dist::Zilla version 6.033, CPAN::Meta::Converter version 2.150010' keywords: - environment - variable - assert license: perl meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html version: '1.4' name: Env-Assert requires: Carp: '0' English: '0' Exporter: '0' constant: '0' perl: '5.010' strict: '0' warnings: '0' resources: bugtracker: http://rt.cpan.org/NoAuth/Bugs.html?Dist=Env-Assert homepage: https://metacpan.org/dist/Env-Assert repository: git://github.com/mikkoi/env-assert.git version: '0.011' x_contributors: - 'Ivan Bessarabov ' - 'gregor herrmann ' - 'Ron Savage ' x_generated_by_perl: v5.34.1 x_serialization_backend: 'YAML::Tiny version 1.73' x_spdx_expression: 'Artistic-1.0-Perl OR GPL-1.0-or-later' MANIFEST100644001750001750 142315066162164 14654 0ustar00mikkoimikkoi000000000000Env-Assert-0.011# This file was automatically generated by Dist::Zilla::Plugin::Manifest v6.033. CODE_OF_CONDUCT.md CONTRIBUTING.md Changes LICENSE-Artistic-2.0 LICENSE-GPL-3 MANIFEST META.json META.yml Makefile.PL README SECURITY.md SIGNATURE lib/Env/Assert.pm script/envassert t/env-assert-private.t t/env-assert-public-assert.t t/env-assert-public-report_errors.t xt/author/critic.t xt/author/distmeta.t xt/author/eol.t xt/author/minimum-version.t xt/author/mojibake.t xt/author/no-tabs.t xt/author/pod-coverage.t xt/author/pod-linkcheck.t xt/author/pod-spell.t xt/author/pod-syntax.t xt/author/portability.t xt/author/signature.t xt/author/synopsis.t xt/author/test-version.t xt/release/cpan-changes.t xt/release/dist-manifest.t xt/release/kwalitee.t xt/release/meta-json.t xt/release/unused-vars.t META.json100644001750001750 533215066162164 15147 0ustar00mikkoimikkoi000000000000Env-Assert-0.011{ "abstract" : "Ensure that the environment variables match what you need, or abort.", "author" : [ "Mikko Koivunalho " ], "dynamic_config" : 0, "generated_by" : "Dist::Zilla version 6.033, CPAN::Meta::Converter version 2.150010", "keywords" : [ "environment", "variable", "assert" ], "license" : [ "perl_5" ], "meta-spec" : { "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec", "version" : 2 }, "name" : "Env-Assert", "prereqs" : { "configure" : { "requires" : { "ExtUtils::MakeMaker" : "0", "perl" : "5.010" } }, "develop" : { "requires" : { "Pod::Coverage::TrustPod" : "0", "Pod::Wordlist" : "0", "Test::CPAN::Changes" : "0.19", "Test::CPAN::Meta" : "0", "Test::CPAN::Meta::JSON" : "0.16", "Test::DistManifest" : "0", "Test::EOL" : "0", "Test::Kwalitee" : "1.21", "Test::MinimumVersion" : "0", "Test::Mojibake" : "0", "Test::More" : "0.96", "Test::NoTabs" : "0", "Test::Perl::Critic" : "0", "Test::Pod" : "1.41", "Test::Pod::Coverage" : "1.08", "Test::Pod::LinkCheck" : "0", "Test::Portability::Files" : "0", "Test::Signature" : "0", "Test::Spelling" : "0.12", "Test::Synopsis" : "0", "Test::Vars" : "0", "Test::Version" : "1" } }, "runtime" : { "requires" : { "Carp" : "0", "English" : "0", "Exporter" : "0", "constant" : "0", "perl" : "5.010", "strict" : "0", "warnings" : "0" } }, "test" : { "requires" : { "Test2::V0" : "0", "perl" : "5.010" } } }, "release_status" : "stable", "resources" : { "bugtracker" : { "mailto" : "bug-Env-Assert@rt.cpan.org", "web" : "http://rt.cpan.org/NoAuth/Bugs.html?Dist=Env-Assert" }, "homepage" : "https://metacpan.org/dist/Env-Assert", "repository" : { "type" : "git", "url" : "git://github.com/mikkoi/env-assert.git", "web" : "https://github.com/mikkoi/env-assert.git" } }, "version" : "0.011", "x_contributors" : [ "Ivan Bessarabov ", "gregor herrmann ", "Ron Savage " ], "x_generated_by_perl" : "v5.34.1", "x_serialization_backend" : "Cpanel::JSON::XS version 4.28", "x_spdx_expression" : "Artistic-1.0-Perl OR GPL-1.0-or-later" } SIGNATURE100644001750001750 1075415066162164 15036 0ustar00mikkoimikkoi000000000000Env-Assert-0.011This file contains message digests of all files listed in MANIFEST, signed via the Module::Signature module, version 0.93. To verify the content in this distribution, first make sure you have Module::Signature installed, then type: % cpansign -v It will check each file's integrity, as well as the signature's validity. If "==> Signature verified OK! <==" is not displayed, the distribution may already have been compromised, and you should not run its Makefile.PL or Build.PL. -----BEGIN PGP SIGNED MESSAGE----- Hash: RIPEMD160 SHA256 4dec9292cf593661521c04c2ca7eb78d11022160f75bf98154b4aabd2567a860 CODE_OF_CONDUCT.md SHA256 3955d735cff9c88b61bf1d55441b2d884b90517dd5c7a210c0e14d7dd927c562 CONTRIBUTING.md SHA256 38c87764b6f6bca87e8e3dbc15f4df2fda8720a29aa6f2299891caf182b6392b Changes SHA256 d3945eb6c6bf1468f3a5cb611cfc5637f39bc094d6e545db1440502d5faa370c LICENSE-Artistic-2.0 SHA256 3972dc9744f6499f0f9b2dbf76696f2ae7ad8af9b23dde66d6af86c9dfb36986 LICENSE-GPL-3 SHA256 dd27d42ff546b9a5d9f9c6780513bebc0321792d0099bcf2676fdfb301c3f0f8 MANIFEST SHA256 289aded9e0324b1ffc8f2bb4ebc7562acce3ed9d9ca8d6ea00de39273a9d712f META.json SHA256 9507493af40ad99a76a5e4d8a79be94608221a8a539c5678d716b4519e867c8d META.yml SHA256 ad5716624c932f7b6e5012058fcd5135d878e28b7dec72644638d8e8f5f4d89b Makefile.PL SHA256 9daa0f4576b67de7a9198227fe31d4114024b92311e92d66e79972a8d0ddc3d7 README SHA256 261a5426089c20d8198be246c75230a329f817f5e8a1a29183e090f94a770aab SECURITY.md SHA256 51b0230c8e708be3de8780e683a898bf5ff51645581589672f08155aa40abc92 lib/Env/Assert.pm SHA256 c16afab5b4e4b4da7df20015c12e91821dd280a854820e4746c7e007c5290a0a script/envassert SHA256 1afd0cfc1d483f8ed930a37961756d3907cbcb0933ee4835dcfa4410f2f515a5 t/env-assert-private.t SHA256 853c325ba4f699e923623c1b89ad0fe62a425ad773042a89736901e056c949d2 t/env-assert-public-assert.t SHA256 1b41f506d83b21974937c5625a999ae3547150608b280104b5cf8d36aaf33cd2 t/env-assert-public-report_errors.t SHA256 b1e69d261463eca71ef49725e4d746544f81a93c81fe9cb70218f2258c26e3ca xt/author/critic.t SHA256 c97c1c4f3ad1074d69357617918d4d1ae55ae3cb74a2a7fff09201b8cb5d3920 xt/author/distmeta.t SHA256 089661ce784ece1aeeab3a17ad374433e1fb41b28313926551e9d7efa7070b8f xt/author/eol.t SHA256 704b82b846b0fc0f20d3c5f9ae11b4e2f8b182a9f9218f39c9a0312103fbacf7 xt/author/minimum-version.t SHA256 89f6335b90cbedf340afef47053adab386d8b38faded020e58c76beda202e14f xt/author/mojibake.t SHA256 ba4700e8d2fb9527ba0a59d7eeae59e383f4c1487c82c3041137df3344da459f xt/author/no-tabs.t SHA256 338e11a8a30d1e4c50f199edcf6455bba8f634d53224aeb656fc696fb783bf6e xt/author/pod-coverage.t SHA256 24bccf83cbd3b878c0b91eef03d128fb83951c715d36614ee5e40ec9f5d69b1e xt/author/pod-linkcheck.t SHA256 3c9b4792a8334398a7ba029c1bb385c3e4406b9bc5a3601b5dd1963cfed2bc95 xt/author/pod-spell.t SHA256 01c189b60dbbc17780700c3d394ebe0930b9802329799f968dcce40436484111 xt/author/pod-syntax.t SHA256 81c175fb3da6221a09808618331ec24e5219cbe769c8091ef165eb5096f0a92e xt/author/portability.t SHA256 93ab74868095d3904efc7c1d257c6f8aa654532a16eb782e304c21a7c7067bef xt/author/signature.t SHA256 e0f7231f875bb7b8a5f22ea4104ce06a2e6824fa4367846d7d2e02200073904e xt/author/synopsis.t SHA256 aa25d3dc3ed499cce2f80e827aa3743b52424ea4f98abe8a389b8dd94b9f3e35 xt/author/test-version.t SHA256 6890a32e62684274786618f6082444535af3324d2817ed377b0460ed4c4da48e xt/release/cpan-changes.t SHA256 7e69ac417090c0dbdfd2f37a7403224c5d6416e45a232f25f80eeb8eea09f638 xt/release/dist-manifest.t SHA256 d37a5da6ee4b9d268fb9e1ade2bc1ba3668a74878e5f467027bb25377d354589 xt/release/kwalitee.t SHA256 7345a2b379aa2398c681237b33b5abcf2355de28c2f3d1ca7e5441d5b6b42867 xt/release/meta-json.t SHA256 d34f839d8340478663bd6ae59c72760d7e1a2b7a2d4879ad1ec97db1a2271b2f xt/release/unused-vars.t -----BEGIN PGP SIGNATURE----- iQIzBAEBAwAdFiEEJUBHqLEtyIvTG4U+f5s1QsRSBQQFAmjY5HQACgkQf5s1QsRS BQQpjQ//YLMEiFbcYbVky6U+eOMknF8LPqnbPg9m5oTt/5j032Oq7ICuqnMTcJLx pO9w3m5sNoSXgBsRf3Rhx9aozGe1liw4YqApvjWTNKGUA4zkcr/qbNsXJAza1wJv PM+E8cUgY+DRBZarKYkYxu9XQPyQcJPb49hJOY4hoxofhMXfjJvlQQGWDKUxlviI ApiB8i5Q95nntLa2MLhqmx6z1RrxCHDRdLVAB4conR5GDutCDIuymKB+kozYGOWo sNgSLJcGL/XcpLCvxJcs1mlv1+r05rHxC4VIc/AvCZJ9Q2opMUfeNEJbF9gu5jSv TS1R2nuwXzLrfMA+ovLdyWR81+9RuyTBQTNMVgZdrWZQ14aJaffNpGJugkNnXjMm t8Jv7rZaVf/3//qNfZ+UV3r+8N7aeyO4zbDHe7BWEUQcVn5+o+AdmrLT3Rmk6oGR zP4jApXV1+tRomG5PH5qxXDbktZPmT1JmAO444UO4A4tYyRve7fNOw4hlSDnm58r hTMaO53QUxstVzJAKJFU4WRKvSRL46QFNE7FMC5qOVKQgSxfyAYw1nqhy1zjCdfs FzQ2KDWM9IpesqHhevsNrPw0soEvgsxoys+ux5zbicHE/ES4DqDxjfdMvB8tiqve HfEuDFknFWqOlpeneDKhFLqpmTBpdgt/2kd6G4TqVVQANBp377c= =iiB6 -----END PGP SIGNATURE----- SECURITY.md100644001750001750 1020015066162164 15325 0ustar00mikkoimikkoi000000000000Env-Assert-0.011# Security Policy for the Env::Assert distribution. Report security issues by email to Mikko Koivunalho . This is the Security Policy for Env::Assert. The latest version of the Security Policy can be found in the [git repository for Env::Assert](https://github.com/mikkoi/env-assert/blob/main/SECURITY.md). This text is based on the CPAN Security Group's Guidelines for Adding a Security Policy to Perl Distributions (version 1.3.0) https://security.metacpan.org/docs/guides/security-policy-for-authors.html # How to Report a Security Vulnerability Security vulnerabilities can be reported to the current Env::Assert maintainers by email to Mikko Koivunalho . Please include as many details as possible, including code samples or test cases, so that we can reproduce the issue. Check that your report does not expose any sensitive data, such as passwords, tokens, or personal information. If you would like any help with triaging the issue, or if the issue is being actively exploited, please copy the report to the CPAN Security Group (CPANSec) at . Please *do not* use the public issue reporting system on RT or GitHub issues for reporting security vulnerabilities. Please do not disclose the security vulnerability in public forums until past any proposed date for public disclosure, or it has been made public by the maintainers or CPANSec. That includes patches or pull requests. For more information, see [Report a Security Issue](https://security.metacpan.org/docs/report.html) on the CPANSec website. ## Response to Reports The maintainer(s) aim to acknowledge your security report as soon as possible. However, this project is maintained by a single person in their spare time, and they cannot guarantee a rapid response. If you have not received a response from them within 14 days, then please send a reminder to them and copy the report to CPANSec at . Please note that the initial response to your report will be an acknowledgement, with a possible query for more information. It will not necessarily include any fixes for the issue. The project maintainer(s) may forward this issue to the security contacts for other projects where we believe it is relevant. This may include embedded libraries, system libraries, prerequisite modules or downstream software that uses this software. They may also forward this issue to CPANSec. # Which Software This Policy Applies To Any security vulnerabilities in Env::Assert are covered by this policy. Security vulnerabilities in versions of any libraries that are included in Env::Assert are also covered by this policy. Security vulnerabilities are considered anything that allows users to execute unauthorised code, access unauthorised resources, or to have an adverse impact on accessibility or performance of a system. Security vulnerabilities in upstream software (prerequisite modules or system libraries, or in Perl), are not covered by this policy unless they affect Env::Assert, or Env::Assert can be used to exploit vulnerabilities in them. Security vulnerabilities in downstream software (any software that uses Env::Assert, or plugins to it that are not included with the Env::Assert distribution) are not covered by this policy. ## Supported Versions of Env::Assert The maintainer(s) will only commit to releasing security fixes for the latest version of Env::Assert. Note that the Env::Assert project only supports major versions of Perl released in the past 10 years, even though Env::Assert will run on older versions of Perl. If a security fix requires us to increase the minimum version of Perl that is supported, then we may do so. # Installation and Usage Issues The distribution metadata specifies minimum versions of prerequisites that are required for Env::Assert to work. However, some of these prerequisites may have security vulnerabilities, and you should ensure that you are using up-to-date versions of these prerequisites. Where security vulnerabilities are known, the metadata may indicate newer versions as recommended. ## Usage Please see the software documentation for further information. Makefile.PL100644001750001750 234015066162164 15474 0ustar00mikkoimikkoi000000000000Env-Assert-0.011# This file was automatically generated by Dist::Zilla::Plugin::MakeMaker v6.033. use strict; use warnings; use 5.010; use ExtUtils::MakeMaker; my %WriteMakefileArgs = ( "ABSTRACT" => "Ensure that the environment variables match what you need, or abort.", "AUTHOR" => "Mikko Koivunalho ", "CONFIGURE_REQUIRES" => { "ExtUtils::MakeMaker" => 0 }, "DISTNAME" => "Env-Assert", "LICENSE" => "perl", "MIN_PERL_VERSION" => "5.010", "NAME" => "Env::Assert", "PREREQ_PM" => { "Carp" => 0, "English" => 0, "Exporter" => 0, "constant" => 0, "strict" => 0, "warnings" => 0 }, "TEST_REQUIRES" => { "Test2::V0" => 0 }, "VERSION" => "0.011", "test" => { "TESTS" => "t/*.t" } ); my %FallbackPrereqs = ( "Carp" => 0, "English" => 0, "Exporter" => 0, "Test2::V0" => 0, "constant" => 0, "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); LICENSE-GPL-3100644001750001750 10451515066162164 15356 0ustar00mikkoimikkoi000000000000Env-Assert-0.011 GNU GENERAL PUBLIC LICENSE Version 3, 29 June 2007 Copyright (C) 2007 Free Software Foundation, Inc. Everyone is permitted to copy and distribute verbatim copies of this license document, but changing it is not allowed. Preamble The GNU General Public License is a free, copyleft license for software and other kinds of works. The licenses for most software and other practical works are designed to take away your freedom to share and change the works. By contrast, the GNU General Public License is intended to guarantee your freedom to share and change all versions of a program--to make sure it remains free software for all its users. We, the Free Software Foundation, use the GNU General Public License for most of our software; it applies also to any other work released this way by its authors. You can apply it to your programs, too. When we speak of free software, we are referring to freedom, not price. Our General Public Licenses are designed to make sure that you have the freedom to distribute copies of free software (and charge for them if you wish), 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 prevent others from denying you these rights or asking you to surrender the rights. Therefore, you have certain responsibilities if you distribute copies of the software, or if you modify it: responsibilities to respect the freedom of others. For example, if you distribute copies of such a program, whether gratis or for a fee, you must pass on to the recipients the same freedoms that you received. You must make sure that they, too, receive or can get the source code. And you must show them these terms so they know their rights. Developers that use the GNU GPL protect your rights with two steps: (1) assert copyright on the software, and (2) offer you this License giving you legal permission to copy, distribute and/or modify it. For the developers' and authors' protection, the GPL clearly explains that there is no warranty for this free software. For both users' and authors' sake, the GPL requires that modified versions be marked as changed, so that their problems will not be attributed erroneously to authors of previous versions. Some devices are designed to deny users access to install or run modified versions of the software inside them, although the manufacturer can do so. This is fundamentally incompatible with the aim of protecting users' freedom to change the software. The systematic pattern of such abuse occurs in the area of products for individuals to use, which is precisely where it is most unacceptable. Therefore, we have designed this version of the GPL to prohibit the practice for those products. If such problems arise substantially in other domains, we stand ready to extend this provision to those domains in future versions of the GPL, as needed to protect the freedom of users. Finally, every program is threatened constantly by software patents. States should not allow patents to restrict development and use of software on general-purpose computers, but in those that do, we wish to avoid the special danger that patents applied to a free program could make it effectively proprietary. To prevent this, the GPL assures that patents cannot be used to render the program non-free. The precise terms and conditions for copying, distribution and modification follow. TERMS AND CONDITIONS 0. Definitions. "This License" refers to version 3 of the GNU General Public License. "Copyright" also means copyright-like laws that apply to other kinds of works, such as semiconductor masks. "The Program" refers to any copyrightable work licensed under this License. Each licensee is addressed as "you". "Licensees" and "recipients" may be individuals or organizations. To "modify" a work means to copy from or adapt all or part of the work in a fashion requiring copyright permission, other than the making of an exact copy. The resulting work is called a "modified version" of the earlier work or a work "based on" the earlier work. A "covered work" means either the unmodified Program or a work based on the Program. To "propagate" a work means to do anything with it that, without permission, would make you directly or secondarily liable for infringement under applicable copyright law, except executing it on a computer or modifying a private copy. Propagation includes copying, distribution (with or without modification), making available to the public, and in some countries other activities as well. To "convey" a work means any kind of propagation that enables other parties to make or receive copies. Mere interaction with a user through a computer network, with no transfer of a copy, is not conveying. An interactive user interface displays "Appropriate Legal Notices" to the extent that it includes a convenient and prominently visible feature that (1) displays an appropriate copyright notice, and (2) tells the user that there is no warranty for the work (except to the extent that warranties are provided), that licensees may convey the work under this License, and how to view a copy of this License. If the interface presents a list of user commands or options, such as a menu, a prominent item in the list meets this criterion. 1. Source Code. The "source code" for a work means the preferred form of the work for making modifications to it. "Object code" means any non-source form of a work. A "Standard Interface" means an interface that either is an official standard defined by a recognized standards body, or, in the case of interfaces specified for a particular programming language, one that is widely used among developers working in that language. The "System Libraries" of an executable work include anything, other than the work as a whole, that (a) is included in the normal form of packaging a Major Component, but which is not part of that Major Component, and (b) serves only to enable use of the work with that Major Component, or to implement a Standard Interface for which an implementation is available to the public in source code form. A "Major Component", in this context, means a major essential component (kernel, window system, and so on) of the specific operating system (if any) on which the executable work runs, or a compiler used to produce the work, or an object code interpreter used to run it. The "Corresponding Source" for a work in object code form means all the source code needed to generate, install, and (for an executable work) run the object code and to modify the work, including scripts to control those activities. However, it does not include the work's System Libraries, or general-purpose tools or generally available free programs which are used unmodified in performing those activities but which are not part of the work. For example, Corresponding Source includes interface definition files associated with source files for the work, and the source code for shared libraries and dynamically linked subprograms that the work is specifically designed to require, such as by intimate data communication or control flow between those subprograms and other parts of the work. The Corresponding Source need not include anything that users can regenerate automatically from other parts of the Corresponding Source. The Corresponding Source for a work in source code form is that same work. 2. Basic Permissions. All rights granted under this License are granted for the term of copyright on the Program, and are irrevocable provided the stated conditions are met. This License explicitly affirms your unlimited permission to run the unmodified Program. The output from running a covered work is covered by this License only if the output, given its content, constitutes a covered work. This License acknowledges your rights of fair use or other equivalent, as provided by copyright law. You may make, run and propagate covered works that you do not convey, without conditions so long as your license otherwise remains in force. You may convey covered works to others for the sole purpose of having them make modifications exclusively for you, or provide you with facilities for running those works, provided that you comply with the terms of this License in conveying all material for which you do not control copyright. Those thus making or running the covered works for you must do so exclusively on your behalf, under your direction and control, on terms that prohibit them from making any copies of your copyrighted material outside their relationship with you. Conveying under any other circumstances is permitted solely under the conditions stated below. Sublicensing is not allowed; section 10 makes it unnecessary. 3. Protecting Users' Legal Rights From Anti-Circumvention Law. No covered work shall be deemed part of an effective technological measure under any applicable law fulfilling obligations under article 11 of the WIPO copyright treaty adopted on 20 December 1996, or similar laws prohibiting or restricting circumvention of such measures. When you convey a covered work, you waive any legal power to forbid circumvention of technological measures to the extent such circumvention is effected by exercising rights under this License with respect to the covered work, and you disclaim any intention to limit operation or modification of the work as a means of enforcing, against the work's users, your or third parties' legal rights to forbid circumvention of technological measures. 4. Conveying Verbatim Copies. You may convey 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; keep intact all notices stating that this License and any non-permissive terms added in accord with section 7 apply to the code; keep intact all notices of the absence of any warranty; and give all recipients a copy of this License along with the Program. You may charge any price or no price for each copy that you convey, and you may offer support or warranty protection for a fee. 5. Conveying Modified Source Versions. You may convey a work based on the Program, or the modifications to produce it from the Program, in the form of source code under the terms of section 4, provided that you also meet all of these conditions: a) The work must carry prominent notices stating that you modified it, and giving a relevant date. b) The work must carry prominent notices stating that it is released under this License and any conditions added under section 7. This requirement modifies the requirement in section 4 to "keep intact all notices". c) You must license the entire work, as a whole, under this License to anyone who comes into possession of a copy. This License will therefore apply, along with any applicable section 7 additional terms, to the whole of the work, and all its parts, regardless of how they are packaged. This License gives no permission to license the work in any other way, but it does not invalidate such permission if you have separately received it. d) If the work has interactive user interfaces, each must display Appropriate Legal Notices; however, if the Program has interactive interfaces that do not display Appropriate Legal Notices, your work need not make them do so. A compilation of a covered work with other separate and independent works, which are not by their nature extensions of the covered work, and which are not combined with it such as to form a larger program, in or on a volume of a storage or distribution medium, is called an "aggregate" if the compilation and its resulting copyright are not used to limit the access or legal rights of the compilation's users beyond what the individual works permit. Inclusion of a covered work in an aggregate does not cause this License to apply to the other parts of the aggregate. 6. Conveying Non-Source Forms. You may convey a covered work in object code form under the terms of sections 4 and 5, provided that you also convey the machine-readable Corresponding Source under the terms of this License, in one of these ways: a) Convey the object code in, or embodied in, a physical product (including a physical distribution medium), accompanied by the Corresponding Source fixed on a durable physical medium customarily used for software interchange. b) Convey the object code in, or embodied in, a physical product (including a physical distribution medium), accompanied by a written offer, valid for at least three years and valid for as long as you offer spare parts or customer support for that product model, to give anyone who possesses the object code either (1) a copy of the Corresponding Source for all the software in the product that is covered by this License, on a durable physical medium customarily used for software interchange, for a price no more than your reasonable cost of physically performing this conveying of source, or (2) access to copy the Corresponding Source from a network server at no charge. c) Convey individual copies of the object code with a copy of the written offer to provide the Corresponding Source. This alternative is allowed only occasionally and noncommercially, and only if you received the object code with such an offer, in accord with subsection 6b. d) Convey the object code by offering access from a designated place (gratis or for a charge), and offer equivalent access to the Corresponding Source in the same way through the same place at no further charge. You need not require recipients to copy the Corresponding Source along with the object code. If the place to copy the object code is a network server, the Corresponding Source may be on a different server (operated by you or a third party) that supports equivalent copying facilities, provided you maintain clear directions next to the object code saying where to find the Corresponding Source. Regardless of what server hosts the Corresponding Source, you remain obligated to ensure that it is available for as long as needed to satisfy these requirements. e) Convey the object code using peer-to-peer transmission, provided you inform other peers where the object code and Corresponding Source of the work are being offered to the general public at no charge under subsection 6d. A separable portion of the object code, whose source code is excluded from the Corresponding Source as a System Library, need not be included in conveying the object code work. A "User Product" is either (1) a "consumer product", which means any tangible personal property which is normally used for personal, family, or household purposes, or (2) anything designed or sold for incorporation into a dwelling. In determining whether a product is a consumer product, doubtful cases shall be resolved in favor of coverage. For a particular product received by a particular user, "normally used" refers to a typical or common use of that class of product, regardless of the status of the particular user or of the way in which the particular user actually uses, or expects or is expected to use, the product. A product is a consumer product regardless of whether the product has substantial commercial, industrial or non-consumer uses, unless such uses represent the only significant mode of use of the product. "Installation Information" for a User Product means any methods, procedures, authorization keys, or other information required to install and execute modified versions of a covered work in that User Product from a modified version of its Corresponding Source. The information must suffice to ensure that the continued functioning of the modified object code is in no case prevented or interfered with solely because modification has been made. If you convey an object code work under this section in, or with, or specifically for use in, a User Product, and the conveying occurs as part of a transaction in which the right of possession and use of the User Product is transferred to the recipient in perpetuity or for a fixed term (regardless of how the transaction is characterized), the Corresponding Source conveyed under this section must be accompanied by the Installation Information. But this requirement does not apply if neither you nor any third party retains the ability to install modified object code on the User Product (for example, the work has been installed in ROM). The requirement to provide Installation Information does not include a requirement to continue to provide support service, warranty, or updates for a work that has been modified or installed by the recipient, or for the User Product in which it has been modified or installed. Access to a network may be denied when the modification itself materially and adversely affects the operation of the network or violates the rules and protocols for communication across the network. Corresponding Source conveyed, and Installation Information provided, in accord with this section must be in a format that is publicly documented (and with an implementation available to the public in source code form), and must require no special password or key for unpacking, reading or copying. 7. Additional Terms. "Additional permissions" are terms that supplement the terms of this License by making exceptions from one or more of its conditions. Additional permissions that are applicable to the entire Program shall be treated as though they were included in this License, to the extent that they are valid under applicable law. If additional permissions apply only to part of the Program, that part may be used separately under those permissions, but the entire Program remains governed by this License without regard to the additional permissions. When you convey a copy of a covered work, you may at your option remove any additional permissions from that copy, or from any part of it. (Additional permissions may be written to require their own removal in certain cases when you modify the work.) You may place additional permissions on material, added by you to a covered work, for which you have or can give appropriate copyright permission. Notwithstanding any other provision of this License, for material you add to a covered work, you may (if authorized by the copyright holders of that material) supplement the terms of this License with terms: a) Disclaiming warranty or limiting liability differently from the terms of sections 15 and 16 of this License; or b) Requiring preservation of specified reasonable legal notices or author attributions in that material or in the Appropriate Legal Notices displayed by works containing it; or c) Prohibiting misrepresentation of the origin of that material, or requiring that modified versions of such material be marked in reasonable ways as different from the original version; or d) Limiting the use for publicity purposes of names of licensors or authors of the material; or e) Declining to grant rights under trademark law for use of some trade names, trademarks, or service marks; or f) Requiring indemnification of licensors and authors of that material by anyone who conveys the material (or modified versions of it) with contractual assumptions of liability to the recipient, for any liability that these contractual assumptions directly impose on those licensors and authors. All other non-permissive additional terms are considered "further restrictions" within the meaning of section 10. If the Program as you received it, or any part of it, contains a notice stating that it is governed by this License along with a term that is a further restriction, you may remove that term. If a license document contains a further restriction but permits relicensing or conveying under this License, you may add to a covered work material governed by the terms of that license document, provided that the further restriction does not survive such relicensing or conveying. If you add terms to a covered work in accord with this section, you must place, in the relevant source files, a statement of the additional terms that apply to those files, or a notice indicating where to find the applicable terms. Additional terms, permissive or non-permissive, may be stated in the form of a separately written license, or stated as exceptions; the above requirements apply either way. 8. Termination. You may not propagate or modify a covered work except as expressly provided under this License. Any attempt otherwise to propagate or modify it is void, and will automatically terminate your rights under this License (including any patent licenses granted under the third paragraph of section 11). However, if you cease all violation of this License, then your license from a particular copyright holder is reinstated (a) provisionally, unless and until the copyright holder explicitly and finally terminates your license, and (b) permanently, if the copyright holder fails to notify you of the violation by some reasonable means prior to 60 days after the cessation. Moreover, your license from a particular copyright holder is reinstated permanently if the copyright holder notifies you of the violation by some reasonable means, this is the first time you have received notice of violation of this License (for any work) from that copyright holder, and you cure the violation prior to 30 days after your receipt of the notice. Termination of your rights under this section does not terminate the licenses of parties who have received copies or rights from you under this License. If your rights have been terminated and not permanently reinstated, you do not qualify to receive new licenses for the same material under section 10. 9. Acceptance Not Required for Having Copies. You are not required to accept this License in order to receive or run a copy of the Program. Ancillary propagation of a covered work occurring solely as a consequence of using peer-to-peer transmission to receive a copy likewise does not require acceptance. However, nothing other than this License grants you permission to propagate or modify any covered work. These actions infringe copyright if you do not accept this License. Therefore, by modifying or propagating a covered work, you indicate your acceptance of this License to do so. 10. Automatic Licensing of Downstream Recipients. Each time you convey a covered work, the recipient automatically receives a license from the original licensors, to run, modify and propagate that work, subject to this License. You are not responsible for enforcing compliance by third parties with this License. An "entity transaction" is a transaction transferring control of an organization, or substantially all assets of one, or subdividing an organization, or merging organizations. If propagation of a covered work results from an entity transaction, each party to that transaction who receives a copy of the work also receives whatever licenses to the work the party's predecessor in interest had or could give under the previous paragraph, plus a right to possession of the Corresponding Source of the work from the predecessor in interest, if the predecessor has it or can get it with reasonable efforts. You may not impose any further restrictions on the exercise of the rights granted or affirmed under this License. For example, you may not impose a license fee, royalty, or other charge for exercise of rights granted under this License, and you may not initiate litigation (including a cross-claim or counterclaim in a lawsuit) alleging that any patent claim is infringed by making, using, selling, offering for sale, or importing the Program or any portion of it. 11. Patents. A "contributor" is a copyright holder who authorizes use under this License of the Program or a work on which the Program is based. The work thus licensed is called the contributor's "contributor version". A contributor's "essential patent claims" are all patent claims owned or controlled by the contributor, whether already acquired or hereafter acquired, that would be infringed by some manner, permitted by this License, of making, using, or selling its contributor version, but do not include claims that would be infringed only as a consequence of further modification of the contributor version. For purposes of this definition, "control" includes the right to grant patent sublicenses in a manner consistent with the requirements of this License. Each contributor grants you a non-exclusive, worldwide, royalty-free patent license under the contributor's essential patent claims, to make, use, sell, offer for sale, import and otherwise run, modify and propagate the contents of its contributor version. In the following three paragraphs, a "patent license" is any express agreement or commitment, however denominated, not to enforce a patent (such as an express permission to practice a patent or covenant not to sue for patent infringement). To "grant" such a patent license to a party means to make such an agreement or commitment not to enforce a patent against the party. If you convey a covered work, knowingly relying on a patent license, and the Corresponding Source of the work is not available for anyone to copy, free of charge and under the terms of this License, through a publicly available network server or other readily accessible means, then you must either (1) cause the Corresponding Source to be so available, or (2) arrange to deprive yourself of the benefit of the patent license for this particular work, or (3) arrange, in a manner consistent with the requirements of this License, to extend the patent license to downstream recipients. "Knowingly relying" means you have actual knowledge that, but for the patent license, your conveying the covered work in a country, or your recipient's use of the covered work in a country, would infringe one or more identifiable patents in that country that you have reason to believe are valid. If, pursuant to or in connection with a single transaction or arrangement, you convey, or propagate by procuring conveyance of, a covered work, and grant a patent license to some of the parties receiving the covered work authorizing them to use, propagate, modify or convey a specific copy of the covered work, then the patent license you grant is automatically extended to all recipients of the covered work and works based on it. A patent license is "discriminatory" if it does not include within the scope of its coverage, prohibits the exercise of, or is conditioned on the non-exercise of one or more of the rights that are specifically granted under this License. You may not convey a covered work if you are a party to an arrangement with a third party that is in the business of distributing software, under which you make payment to the third party based on the extent of your activity of conveying the work, and under which the third party grants, to any of the parties who would receive the covered work from you, a discriminatory patent license (a) in connection with copies of the covered work conveyed by you (or copies made from those copies), or (b) primarily for and in connection with specific products or compilations that contain the covered work, unless you entered into that arrangement, or that patent license was granted, prior to 28 March 2007. Nothing in this License shall be construed as excluding or limiting any implied license or other defenses to infringement that may otherwise be available to you under applicable patent law. 12. No Surrender of Others' Freedom. If conditions are imposed on you (whether by court order, agreement or otherwise) that contradict the conditions of this License, they do not excuse you from the conditions of this License. If you cannot convey a covered work so as to satisfy simultaneously your obligations under this License and any other pertinent obligations, then as a consequence you may not convey it at all. For example, if you agree to terms that obligate you to collect a royalty for further conveying from those to whom you convey the Program, the only way you could satisfy both those terms and this License would be to refrain entirely from conveying the Program. 13. Use with the GNU Affero General Public License. Notwithstanding any other provision of this License, you have permission to link or combine any covered work with a work licensed under version 3 of the GNU Affero General Public License into a single combined work, and to convey the resulting work. The terms of this License will continue to apply to the part which is the covered work, but the special requirements of the GNU Affero General Public License, section 13, concerning interaction through a network will apply to the combination as such. 14. Revised Versions of this License. The Free Software Foundation may publish revised and/or new versions of the GNU 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 that a certain numbered version of the GNU General Public License "or any later version" applies to it, you have the option of following the terms and conditions either of that numbered version or of any later version published by the Free Software Foundation. If the Program does not specify a version number of the GNU General Public License, you may choose any version ever published by the Free Software Foundation. If the Program specifies that a proxy can decide which future versions of the GNU General Public License can be used, that proxy's public statement of acceptance of a version permanently authorizes you to choose that version for the Program. Later license versions may give you additional or different permissions. However, no additional obligations are imposed on any author or copyright holder as a result of your choosing to follow a later version. 15. Disclaimer of Warranty. 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. 16. Limitation of Liability. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MODIFIES AND/OR CONVEYS 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. 17. Interpretation of Sections 15 and 16. If the disclaimer of warranty and limitation of liability provided above cannot be given local legal effect according to their terms, reviewing courts shall apply local law that most closely approximates an absolute waiver of all civil liability in connection with the Program, unless a warranty or assumption of liability accompanies a copy of the Program in return for a fee. END OF TERMS AND CONDITIONS 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 the public, 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 state the exclusion of warranty; and each file should have at least the "copyright" line and a pointer to where the full notice is found. Copyright (C) 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 3 of the License, 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, see . Also add information on how to contact you by electronic and paper mail. If the program does terminal interaction, make it output a short notice like this when it starts in an interactive mode: Copyright (C) This program 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, your program's commands might be different; for a GUI interface, you would use an "about box". You should also get your employer (if you work as a programmer) or school, if any, to sign a "copyright disclaimer" for the program, if necessary. For more information on this, and how to apply and follow the GNU GPL, see . The GNU General Public License does not permit incorporating your program into proprietary programs. If your program is a subroutine library, you may consider it more useful to permit linking proprietary applications with the library. If this is what you want to do, use the GNU Lesser General Public License instead of this License. But first, please read . CONTRIBUTING.md100644001750001750 575015066162164 15763 0ustar00mikkoimikkoi000000000000Env-Assert-0.011## HOW TO CONTRIBUTE Thank you for considering contributing to this distribution. This file contains instructions that will help you work with the source code. The distribution is managed with Dist::Zilla. This means than many of the usual files you might expect are not in the repository, but are generated at release time, as is much of the documentation. Some generated files are kept in the repository as a convenience (e.g. Makefile.PL or cpanfile). Generally, **you do not need Dist::Zilla to contribute patches**. You do need Dist::Zilla to create a tarball. See below for guidance. ### Getting dependencies If you have App::cpanminus 1.6 or later installed, you can use `cpanm` to satisfy dependencies like this: $ cpanm --installdeps . Otherwise, look for either a `Makefile.PL` or `cpanfile` file for a list of dependencies to satisfy. ### Running tests You can run tests directly using the `prove` tool: $ prove -l $ prove -lv t/some_test_file.t For most of my distributions, `prove` is entirely sufficient for you to test any patches you have. I use `prove` for 99% of my testing during development. ### Code style and tidying Please try to match any existing coding style. If there is a `.perltidyrc` file, please install Perl::Tidy and use perltidy before submitting patches. If there is a `tidyall.ini` file, you can also install Code::TidyAll and run `tidyall` on a file or `tidyall -a` to tidy all files. ### Patching documentation Much of the documentation Pod is generated at release time. Some is generated boilerplate; other documentation is built from pseudo-POD directives in the source like C<=method> or C<=func>. If you would like to submit a documentation edit, please limit yourself to the documentation you see. If you see typos or documentation issues in the generated docs, please email or open a bug ticket instead of patching. ### Installing and using Dist::Zilla Dist::Zilla is a very powerful authoring tool, optimized for maintaining a large number of distributions with a high degree of automation, but it has a large dependency chain, a bit of a learning curve and requires a number of author-specific plugins. To install it from CPAN, I recommend one of the following approaches for the quickest installation: # using CPAN.pm, but bypassing non-functional pod tests $ cpan TAP::Harness::Restricted $ PERL_MM_USE_DEFAULT=1 HARNESS_CLASS=TAP::Harness::Restricted cpan Dist::Zilla # using cpanm, bypassing *all* tests $ cpanm -n Dist::Zilla In either case, it's probably going to take about 10 minutes. Go for a walk, go get a cup of your favorite beverage, take a bathroom break, or whatever. When you get back, Dist::Zilla should be ready for you. Then you need to install any plugins specific to this distribution: $ cpan `dzil authordeps` $ dzil authordeps | cpanm Once installed, here are some dzil commands you might try: $ dzil build $ dzil test $ dzil xtest You can learn more about Dist::Zilla at http://dzil.org/ author000755001750001750 015066162164 15320 5ustar00mikkoimikkoi000000000000Env-Assert-0.011/xteol.t100644001750001750 54715066162164 16412 0ustar00mikkoimikkoi000000000000Env-Assert-0.011/xt/authoruse strict; use warnings; # this test was generated with Dist::Zilla::Plugin::Test::EOL 0.19 use Test::More 0.88; use Test::EOL; my @files = ( 'lib/Env/Assert.pm', 't/env-assert-private.t', 't/env-assert-public-assert.t', 't/env-assert-public-report_errors.t' ); eol_unix_ok($_, { trailing_whitespace => 1 }) foreach @files; done_testing; script000755001750001750 015066162164 14667 5ustar00mikkoimikkoi000000000000Env-Assert-0.011envassert100755001750001750 1302715066162164 17012 0ustar00mikkoimikkoi000000000000Env-Assert-0.011/script#!/usr/bin/env perl ## no critic (ControlStructures::ProhibitPostfixControls) ## no critic (ValuesAndExpressions::ProhibitConstantPragma) use strict; use warnings; use open ':std', IO => ':encoding(UTF-8)'; # ABSTRACT: Ensure that the environment variables match what you need, or abort. # PODNAME: envassert our $VERSION = '0.011'; use English qw( -no_match_vars ); # Avoids regex performance penalty in perl 5.18 and earlier use Getopt::Long qw( :config auto_version auto_help ); use Carp; use Pod::Usage; use Env::Assert qw( :all ); local $OUTPUT_AUTOFLUSH = 1; use constant { YEAR_START => 1900, MONTH_START => 1, ENV_DESC_FILENAME => '.envdesc', INDENT => q{ }, }; my $man = 0; my $break_at_first_error; my $env_desc_filename = ENV_DESC_FILENAME; my $exact; GetOptions( 'man' => \$man, 'break-at-first-error|b!' => \$break_at_first_error, 'env-description|e=s' => , \$env_desc_filename, 'exact|x!' => \$exact, ) or pod2usage(2); pod2usage(-exitval => 0, -verbose => 2) if $man; sub main { open my $fh, q{<}, $env_desc_filename or croak "Cannot open file '$env_desc_filename'"; my $env_desc_file = q{}; my @env_desc_rows; while( <$fh> ) { chomp; push @env_desc_rows, $_; } close $fh or croak "Cannot close file '$env_desc_filename'"; my $desc = file_to_desc( @env_desc_rows ); my %parameters; $parameters{'break_at_first_error'} = $break_at_first_error if defined $break_at_first_error; $desc->{'options'}->{'exact'} = $exact if defined $exact; my $r = assert( \%ENV, $desc, \%parameters ); if( ! $r->{'success'} ) { print {*STDOUT} report_errors( $r->{'errors'} ) or croak 'Cannot print errors to STDOUT'; return 1; } return 0; } exit main(@ARGV); __END__ =pod =head1 SYNOPSIS envassert [options] Options: --help --man --version --break-at-error --env-description =head1 OPTIONS =over 8 =item B<--help> Print a brief help message and exits. =item B<--man> Prints the manual page and exits. =item B<--version> Prints the version and exits. =item B<-b>, B<--break-at-first-error> Break checking at the first error and report back. Default: false =item B<-e>, B<--env-description> Path to file which has the environment description. Default: .envdesc =item B<-x>, B<--exact> Fail check if environment contains variables not defined in environment descript. This option will override the equivalent option in .envdesc file. Default: false =back =head1 DESCRIPTION B checks that your runtime environment, as defined with environment variables, matches with what you want. You can define your required environment in a file. Default file is F<.envassert> but you can use any file. It is advantageous to use B for examnple when running a container. If you check your environment for missing or wrongly defined environment variables at the beginning of the container run, your container will fail sooner instead of in a later point in execution when the variables are needed. =head2 Errors There are three kinds of errors: =over 8 =item ENV_ASSERT_MISSING_FROM_ENVIRONMENT "Variable is missing from environment" =item ENV_ASSERT_INVALID_CONTENT_IN_VARIABLE "Variable has invalid content" =item ENV_ASSERT_MISSING_FROM_DEFINITION "Variable is missing from description" This error will only be reported if you have set the special option B. See below. =back =head2 Environment Description Language Environment is described in file F<.envdesc>. Environment description file is a Unix shell compatible file, similar to a F<.env> file. =head3 F<.envdesc> Format In F<.envdesc> file there is only environment variables, comments or empty rows. Example: # Required env ## envassert (opts: exact=1) FILENAME=^[[:word:]]{1,}$ Env var name is followed by a regular expression. The regexp is an extended Perl regular expression without quotation marks. One env var and its descriptive regexp use one row. A comment begins at the beginning of the row and uses the whole row. It start with '#' character. Two comment characters and the word B at the beginning of the row mean this is an B meta command. You can specify different environment related options with these commands. Supported options: =over 8 =item exact The option I means that all allowed env variables are described in this file. Any unknown env var causes an error when verifying. =back =head2 CLI interface without dependencies The F command is also available as self contained executable. You can download it and run it as it is without additional installation of CPAN packages. Of course, you still need Perl, but Perl comes with any normal Linux installation. This can be convenient if you want to, for instance, include F in a docker container build. curl -LSs -o envassert https://raw.githubusercontent.com/mikkoi/env-assert/main/envassert.self-contained chmod +x ./envassert =head1 EXAMPLES $ envassert Environment Assert: ERRORS: variables: FIRST_VAR: Variable FIRST_VAR is missing from environment FOURTH_VAR: Variable FOURTH_VAR is missing from environment =head1 DEPENDENCIES No external dependencies outside Perl's standard distribution. =head1 SEE ALSO L is a "sister" to Env::Assert. Read environment variables from a F<.env> file directly into you program. There is also script F which can turn F<.env> file's content into environment variables for different shells. =cut Env000755001750001750 015066162164 14661 5ustar00mikkoimikkoi000000000000Env-Assert-0.011/libAssert.pm100644001750001750 1537415066162164 16652 0ustar00mikkoimikkoi000000000000Env-Assert-0.011/lib/Env## no critic [ControlStructures::ProhibitPostfixControls] ## no critic [ValuesAndExpressions::ProhibitConstantPragma] ## no critic (ControlStructures::ProhibitCascadingIfElse) package Env::Assert; use strict; use warnings; use Exporter 'import'; our @EXPORT_OK = qw( assert report_errors file_to_desc ); our %EXPORT_TAGS = ( 'all' => [qw( assert report_errors file_to_desc )], ); use English qw( -no_match_vars ); # Avoids regex performance penalty in perl 5.18 and earlier use Carp; # ABSTRACT: Ensure that the environment variables match what you need, or abort. our $VERSION = '0.011'; use constant { ENV_ASSERT_MISSING_FROM_ENVIRONMENT => 1, ENV_ASSERT_INVALID_CONTENT_IN_VARIABLE => 2, ENV_ASSERT_MISSING_FROM_DEFINITION => 3, DEFAULT_PARAMETER_BREAK_AT_FIRST_ERROR => 0, INDENT => q{ }, }; sub assert { my ( $env, $want, $params ) = @_; $params = {} if !$params; croak 'Invalid options. Not a hash' if ( ref $env ne 'HASH' || ref $want ne 'HASH' ); # Set default options $params->{'break_at_first_error'} //= DEFAULT_PARAMETER_BREAK_AT_FIRST_ERROR; my $success = 1; my %errors; my $vars = $want->{'variables'}; my $opts = $want->{'options'}; foreach my $var_name ( keys %{$vars} ) { my $var = $vars->{$var_name}; my $required = $var->{'required'} // 1; my $regexp = $var->{'regexp'} // q{.*}; if ( ( $opts->{'exact'} || $required ) && !defined $env->{$var_name} ) { $success = 0; $errors{'variables'}->{$var_name} = { type => ENV_ASSERT_MISSING_FROM_ENVIRONMENT, message => "Variable $var_name is missing from environment", }; goto EXIT if ( $params->{'break_at_first_error'} ); } elsif ( $env->{$var_name} !~ m/$regexp/msx ) { $success = 0; $errors{'variables'}->{$var_name} = { type => ENV_ASSERT_INVALID_CONTENT_IN_VARIABLE, message => "Variable $var_name has invalid content", }; goto EXIT if ( $params->{'break_at_first_error'} ); } } if ( $opts->{'exact'} ) { foreach my $var_name ( keys %{$env} ) { if ( !exists $vars->{$var_name} ) { $success = 0; $errors{'variables'}->{$var_name} = { type => ENV_ASSERT_MISSING_FROM_DEFINITION, message => "Variable $var_name is missing from description", }; goto EXIT if ( $params->{'break_at_first_error'} ); } } } EXIT: return { success => $success, errors => \%errors, }; } sub report_errors { my ($errors) = @_; my $out = q{}; $out .= sprintf "Environment Assert: ERRORS:\n"; foreach my $error_area_name ( sort keys %{$errors} ) { $out .= sprintf "%s%s:\n", INDENT, $error_area_name; foreach my $error_key ( sort keys %{ $errors->{$error_area_name} } ) { $out .= sprintf "%s%s: %s\n", INDENT . INDENT, $error_key, $errors->{$error_area_name}->{$error_key}->{'message'}; } } return $out; } sub file_to_desc { my @rows = @_; my %desc = ( 'options' => {}, 'variables' => {}, ); foreach (@rows) { # This is envassert meta command ## no critic (RegularExpressions::ProhibitComplexRegexes) if ( m{ ^ [[:space:]]{0,} [#]{2} [[:space:]]{1,} envassert [[:space:]]{1,} [(] opts: [[:space:]]{0,} (? .*) [)] [[:space:]]{0,} $ }msx ) { my $opts = _interpret_opts( $LAST_PAREN_MATCH{opts} ); foreach ( keys %{$opts} ) { $desc{'options'}->{$_} = $opts->{$_}; } } elsif ( # This is comment row m{ ^ [[:space:]]{0,} [#]{1} .* $ }msx ) { 1; } elsif ( # This is empty row m{ ^ [[:space:]]{0,} $ }msx ) { 1; } elsif ( # This is env var description m{ ^ (? [^=]{1,}) = (? .*) $ }msx ) { $desc{'variables'}->{ $LAST_PAREN_MATCH{name} } = { regexp => $LAST_PAREN_MATCH{value} }; } } return \%desc; } # Private subroutines sub _interpret_opts { my ($opts_str) = @_; my @opts = split qr{ [[:space:]]{0,} [,] [[:space:]]{0,} }msx, $opts_str; my %opts; foreach (@opts) { my ( $key, $val ) = split qr/=/msx; $opts{$key} = $val; } return \%opts; } 1; __END__ =pod =encoding UTF-8 =head1 NAME Env::Assert - Ensure that the environment variables match what you need, or abort. =head1 VERSION version 0.011 =head1 SYNOPSIS use Env::Assert qw( assert report_errors ); my %want = ( options => { exact => 1, }, variables => { USER => { regexp => '^[[:word:]]{1}$', required => 1 }, }, ); my %parameters; $parameters{'break_at_first_error'} = 1; my $r = assert( \%ENV, \%want, \%parameters ); if( ! $r->{'success'} ) { print report_errors( $r->{'errors'} ); } =for stopwords params env =head1 STATUS Package Env::Assert is currently being developed so changes in the API are possible, though not likely. =head1 NOTES =head1 DEPENDENCIES No external dependencies outside Perl's standard distribution. =head1 FUNCTIONS No functions are automatically exported to the calling namespace. =head2 assert( \%env, \%want, \%params ) Ensure your environment, parameter I (hashref), matches with the environment description, parameter I (hashref). Use parameter I (hashref) to specify processing options. Supported params: =over 8 =item break_at_first_error Verify environment only up until the first error. Then break and return with only that error. =back Return: hashref: { success => 1/0, errors => hashref, }; =head2 report_errors( \%errors ) Report errors in a nicely formatted way. =head2 file_to_desc( @rows ) Extract an environment description from a F<.envdesc> file. =head1 SEE ALSO L is a "sister" to Env::Assert. Read environment variables from a F<.env> file directly into you program. There is also script F which can turn F<.env> file's content into environment variables for different shells. =head1 AUTHOR Mikko Koivunalho =head1 COPYRIGHT AND LICENSE This software is copyright (c) 2023 by Mikko Koivunalho. 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 CODE_OF_CONDUCT.md100644001750001750 1153315066162164 16345 0ustar00mikkoimikkoi000000000000Env-Assert-0.011# Code of Conduct - Env::Assert ## Our Pledge In the interest of fostering an open and welcoming environment, we as contributors and maintainers pledge to make participation in our project and our community a harassment-free experience for everyone, regardless of age, body size, disability, ethnicity, sex characteristics, gender identity and expression, level of experience, education, socio-economic status, nationality, personal appearance, race, religion, or sexual identity and orientation. ## Our Standards Examples of behavior that contributes to a positive environment for our community include: * Demonstrating empathy and kindness toward other people * Being respectful of differing opinions, viewpoints, and experiences * Giving and gracefully accepting constructive feedback * Accepting responsibility and apologizing to those affected by our mistakes, and learning from the experience * Focusing on what is best not just for us as individuals, but for the overall community Examples of unacceptable behavior include: * The use of sexualized language or imagery, and sexual attention or advances * Trolling, insulting or derogatory comments, and personal or political attacks * Public or private harassment * Publishing others' private information, such as a physical or email address, without their explicit permission * Other conduct which could reasonably be considered inappropriate in a professional setting ## Our Responsibilities Project maintainers are responsible for clarifying and enforcing our standards of acceptable behavior and will take appropriate and fair corrective action in response to any behavior that they deem inappropriate, threatening, offensive, or harmful. Project maintainers have the right and responsibility to remove, edit, or reject comments, commits, code, wiki edits, issues, and other contributions that are not aligned to this Code of Conduct, and will communicate reasons for moderation decisions when appropriate. ## Scope This Code of Conduct applies within all community spaces, and also applies when an individual is officially representing the community in public spaces. Examples of representing our community include using an official e-mail address, posting via an official social media account, or acting as an appointed representative at an online or offline event. ## Enforcement Instances of abusive, harassing, or otherwise unacceptable behavior may be reported to the community leaders responsible for enforcement at . All complaints will be reviewed and investigated promptly and fairly. All community leaders are obligated to respect the privacy and security of the reporter of any incident. ## Enforcement Guidelines Community leaders will follow these Community Impact Guidelines in determining the consequences for any action they deem in violation of this Code of Conduct: ### 1. Correction **Community Impact**: Use of inappropriate language or other behavior deemed unprofessional or unwelcome in the community. **Consequence**: A private, written warning from community leaders, providing clarity around the nature of the violation and an explanation of why the behavior was inappropriate. A public apology may be requested. ### 2. Warning **Community Impact**: A violation through a single incident or series of actions. **Consequence**: A warning with consequences for continued behavior. No interaction with the people involved, including unsolicited interaction with those enforcing the Code of Conduct, for a specified period of time. This includes avoiding interactions in community spaces as well as external channels like social media. Violating these terms may lead to a temporary or permanent ban. ### 3. Temporary Ban **Community Impact**: A serious violation of community standards, including sustained inappropriate behavior. **Consequence**: A temporary ban from any sort of interaction or public communication with the community for a specified period of time. No public or private interaction with the people involved, including unsolicited interaction with those enforcing the Code of Conduct, is allowed during this period. Violating these terms may lead to a permanent ban. ### 4. Permanent Ban **Community Impact**: Demonstrating a pattern of violation of community standards, including sustained inappropriate behavior, harassment of an individual, or aggression toward or disparagement of classes of individuals. **Consequence**: A permanent ban from any sort of public interaction within the community. ## Attribution This Code of Conduct is adapted from the [Contributor Covenant](https://contributor-covenant.org/), version [1.4](https://www.contributor-covenant.org/version/1/4/code-of-conduct/code_of_conduct.md) and [2.0](https://www.contributor-covenant.org/version/2/0/code_of_conduct/code_of_conduct.md), and was generated by [contributing-gen](https://github.com/bttger/contributing-gen). critic.t100644001750001750 250615066162164 17125 0ustar00mikkoimikkoi000000000000Env-Assert-0.011/xt/author#!perl use strict; use warnings; my @conf = ; chomp @conf; use Test::Perl::Critic q{-profile} => \@conf, ; all_critic_ok(); __DATA__ # Integer or named level # SEVERITY NAME ...is equivalent to... SEVERITY NUMBER # -------------------------------------------------------- # -severity => 'gentle' -severity => 5 # -severity => 'stern' -severity => 4 # -severity => 'harsh' -severity => 3 # -severity => 'cruel' -severity => 2 # -severity => 'brutal' -severity => 1 severity = brutal # Only choose from Policies that are mentioned in the user's profile. Zero or One. Default: 0 only = 0 # Don't care for ## annotation. Zero or One force = 0 #Integer or format spec (1-11) verbose = 11 #Max number of violation. A positive integer top = 1000 #A theme expression ##theme = (pbp || security) && bugs #Space-delimited list ##include = NamingConventions ClassHierarchies #Space-delimited list ##exclude = Variables Modules::RequirePackage ##exclude = ControlStructures::ProhibitPostfixControls # Zero or One #color = 1 # Allow the use of Policies that are marked as "unsafe" by the author. Zero or One allow-unsafe = 0 exclude = Modules::RequireVersionVar Documentation CodeLayout::RequireTidyCode no-tabs.t100644001750001750 51515066162164 17171 0ustar00mikkoimikkoi000000000000Env-Assert-0.011/xt/authoruse strict; use warnings; # this test was generated with Dist::Zilla::Plugin::Test::NoTabs 0.15 use Test::More 0.88; use Test::NoTabs; my @files = ( 'lib/Env/Assert.pm', 't/env-assert-private.t', 't/env-assert-public-assert.t', 't/env-assert-public-report_errors.t' ); notabs_ok($_) foreach @files; done_testing; LICENSE-Artistic-2.0100644001750001750 2074115066162164 16631 0ustar00mikkoimikkoi000000000000Env-Assert-0.011The Artistic License 2.0 Copyright (c) 2000-2006, The Perl Foundation. Everyone is permitted to copy and distribute verbatim copies of this license document, but changing it is not allowed. Preamble This license establishes the terms under which a given free software Package may be copied, modified, distributed, and/or redistributed. The intent is that the Copyright Holder maintains some artistic control over the development of that Package while still keeping the Package available as open source and free software. You are always permitted to make arrangements wholly outside of this license directly with the Copyright Holder of a given Package. If the terms of this license do not permit the full use that you propose to make of the Package, you should contact the Copyright Holder and seek a different licensing arrangement. Definitions "Copyright Holder" means the individual(s) or organization(s) named in the copyright notice for the entire Package. "Contributor" means any party that has contributed code or other material to the Package, in accordance with the Copyright Holder's procedures. "You" and "your" means any person who would like to copy, distribute, or modify the Package. "Package" means the collection of files distributed by the Copyright Holder, and derivatives of that collection and/or of those files. A given Package may consist of either the Standard Version, or a Modified Version. "Distribute" means providing a copy of the Package or making it accessible to anyone else, or in the case of a company or organization, to others outside of your company or organization. "Distributor Fee" means any fee that you charge for Distributing this Package or providing support for this Package to another party. It does not mean licensing fees. "Standard Version" refers to the Package if it has not been modified, or has been modified only in ways explicitly requested by the Copyright Holder. "Modified Version" means the Package, if it has been changed, and such changes were not explicitly requested by the Copyright Holder. "Original License" means this Artistic License as Distributed with the Standard Version of the Package, in its current version or as it may be modified by The Perl Foundation in the future. "Source" form means the source code, documentation source, and configuration files for the Package. "Compiled" form means the compiled bytecode, object code, binary, or any other form resulting from mechanical transformation or translation of the Source form. Permission for Use and Modification Without Distribution (1) You are permitted to use the Standard Version and create and use Modified Versions for any purpose without restriction, provided that you do not Distribute the Modified Version. Permissions for Redistribution of the Standard Version (2) You may Distribute verbatim copies of the Source form of the Standard Version of this Package in any medium without restriction, either gratis or for a Distributor Fee, provided that you duplicate all of the original copyright notices and associated disclaimers. At your discretion, such verbatim copies may or may not include a Compiled form of the Package. (3) You may apply any bug fixes, portability changes, and other modifications made available from the Copyright Holder. The resulting Package will still be considered the Standard Version, and as such will be subject to the Original License. Distribution of Modified Versions of the Package as Source (4) You may Distribute your Modified Version as Source (either gratis or for a Distributor Fee, and with or without a Compiled form of the Modified Version) provided that you clearly document how it differs from the Standard Version, including, but not limited to, documenting any non-standard features, executables, or modules, and provided that you do at least ONE of the following: (a) make the Modified Version available to the Copyright Holder of the Standard Version, under the Original License, so that the Copyright Holder may include your modifications in the Standard Version. (b) ensure that installation of your Modified Version does not prevent the user installing or running the Standard Version. In addition, the Modified Version must bear a name that is different from the name of the Standard Version. (c) allow anyone who receives a copy of the Modified Version to make the Source form of the Modified Version available to others under (i) the Original License or (ii) a license that permits the licensee to freely copy, modify and redistribute the Modified Version using the same licensing terms that apply to the copy that the licensee received, and requires that the Source form of the Modified Version, and of any works derived from it, be made freely available in that license fees are prohibited but Distributor Fees are allowed. Distribution of Compiled Forms of the Standard Version or Modified Versions without the Source (5) You may Distribute Compiled forms of the Standard Version without the Source, provided that you include complete instructions on how to get the Source of the Standard Version. Such instructions must be valid at the time of your distribution. If these instructions, at any time while you are carrying out such distribution, become invalid, you must provide new instructions on demand or cease further distribution. If you provide valid instructions or cease distribution within thirty days after you become aware that the instructions are invalid, then you do not forfeit any of your rights under this license. (6) You may Distribute a Modified Version in Compiled form without the Source, provided that you comply with Section 4 with respect to the Source of the Modified Version. Aggregating or Linking the Package (7) You may aggregate the Package (either the Standard Version or Modified Version) with other packages and Distribute the resulting aggregation provided that you do not charge a licensing fee for the Package. Distributor Fees are permitted, and licensing fees for other components in the aggregation are permitted. The terms of this license apply to the use and Distribution of the Standard or Modified Versions as included in the aggregation. (8) You are permitted to link Modified and Standard Versions with other works, to embed the Package in a larger work of your own, or to build stand-alone binary or bytecode versions of applications that include the Package, and Distribute the result without restriction, provided the result does not expose a direct interface to the Package. Items That are Not Considered Part of a Modified Version (9) Works (including, but not limited to, modules and scripts) that merely extend or make use of the Package, do not, by themselves, cause the Package to be a Modified Version. In addition, such works are not considered parts of the Package itself, and are not subject to the terms of this license. General Provisions (10) Any use, modification, and distribution of the Standard or Modified Versions is governed by this Artistic License. By using, modifying or distributing the Package, you accept this license. Do not use, modify, or distribute the Package, if you do not accept this license. (11) If your Modified Version has been derived from a Modified Version made by someone other than you, you are nevertheless required to ensure that your Modified Version complies with the requirements of this license. (12) This license does not grant you the right to use any trademark, service mark, tradename, or logo of the Copyright Holder. (13) This license includes the non-exclusive, worldwide, free-of-charge patent license to make, have made, use, offer to sell, sell, import and otherwise transfer the Package with respect to any patent claims licensable by the Copyright Holder that are necessarily infringed by the Package. If you institute patent litigation (including a cross-claim or counterclaim) against any party alleging that the Package constitutes direct or contributory patent infringement, then this Artistic License to you shall terminate on the date that such litigation is filed. (14) Disclaimer of Warranty: THE PACKAGE IS PROVIDED BY THE COPYRIGHT HOLDER AND CONTRIBUTORS "AS IS' AND WITHOUT ANY EXPRESS OR IMPLIED WARRANTIES. THE IMPLIED WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE, OR NON-INFRINGEMENT ARE DISCLAIMED TO THE EXTENT PERMITTED BY YOUR LOCAL LAW. UNLESS REQUIRED BY LAW, NO COPYRIGHT HOLDER OR CONTRIBUTOR WILL BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, OR CONSEQUENTIAL DAMAGES ARISING IN ANY WAY OUT OF THE USE OF THE PACKAGE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. distmeta.t100644001750001750 22315066162164 17434 0ustar00mikkoimikkoi000000000000Env-Assert-0.011/xt/author#!perl # This file was automatically generated by Dist::Zilla::Plugin::MetaTests. use strict; use warnings; use Test::CPAN::Meta; meta_yaml_ok(); synopsis.t100644001750001750 6015066162164 17470 0ustar00mikkoimikkoi000000000000Env-Assert-0.011/xt/author#!perl use Test::Synopsis; all_synopsis_ok(); mojibake.t100644001750001750 15115066162164 17403 0ustar00mikkoimikkoi000000000000Env-Assert-0.011/xt/author#!perl use strict; use warnings qw(all); use Test::More; use Test::Mojibake; all_files_encoding_ok(); pod-spell.t100644001750001750 50615066162164 17525 0ustar00mikkoimikkoi000000000000Env-Assert-0.011/xt/authoruse strict; use warnings; use Test::More; # generated by Dist::Zilla::Plugin::Test::PodSpelling 2.007005 use Test::Spelling 0.12; use Pod::Wordlist; add_stopwords(); all_pod_files_spelling_ok( qw( bin lib ) ); __DATA__ Assert Bessarabov Env Ivan Koivunalho Mikko Ron Savage gregoa gregor herrmann ivan lib mikkoi ron release000755001750001750 015066162164 15436 5ustar00mikkoimikkoi000000000000Env-Assert-0.011/xtkwalitee.t100644001750001750 27515066162164 17554 0ustar00mikkoimikkoi000000000000Env-Assert-0.011/xt/release# this test was generated with Dist::Zilla::Plugin::Test::Kwalitee 2.12 use strict; use warnings; use Test::More 0.88; use Test::Kwalitee 1.21 'kwalitee_ok'; kwalitee_ok(); done_testing; signature.t100644001750001750 45515066162164 17632 0ustar00mikkoimikkoi000000000000Env-Assert-0.011/xt/author#!perl -w # This file was automatically generated by Dist::Zilla::Plugin::AuthorSignatureTest use strict; use warnings; use Test::More; unless (eval { require Test::Signature; 1 }) { plan skip_all => 'Test::Signature is required for this test'; } Test::Signature::signature_ok(); done_testing; t000755001750001750 015066162164 13626 5ustar00mikkoimikkoi000000000000Env-Assert-0.011env-assert-private.t100644001750001750 340315066162164 17712 0ustar00mikkoimikkoi000000000000Env-Assert-0.011/t#!perl ## no critic (Subroutines::ProtectPrivateSubs) ## no critic (ValuesAndExpressions::ProhibitMagicNumbers) use strict; use warnings; use Test2::V0; use Env::Assert qw( ); subtest 'Private Subroutine _interpret_opts()' => sub { { my $opts_str = 'exact=1'; my $opts = Env::Assert::_interpret_opts($opts_str); my %expected = ( exact => 1, ); is( $opts, \%expected, 'Read options successfully' ); } { my $opts_str = 'exact=0'; my $opts = Env::Assert::_interpret_opts($opts_str); my %expected = ( exact => 0, ); is( $opts, \%expected, 'Read options successfully' ); } { my $opts_str = 'exact=123'; my $opts = Env::Assert::_interpret_opts($opts_str); my %expected = ( exact => 123, ); is( $opts, \%expected, 'Read options successfully' ); } { my $opts_str = 'exact=1.234'; my $opts = Env::Assert::_interpret_opts($opts_str); my %expected = ( exact => 1.234, ); is( $opts, \%expected, 'Read options successfully' ); } { my $opts_str = 'exact=1,234'; my $opts = Env::Assert::_interpret_opts($opts_str); my %expected = ( exact => 1, 234 => undef ); is( $opts, \%expected, 'Read options successfully' ); } { my $opts_str = 'key_1=1,key_2=234, key_3=text , key_4=more text, key_5='; my $opts = Env::Assert::_interpret_opts($opts_str); my %expected = ( key_1 => 1, key_2 => 234, key_3 => 'text', key_4 => 'more text', key_5 => q{}, ); is( $opts, \%expected, 'Read options successfully' ); } done_testing; }; done_testing; pod-syntax.t100644001750001750 25215066162164 17732 0ustar00mikkoimikkoi000000000000Env-Assert-0.011/xt/author#!perl # This file was automatically generated by Dist::Zilla::Plugin::PodSyntaxTests. use strict; use warnings; use Test::More; use Test::Pod 1.41; all_pod_files_ok(); meta-json.t100644001750001750 6415066162164 17620 0ustar00mikkoimikkoi000000000000Env-Assert-0.011/xt/release#!perl use Test::CPAN::Meta::JSON; meta_json_ok(); portability.t100644001750001750 13015066162164 20161 0ustar00mikkoimikkoi000000000000Env-Assert-0.011/xt/authoruse strict; use warnings; use Test::More; use Test::Portability::Files; run_tests(); pod-coverage.t100644001750001750 36515066162164 20204 0ustar00mikkoimikkoi000000000000Env-Assert-0.011/xt/author#!perl # This file was automatically generated by Dist::Zilla::Plugin::PodCoverageTests. use strict; use warnings; use Test::Pod::Coverage 1.08; use Pod::Coverage::TrustPod; all_pod_coverage_ok({ coverage_class => 'Pod::Coverage::TrustPod' }); test-version.t100644001750001750 63715066162164 20275 0ustar00mikkoimikkoi000000000000Env-Assert-0.011/xt/authoruse strict; use warnings; use Test::More; # generated by Dist::Zilla::Plugin::Test::Version 1.09 use Test::Version; my @imports = qw( version_all_ok ); my $params = { is_strict => 0, has_version => 1, multiple => 0, }; push @imports, $params if version->parse( $Test::Version::VERSION ) >= version->parse('1.002'); Test::Version->import(@imports); version_all_ok; done_testing; unused-vars.t100644001750001750 14215066162164 20214 0ustar00mikkoimikkoi000000000000Env-Assert-0.011/xt/releaseuse Test::More 0.96 tests => 1; use Test::Vars; subtest 'unused vars' => sub { all_vars_ok(); }; cpan-changes.t100644001750001750 34415066162164 20273 0ustar00mikkoimikkoi000000000000Env-Assert-0.011/xt/releaseuse strict; use warnings; # this test was generated with Dist::Zilla::Plugin::Test::CPAN::Changes 0.013 use Test::More 0.96 tests => 1; use Test::CPAN::Changes; subtest 'changes_ok' => sub { changes_file_ok('Changes'); }; pod-linkcheck.t100644001750001750 53715066162164 20345 0ustar00mikkoimikkoi000000000000Env-Assert-0.011/xt/author#!perl 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; } dist-manifest.t100644001750001750 12215066162164 20505 0ustar00mikkoimikkoi000000000000Env-Assert-0.011/xt/releaseuse strict; use warnings; use Test::More; use Test::DistManifest; manifest_ok(); minimum-version.t100644001750001750 15215066162164 20761 0ustar00mikkoimikkoi000000000000Env-Assert-0.011/xt/authoruse strict; use warnings; use Test::More; use Test::MinimumVersion; all_minimum_version_ok( qq{5.014} ); env-assert-public-assert.t100644001750001750 1017115066162164 21035 0ustar00mikkoimikkoi000000000000Env-Assert-0.011/t#!perl ## no critic [ValuesAndExpressions::ProhibitConstantPragma] use strict; use warnings; use Test2::V0; use Env::Assert qw( assert ); use constant { ENV_ASSERT_MISSING_FROM_ENVIRONMENT => 1, ENV_ASSERT_INVALID_CONTENT_IN_VARIABLE => 2, ENV_ASSERT_MISSING_FROM_DEFINITION => 3, }; subtest 'Externals' => sub { { my %env = ( USER => 'random_user', ); my %want = ( options => { exact => 1, }, variables => {}, ); my %opts = (); my $r = assert( \%env, \%want, \%opts ); is( $r->{'success'}, 0, 'assert not success' ); is( keys %{ $r->{'errors'} }, 1, 'has errors' ); is( $r->{'errors'}->{'variables'}->{'USER'}->{'type'}, ENV_ASSERT_MISSING_FROM_DEFINITION, 'var missing from def' ); } { my %env = ( USER => 'random_user', ); my %want = ( options => { exact => 1, }, variables => { USER => { regexp => '^[[:word:]]{1}$', required => 1 }, }, ); my %opts = (); my $r = assert( \%env, \%want, \%opts ); is( $r->{'success'}, 0, 'assert not success' ); is( keys %{ $r->{'errors'} }, 1, 'has errors' ); is( $r->{'errors'}->{'variables'}->{'USER'}->{'type'}, ENV_ASSERT_INVALID_CONTENT_IN_VARIABLE, 'invalid content in var' ); } { my %env = ( USER => 'random_user', ); my %want = ( options => { exact => 1, }, variables => { NOUSER => { regexp => '^[[:word:]]{1}$', required => 1 }, }, ); my %opts = (); my $r = assert( \%env, \%want, \%opts ); is( $r->{'success'}, 0, 'assert not success' ); is( keys %{ $r->{'errors'} }, 1, 'has errors' ); is( $r->{'errors'}->{'variables'}->{'NOUSER'}->{'type'}, ENV_ASSERT_MISSING_FROM_ENVIRONMENT, 'var missing from env' ); } { my %env = ( USER => 'random_user', ); my %want = ( options => { exact => 0, }, variables => { NOUSER => { regexp => '^[[:word:]]{1}$', required => 1 }, NOPATH => { regexp => '^[[:word:]]{1}$', required => 1 }, }, ); my %opts = ( break_at_first_error => 0, ); my $r = assert( \%env, \%want, \%opts ); is( $r->{'success'}, 0, 'assert not success' ); is( scalar keys %{ $r->{'errors'}->{'variables'} }, 2, 'has errors' ); is( $r->{'errors'}->{'variables'}->{'NOUSER'}->{'type'}, ENV_ASSERT_MISSING_FROM_ENVIRONMENT, 'var missing from env' ); is( $r->{'errors'}->{'variables'}->{'NOPATH'}->{'type'}, ENV_ASSERT_MISSING_FROM_ENVIRONMENT, 'var missing from env' ); } { my %env = ( USER => 'random_user', HOME => '/home/users/random_user', A_DIGIT => '123456', ); my %want = ( options => { exact => 1, }, variables => { USER => { regexp => '^[[:word:]]{1,}$', required => 1 }, HOME => { regexp => '^[/]{1}[a-z0-9/_-]{1,}[a-z0-9]{1}', required => 1 }, A_DIGIT => { regexp => '\d+', required => 1 }, }, ); my %opts = ( break_at_first_error => 0, ); my $r = assert( \%env, \%want, \%opts ); ok( $r->{'success'}, 'assert success' ); is( $r->{'success'}, 1, 'assert not success' ); is( %{ $r->{'errors'} }, 0, 'no errors' ); } done_testing; }; done_testing; env-assert-public-report_errors.t100644001750001750 360715066162164 22431 0ustar00mikkoimikkoi000000000000Env-Assert-0.011/t#!perl ## no critic [ValuesAndExpressions::ProhibitConstantPragma] use strict; use warnings; use Test2::V0; use Env::Assert qw( report_errors ); use constant { ENV_ASSERT_MISSING_FROM_ENVIRONMENT => 1, ENV_ASSERT_INVALID_CONTENT_IN_VARIABLE => 2, ENV_ASSERT_MISSING_FROM_DEFINITION => 3, }; subtest 'Public Subroutine report_errors()' => sub { { my %errors = ( variables => { USER => { type => ENV_ASSERT_MISSING_FROM_DEFINITION, message => 'Variable USER has invalid content', }, }, ); my $expected = < { USER => { type => ENV_ASSERT_MISSING_FROM_ENVIRONMENT, message => 'Variable USER is missing from environment', }, NEEDLESS_1 => { type => ENV_ASSERT_MISSING_FROM_DEFINITION, message => 'Variable NEEDLESS_1 is missing from definition', }, }, ); my $expected = <