File Coverage

blib/lib/File/Rename/Unicode.pm

Criterion	Covered	Total	%
statement	23	23	100.0
branch	4	4	100.0
condition			n/a
subroutine	7	7	100.0
pod	1	1	100.0
total	35	35	100.0

package File::Rename::Unicode;

use 5.012;

use strict;
use warnings;

use Encode qw(encode decode);

our $VERSION = '1.30';

sub code {
    my $code = shift;
    my $encoding = shift;
    return
        sub {
            use feature 'unicode_strings';
            if ( $encoding ) {
                $_ = decode($encoding, $_);
            }
            else {
                utf8::upgrade $_;
            }
            $code->();
            if ( $encoding ) {
                $_ = encode($encoding, $_);
            }
        };
}

1;

__END__