sub import {
    my( @wanted )= @_;
    my( $target )= caller;

    for my $name (@wanted) {
        no strict 'refs';
        
        my $key= substr $name, 3; # is_${key}
        "$target\::$name" = sub {
            my( $reg ) = @_;
            ...
        };
    };
};