File Coverage

blib/lib/Acme/CPANAuthors/European.pm
Criterion Covered Total %
statement 19 19 100.0
branch 1 2 50.0
condition n/a
subroutine 6 6 100.0
pod n/a
total 26 27 96.3


line stmt bran cond sub pod time code
1             package Acme::CPANAuthors::European;
2              
3 2     2   32356 use 5.006;
  2         8  
  2         88  
4 2     2   11 use strict;
  2         5  
  2         68  
5 2     2   10 use warnings;
  2         284  
  2         68  
6 2     2   12 no warnings 'syntax';
  2         13  
  2         254  
7              
8             our $VERSION = '2014051201';
9              
10             my @NATIONALITIES;
11              
12             BEGIN {
13 2     2   15 @NATIONALITIES = qw [Austrian British French German Icelandic
14             Norwegian Portuguese Russian
15             Turkish Ukrainian];
16 2         12 foreach my $nat (@NATIONALITIES) {
17 20 50       14953 eval "require Acme::CPANAuthors::$nat" or die $@;
18             }
19             }
20              
21             use Acme::CPANAuthors::Register (
22 2         4 (map {"Acme::CPANAuthors::$_" -> authors} @NATIONALITIES),
  20         1056  
23             ABIGAIL => 'Abigail',
24             SREZIC => "Slaven Rezi\x{107}",
25 2     2   591 );
  2         4  
26              
27              
28             1;
29              
30             __END__