reindent remaining 4-space+tab@8 code

[perl/plp/.git] / PLP / Tie / Print.pm

diff --git a/PLP/Tie/Print.pm b/PLP/Tie/Print.pm
index 9d0c0a9e5e5f59e00ddc845644af5c5966dfffda..ef537a03a10a6a6bc7739fd87bfc4981d478340d 100644 (file)
--- a/PLP/Tie/Print.pm
+++ b/PLP/Tie/Print.pm
@@ -1,6 +1,5 @@
-#--------------------#
- package PLP::Tie::Print;
-#--------------------#
+package PLP::Tie::Print;
+
 use strict;
 
 =head1 PLP::Tie::Print
@@ -9,25 +8,28 @@ Just prints to stdout, but sends headers if not sent before.
 
     tie *HANDLE, 'PLP::Tie::Print';
 
+This module is part of the PLP Internals and probably not of much use to others.
+
 =cut
 
-sub TIEHANDLE {
-    return bless {}, $_[0];
-}
+sub TIEHANDLE { bless \my $dummy, $_[0] }
 
-sub WRITE { undef; }
+sub WRITE { undef }
 
 sub PRINT {
-    my ($self, @param) = @_;
-    PLP::sendheaders() unless $PLP::sentheaders;
-    print STDOUT @param;
-    select STDOUT;
+       shift;
+       return unless grep length, @_;
+       PLP::sendheaders() unless $PLP::sentheaders;
+       print STDOUT @_;
+       select STDOUT;
 }
 
 sub PRINTF {
-    my ($self, @param) = @_;
-    printf STDOUT @param;
-    select STDOUT;
+       shift;
+       return unless length $_[0];
+       PLP::sendheaders() unless $PLP::sentheaders;
+       printf STDOUT @_;
+       select STDOUT;
 }
 
 sub READ { undef }
@@ -40,5 +42,7 @@ sub CLOSE { undef }
 
 sub UNTIE { undef }
 
+sub DESTROY { undef }
+
 1;