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         29  
4 1     1   5 use Cwd;
  1         2  
  1         81  
5 1     1   6 use File::Basename;
  1         1  
  1         120  
6 1     1   6 use File::Spec;
  1         1  
  1         202  
7              
8             sub magic_number_matches {
9 1 50   1   63 return 0 unless -e '_build/magicnum';
10 1         7 my $FH;
11 1 50       104 open $FH, '<','_build/magicnum' or return 0;
12 1         961 my $filenum = <$FH>;
13 1         16 close $FH;
14 1         19 return $filenum == 753778;
15             }
16              
17 1         5 my $progname;
18             my $orig_dir;
19             BEGIN {
20 1     1   4 $^W = 1; # Use warnings
21 1         77 $progname = basename($0);
22 1         3670 $orig_dir = Cwd::cwd();
23 1         16 my $base_dir = '/root/.cpan/build/GitHub-Crud-20230303-0';
24 1 50       22 if (!magic_number_matches()) {
25 0 0       0 unless (chdir($base_dir)) {
26 0         0 die ("Couldn't chdir($base_dir), aborting\n");
27             }
28 0 0       0 unless (magic_number_matches()) {
29 0         0 die ("Configuration seems to be out of date, please re-run 'perl Build.PL' again.\n");
30             }
31             }
32 1         11 unshift @INC,
33             (
34             '/home/phil/perl/cpan/DataTableText/lib'
35             );
36 1 50       11 if ($INC[-1] ne '.') {
37 1         129 push @INC, '.';
38             }
39              
40             }
41              
42 1 50       8 close(*DATA) unless eof(*DATA); # ensure no open handles to this script
43              
44 1     1   975 use Module::Build;
  1         81552  
  1         1461  
45 1         24 Module::Build->VERSION(q{0.4224});
46              
47             # Some platforms have problems setting $^X in shebang contexts, fix it up here
48 1         9 $^X = Module::Build->find_perl_interpreter;
49              
50 1 50 33     363929 if (-e 'Build.PL' and not Module::Build->up_to_date('Build.PL', $progname)) {
51 0         0 warn "Warning: Build.PL has been altered. You may need to run 'perl Build.PL' again.\n";
52             }
53              
54             # This should have just enough arguments to be able to bootstrap the rest.
55 1         323 my $build = Module::Build->resume (
56             properties => {
57             config_dir => '_build',
58             orig_dir => $orig_dir,
59             },
60             );
61              
62 1         729668 $build->dispatch;