#define PERL_NO_GET_CONTEXT
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
static cv_flags_t
{
return CVf_METHOD;
return CVf_LOCKED;
else
return 0;
}
void
import(...)
unimport = 1
int i;
if (items < 1)
croak("can't set attributes outside a subroutine scope");
if (ckWARN(WARN_DEPRECATED))
"pragma \"attrs\" is deprecated, "
"use \"sub NAME : ATTRS\" instead");
for (i = 1; i < items; i++) {
if (!flag)
if (ix)
else
}
void
}
else {
}
if (!sub)
croak("invalid subroutine reference or name");