https://perl5.git.perl.org / perl5.git / blame_incremental
| Commit | Line | Data |
|---|---|---|
| 1 | package TieOut; | |
| 2 | # $Id: /mirror/googlecode/test-more-trunk/t/lib/TieOut.pm 67132 2008-10-01T01:11:04.501643Z schwern $ | |
| 3 | ||
| 4 | sub TIEHANDLE { | |
| 5 | my $scalar = ''; | |
| 6 | bless( \$scalar, $_[0] ); | |
| 7 | } | |
| 8 | ||
| 9 | sub PRINT { | |
| 10 | my $self = shift; | |
| 11 | $$self .= join( '', @_ ); | |
| 12 | } | |
| 13 | ||
| 14 | sub PRINTF { | |
| 15 | my $self = shift; | |
| 16 | my $fmt = shift; | |
| 17 | $$self .= sprintf $fmt, @_; | |
| 18 | } | |
| 19 | ||
| 20 | sub FILENO { } | |
| 21 | ||
| 22 | sub read { | |
| 23 | my $self = shift; | |
| 24 | my $data = $$self; | |
| 25 | $$self = ''; | |
| 26 | return $data; | |
| 27 | } | |
| 28 | ||
| 29 | 1; |