NAME

File::SafeDO -- safer do file for perl

SYNOPSIS

use File::SafeDO qw(
      DO
);

$rv = DO($file)

DESCRIPTION

• $rv = DO($file);

  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.

    input:	file/path/name
    returns:	last value in file
  	    or	undef on error
  	    prints warning

DEPENDENCIES

none

EXPORT_OK

DO

AUTHOR

Michael Robinton, michael@bizsystems.com

COPYRIGHT

Copyright 2003 - 2004, 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.