projects
/
p5sagit/p5-mst-13.2.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
*sigh* More files messed with for Test-Simple-0.82.
[p5sagit/p5-mst-13.2.git]
/
t
/
lib
/
TieOut.pm
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;