NAME

Sub::Exception - Code block with exception handler.

SYNOPSIS

Usually, this module acts in use phase:

            

              
              
use Redis;
use Sub::Exception redis_cmds => sub { MyException->throw($_) };
# when some exception occurred in this block, exception MyException threw.
redis_cmds {
    my $redis = Redis->new;
     
    $redis->multi;
    ... # redis commands
    $redis->exec;
};
            
          

Optionally have class methods exporting code block to specified package.

            

              
              
use Sub::Exception;
Sub::Exception->export(
    name          => 'redis_cmds',
    error_handler => sub { MyException->throw($_) },
    package       => 'Target::Package',
);
            
          

DESCRIPTION

Sub::Exception is code block generator that have own exception handler.

IMPORT FUNCTION

            

              
              
use Sub::Exception %name_handler_pairs;
            
          

This is main usage of this module. You can set multiple sub name and error handler pairs at once.

            

              
              
use Sub::Exception
    database_cmds => sub { die sprintf 'DB Error: %s', $_ },
    redis_cmds    => sub { die sprintf 'Redis Error: %s', $_ };
            
          

Above code is export two subs: database_cmds and redis_cmds into current package. And these subs has own error handlers.

            

              
              
database_cmd {
    # some database functions
};
            
          

Exceptions in this code block is caught by its error handler:

            

              
              
sub { die sprintf 'DB Error: %s', $_ }
            
          

So all exceptions wraps 'DB Error: ' prefix string and re-throw it.

CLASS METHODS

export( name => 'Str', error_handler => 'CodeRef', package => 'Str' )

            

              
              
Sub::Exception->export(
    name          => 'redis_cmds',
    error_handler => sub { MyException->throw($_) },
    package       => 'Target::Package',
);
            
          

Another way to export code blocks.

            

              
              
use Sub::Exception func => sub { ... };
            
          

is equivalent to:

            

              
              
use Sub::Exception;
Sub::Exception->export(
    name          => 'func',
    error_handler => sub { ... },
    package       => __PACKAGE__,
);
            
          

This method is a bit verbosity but it's possible to export functions to any packages.

AUTHOR

Daisuke Murase <typester@cpan.org>

COPYRIGHT AND LICENSE

Copyright (c) 2012 KAYAC Inc. All rights reserved.

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

The full text of the license can be found in the LICENSE file included with this module.

cpanm Sub::Exception

perl -MCPAN -e shell
install Sub::Exception