Steven Haryanto > Tie-Handle-FileWriteRotate-0.02 > Tie::Handle::FileWriteRotate

Download:
Tie-Handle-FileWriteRotate-0.02.tar.gz

Dependencies

Annotate this POD

Website

View/Report Bugs
Module Version: 0.02   Source  

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.

syntax highlighting: