Save some repeated strlen()s in Perl_swash_init
[p5sagit/p5-mst-13.2.git] / 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;