Error::Dumb - simple error management for simple classes |
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()
_setError(ERRMSG)
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.
Error::Dumb - simple error management for simple classes |