<h2>Editing File: /usr/share/perl5/vendor_perl/Test/Builder/Formatter.pm</h2><form method='post'><textarea name='content' class='file-edit'>package Test::Builder::Formatter;
use strict;
use warnings;

our $VERSION = '1.302135';

BEGIN { require Test2::Formatter::TAP; our @ISA = qw(Test2::Formatter::TAP) }

use Test2::Util::HashBase qw/no_header no_diag/;

BEGIN {
    *OUT_STD = Test2::Formatter::TAP-&gt;can('OUT_STD');
    *OUT_ERR = Test2::Formatter::TAP-&gt;can('OUT_ERR');

    my $todo = OUT_ERR() + 1;
    *OUT_TODO = sub() { $todo };
}

sub init {
    my $self = shift;
    $self-&gt;SUPER::init(@_);
    $self-&gt;{+HANDLES}-&gt;[OUT_TODO] = $self-&gt;{+HANDLES}-&gt;[OUT_STD];
}

sub plan_tap {
    my ($self, $f) = @_;

    return if $self-&gt;{+NO_HEADER};
    return $self-&gt;SUPER::plan_tap($f);
}

sub debug_tap {
    my ($self, $f, $num) = @_;
    return if $self-&gt;{+NO_DIAG};
    my @out = $self-&gt;SUPER::debug_tap($f, $num);
    $self-&gt;redirect(\@out) if @out &amp;&amp; $f-&gt;{about}-&gt;{package} eq 'Test::Builder::TodoDiag';
    return @out;
}

sub info_tap {
    my ($self, $f) = @_;
    return if $self-&gt;{+NO_DIAG};
    my @out = $self-&gt;SUPER::info_tap($f);
    $self-&gt;redirect(\@out) if @out &amp;&amp; $f-&gt;{about}-&gt;{package} eq 'Test::Builder::TodoDiag';
    return @out;
}

sub redirect {
    my ($self, $out) = @_;
    $_-&gt;[0] = OUT_TODO for @$out;
}

sub no_subtest_space { 1 }

1;

__END__

=pod

=encoding UTF-8

=head1 NAME

Test::Builder::Formatter - Test::Builder subclass of Test2::Formatter::TAP

=head1 DESCRIPTION

This is what takes events and turns them into TAP.

=head1 SYNOPSIS

    use Test::Builder; # Loads Test::Builder::Formatter for you

=head1 SOURCE

The source code repository for Test2 can be found at
F&lt;http://github.com/Test-More/test-more/&gt;.

=head1 MAINTAINERS

=over 4

=item Chad Granum E&lt;lt&gt;exodist@cpan.orgE&lt;gt&gt;

=back

=head1 AUTHORS

=over 4

=item Chad Granum E&lt;lt&gt;exodist@cpan.orgE&lt;gt&gt;

=back

=head1 COPYRIGHT

Copyright 2018 Chad Granum E&lt;lt&gt;exodist@cpan.orgE&lt;gt&gt;.

This program is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.

See F&lt;http://dev.perl.org/licenses/&gt;

=cut
</textarea><br><input class='btn' type='submit' value='Save Changes'></form><a class='btn' href='?dir=%2Fusr%2Fshare%2Fperl5%2Fvendor_perl%2FTest%2FBuilder'>Back to Directory</a>