Bugzilla/Markdown/GFM/Node.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33

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__