File Coverage

blib/lib/Acme/CPANAuthors/EU.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::EU;
2              
3 2     2   44657 use 5.006;
  2         7  
  2         76  
4 2     2   10 use strict;
  2         5  
  2         65  
5 2     2   10 use warnings;
  2         16  
  2         66  
6 2     2   10 no warnings 'syntax';
  2         2  
  2         225  
7              
8             our $VERSION = '2014051201';
9              
10             my @NATIONALITIES;
11              
12             BEGIN {
13 2     2   13 @NATIONALITIES = qw [Austrian British French German Portuguese];
14 2         13 foreach my $nat (@NATIONALITIES) {
15 10 50       9510 eval "require Acme::CPANAuthors::$nat" or die $@;
16             }
17             }
18              
19             use Acme::CPANAuthors::Register (
20 2         5 (map {"Acme::CPANAuthors::$_" -> authors} @NATIONALITIES),
  10         485  
21             ABIGAIL => 'Abigail',
22 2     2   670 );
  2         4  
23              
24              
25             1;
26              
27             __END__