File Coverage

blib/lib/Test2/Tools/Encoding.pm

Criterion	Covered	Total	%
statement	22	22	100.0
branch	3	4	75.0
condition	2	3	66.6
subroutine	6	6	100.0
pod	1	1	100.0
total	34	36	94.4

package Test2::Tools::Encoding;
use strict;
use warnings;

use Carp qw/croak/;

use Test2::API qw/test2_stack/;

use base 'Exporter';

our $VERSION = '0.000153';

our @EXPORT = qw/set_encoding/;

sub set_encoding {
    my $enc = shift;
    my $format = test2_stack->top->format;

    unless ($format && eval { $format->can('encoding') }) {
        $format = '' unless defined $format;
        croak "Unable to set encoding on formatter '$format'";
    }

    $format->encoding($enc);
}

1;

__END__