blob: 213980485f1a7d026e9299c2a28a54f5ed61bfe5 (
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__
|