CPAN::Groonga

per>

This is used by the parsing module L<Unicode::Confuse::Parse>.

=item L<JSON::Parse>

This is used to parse the JSON-formatted file of confusables
distributed with the module.

=back 

=head1 BU

he confusables
# file. The return value is a hash reference which is then directly
# converted to JSON.

sub metadata
{
    my ($file) = @_;
    if (! -f $file) {
	die "No $file";
    }
    my %md;
  

;

my $re = $Unicode::Confuse::Regex::re;

use JSON::Parse 'read_json';

my $jfile = __FILE__;
$jfile =~ s!\.pm$!/confusables.json!;
our $data = read_json ($jfile);

sub confusable
{
    my ($c) = @_;