view release on metacpan or  search on metacpan

t/lib/Test/Win32/Unicode/Util.pm  view on Meta::CPAN

#use Win32::Unicode::Console;
#tie *Foo, 'Win32::Unicode::Console::Tie';
#binmode STDOUT => ':utf8';
#Test::More->builder->$_(\*Foo) for qw/output failure_output todo_output/;

sub tempdir {
    File::Temp::tempdir(CLEANUP => 1, @_);
}

sub safe_dir(&) {
    my $code = shift;

    my $cwd    = Cwd::getcwd;
    my $tmpdir = tempdir();

    chdir $tmpdir or croak "$tmpdir: $!";
    eval { $code->($tmpdir) };
    chdir $cwd or croak "$cwd: $!";
    croak $@ if $@;
}