Test::Smoke::Policy(3)User Contributed Perl DocumentatioTest::Smoke::Policy(3)NAMETest::Smoke::Policy - OO interface to handle the Policy.sh stuff.
SYNOPSIS
use Test::Smoke::Policy;
my $srcpath = File::Spec->updir;
my $policy = Test::Smoke::Policy->new( $srcpath );
$policy->substitute( [] );
$policy->write;
DESCRIPTION
I wish I understood what Merijn is doeing in the original code.
METHODS
Test::Smoke::Policy->new( $srcpath )
Create a new instance of the Policy object. Read the file or take
data from the DATA section.
$object->set_rules( $rules )
Set the rules for substitutions.
$object->reset_rules( )
Reset the "_rules" property.
$Policy->_do_subst( )
"_do_subst()" does the substitutions and stores the substituted
version as the _new_policy attribute.
$object->write( )
$self->_read_Policy( $srcpath[, $verbose[, @ccflags]] )
"_read_Policy()" checks the $srcpath for these conditions:
Reference to a SCALAR Policy is in $$srcpath
Reference to an ARRAY Policy is in @$srcpath
Reference to a GLOB Policy is read from the filehandle
Other values are taken as the base path for Policy.sh
The @ccflags are passed to "$self->default_Policy()"
$policy->default_Policy( [@ccflags] )
Generate the default Policy.sh from a set of ccflags, but be
backward compatible.
COPYRIGHT
(c) 2001-2003, All rights reserved.
* H.Merijn Brand <hmbrand@hccnet.nl>
* Nicholas Clark <nick@unfortu.net>
* Abe Timmerman <abeltje@cpan.org>
This library is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.
See:
* <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.
perl v5.14.1 2010-08-27 Test::Smoke::Policy(3)