sub errstr {
    my $self = shift;
    return $self->{errstr} if Scalar::Util::blessed $self;
    return $errstr;
}

##</code><code>##

my $obj = CLASS->new( ... ) or die CLASS->errstr;