File Coverage

build_lib/Test/Stdout.pm

Criterion	Covered	Total	%
statement	15	19	78.9
branch			n/a
condition	1	2	50.0
subroutine	4	5	80.0
pod			n/a
total	20	26	76.9

use strict;
use warnings;

package Test::Stdout;

sub TIEHANDLE
{
    my $class = shift;
    my $self = {};
    $self->{string} = shift;
    ${ $self->{string} } ||= '';

    return bless $self, $class;
}

sub PRINT
{
    my $self = shift;
    ${ $self->{string} } .= join '', @_;
}

sub PRINTF
{
    my $self = shift;
    my $format = shift;
    ${ $self->{string} } .= sprintf($format, @_);
}

1;