File Coverage

lib/Sublike/Extended.xs
Criterion Covered Total %
statement 1 1 100.0
branch n/a
condition n/a
subroutine n/a
pod n/a
total 1 1 100.0


line stmt bran cond sub pod time code
1             /* You may distribute under the terms of either the GNU General Public License
2             * or the Artistic License (the same terms as Perl itself)
3             *
4             * (C) Paul Evans, 2023 -- leonerd@leonerd.org.uk
5             */
6              
7             #include "EXTERN.h"
8             #include "perl.h"
9             #include "XSUB.h"
10              
11             #include "XSParseSublike.h"
12              
13             static struct XSParseSublikeHooks hooks_extended = {
14             .permit_hintkey = "Sublike::Extended/extended",
15             .flags = XS_PARSE_SUBLIKE_FLAG_PREFIX|
16             XS_PARSE_SUBLIKE_FLAG_SIGNATURE_NAMED_PARAMS|
17             XS_PARSE_SUBLIKE_FLAG_SIGNATURE_PARAM_ATTRIBUTES,
18              
19             /* No hooks */
20             };
21              
22             MODULE = Sublike::Extended PACKAGE = Sublike::Extended
23              
24             BOOT:
25 2           boot_xs_parse_sublike(0); // TODO
26              
27             register_xs_parse_sublike("extended", &hooks_extended, NULL);