File Coverage

xsubs/defined.xs

Criterion	Covered	Total	%
statement	4	4	100.0
branch	4	8	50.0
condition			n/a
subroutine			n/a
pod			n/a
total	8	12	66.6

################################################################################
#
# Copyright (c) 2002-2020 Marcus Holland-Moritz. All rights reserved.
# This program is free software; you can redistribute it and/or modify
# it under the same terms as Perl itself.
#
################################################################################


################################################################################
#
#   METHOD: defined
#
#   WRITTEN BY: Marcus Holland-Moritz             ON: Feb 2006
#   CHANGED BY:                                   ON:
#
################################################################################

bool
CBC::defined(name)
  const char *name

  PREINIT:
    CBC_METHOD(defined);

  CODE:
    CT_DEBUG_METHOD;

    /* TODO: probably we can do without parse data (would require special handling of the pp object) */
    CHECK_PARSE_DATA;
    CHECK_VOID_CONTEXT;

    RETVAL = macro_is_defined(&THIS->cpi, name);

  OUTPUT:
    RETVAL