ext/Tie-Hash-NamedCapture/NamedCapture.xs


1
2
3
4
5
6
7
8
9
10
11
12
13
14

#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"

MODULE = Tie::Hash::NamedCapture	PACKAGE = Tie::Hash::NamedCapture
PROTOTYPES: DISABLE

void
flags(...)
    PPCODE:
	EXTEND(SP, 2);
	mPUSHu(RXapif_ONE);
	mPUSHu(RXapif_ALL);