File Coverage

lib/Acme/CPANAuthors/Register.pm
Criterion Covered Total %
statement 22 22 100.0
branch 2 2 100.0
condition n/a
subroutine 7 7 100.0
pod n/a
total 31 31 100.0


line stmt bran cond sub pod time code
1             package Acme::CPANAuthors::Register;
2              
3 6     6   49694 use strict;
  6         16  
  6         177  
4 6     6   33 use warnings;
  6         39  
  6         364  
5              
6             sub import {
7 7     7   184 my ($class, %authors) = @_;
8              
9 7         19 my $caller = caller;
10             {
11 6     6   38 no strict 'refs';
  6         12  
  6         231  
  7         13  
12 6     6   35 no warnings 'redefine';
  6         7  
  6         932  
13 7 100   17   77 *{"$caller\::authors"} = sub { wantarray ? %authors : \%authors };
  7         48  
  17         1041  
14              
15 7         34 (my $category = $caller) =~ s/^Acme::CPANAuthors:://;
16 7     1   25 *{"$caller\::category"} = sub { $category };
  7         168  
  1         484  
17             }
18             }
19              
20             1;
21              
22             __END__