CGI::MxScreen::Exception - Mother of all exception classes

CGI-MxScreen documentation Contained in the CGI-MxScreen distribution.

Index

Code Index:

NAME

Top

CGI::MxScreen::Exception - Mother of all exception classes

SYNOPSIS

Top

 # Deferred class, meant to be inherited from

DESCRIPTION

Top

This deferred class is intended to be the common ancestor for all defined CGI::MxScreen exceptions.

AUTHORS

Top

The original authors are Raphael Manfredi <Raphael_Manfredi@pobox.com> and Christophe Dehaudt <Christophe.Dehaudt@teamlog.fr>.

Send bug reports, suggestions, problems or questions to Jason Purdy <Jason@Purdy.INFO>

SEE ALSO

Top

CGI::MxScreen::Exception::Bounce(3).

CGI-MxScreen documentation Contained in the CGI-MxScreen distribution. 
# -*- Mode: perl -*-
#
# $Id: Exception.pm,v 0.1.1.1 2001/05/30 21:13:28 ram Exp $
#
#  Copyright (c) 1998-2001, Raphael Manfredi
#  Copyright (c) 2000-2001, Christophe Dehaudt
#  
#  You may redistribute only under the terms of the Artistic License,
#  as specified in the README file that comes with the distribution.
#
# HISTORY
# $Log: Exception.pm,v $
# Revision 0.1.1.1  2001/05/30 21:13:28  ram
# patch1: removed DFEATURE call from stringify hook
#
# Revision 0.1  2001/04/22 17:57:03  ram
# Baseline for first Alpha release.
#
# $EndLog$
#

use strict;

package CGI::MxScreen::Exception;

use Carp::Datum;
use Log::Agent;

use overload
	qw("" stringify);

#
# ->make		-- deferred
#
sub make {
	logconfess "deferred";
}

#
# ->stringify	-- may be redefined by heirs
#
# For display purposes, if they try to stringify us.
#
sub stringify {
	# Can't DFEATURE this routine, or would be a recursive call
	my $self = shift;
	my $pkg = ref $self;
	$pkg =~ s/^__PACKAGE__:://;
	return "CGI::MxScreen exception (type $pkg)";
}

1;