sub import
{
    my $pkg = shift(@_);
    ...
    local( $_ );
    while(  @_  ) {
	$_= shift(@_);
	if( ... ) {
            ...
	} elsif( ... ) {
            ...
            ...
	} elsif(  exists $_opt_subs{$_}  ) {
            ...
	    $registry->$_( shift(@_) );
	} elsif( ... ) {
            ...