TieIn.pm revision 7c478bd95313f5f23a4c958a745db2134aa03244
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;