#$coderef
        , 5
    );
    #
    warn $cb;
    #
    my $result = $cb->call(12);    # Don't make these an array ref

    #
    warn $result;
}
{
    my $cb = dcbNewCallback(
        'iZ)Z',
        sub {
            my ( $int, $name, $userdata ) = @_;

            #is $int, 100,    'int arg correct';
            #is $name, 'John', 'string arg is correct';
            ddx $userdata;
            return 'Hello, ' . $name;
        },
        [5]
    );
    my $result = $cb->call( 10, 'Bob' );
    warn $result;
}