1Test::Smoke::Policy(3)User Contributed Perl DocumentationTest::Smoke::Policy(3)
2
3
4
6 Test::Smoke::Policy - OO interface to handle the Policy.sh stuff.
7
9 use Test::Smoke::Policy;
10
11 my $srcpath = File::Spec->updir;
12 my $policy = Test::Smoke::Policy->new( $srcpath );
13
14 $policy->substitute( [] );
15 $policy->write;
16
18 I wish I understood what Merijn is doeing in the original code.
19
21 Test::Smoke::Policy->new( $srcpath )
22 Create a new instance of the Policy object. Read the file or take data
23 from the DATA section.
24
25 $policy->verbose
26 Get verbosity.
27
28 $policy->set_rules( $rules )
29 Set the rules for substitutions.
30
31 $policy->reset_rules( )
32 Reset the "_rules" property.
33
34 $policy->_do_subst( )
35 "_do_subst()" does the substitutions and stores the substituted version
36 as the _new_policy attribute.
37
38 $policy->write( )
39 $policy->_read_Policy( $srcpath[, $verbose[, @ccflags]] )
40 "_read_Policy()" checks the $srcpath for these conditions:
41
42 Reference to a SCALAR Policy is in $$srcpath
43 Reference to an ARRAY Policy is in @$srcpath
44 Reference to a GLOB Policy is read from the filehandle
45 Other values are taken as the base path for Policy.sh
46
47 The @ccflags are passed to "$self->default_Policy()"
48
49 $policy->default_Policy( [@ccflags] )
50 Generate the default Policy.sh from a set of ccflags, but be backward
51 compatible.
52
54 (c) 2001-2015, All rights reserved.
55
56 * H.Merijn Brand <hmbrand@hccnet.nl>
57 * Nicholas Clark <nick@unfortu.net>
58 * Abe Timmerman <abeltje@cpan.org>
59
60 This library is free software; you can redistribute it and/or modify it
61 under the same terms as Perl itself.
62
63 See:
64
65 * <http://www.perl.com/perl/misc/Artistic.html>,
66 * <http://www.gnu.org/copyleft/gpl.html>
67
68 This program is distributed in the hope that it will be useful, but
69 WITHOUT ANY WARRANTY; without even the implied warranty of
70 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
71
72
73
74perl v5.34.0 2021-07-23 Test::Smoke::Policy(3)