t/lib/TieOut.pm

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