package WebPerl;

# -------------------------------------------------------------------------
# The WebPerl package interfaces between PowerWeb Server++ and Perl.
# This package must only be loaded from within PowerWeb.
# Do not modify this file in any way.
#
# Requirements:
#
#	1.	The library WebPerl_.DLL in the same directory.
#	2.	Perl version 5.002 or later.
#
# COPYRIGHT:
#   CompuSource (Pty) Ltd
#   Licensed Materials - Property of CompuSource (Pty) Ltd
#   (C) Copyright CompuSource (Pty) Ltd 1994-1996.
#   All Rights Reserved
#   Use, duplication, or disclosure restricted by international
#   copyright law.
#
# -------------------------------------------------------------------------

use strict;
use vars qw($VERSION @ISA @EXPORT);

require Exporter;
require DynaLoader;

@ISA = qw(Exporter DynaLoader);
@EXPORT = qw();

$VERSION = '2.08';

bootstrap WebPerl $VERSION;

sub WebPerl::death
{
	die "Recovered From an Exception Violation within Perl.\n";
}

sub WebPerl::evaluate
{
	package WebWrapper;
	eval $_[0];
	undef %WebWrapper::;
}

sub WebPerl::evaluateFile
{
	package WebWrapper;
	do $_[0];
	undef %WebWrapper::;
}

$SIG{ZERO}	= 'WebPerl::death';
$SIG{ILL}	= 'WebPerl::death';
$SIG{TRAP}	= 'WebPerl::death';
$SIG{FPE}	= 'WebPerl::death';
$SIG{SEGV}	= 'WebPerl::death';

1;
__END__