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
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;