diff options
Diffstat (limited to 't/lib/TieOut.pm')
-rw-r--r-- | t/lib/TieOut.pm | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/t/lib/TieOut.pm b/t/lib/TieOut.pm index 0da80cbb0e..072e8fdef6 100644 --- a/t/lib/TieOut.pm +++ b/t/lib/TieOut.pm @@ -9,6 +9,12 @@ sub PRINT { $$self .= join('', @_); } +sub PRINTF { + my $self = shift; + my $fmt = shift; + $$self .= sprintf $fmt, @_; +} + sub read { my $self = shift; return substr($$self, 0, length($$self), ''); |