BEGIN {
    Unicode::UCD->import('prop_invmap');
    memoize 'prop_invmap';
}

sub charinfo {
    my ($self, $arg) = @_;

    local *Unicode::UCD::prop_invmap = \&prop_invmap;
    return Unicode::UCD::charinfo($arg);
}