The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package Judy::1;

use strict;
use warnings;

use Sub::Exporter -setup => {
    exports => [qw[
        Set Get Delete Unset Test
        Count Nth
        Free MemUsed
        First Next Last Prev
        FirstEmpty NextEmpty LastEmpty PrevEmpty
    ]],
};

BEGIN {
    *Delete = \&Unset;
    *Get = \&Test;
}

Judy::_obj->import( -impl );

require Judy::1::_tie;
require Judy::1::_obj;

no warnings;
'Warning! The consumption of alcohol may cause you to think you have mystical kung-fu powers.'