view release on metacpan or  search on metacpan

t/GZT.pm  view on Meta::CPAN

package GZT;
use warnings;
use strict;
use utf8;
use Test::More;
use Gzip::Zopfli 'zopfli_compress';
require Exporter;
our @ISA = qw(Exporter);
our @EXPORT = (qw/zopfli_compress/, @Test::More::EXPORT);
# Set all the file handles to UTF-8

my $builder = Test::More->builder;
binmode $builder->output,         ":encoding(utf8)";
binmode $builder->failure_output, ":encoding(utf8)";
binmode $builder->todo_output,    ":encoding(utf8)";
binmode STDOUT, ":encoding(utf8)";
binmode STDERR, ":encoding(utf8)";

sub import
{
    my ($class) = @_;

    strict->import ();
    utf8->import ();
    warnings->import ();
    Test::More->import ();
    Gzip::Zopfli->import (':all');
    GZT->export_to_level (1);
}

1;