Select Code to Download

sub do_stuff {
    my ( $self, %args ) = @_;
...
    my $bar = $args{bar};
    # ....
}

void
do_stuff(self, ...)
...
    NV bar = extract_nv(args_hash, "bar", 3);
    /* ... */
}

IV
extract_iv(hash, key, key_len) {
...
    }
    return SvIV(*sv_ptr);
}

HV*
build_args_hash()
...
    
    return args_hash;
}

{
    PUSHMARK(SP);
...
    NV bar = extract_nv(args_hash, "bar", 3);
    /* ... */
}

{
    HV *args_hash;
...
    bar = extract_nv(args_hash, "bar", 3);
    /* ... */
}

HV *arg_hash = build_args_hash( &(ST(0)), items );