exclamation.pl

use strict;
use warnings;
use utf8;

use Test::More;

{
    no strict qw/refs/;
    *{'world!'} = sub { 'world' };
    is *{'world!'}{CODE}->(), 'world', 'symbol table call';
}

done_testing;

multi_byte.pl

use strict;
use warnings;
use utf8;

use Test::More;

sub こんにちは { 'hello' }
is こんにちは(), 'hello';

done_testing;

package_stash.pl

use strict;
use warnings;
use utf8;

use Test::More;
use Package::Stash;

my $stash = Package::Stash->new('Foo');
$stash->add_symbol('&hello world!', sub { 'hello' });

subtest 'by get_symbol' => sub {
    my $code = $stash->get_symbol('&hello world!');
    is $code->(), 'hello'
};

subtest 'by pkg' => sub {
    ok Foo->can('hello world!'), 'can?';
    my $code = Foo->can('hello world!');
    is $code->(), 'hello';

    my $method = 'hello world!';
    is Foo->$method(), 'hello';
};

done_testing;