use Test::Base qw(no_plan); use Test::Exception; use List::Util qw(first); use Perl6::Say; my $arr = [ { id => 1, name => 'aaa' }, { id => 2, name => 'bbb' }, ]; my $is_ccc = sub { $_->{name} eq 'ccc' }; lives_ok( sub { map { say $_->name …

semanticdb-default-save-directory にディレクトリを設定してあげると、そこにキャッシュを作るようになります。 (setq semanticdb-default-save-directory "~/.emacs.d/") また、 semanticdb-default-file-name を変更するとキャッシュファイルの名前を変…

全角と半角が混在していて、アレだったのですが、以下のコードで一発でした。 "、。" 等の文字も変換されて問題ない状況でした。 use Lingua::JA::Regular::Unicode; sub z2h { katakana_z2h($_[0]) } $_->update({ name => z2h($_->name), description => z…