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.