1package TieIn;
2
3use strict;
4use warnings;
5
6sub TIEHANDLE {
7    bless( \(my $scalar), $_[0]);
8}
9
10sub write {
11    my $self = shift;
12    $$self .= join '', @_;
13}
14
15sub READLINE {
16    my $self = shift;
17    $$self =~ s/^(.*\n?)//;
18    return $1;
19}
20
21sub EOF {
22    my $self = shift;
23    return !length $$self;
24}
25
261;
27