This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
Update ExtUtils-Install to CPAN version 2.18
[perl5.git]
/
cpan
/
ExtUtils-Install
/
t
/
lib
/
TieOut.pm
1
package TieOut;
2
use strict;
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;