1 package PLP::Tie::Print;
7 Just prints to stdout, but sends headers if not sent before.
9 tie *HANDLE, 'PLP::Tie::Print';
11 This module is part of the PLP Internals and probably not of much use to others.
15 sub TIEHANDLE { bless \my $dummy, $_[0] }
21 return if @_ == 1 and not length $_[0];
22 PLP::sendheaders() unless $PLP::sentheaders;
35 sub READLINE { undef }