The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

Clownfish::Err - Exception.

SYNOPSIS

    package MyErr;
    use base qw( Clownfish::Err );
    
    ...
    
    package main;
    use Scalar::Util qw( blessed );
    while (1) {
        eval {
            do_stuff() or MyErr->throw("retry");
        };
        if ( blessed($@) and $@->isa("MyErr") ) {
            warn "Retrying...\n";
        }
        else {
            # Re-throw.
            die "do_stuff() died: $@";
        }
    }

DESCRIPTION

Clownfish::Err is the base class for exceptions in the Clownfish object hierarchy.

The Err module also provides access to a per-thread Err shared variable via set_error() and get_error(). It may be used to store an Err object temporarily, so that calling code may choose how to handle a particular error condition.

METHODS

cat_mess

    $err->cat_mess($mess);

Concatenate the supplied argument onto the error message.

get_mess

    my $string = $err->get_mess();

Return the error message.

INHERITANCE

Clownfish::Err isa Clownfish::Obj.