package Bugzilla::Markdown::GFM::Node; use 5.10.1; use strict; use warnings; sub SETUP { my ($class, $FFI) = @_; $FFI->custom_type( markdown_node_t => { native_type => 'opaque', native_to_perl => sub { bless \$_[0], $class if $_[0]; }, perl_to_native => sub { ${$_[0]} }, } ); $FFI->attach([cmark_node_free => 'DESTROY'], ['markdown_node_t'] => 'void'); $FFI->attach( [cmark_render_html => 'render_html'], ['markdown_node_t', 'markdown_options_t', 'markdown_syntax_extension_list_t'] => 'string', ); } 1; __END__