NAME

Object::Exception - Multi-threaded exception class

VERSION

version 1.14

ABSTRACT

Multi-threaded exception class

            

              
              
package SampleException;
use Object::Base qw(Object::Exception);
#
package main;
use Object::Exception;
#
# Enable DEBUG for traceback
our $DEBUG = 1;
#
# throws Object::Exception type and its msg: Exception1
eval
{
        throw("Exception1");
};
if ($@)
{
        warn $@ if ref($@) eq "Object::Exception";
}
#
# throws SampleException type and its msg: This is sample exception
sub sub_exception
{
        SampleException->throw("This is sample exception");
}
eval
{
        sub_exception();
};
if ($@) {
        # $@ and $@->message returns same result
        warn $@->message if ref($@) eq "SampleException";
}
#
# throws Object::Exception type and its message: SampleException. Because msg is not defined!
eval
{
        SampleException->throw();
};
if ($@)
{
        if (ref($@) eq "SampleException")
        {
                warn $@;
        } else
        {
                # warns 'This is type of Object::Exception and its message: SampleException'
                warn "This is type of ".ref($@)." and its message: $@";
        }
}
            
          

DESCRIPTION

Functions

traceback($level)

returns array specified level of traceback by calling point of traceback function.

dump_trace(@trace)

returns string dump of trace array. Always ends with "\n".

throw($msg)

dies with new Object::Exception instance with specified message.

Methods

$class->new($msg)

returns new Object::Exception instance with specified message. If $main::DEBUG is setted TRUE, $object->debug attribute is setted 1.

$object->message()

returns message of Object::Exception instance. If $msg is defined with new() or throw(), always ends with "\n". If $object->debug attribute is TRUE, dump generated with dump_trace is added to end of message.

$class->throw($msg)

dies with new Object::Exception derived-class instance with specified message. If $class is not derived from Object::Exception, does nothing. $msg value must be specified explicitly and it can be undef. Otherwise, method runs as throw($class) function.

REPOSITORY

GitHub https://github.com/orkunkaraduman/p5-Object-Base

CPAN https://metacpan.org/release/Object-Base

SEE ALSO

• Object::Base

AUTHOR

Orkun Karaduman <orkunkaraduman@gmail.com>

COPYRIGHT AND LICENSE

Copyright (C) 2017 Orkun Karaduman <orkunkaraduman@gmail.com>

This program is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation, either version 3 of the License, or (at your option) any later version.

This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.

You should have received a copy of the GNU General Public License along with this program. If not, see <http://www.gnu.org/licenses/>.

cpanm Object::Base

perl -MCPAN -e shell
install Object::Base