++ed by:

1 PAUSE user
2 non-PAUSE users.

Author image Abe Timmerman
and 1 contributors


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( [] );


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


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.


(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.


  * <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.