Gecko [ www.vortexaion.com ]

Windows NT KAMIDAKI 10.0 build 19045 (Windows 10) AMD64
Apache/2.4.58 (Win64) OpenSSL/3.1.3 PHP/8.3.9
Server IP : 192.168.3.16 & Your IP : 216.73.216.140
Domains : Cant Read [ /etc/named.conf ]
User : SISTEMA

Name	Size	Permission	Date
AsyncSubtest.pm	3.71 KB	-rw-rw-rw-	2020-12-16 05:48
Basic.pm	6.9 KB	-rw-rw-rw-	2020-12-16 05:48
Class.pm	4.73 KB	-rw-rw-rw-	2020-12-16 05:48
ClassicCompare.pm	11.78 KB	-rw-rw-rw-	2020-12-16 05:48
Compare.pm	45.74 KB	-rw-rw-rw-	2020-12-16 05:48
Defer.pm	3.32 KB	-rw-rw-rw-	2020-12-16 05:48
Encoding.pm	1.54 KB	-rw-rw-rw-	2020-12-16 05:48
Event.pm	1.72 KB	-rw-rw-rw-	2020-12-16 05:48
Exception.pm	3.63 KB	-rw-rw-rw-	2020-12-16 05:48
Exports.pm	3.89 KB	-rw-rw-rw-	2020-12-16 05:48
GenTemp.pm	2.4 KB	-rw-rw-rw-	2020-12-16 05:48
Grab.pm	2.49 KB	-rw-rw-rw-	2020-12-16 05:48
Mock.pm	12.59 KB	-rw-rw-rw-	2020-12-16 05:48
Ref.pm	3.62 KB	-rw-rw-rw-	2020-12-16 05:48
Spec.pm	16.28 KB	-rw-rw-rw-	2020-12-16 05:48
Subtest.pm	3.67 KB	-rw-rw-rw-	2020-12-16 05:48
Target.pm	1.99 KB	-rw-rw-rw-	2020-12-16 05:48
Tester.pm	6.17 KB	-rw-rw-rw-	2020-12-16 05:48
Warnings.pm	2.87 KB	-rw-rw-rw-	2020-12-16 05:48

Rename

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

use Carp qw/croak/;

use Test2::API qw/test2_stack/;

use base 'Exporter';

our $VERSION = '0.000139';

our @EXPORT = qw/set_encoding/;

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

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

$format->encoding($enc);
}

__END__

=pod

=encoding UTF-8

=head1 NAME

Test2::Tools::Encoding - Tools for managing the encoding of L<Test2> based
tests.

=head1 DESCRIPTION

This module exports a function that lets you dynamically change the output
encoding at will.

=head1 SYNOPSIS

use Test2::Tools::Encoding;

set_encoding('utf8');

=head1 EXPORTS

All subs are exported by default.

=over 4

=item set_encoding($encoding)

This will set the encoding to whatever you specify. This will only affect the
output of the current formatter, which is usually your TAP output formatter.

=back

=head1 SOURCE

The source code repository for Test2-Suite can be found at
F<https://github.com/Test-More/Test2-Suite/>.

=head1 MAINTAINERS

=over 4

=item Chad Granum E<lt>exodist@cpan.orgE<gt>

=back

=head1 AUTHORS

=over 4

=item Chad Granum E<lt>exodist@cpan.orgE<gt>

=back

=head1 COPYRIGHT

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

See F<http://dev.perl.org/licenses/>

=cut