hash_perl.pl

#!perl
use strict;
use warnings;
use utf8;
use Test::More;

{
    my $hash = {};

    $hash->{foobar} = 'hogehoge';
    my ($key, $value) = %$hash;

    ok ! utf8::is_utf8($key); # fails!
    ok ! utf8::is_utf8($value);
}
{
    my $hash = {};

    $hash->{'foobar'} = 'hogehoge';
    my ($key, $value) = %$hash;

    ok ! utf8::is_utf8($key);
    ok ! utf8::is_utf8($value);
}
{
    my $hash = {foobar => 'hogehoge'};

    my ($key, $value) = %$hash;

    ok ! utf8::is_utf8($key); # fails!
    ok ! utf8::is_utf8($value);
}
{
    my $hash = {'foobar' => 'hogehoge'};

    my ($key, $value) = %$hash;

    ok ! utf8::is_utf8($key);
    ok ! utf8::is_utf8($value);
}

done_testing;