class Test::Builder::Output-0.2.1;

has $.output;
has $.error_output;

submethod BUILD ( $.output = $*OUT, $.error_output = $*ERR ) {}

method write ( Str $message is copy )
{
    $message ~~ s:P5:g/\n(?!#)/\n# /;
    $.output.say( $message );
}

method diag ( Str $message is copy )
{
    $message ~~ s:P5/^(?!#)/# /;
    $message ~~ s:P5:g/\n(?!#)/\n# /;
    $.error_output.say( $message );
}

=pod

=head1 NAME

Test::Builder::Output

=head1 SYNOPSIS

  use Test::Builder::Output;

=head1 DESCRIPTION

This class handles all the output for Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<$.output>

The filehandle to which to write all normal output (test results and
descriptions).

=item B<$.error_output>

The filehandle to which to write all diagnostic output.

=back

=head1 METHODS

=over 4

=item B<write( Str $message )>

Writes a message to the normal output filehandle, adding leading C<#>
characters after all newlines if they are not present.

=item B<diag( Str $message )>

Writes a message to the diagnostic output filehandle, adding a leading C<#> to
every line if they are not present.

=back

=head1 SEE ALSO

Perl 5 Test::Builder.

=head1 AUTHORS

code by chromatic E<lt>chromatic@wgz.orgE<gt>

documentation by Stevan Little E<lt>stevan@iinteractive.comE<gt> and chromatic.

=cut