1Test::Smoke::Policy(3)User Contributed Perl DocumentationTest::Smoke::Policy(3)
2
3
4

NAME

6       Test::Smoke::Policy - OO interface to handle the Policy.sh stuff.
7

SYNOPSIS

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

DESCRIPTION

18       I wish I understood what Merijn is doeing in the original code.
19

METHODS

21       Test::Smoke::Policy->new( $srcpath )
22           Create a new instance of the Policy object.  Read the file or take
23           data from the DATA section.
24
25       $object->set_rules( $rules )
26           Set the rules for substitutions.
27
28       $object->reset_rules( )
29           Reset the "_rules" property.
30
31       $Policy->_do_subst( )
32           "_do_subst()" does the substitutions and stores the substituted
33           version as the _new_policy attribute.
34
35       $object->write( )
36       $self->_read_Policy( $srcpath[, $verbose[, @ccflags]] )
37           "_read_Policy()" checks the $srcpath for these conditions:
38
39           Reference to a SCALAR Policy is in $$srcpath
40           Reference to an ARRAY Policy is in @$srcpath
41           Reference to a GLOB Policy is read from the filehandle
42           Other values are taken as the base path for Policy.sh
43
44           The @ccflags are passed to "$self->default_Policy()"
45
46       $policy->default_Policy( [@ccflags] )
47           Generate the default Policy.sh from a set of ccflags, but be
48           backward compatible.
49

51       (c) 2001-2003, All rights reserved.
52
53         * H.Merijn Brand <hmbrand@hccnet.nl>
54         * Nicholas Clark <nick@unfortu.net>
55         * Abe Timmerman <abeltje@cpan.org>
56
57       This library is free software; you can redistribute it and/or modify it
58       under the same terms as Perl itself.
59
60       See:
61
62         * <http://www.perl.com/perl/misc/Artistic.html>,
63         * <http://www.gnu.org/copyleft/gpl.html>
64
65       This program is distributed in the hope that it will be useful, but
66       WITHOUT ANY WARRANTY; without even the implied warranty of
67       MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
68
69
70
71perl v5.12.1                      2008-07-19            Test::Smoke::Policy(3)
Impressum