blob: 56efa177a9f4f2aa5bc914c84e8341856b1e07c2 (
plain)
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
|
package Bugzilla::Markdown::GFM::SyntaxExtension;
use 5.10.1;
use strict;
use warnings;
sub SETUP {
my ($class, $FFI) = @_;
$FFI->custom_type(
markdown_syntax_extension_t => {
native_type => 'opaque',
native_to_perl => sub {
bless \$_[0], $class if $_[0];
},
perl_to_native => sub { $_[0] ? ${ $_[0] } : 0 },
}
);
$FFI->attach(
[ cmark_find_syntax_extension => 'find' ],
[ 'string' ] => 'markdown_syntax_extension_t',
sub {
my $c_func = shift;
return $c_func->($_[1]);
}
);
}
1;
__END__
|
