File::SafeDO -- safer do file for perl
use File::SafeDO qw(
$rv = DO($file,[optional no warnings string])
- $rv = DO($file,[optional] "no warnings string");
This is a fancy 'do file'. It first checks that the file exists and is
readable, then does a 'do file' to pull the variables and subroutines into
the current name space. The 'do' is executed with full perl warnings so
that syntax and construct errors are reported to STDERR. A string of
no warnings may optionally be specified as a second
argument. This is equivalent to saying:
no warnings qw(string of no values);
See: man perllexwarnings for a full listing of warning names.
[optional] string of "no" warnings
returns: last value in file
or undef on error
i.e. DO('myfile','once redefine');
This will execute 'myfile' safely and suppress 'once' and 'redefine'
warnings to STDERR.
- $rv = doINCLUDE($file,[optional] "no warnings string");
The function is similar to DO above with the addition of recursive
Function will recursively load a file which returns a hash pointer with the
a key of the form:
'INCLUDE' => somefile.
The file which it loads may contain only HASHs or SUBs. The HASH KEYS will
be promoted into the parent hash, augmenting and replacing existing keys
already present. Subroutines are simply imported into the name space as is
the case with a 'do' or 'require'.
Michael Robinton, firstname.lastname@example.org
Copyright 2003 - 2014, Michael Robinton & BizSystems This program is free
software; you can redistribute it and/or modify it under the terms of the GNU
General Public License as published by the Free Software Foundation; either
version 2 of the License, or (at your option) any later version.
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. See the GNU General Public License for more details.
You should have received a copy of the GNU General Public License along with
this program; if not, write to the Free Software Foundation, Inc., 59 Temple
Place - Suite 330, Boston, MA 02111-1307, USA.