t/lib/TieOut.pm

   1 package TieOut;
   2
   3 sub TIEHANDLE {
   4         bless( \(my $scalar), $_[0]);
   5 }
   6
   7 sub PRINT {
   8         my $self = shift;
   9         $$self .= join('', @_);
  10 }
  11
  12 sub read {
  13         my $self = shift;
  14     my $out = $$self;
  15     $$self = '';
  16         return $out;
  17 }
  18
  19 1;