1 /*******************************************************************************
3 * Perl/Pollution/Portability
5 ********************************************************************************
9 * $Date: 2005/02/02 21:47:34 +0100 $
11 ********************************************************************************
13 * Version 3.x, Copyright (C) 2004-2005, Marcus Holland-Moritz.
14 * Version 2.x, Copyright (C) 2001, Paul Marquess.
15 * Version 1.x, Copyright (C) 1999, Kenneth Albanowski.
17 * This program is free software; you can redistribute it and/or
18 * modify it under the same terms as Perl itself.
20 *******************************************************************************/
30 static void throws_exception(int throw_e)
36 int exception(int throw_e)
40 SV *caught = get_sv("Devel::PPPort::exception_caught", 0);
43 throws_exception(throw_e);
57 void call_newCONSTSUB_3(void)
59 newCONSTSUB(gv_stashpv("Devel::PPPort", FALSE), "test_value_3", newSViv(3));