30 Mar 2022 09:25:47 UTC
- Distribution: Test-Smoke
- Module version: 0.004
- Source (raw)
- Browse (raw)
- How to Contribute
- Issues (24)
- Testers (221 / 5 / 0)
- KwaliteeBus factor: 2
- 65.73% Coverage
- License: perl_5
- Perl: v5.10.0
- Activity24 month
- Download (358.2KB)
- MetaCPAN Explorer
- Subscribe to distribution
- This version
- Latest version++ed by:2 non-PAUSE usersABELTJE Abe Timmerman
Test::Smoke::Policy - OO interface to handle the Policy.sh stuff.
use Test::Smoke::Policy; my $srcpath = File::Spec->updir; my $policy = Test::Smoke::Policy->new( $srcpath ); $policy->substitute(  ); $policy->write;
I wish I understood what Merijn is doeing in the original code.
Create a new instance of the Policy object. Read the file or take data from the DATA section.
Set the rules for substitutions.
_do_subst()does the substitutions and stores the substituted version as the _new_policy attribute.
$srcpathfor these conditions:
- Reference to a SCALAR Policy is in
- Reference to an ARRAY Policy is in
- Reference to a GLOB Policy is read from the filehandle
- Other values are taken as the base path for Policy.sh
@ccflagsare passed to
Generate the default Policy.sh from a set of ccflags, but be backward compatible.
(c) 2001-2015, All rights reserved.
* H.Merijn Brand <email@example.com> * Nicholas Clark <firstname.lastname@example.org> * Abe Timmerman <email@example.com>
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
* <http://www.perl.com/perl/misc/Artistic.html>, * <http://www.gnu.org/copyleft/gpl.html>
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.