Permalink
Switch branches/tags
Nothing to show
Find file
Fetching contributors…
Cannot retrieve contributors at this time
91 lines (63 sloc) 2.55 KB
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.