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;