Tie::FileHandle::Buffer - filehandle tie that captures output

Tie-FileHandle-Buffer documentation Contained in the Tie-FileHandle-Buffer distribution.

Index

Code Index:

NAME

Top

Tie::FileHandle::Buffer - filehandle tie that captures output

DESCRIPTION

Top

This module, when tied to a filehandle, will capture and store all that is output to that handle. You may then act on that stored information in one of the following ways.

 my $contents = (tied *HANDLE)->get_contents; # retrieves the stored output

 (tied *HANDLE)->clear; # clears the output buffer

This module goes hand in hand with the Output::Buffer module.

TODO

Top

BUGS

Top

This is a new module and has not been thoroughly tested.

AUTHORS AND COPYRIGHT

Top

Written by Robby Walker ( robwalker@cpan.org ) for Point Writer ( http://www.pointwriter.com/ ).

You may redistribute/modify/etc. this module under the same terms as Perl itself.

Tie-FileHandle-Buffer documentation Contained in the Tie-FileHandle-Buffer distribution. 
#!/usr/local/bin/perl


package Tie::FileHandle::Buffer;

use vars qw(@ISA $VERSION);
use base qw(Tie::FileHandle::Base);
$VERSION = 0.11;

# TIEHANDLE
# Usage: tie *HANDLE, 'Tie::FileHandle::Buffer'
sub TIEHANDLE {
	my $self = '';
	bless \$self, $_[0];;
}

# Print to the selected handle
sub PRINT {
	${$_[0]} .= $_[1];
}

# Retrieve the contents
sub get_contents {
	${$_[0]};
}

# Discard the contents
sub clear {
	${$_[0]} = '';
}

1;