view release on metacpan or  search on metacpan

t/JPT.pm  view on Meta::CPAN

package JPT;

use warnings;
use strict;
use utf8;
use Test::More;
use JSON::Parse ':all';
require Exporter;
our @ISA = qw(Exporter);
our @EXPORT = (qw/daft_test/,  @Test::More::EXPORT, @JSON::Parse::EXPORT_OK);

# 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 ();
    JSON::Parse->import (':all');
    JPT->export_to_level (1);
}

1;