Select Code to Download

sub ChildGet {
    my ( $self, $class ) = @_;
...
        : child_get($self);
    return bless $child, $class;
}

void
ChildGet(bin, ...)
...
    ST(0) = sv_newmortal();
    sv_setref_pv(ST(0), class, (void*)button);
    XSRETURN(1);