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