File Coverage

blib/lib/authority/shared.pm
Criterion Covered Total %
statement 17 17 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod n/a
total 23 23 100.0


line stmt bran cond sub pod time code
1 2     2   27429 use 5.006;
  2         9  
  2         85  
2 2     2   11 use strict;
  2         4  
  2         69  
3 2     2   9 use warnings;
  2         3  
  2         134  
4              
5             package authority::shared;
6              
7             our $AUTHORITY = 'cpan:TOBYINK';
8             our $VERSION = '0.102';
9              
10 2     2   987 use Role::Commons ();
  2         7  
  2         41  
11 2     2   1304 use Role::Commons::Authority ();
  2         7  
  2         259  
12              
13             sub import
14             {
15 2     2   22 shift;
16 2         25 Role::Commons::->import(
17             -into => scalar(caller),
18             Authority => { -authorities => \@_ },
19             );
20             }
21              
22             1;
23