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