This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Convert lib/Tie/Hash/NamedCapture.pm to an XS module in ext/
[perl5.git] / ext / Tie-Hash-NamedCapture / NamedCapture.xs
CommitLineData
8cf6f931
NC
1#include "EXTERN.h"
2#include "perl.h"
3#include "XSUB.h"
4
5MODULE = Tie::Hash::NamedCapture PACKAGE = Tie::Hash::NamedCapture
6PROTOTYPES: DISABLE
7
8void
9flags(...)
10 PPCODE:
11 EXTEND(SP, 2);
12 mPUSHu(RXapif_ONE);
13 mPUSHu(RXapif_ALL);
14