| line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
|
1
|
|
|
|
|
|
|
package My::Builder; |
|
2
|
1
|
|
|
1
|
|
14564
|
use Module::Build; |
|
|
1
|
|
|
|
|
263074
|
|
|
|
1
|
|
|
|
|
214
|
|
|
3
|
|
|
|
|
|
|
@ISA = qw(Module::Build); |
|
4
|
|
|
|
|
|
|
sub process_perlfs_files { |
|
5
|
1
|
50
|
|
1
|
0
|
3912
|
chdir 'perlfs' || die $!; |
|
6
|
1
|
|
|
|
|
18
|
$_[0]->do_system(qw/make all/,"PERL=$^X"); |
|
7
|
1
|
|
|
|
|
1764225
|
chdir('..'); |
|
8
|
|
|
|
|
|
|
} |
|
9
|
|
|
|
|
|
|
|
|
10
|
|
|
|
|
|
|
sub ACTION_install { |
|
11
|
0
|
|
|
0
|
0
|
|
my ($self) = @_; |
|
12
|
0
|
|
|
|
|
|
require ExtUtils::Install; |
|
13
|
0
|
|
|
|
|
|
$self->depends_on('build'); |
|
14
|
0
|
|
0
|
|
|
|
ExtUtils::Install::install($self->install_map, 1, 0, $self->{args}{uninst}||0); |
|
15
|
0
|
0
|
|
|
|
|
chdir('perlfs') || die $!; |
|
16
|
0
|
|
|
|
|
|
$self->do_system(qw/make install/); |
|
17
|
0
|
|
|
|
|
|
chdir('..'); |
|
18
|
|
|
|
|
|
|
} |
|
19
|
|
|
|
|
|
|
|
|
20
|
|
|
|
|
|
|
1; |