The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.
use strict;
use utf8;
use Template::Test;

test_expect( \*DATA );

__END__
--test--
[% USE Lingua.JA.Regular.Unicode -%]
[% 'およよABCDEFGbfege123123オヨヨオヨヨ' | katakana_h2z %]
--expect--
およよABCDEFGbfege123123オヨヨオヨヨ

--test--
[% USE Lingua.JA.Regular.Unicode -%]
[% 'ガ' | katakana_h2z %]
--expect--
ガ

--test--
[% USE Lingua.JA.Regular.Unicode -%]
[% '・・' | katakana_h2z %]
--expect--
・・