$Id: README,v 1.6 2005/08/15 15:53:59 kay Exp $
NAME
warnings::DynamicScope - Provides warning categories in dynamic scope.
DESCRIPTION
This module provides warning categories in dynamic scope through the variable "%^W".
You can use it like special variable "$^W":
require warnings::DynamicScope;
package MyPkg;
use warnings::register;
sub my_func {
if ($^W{MyPkg}) {
print "Don't do it!!\n";
} else {
print "That's fine\n";
}
}
package main;
$^W = 1;
{
local $^W{MyPkg} = 0;
MyPkg::my_func();
}
MyPkg::my_func();
This code prints:
That's fine.
Don't do it!!
That's all.
INSTALLATION
To install this module type the following:
perl Makefile.PL
make
make test
make install
DEPENDENCIES
Perl, version 5.8 or more
Symbol::Values, version 1.03 or more
Test::Expansion, version 2.0 or more
COPYRIGHT AND LICENCE
Put the correct copyright and licence information here.
Copyright (C) 2005 by Keitaro Miyazaki
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.6 or, at your option, any later version of Perl 5 you may have available.