package Foo;
sub TIEHANDLE { bless {}, $_[0]}
sub READLINE {return "foobar\n"}

package main;
#use Foo;
tie(*TEST, Foo);
chomp($data = <TEST>);
print join(", ", map { ord($_) } split(//, $data)) . "\n";
chomp($data);
print join(", ", map { ord($_) } split(//, $data)) . "\n";


##</code><code>##

102, 111, 111, 98, 97, 114, 10
102, 111, 111, 98, 97, 114

##</code><code>##

package Foo;
sub TIEHANDLE { bless {}, $_[0]}
sub READLINE {return "foobar\n"}

package main;
#use Foo;
tie(*TEST, Foo);
chomp($data = <TEST>, $data);
print join(", ", map { ord($_) } split(//, $data)) . "\n";
chomp($data);
print join(", ", map { ord($_) } split(//, $data)) . "\n";


##</code><code>##

package Foo;
sub TIEHANDLE { bless {}, $_[0]}
sub READLINE {return "foobar\n"}

package main;
#use Foo;
tie(*TEST, Foo);
chomp($data ||= <TEST>);
print join(", ", map { ord($_) } split(//, $data)) . "\n";
chomp($data);
print join(", ", map { ord($_) } split(//, $data)) . "\n";


##</code><code>##

102, 111, 111, 98, 97, 114
102, 111, 111, 98, 97, 114