Add ARM files

[dh-make-perl] / dev / arm / libtest-simple-perl / libtest-simple-perl-0.80 / t / lib / TieOut.pm

diff --git a/dev/arm/libtest-simple-perl/libtest-simple-perl-0.80/t/lib/TieOut.pm b/dev/arm/libtest-simple-perl/libtest-simple-perl-0.80/t/lib/TieOut.pm
new file mode 100644 (file)
index 0000000..0a0f5f9
--- /dev/null
+++ b/dev/arm/libtest-simple-perl/libtest-simple-perl-0.80/t/lib/TieOut.pm
@@ -0,0 +1,28 @@
+package TieOut;
+
+sub TIEHANDLE {
+    my $scalar = '';
+    bless( \$scalar, $_[0]);
+}
+
+sub PRINT {
+    my $self = shift;
+    $$self .= join('', @_);
+}
+
+sub PRINTF {
+    my $self = shift;
+    my $fmt  = shift;
+    $$self .= sprintf $fmt, @_;
+}
+
+sub FILENO {}
+
+sub read {
+    my $self = shift;
+    my $data = $$self;
+    $$self = '';
+    return $data;
+}
+
+1;