ext/ExtUtils-Install/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 FILENO {}
  20
  21 sub read {
  22     my $self = shift;
  23     my $data = $$self;
  24     $$self = '';
  25     return $data;
  26 }
  27
  28 1;