2 package PLP::Tie::Print;
8 Just prints to stdout, but sends headers if not sent before.
10 tie *HANDLE, 'PLP::Tie::Print';
15 return bless {}, $_[0];
21 my ($self, @param) = @_;
22 PLP::sendheaders() unless $PLP::sentheaders;
28 my ($self, @param) = @_;
35 sub READLINE { undef }