ext/Devel/PPPort/parts/inc/threads

   1 ################################################################################
   2 ##
   3 ##  $Revision: 5 $
   4 ##  $Author: mhx $
   5 ##  $Date: 2006/01/14 18:08:00 +0100 $
   6 ##
   7 ################################################################################
   8 ##
   9 ##  Version 3.x, Copyright (C) 2004-2006, Marcus Holland-Moritz.
  10 ##  Version 2.x, Copyright (C) 2001, Paul Marquess.
  11 ##  Version 1.x, Copyright (C) 1999, Kenneth Albanowski.
  12 ##
  13 ##  This program is free software; you can redistribute it and/or
  14 ##  modify it under the same terms as Perl itself.
  15 ##
  16 ################################################################################
  17
  18 =provides
  19
  20 __UNDEFINED__
  21
  22 =implementation
  23
  24 __UNDEFINED__  dTHR       dNOOP
  25
  26 __UNDEFINED__  dTHX       dNOOP
  27 __UNDEFINED__  dTHXa(x)   dNOOP
  28
  29 __UNDEFINED__  pTHX       void
  30 __UNDEFINED__  pTHX_
  31 __UNDEFINED__  aTHX
  32 __UNDEFINED__  aTHX_
  33
  34 __UNDEFINED__  dTHXoa(x)  dTHXa(x)
  35
  36 =xsubs
  37
  38 IV
  39 no_THX_arg(sv)
  40         SV *sv
  41         CODE:
  42                 RETVAL = 1 + sv_2iv(sv);
  43         OUTPUT:
  44                 RETVAL
  45
  46 void
  47 with_THX_arg(error)
  48         char *error
  49         PPCODE:
  50                 Perl_croak(aTHX_ "%s", error);
  51
  52 =tests plan => 2
  53
  54 ok(&Devel::PPPort::no_THX_arg("42"), 43);
  55 eval { &Devel::PPPort::with_THX_arg("yes\n"); };
  56 ok($@ =~ /^yes/);
  57