Select Code to Download

#include "EXTERN.h"
#include "perl.h"
...
        hv_store( hv, SvPV( key, length ), length , val, 0 );
        HE *he = hv_fetch_ent( hv, key, 0, 0 );
        HeSVKEY_set( he, key );

my %hash;
my $foo = 'foo';
Data::Reuse::key_as_sv( %hash, $foo, $foo );
print STDERR "found ".(keys %hash)." keys:\n";
print STDERR " $_: $hash{$_}\n" foreach keys %hash;

found 1 keys:
 foo: