restructure file locations

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

diff --git a/PLP/Tie/Print.pm b/PLP/Tie/Print.pm
deleted file mode 100644 (file)
index 0647f7c..0000000
--- a/PLP/Tie/Print.pm
+++ /dev/null
@@ -1,45 +0,0 @@
-#--------------------#
- package PLP::Tie::Print;
-#--------------------#
-use strict;
-
-=head1 PLP::Tie::Print
-
-Just prints to stdout, but sends headers if not sent before.
-
-    tie *HANDLE, 'PLP::Tie::Print';
-
-=cut
-
-sub TIEHANDLE {
-    return bless {}, $_[0];
-}
-
-sub WRITE { undef; }
-
-sub PRINT {
-    my ($self, @param) = @_;
-    return if @param == 1 and not length $param[0];
-    PLP::sendheaders() unless $PLP::sentheaders;
-    print STDOUT @param;
-    select STDOUT;
-}
-
-sub PRINTF {
-    my ($self, @param) = @_;
-    printf STDOUT @param;
-    select STDOUT;
-}
-
-sub READ { undef }
-
-sub READLINE { undef }
-
-sub GETC { '%' }
-
-sub CLOSE { undef }
-
-sub UNTIE { undef }
-
-1;
-