2 package PLP::Tie::Print;
8 Just prints to stdout, but sends headers if not sent before.
10 tie *HANDLE, 'PLP::Tie::Print';
12 This module is part of the PLP Internals and probably not of much use to others.
17 return bless {}, $_[0];
23 my ($self, @param) = @_;
24 return if @param == 1 and not length $param[0];
25 PLP::sendheaders() unless $PLP::sentheaders;
31 my ($self, @param) = @_;
38 sub READLINE { undef }