Move ExtUtils::MakeMaker from ext/ to cpan/
[perl.git] / cpan / ExtUtils-MakeMaker / t / lib / TieIn.pm
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;