view release on metacpan or  search on metacpan

t/01_basic.t  view on Meta::CPAN

use Acme::EnclosedChar qw/
    enclose
    enclose_katakana
    enclose_week_ja
    enclose_kansuji
    enclose_kanji
    enclose_all
/;

is enclose(), '';
is enclose(undef), '';

is enclose('0'), '⓪';
is enclose('1'), 'â‘ ';
is enclose('12'), 'â‘«';
is enclose('012345'), '⓪①②③④⑤';
is enclose('0!12!34!5!'), '⓪!⑫!㉞!⑤!';
is enclose('Perl'), 'Ⓟⓔⓡⓛ';
is enclose('A45A'), 'Ⓐ㊺Ⓐ';
is enclose('45A'), '㊺Ⓐ';
is enclose('A45'), 'Ⓐ㊺';