1 package PLP::Tie::Print;
10 Just prints to stdout, but sends headers if not sent before.
12 tie *HANDLE, 'PLP::Tie::Print';
14 This module is part of the PLP Internals and probably not of much use to others.
18 sub TIEHANDLE { bless \my $dummy, $_[0] }
24 return unless grep length, @_;
25 PLP::sendheaders() unless $PLP::sentheaders;
32 return unless length $_[0];
33 PLP::sendheaders() unless $PLP::sentheaders;
40 sub READLINE { undef }