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   83380 use 5.006;
  3         12  
  3         114  
2 3     3   16 use strict;
  3         5  
  3         100  
3 3     3   14 use warnings;
  3         5  
  3         202  
4              
5             package Object::AUTHORITY;
6              
7             our $AUTHORITY = 'cpan:TOBYINK';
8             our $VERSION = '0.102';
9              
10 3     3   1570 use Role::Commons ();
  3         12  
  3         72  
11 3     3   2456 use Role::Commons::Authority ();
  3         10  
  3         509  
12              
13             sub import
14             {
15 2     2   23 shift;
16 2         16 my (undef, $opts) = Role::Commons::->parse_arguments(Authority => @_);
17 0         0 my @packages = ref $opts->{package}
18 2 50 100     17 ? @{ $opts->{package} }
19             : ($opts->{package}|| scalar caller);
20            
21 2         15 Role::Commons::->import('Authority', -into => $_) for @packages;
22             }
23              
24             *AUTHORITY = Role::Commons::Authority::->can('AUTHORITY');
25              
26             1;
27