File Coverage

blib/lib/Object/AUTHORITY.pm
Criterion Covered Total %
statement 19 20 95.0
branch 1 2 50.0
condition 2 2 100.0
subroutine 6 6 100.0
pod n/a
total 28 30 93.3


line stmt bran cond sub pod time code
1 3     3   47124 use 5.006;
  3         8  
  3         95  
2 3     3   14 use strict;
  3         2  
  3         96  
3 3     3   11 use warnings;
  3         5  
  3         180  
4              
5             package Object::AUTHORITY;
6              
7             our $AUTHORITY = 'cpan:TOBYINK';
8             our $VERSION = '0.103';
9              
10 3     3   948 use Role::Commons ();
  3         8  
  3         70  
11 3     3   1295 use Role::Commons::Authority ();
  3         6  
  3         338  
12              
13             sub import
14             {
15 2     2   18 shift;
16 2         9 my (undef, $opts) = Role::Commons::->parse_arguments(Authority => @_);
17 0         0 my @packages = ref $opts->{package}
18 2 50 100     14 ? @{ $opts->{package} }
19             : ($opts->{package}|| scalar caller);
20            
21 2         13 Role::Commons::->import('Authority', -into => $_) for @packages;
22             }
23              
24             *AUTHORITY = Role::Commons::Authority::->can('AUTHORITY');
25              
26             1;
27