This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
op.c: use %zd to format PADOFFSET values
[perl5.git] / cpan / ExtUtils-Install / t / lib / TieOut.pm
CommitLineData
fb78ba4b 1package TieOut;
e63fbf73 2use strict;
fb78ba4b
NC
3
4sub TIEHANDLE {
5 my $scalar = '';
6 bless( \$scalar, $_[0]);
7}
8
9sub PRINT {
10 my $self = shift;
11 $$self .= join('', @_);
12}
13
14sub PRINTF {
15 my $self = shift;
16 my $fmt = shift;
17 $$self .= sprintf $fmt, @_;
18}
19
20sub FILENO {}
21
22sub read {
23 my $self = shift;
24 my $data = $$self;
25 $$self = '';
26 return $data;
27}
28
291;