File Coverage

lib/Syntax/Operator/ExistsOr.xs

Criterion	Covered	Total	%
statement	1	6	16.6
branch	0	4	0.0
condition			n/a
subroutine			n/a
pod			n/a
total	1	10	10.0

/*  You may distribute under the terms of either the GNU General Public License
 *  or the Artistic License (the same terms as Perl itself)
 *
 *  (C) Paul Evans, 2016-2021 -- [e-mail]
 */
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"

#include "XSParseInfix.h"

#define HAVE_PERL_VERSION(R, V, S) \
    (PERL_REVISION > (R) || (PERL_REVISION == (R) && (PERL_VERSION > (V) || (PERL_VERSION == (V) && (PERL_SUBVERSION >= (S))))))

#include "newOP_CUSTOM.c.inc"
#include "OP_HELEMEXISTSOR.c.inc"

static OP *new_op_existsor(pTHX_ U32 flags, OP *lhs, OP *rhs, SV **parsedata, void *hookdata)
{
  if(!lhs || lhs->op_type != OP_HELEM)
    croak("Left operand of existsor must be a hash element access");

  op_contextualize(newHELEMEXISTSOROP(0, lhs, rhs), G_SCALAR);
}

static const struct XSParseInfixHooks hooks_existsor_low = {
  .cls            = XPI_CLS_LOGICAL_OR_LOW_MISC,
  .permit_hintkey = "Syntax::Operator::ExistsOr/existsor",
  .new_op         = &new_op_existsor,
};

static const struct XSParseInfixHooks hooks_existsor = {
  .cls            = XPI_CLS_LOGICAL_OR_MISC,
  .permit_hintkey = "Syntax::Operator::ExistsOr/existsor",
  .new_op         = &new_op_existsor,
};

MODULE = Syntax::Operator::ExistsOr    PACKAGE = Syntax::Operator::ExistsOr

BOOT:
  boot_xs_parse_infix(0.26);

  register_xs_parse_infix("existsor", &hooks_existsor_low, NULL);
  register_xs_parse_infix("\\\\",     &hooks_existsor,     NULL);