Error::Dumb - simple error management for simple classes
use Some::Simple::Class;
my $Obj = new Some::Simple::Class;
$Obj->doSomething() or die $Obj->error():
package Some::Simple::Class;
use Error::Dumb;
use vars qw(@ISA);
# inherit from Error::Dumb
@ISA = qw(Error::Dumb);
sub doSomething {
my $self = shift;
return $self->_setError('oops, failed to do something');
}
Error::Dumb is a base class that is meant to be inherited by other classes. All this class provides is an interface for setting and retrieving error messages; as documented below...
Accessor for private scalar ERROR.
Alias to error()
Set private scalar ERROR to ERRMSG.
Ilia Lobsanov <ilia@lobsanov.com>
Copyright (c) 2001 Ilia Lobsanov, Nurey Networks Inc.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
