package MyUnicodeUCD;

use strict;
use warnings;

use constant EXPORT_OK => [
    qw( charinfo
        charblock charscript
        charblocks charscripts
        charinrange
        charprop
        charprops_all
        general_categories bidi_types
        compexcl
        casefold all_casefolds casespec
        namedseq
        num
        prop_aliases
        prop_value_aliases
        prop_values
        prop_invlist
        prop_invmap
        search_invlist
        MAX_CP
    ),
];

use Unicode::UCD @{EXPORT_OK()};
                                
use Exporter;
our @ISA=qw(Exporter);
our @EXPORT_OK = @{EXPORT_OK()};
                                
use Memoize;
memoize 'prop_invmap';
*Unicode::UCD::prop_invmap = \&prop_invmap;
                                           
1;