TYPEMAP
dv_bucket * O_DV_BUCKET
dv_bucket_item * O_DV_BUCKET_ITEM
OUTPUT
O_DV_BUCKET
sv_setref_pv($arg, "Data::Valve::Bucket", (void *) $var);
O_DV_BUCKET_ITEM
sv_setref_pv($arg, "Data::Valve::BucketItem", (void *) $var);
INPUT
O_DV_BUCKET
if (sv_isobject($arg)) {
$var = INT2PTR( $type, SvIV( (SV *) SvRV($arg) ) );
} else {
croak( \"${Package}::$func_name() -- $var is not a blessed SV reference \" );
}
O_DV_BUCKET_ITEM
if (sv_isobject($arg)) {
$var = INT2PTR( $type, SvIV( (SV *) SvRV($arg) ) );
} else {
croak( \"${Package}::$func_name() -- $var is not a blessed SV reference \" );
}