NAME

Tie::Handle::FileWriteRotate - Filehandle tie to write to autorotated file with File::Write::Rotate

VERSION

version 0.02

SYNOPSIS

use Tie::Handle::FileWriteRotate;
tie *FH, 'Tie::Handle::FileWriteRotate',
    dir=>'/some/dir', prefix=>'myapp', size=>25*1024*1024, histories=>5;
print FH "Logging a line\n";
print FH "Logging another line\n";

DESCRIPTION

This module ties a filehandle to File::Write::Rotate object.

I first wrote this module to tie STDERR, so that warnings/errors are logged to file instead of terminal (with autorotation, for good behavior).

METHODS

TIEHANDLE classname, LIST

Tie this package to file handle. LIST will be passed to File::Write::Rotate's constructor.

TIPS

To log warnings/errors to terminal as well as autorotated file, you can do something like this instead:

my $fwr = File::Write::Rotate->new(...);
$SIG{__WARN__} = sub {
    $fwr->write(~~localtime, " ", $_[0], "\n");
    warn $_[0];
};
$SIG{__DIE__} = sub {
    $fwr->write(~~localtime, " ", $_[0], "\n");
    die $_[0];
};

SEE ALSO

File::Write::Rotate

AUTHOR

Steven Haryanto <stevenharyanto@gmail.com>

COPYRIGHT AND LICENSE

This software is copyright (c) 2012 by Steven Haryanto.

This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.