diff options
| author | Michael G. Schwern <schwern@pobox.com> | 2003-03-30 18:42:58 -0800 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-03-31 09:54:52 +0000 |
| commit | 479d2113ccb2226821ef75027b9186d1d0e367e9 (patch) | |
| tree | a9b0815b35ca20eb8b0e60c5a7881b0ed3033e7e /t | |
| parent | f18b2318c1a1ea8f33016f2bf34abc4ac137b8e3 (diff) | |
| download | perl-479d2113ccb2226821ef75027b9186d1d0e367e9.tar.gz | |
ExtUtils::MakeMaker 6.03 -> 6.06_05ish
Message-ID: <20030331104257.GB15327@windhund.schwern.org>
p4raw-id: //depot/perl@19099
Diffstat (limited to 't')
| -rw-r--r-- | t/lib/TieIn.pm | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/t/lib/TieIn.pm b/t/lib/TieIn.pm new file mode 100644 index 0000000000..a240867a6a --- /dev/null +++ b/t/lib/TieIn.pm @@ -0,0 +1,23 @@ +package TieIn; + +sub TIEHANDLE { + bless( \(my $scalar), $_[0]); +} + +sub write { + my $self = shift; + $$self .= join '', @_; +} + +sub READLINE { + my $self = shift; + $$self =~ s/^(.*\n?)//; + return $1; +} + +sub EOF { + my $self = shift; + return !length $$self; +} + +1; |