NAME

Exception::Simple - simple exception class

SYNOPSIS

 use Exception::Simple;
 use Try::Tiny; #or just use eval {}, it's all good

 ### throw ###
 try{
     Exception::Simple->throw( 'oh noes!' );
 } catch {
     warn $_; #"oh noes!" 
     warn $_->error; #"oh noes!"
 };

 my $data = { 
     'foo' => 'bar',
     'fibble' => [qw/wibble bibble/],
 };
 try{
     Exception::Simple->throw( 
         'error' => 'oh noes!',
         'data' => $data,
     );  
 } catch {
     warn $_; #"oh noes!"
     warn $_->error; #"oh noes!"

     warn $_->data->{'foo'}; #"bar"
 };

 ### throwc ###
 try{
     Exception::Simple->throwc( "Some::Fake::Exception::Class", 'oh noes!' );
 } catch {
     warn $_; #"oh noes!"
     warn ref( $_ ); #"Some::Fake::Exception::Class"
     warn $_->error; #"oh noes!"
 };

 my $data = { 
     'foo' => 'bar',
     'fibble' => [qw/wibble bibble/],
 };
 try{
     Exception::Simple->throwc( 
         'Some::Fake::Exception::Class',
         'error' => 'oh noes!',
         'data' => $data,
     );  
 } catch {
     warn $_; #"oh noes!"
     warn ref( $_ ); #"Some::Fake::Exception::Class"
     warn $_->error; #"oh noes!"

     warn $_->data->{'foo'}; #"bar"
 };

DESCRIPTION

pretty simple exception class. auto creates argument accessors. simple, lightweight and extensible are this modules goals.

METHODS

throw

with just one argument $@->error is set Exception::Simple->throw( 'error message' ); # $@ stringifies to $@->error

or set multiple arguments (creates accessors) Exception::Simple->throw( error => 'error message', data => 'cutom atrribute', ); # warn $@->data or something

throwc

Same as throw, except the first argument is a classname which will become the classname of the exception object.

Useful for throwing specific execptions without having to create lots of packages.

try{
    Exception::Simple->throwc( "Some::Fake::Exception::Class", 'oh noes!' );
} catch {
    warn ref( $_ ); #Some::Fake::Exception::Class
};

WARNING: using throwc with a real classname is unsupported i.e. throwc( "Data::Dumper", "derp" ) #you just made god kill a kitten

rethrow

say you catch an error, but then you want to uncatch it

use Try::Tiny;

try{
    Exception:Simple->throw( 'foobar' );
} catch {
    if ( $_ eq 'foobar' ){
    #not our error, rethrow
        $_->rethrow; 
    }
};

error

accessor for error, if its been set

SUPPORT

Bugs should always be submitted via the CPAN bug tracker

For other issues, contact the maintainer

AUTHOR

n0body <n0body@thisaintnews.com>

CONTRIBUTORS

Stephen Thirlwall

SEE ALSO

http://thisaintnews.com, Try::Tiny

LICENSE

Copyright (C) 2012 by n0body http://thisaintnews.com/

This library is free software, you can redistribute it and/or modify it under the same terms as Perl itself.

cpanm Exception::Simple

perl -MCPAN -e shell
install Exception::Simple