view release on metacpan or  search on metacpan

inc/Test/Builder.pm  view on Meta::CPAN

}

sub _copy_io_layers {
    my( $self, $src, $dst ) = @_;

    $self->_try(
        sub {
            require PerlIO;
            my @src_layers = PerlIO::get_layers($src);

            binmode $dst, join " ", map ":$_", @src_layers if @src_layers;
        }
    );

    return;
}

#line 1496

sub reset_outputs {
    my $self = shift;

t/lib/App/SocialSKK/Test.pm  view on Meta::CPAN

package App::SocialSKK::Test;
use Net::Ping::External qw();
use Filter::Util::Call;
use base qw(Test::Class Class::Accessor::Lvalue::Fast);

__PACKAGE__->mk_accessors(qw(module));

use Test::More;
binmode Test::More->builder->output,         ":utf8";
binmode Test::More->builder->failure_output, ":utf8";
binmode Test::More->builder->todo_output,    ":utf8";

my @goodies = qw(
    Test::More
    Test::Exception
    App::SocialSKK::Test::Spec
);

sub import {
    my $class = shift;
    require strict;