File Coverage

blib/lib/Router/Simple/Declare.pm
Criterion Covered Total %
statement 26 26 100.0
branch n/a
condition n/a
subroutine 9 9 100.0
pod 1 1 100.0
total 36 36 100.0


line stmt bran cond sub pod time code
1             package Router::Simple::Declare;
2 1     1   73762 use strict;
  1         4  
  1         61  
3 1     1   6 use warnings;
  1         3  
  1         37  
4 1     1   1180 use parent 'Exporter';
  1         369  
  1         5  
5 1     1   1011 use Router::Simple;
  1         4  
  1         37  
6 1     1   7 use Carp ();
  1         2  
  1         103  
7              
8             our @EXPORT = qw/router connect submapper/;
9              
10             our $_ROUTER;
11              
12             sub router (&) {
13 1     1 1 18 local $_ROUTER = Router::Simple->new();
14 1         4 $_[0]->();
15 1         11 $_ROUTER;
16             }
17              
18             BEGIN {
19 1     1   5 no strict 'refs';
  1         2  
  1         97  
20 1     1   3 for my $meth (qw/connect submapper/) {
21 2         38 *{$meth} = sub {
22 5     5   37 local $Carp::CarpLevel = $Carp::CarpLevel + 1;
23 5         18 $_ROUTER->$meth(@_);
24 2         8 };
25             }
26             }
27              
28             1;
29             __END__