File Coverage

blib/lib/Test/Stream/Plugin/UTF8.pm

Criterion	Covered	Total	%
statement	26	28	92.8
branch	1	4	25.0
condition	2	2	100.0
subroutine	6	6	100.0
pod	0	1	0.0
total	35	41	85.3

package Test::Stream::Plugin::UTF8;
use strict;
use warnings;

use Test::Stream::Sync();
use Test::Stream::Plugin qw/import/;

sub load_ts_plugin {
    my $class = shift;
    my ($caller) = @_;

    # Load and import UTF8 into the caller.
    require utf8;
    utf8->import;

    # Set STDERR and STDOUT
    binmode(STDERR, ':utf8');
    binmode(STDOUT, ':utf8');

    # Set the output formatters to use utf8
    Test::Stream::Sync->post_load(sub {
        my $stack = Test::Stream::Sync->stack;
        $stack->top; # Make sure we have at least 1 hub

        my $warned = 0;
        for my $hub ($stack->all) {
            my $format = $hub->format || next;

            unless ($format->can('encoding')) {
                warn "Could not apply UTF8 to unknown formatter ($format) at $caller->[1] line $caller->[2].\n" unless $warned++;
                next;
            }

            $format->encoding('utf8');
        }
    });
}

1;

__END__