SYNOPSIS

use Carp::Datum::Strip qw(datum_strip);
datum_strip("-", "-");
datum_strip($file, "$file.new", ".bak");

DESCRIPTION

This module exports a single routine, datum_strip(), whose purpose is to remove calls to "Carp::Datum" routines lexically.

Because stripping is done lexically, there are some restrictions about what is actually supported. Unless the conventions documented in Carp::Datum are followed, stripping will be incorrect.

The general guidelines are:

• Do not use here documents or generalized quotes (qq) within assertion expression or tags. Write assertions using '' or "", as appropriate.
• Assertions can be safely put on several lines, but must end with a semi-colon, outside any string.

There are two calls that will never be stripped: VERIFY() and DTRACE(). The VERIFY() is meant to be preserved (or "DREQUIRE" would have been used). "DTRACE", when called, will be remapped dynamically to some "Log::Agent" routine, depending on the trace level. See Carp::Datum for details.

INTERFACE

The interface of the datum_strip() routine is:

"datum_strip" old_file, new_file, [ext]

The old_file specifies the old file path, the one to be stripped. The stripped version will be written to new_file.

If the optional third argument ext is given (e.g. ``.bak''), then old_file will be renamed with the supplied extension, and new_file will be renamed old_file. Renaming only occurs if stripping was successful (i.e. the new file was correctly written to disk).

The lowest nine ``rwx'' mode bits from old_file are preserved when creating new_file.

Both old_file and new_file can be set to ``-'', in which case STDIN and STDOUT are used, respectively, and no renaming can occur, nor any mode bit propagation.

Returns true on success, "undef" on error.

AUTHORS

Christophe Dehaudt and Raphael Manfredi are the original authors.

Send bug reports, hints, tips, suggestions to Dave Hoover at <[email protected]>.