File::CheckTree(3pm) Perl Programmers Reference Guide File::CheckTree(3pm)NAME
File::CheckTree - run many filetest checks on a tree
SYNOPSIS
use File::CheckTree;
$num_warnings = validate( q{
/vmunix -e || die
/boot -e || die
/bin cd
csh -ex
csh !-ug
sh -ex
sh !-ug
/usr -d || warn "What happened to $file?
"
});
DESCRIPTION
The validate() routine takes a single multiline string consisting of directives, each containing a filename plus a file test to try on it.
(The file test may also be a "cd", causing subsequent relative filenames to be interpreted relative to that directory.) After the file
test you may put "|| die" to make it a fatal error if the file test fails. The default is "|| warn". The file test may optionally have a
"!' prepended to test for the opposite condition. If you do a cd and then list some relative filenames, you may want to indent them
slightly for readability. If you supply your own die() or warn() message, you can use $file to interpolate the filename.
Filetests may be bunched: "-rwx" tests for all of "-r", "-w", and "-x". Only the first failed test of the bunch will produce a warning.
The routine returns the number of warnings issued.
AUTHOR
File::CheckTree was derived from lib/validate.pl which was written by Larry Wall. Revised by Paul Grassie <grassie@perl.com> in 2002.
HISTORY
File::CheckTree used to not display fatal error messages. It used to count only those warnings produced by a generic "|| warn" (and not
those in which the user supplied the message). In addition, the validate() routine would leave the user program in whatever directory was
last entered through the use of "cd" directives. These bugs were fixed during the development of perl 5.8. The first fixed version of
File::CheckTree was 4.2.
perl v5.16.2 2012-10-11 File::CheckTree(3pm)
Check Out this Related Man Page
warnings(3pm) Perl Programmers Reference Guide warnings(3pm)NAME
warnings - Perl pragma to control optional warnings
SYNOPSIS
use warnings;
no warnings;
use warnings "all";
no warnings "all";
use warnings::register;
if (warnings::enabled()) {
warnings::warn("some warning");
}
if (warnings::enabled("void")) {
warnings::warn("void", "some warning");
}
if (warnings::enabled($object)) {
warnings::warn($object, "some warning");
}
warnings::warnif("some warning");
warnings::warnif("void", "some warning");
warnings::warnif($object, "some warning");
DESCRIPTION
The "warnings" pragma is a replacement for the command line flag "-w", but the pragma is limited to the enclosing block, while the flag is
global. See perllexwarn for more information.
If no import list is supplied, all possible warnings are either enabled or disabled.
A number of functions are provided to assist module authors.
use warnings::register
Creates a new warnings category with the same name as the package where the call to the pragma is used.
warnings::enabled()
Use the warnings category with the same name as the current package.
Return TRUE if that warnings category is enabled in the calling module. Otherwise returns FALSE.
warnings::enabled($category)
Return TRUE if the warnings category, $category, is enabled in the calling module. Otherwise returns FALSE.
warnings::enabled($object)
Use the name of the class for the object reference, $object, as the warnings category.
Return TRUE if that warnings category is enabled in the first scope where the object is used. Otherwise returns FALSE.
warnings::fatal_enabled()
Return TRUE if the warnings category with the same name as the current package has been set to FATAL in the calling module. Otherwise
returns FALSE.
warnings::fatal_enabled($category)
Return TRUE if the warnings category $category has been set to FATAL in the calling module. Otherwise returns FALSE.
warnings::fatal_enabled($object)
Use the name of the class for the object reference, $object, as the warnings category.
Return TRUE if that warnings category has been set to FATAL in the first scope where the object is used. Otherwise returns FALSE.
warnings::warn($message)
Print $message to STDERR.
Use the warnings category with the same name as the current package.
If that warnings category has been set to "FATAL" in the calling module then die. Otherwise return.
warnings::warn($category, $message)
Print $message to STDERR.
If the warnings category, $category, has been set to "FATAL" in the calling module then die. Otherwise return.
warnings::warn($object, $message)
Print $message to STDERR.
Use the name of the class for the object reference, $object, as the warnings category.
If that warnings category has been set to "FATAL" in the scope where $object is first used then die. Otherwise return.
warnings::warnif($message)
Equivalent to:
if (warnings::enabled())
{ warnings::warn($message) }
warnings::warnif($category, $message)
Equivalent to:
if (warnings::enabled($category))
{ warnings::warn($category, $message) }
warnings::warnif($object, $message)
Equivalent to:
if (warnings::enabled($object))
{ warnings::warn($object, $message) }
See "Pragmatic Modules" in perlmodlib and perllexwarn.
perl v5.12.1 2010-04-26 warnings(3pm)