File Coverage

blib/lib/Try/Tiny/ByClass.pm
Criterion Covered Total %
statement 18 18 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod 1 1 100.0
total 26 26 100.0


line stmt bran cond sub pod time code
1             package Try::Tiny::ByClass;
2              
3 2     2   40876 use warnings;
  2         5  
  2         60  
4 2     2   10 use strict;
  2         4  
  2         109  
5              
6             our $VERSION = '0.01';
7              
8 2     2   9 use base qw(Exporter);
  2         8  
  2         623  
9              
10             our @EXPORT = our @EXPORT_OK = qw(try catch finally catch_case);
11              
12 2     2   1660 use Try::Tiny qw(try catch finally);
  2         8350  
  2         136  
13              
14 2     2   1538 use Dispatch::Class qw(dispatch);
  2         33801  
  2         14  
15              
16             sub catch_case ($@) {
17 3     3 1 3218 my $handlers = shift;
18 3     1   19 &catch(dispatch(@$handlers, '*' => sub { die $_[0] }), @_)
  1         1782  
19             }
20              
21             'ok'
22              
23             __END__