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 5     5   39018 use strict;
  5         9  
  5         161  
4 5     5   21 use warnings;
  5         19  
  5         238  
5              
6             sub import {
7 6     6   110 my ($class, %authors) = @_;
8              
9 6         13 my $caller = caller;
10             {
11 5     5   19 no strict 'refs';
  5         20  
  5         122  
  6         6  
12 5     5   17 no warnings 'redefine';
  5         5  
  5         589  
13 6 100   16   17 *{"$caller\::authors"} = sub { wantarray ? %authors : \%authors };
  6         25  
  16         676  
14              
15 6         24 (my $category = $caller) =~ s/^Acme::CPANAuthors:://;
16 6     1   12 *{"$caller\::category"} = sub { $category };
  6         107  
  1         436  
17             }
18             }
19              
20             1;
21              
22             __END__