| line |
true |
false |
branch |
|
29
|
0 |
30 |
if ($@) |
|
37
|
30 |
0 |
if (@_) |
|
38
|
12 |
18 |
if (ref $_[0] eq 'HASH') { } |
|
41
|
2 |
15 |
unless _check_config_keys($_) |
|
42
|
2 |
8 |
if (@_) |
|
47
|
16 |
10 |
if (@_) |
|
48
|
4 |
12 |
if (ref $_[0] ne 'HASH') |
|
51
|
0 |
87 |
unless _check_config_keys($_) |
|
54
|
2 |
20 |
unless (-d $build_dir) |
|
58
|
10 |
10 |
$config_options->{'AUTOWRAP'} ? : |
|
62
|
2 |
4 |
if (exists $config_options->{'CODE'} and exists $config_options->{'SRC_LOCATION'}) |
|
66
|
0 |
2 |
if (exists $config_options->{'BOOT'} and exists $config_options->{'BOOT_F'}) |
|
70
|
4 |
14 |
if (exists $config_options->{'CODE'}) { } |
|
|
4 |
10 |
elsif (exists $config_options->{'SRC_LOCATION'}) { } |
|
72
|
0 |
4 |
if ($code =~ /inline_stack_vars/i) |
|
75
|
2 |
2 |
unless open RD, '<', $config_options->{'SRC_LOCATION'} |
|
78
|
0 |
4 |
if ($_ =~ /inline_stack_vars/i) |
|
80
|
0 |
2 |
unless close RD |
|
83
|
0 |
10 |
unless open RD, '<', "src/$modfname.c" |
|
86
|
4 |
912 |
if ($_ =~ /inline_stack_vars/i) |
|
88
|
0 |
10 |
unless close RD |
|
136
|
0 |
16 |
if (exists $config_options->{'PROTOTYPE'}) |
|
138
|
0 |
16 |
if (exists $config_options->{'PROTOTYPES'}) |
|
140
|
2 |
14 |
if (exists $config_options->{'BUILD_NOISY'}) |
|
142
|
0 |
16 |
if (exists $config_options->{'_TESTING'}) |
|
144
|
10 |
6 |
if ($config_options->{'AUTOWRAP'}) |
|
146
|
2 |
14 |
if ($config_options->{'BOOT'}) |
|
148
|
1 |
15 |
if ($config_options->{'DIST'}) |
|
155
|
0 |
16 |
if ($config_options->{'BOOT_F'}) |
|
157
|
0 |
0 |
unless open RD, '<', $config_options->{'BOOT_F'} |
|
160
|
0 |
0 |
if ($_ =~ /inline_stack_vars/i) |
|
162
|
0 |
0 |
unless close RD |
|
168
|
2 |
14 |
if ($config_options->{'MAKE'}) |
|
170
|
12 |
4 |
if (exists $config_options->{'TYPEMAPS'}) { } |
|
172
|
9 |
3 |
if (ref $val eq 'ARRAY') { } |
|
174
|
2 |
7 |
unless -f $_ |
|
181
|
0 |
3 |
unless -f $_ |
|
192
|
2 |
12 |
if ($config_options->{'LIBS'}) |
|
196
|
2 |
12 |
if ($config_options->{'PREFIX'}) |
|
202
|
2 |
12 |
if ($config_options->{'PRE_HEAD'}) |
|
206
|
1 |
1 |
if (not -f $v) { } |
|
211
|
0 |
1 |
unless open RD, '<', $v |
|
213
|
0 |
1 |
unless close RD |
|
219
|
10 |
4 |
if ($config_options->{'AUTO_INCLUDE'}) |
|
221
|
2 |
12 |
if ($config_options->{'CC'}) |
|
223
|
2 |
12 |
if ($config_options->{'CCFLAGS'}) |
|
225
|
0 |
14 |
if ($config_options->{'CCFLAGSEX'}) |
|
228
|
10 |
4 |
if (exists $config_options->{'INC'}) { } |
|
229
|
0 |
10 |
if (ref $config_options->{'INC'} eq 'ARRAY') { } |
|
236
|
2 |
12 |
if ($config_options->{'LD'}) |
|
238
|
1 |
13 |
if ($config_options->{'PREREQ_PM'}) |
|
240
|
2 |
12 |
if ($config_options->{'LDDLFLAGS'}) |
|
244
|
2 |
12 |
if ($config_options->{'MAKE'}) |
|
246
|
2 |
12 |
if ($config_options->{'MYEXTLIB'}) |
|
248
|
2 |
12 |
if ($config_options->{'OPTIMIZE'}) |
|
250
|
5 |
9 |
if ($config_options->{'USING'}) |
|
252
|
4 |
1 |
if (ref $val eq 'ARRAY') { } |
|
261
|
2 |
12 |
unless ($need_inline_h) |
|
265
|
3 |
11 |
if ($config_options->{'WRITE_MAKEFILE_PL'}) |
|
268
|
3 |
0 |
if ($config_options->{'VERSION'}) { } |
|
274
|
4 |
10 |
if ($config_options->{'WRITE_PM'}) |
|
275
|
4 |
0 |
if ($config_options->{'VERSION'}) { } |
|
283
|
1 |
13 |
if ($config_options->{'MANIF'}) |
|
287
|
1 |
13 |
if ($config_options->{'T'}) |
|
304
|
12 |
2 |
if ($need_inline_headers) |
|
314
|
102 |
1351 |
if $_ eq $_[0] |
|
328
|
3 |
1 |
if ($config_options->{'USE'}) |
|
330
|
0 |
3 |
if ref $config_options->{'USE'} ne 'ARRAY' |
|
334
|
0 |
4 |
unless open WR, '>', $o->{'API'}{'build_dir'} . '/' . $o->{'API'}{'modfname'} . '.pm' |
|
350
|
3 |
1 |
if (not $config_options->{'EXPORT_ALL'}) { } |
|
356
|
4 |
4 |
if ($_ =~ /^_/ and not $_ =~ /^__/) |
|
358
|
0 |
4 |
if ($length + $l > $max) |
|
362
|
1 |
3 |
if ($length == $offset) { } |
|
370
|
3 |
1 |
if (not $config_options->{'EXPORT_OK_ALL'} || $config_options->{'EXPORT_TAGS_ALL'}) { } |
|
376
|
4 |
4 |
if ($_ =~ /^_/ and not $_ =~ /^__/) |
|
378
|
0 |
4 |
if ($length + $l > $max) |
|
382
|
1 |
3 |
if ($length == $offset) { } |
|
390
|
1 |
3 |
if ($config_options->{'EXPORT_TAGS_ALL'}) |
|
393
|
4 |
4 |
if ($_ =~ /^_/ and not $_ =~ /^__/) |
|
395
|
0 |
4 |
if ($length + $l > $max) |
|
399
|
1 |
3 |
if ($length == $offset) { } |
|
409
|
0 |
4 |
unless close WR |
|
422
|
0 |
1 |
unless open WRM, '>', "$bd/MANIFEST" |
|
424
|
1 |
0 |
if ($c->{'WRITE_PM'}) |
|
425
|
0 |
1 |
if ($ih) |
|
427
|
1 |
0 |
if ($c->{'WRITE_MAKEFILE_PL'}) |
|
430
|
1 |
0 |
if ($c->{'T'}) |
|
433
|
0 |
1 |
unless close WRM |
|
442
|
1 |
0 |
unless (-d $path) |
|
443
|
0 |
1 |
unless (File::Path::make_path($path, {'verbose', 1})) |
|
447
|
0 |
1 |
unless open WRT, '>', "$path/00load.t" |
|
454
|
0 |
1 |
unless close WRT |