File Coverage

blib/lib/Acme/MetaSyntactic/cpanauthors.pm
Criterion Covered Total %
statement 9 9 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 12 12 100.0


line stmt bran cond sub pod time code
1             package Acme::MetaSyntactic::cpanauthors;
2             $Acme::MetaSyntactic::cpanauthors::VERSION = '1.001';
3 2     2   69460 use strict;
  2         6  
  2         170  
4 2     2   2108 use Acme::MetaSyntactic::MultiList;
  2         44171  
  2         69  
5 2     2   7459 use Acme::CPANAuthors;
  2         11422  
  2         353  
6             our @ISA = qw( Acme::MetaSyntactic::MultiList );
7              
8             my %names = (
9             map {
10             lc $_ => map { tr/-/_/; $_ } join ' ', Acme::CPANAuthors->new($_)->id
11             } Acme::CPANAuthors->_list_categories()
12             );
13              
14             # protect against empty categories (Acme::CPANAuthors::Dutch)
15             delete $names{$_} for grep !$names{$_}, keys %names;
16              
17             __PACKAGE__->init( { default => ':all', names => \%names } );
18              
19             1;
20              
21             __END__