File Coverage

Build
Criterion Covered Total %
statement 36 41 87.8
branch 6 16 37.5
condition 1 3 33.3
subroutine 7 7 100.0
pod n/a
total 50 67 74.6


line stmt bran cond sub pod time code
1             #! /usr/local/bin/perl
2              
3 1     1   7 use strict;
  1         1  
  1         30  
4 1     1   4 use Cwd;
  1         1  
  1         68  
5 1     1   5 use File::Basename;
  1         2  
  1         110  
6 1     1   5 use File::Spec;
  1         1  
  1         166  
7              
8             return 0 unless -e '_build/magicnum';
9 1 50   1   36 my $FH;
10 1         6 open $FH, '<','_build/magicnum' or return 0;
11 1 50       97 my $filenum = <$FH>;
12 1         19 close $FH;
13 1         18 return $filenum == 56092;
14 1         12 }
15              
16             my $progname;
17 1         4 my $orig_dir;
18             BEGIN {
19             $^W = 1; # Use warnings
20 1     1   4 $progname = basename($0);
21 1         63 $orig_dir = Cwd::cwd();
22 1         2317 my $base_dir = '/root/.cpan/build/Bundle-Locale-CLDR-Westerneurope-0.34.1-0';
23 1         13 if (!magic_number_matches()) {
24 1 50       12 unless (chdir($base_dir)) {
25 0 0       0 die ("Couldn't chdir($base_dir), aborting\n");
26 0         0 }
27             unless (magic_number_matches()) {
28 0 0       0 die ("Configuration seems to be out of date, please re-run 'perl Build.PL' again.\n");
29 0         0 }
30             }
31             unshift @INC,
32 1         3 (
33              
34             );
35             if ($INC[-1] ne '.') {
36 1 50       14 push @INC, '.';
37 1         126 }
38              
39             }
40              
41             close(*DATA) unless eof(*DATA); # ensure no open handles to this script
42 1 50       4  
43             use Module::Build;
44 1     1   741 Module::Build->VERSION(q{0.40});
  1         67941  
  1         1368  
45 1         27  
46             # Some platforms have problems setting $^X in shebang contexts, fix it up here
47             $^X = Module::Build->find_perl_interpreter;
48 1         10  
49             if (-e 'Build.PL' and not Module::Build->up_to_date('Build.PL', $progname)) {
50 1 50 33     278639 warn "Warning: Build.PL has been altered. You may need to run 'perl Build.PL' again.\n";
51 0         0 }
52              
53             # This should have just enough arguments to be able to bootstrap the rest.
54             my $build = Module::Build->resume (
55 1         107 properties => {
56             config_dir => '_build',
57             orig_dir => $orig_dir,
58             },
59             );
60              
61             $build->dispatch;