| line |
true |
false |
branch |
|
91
|
0 |
2 |
if ($class ne 'Inline') |
|
92
|
0 |
0 |
if $class =~ /^Inline::/ |
|
98
|
0 |
2 |
unless @_ |
|
99
|
0 |
2 |
if $_[0] eq '_CONFIG_' |
|
100
|
0 |
2 |
if $_[0] =~ /^(install|makedist|makeppd)$/i |
|
104
|
0 |
2 |
if ($control eq 'with') { } |
|
|
1 |
1 |
elsif ($control eq 'Config') { } |
|
|
0 |
1 |
elsif (exists $shortcuts{uc $control}) { } |
|
|
1 |
0 |
elsif ($control =~ /^\S+$/ and not $control =~ /\n/) { } |
|
121
|
0 |
0 |
if $next++ % 2 |
|
122
|
0 |
0 |
if /[\s\n]/ |
|
129
|
0 |
1 |
if ($option =~ /^(FILE|BELOW)$/ or not $option and defined $INC{'File::Spec::Unix'->catfile('Inline', 'Files.pm')} and Inline::Files::get_filename($pkg)) { } |
|
|
0 |
1 |
elsif ($option eq 'DATA' or not $option) { } |
|
|
0 |
1 |
elsif ($option eq 'Config') { } |
|
167
|
0 |
0 |
unless $class eq 'Inline' |
|
171
|
0 |
0 |
unless my $language_id = shift() |
|
172
|
0 |
0 |
unless $language_id =~ /^\S+$/ and not $language_id =~ /\n/ |
|
174
|
0 |
0 |
unless $code = shift() |
|
179
|
0 |
0 |
if $next++ % 2 |
|
180
|
0 |
0 |
if /[\s\n]/ |
|
219
|
0 |
1 |
if @DATA_OBJS |
|
220
|
0 |
1 |
if $version_requested and not $version_printed |
|
227
|
0 |
0 |
if $version_printed++ |
|
242
|
1 |
0 |
unless $CONFIG{$pkg}{$language_id} |
|
243
|
0 |
1 |
unless $o->{'CONFIG'} |
|
249
|
1 |
0 |
if UNTAINT() |
|
250
|
1 |
0 |
unless ($o->{'INLINE'}{'object_ready'}) |
|
254
|
0 |
1 |
unless $o->{'API'}{'code'} |
|
257
|
1 |
0 |
if UNTAINT() |
|
258
|
1 |
0 |
if UNTAINT() |
|
259
|
0 |
1 |
if $version_requested |
|
260
|
0 |
1 |
if $o->{'CONFIG'}{'REPORTBUG'} |
|
261
|
1 |
0 |
if (not $o->{'INLINE'}{'object_ready'} or $o->{'CONFIG'}{'PRINT_INFO'}) { } |
|
265
|
0 |
1 |
if $@ |
|
273
|
0 |
1 |
if $o->{'CONFIG'}{'PRINT_INFO'} |
|
274
|
1 |
0 |
unless ($o->{'INLINE'}{'object_ready'} or not length $o->{'INLINE'}{'ILSM_suffix'}) |
|
277
|
0 |
0 |
unless $o->{'CONFIG'}{'_INSTALL_'} |
|
279
|
0 |
0 |
if ($o->{'INLINE'}{'ILSM_suffix'} ne 'so' and $o->{'INLINE'}{'ILSM_suffix'} ne 'dll' and $o->{'INLINE'}{'ILSM_suffix'} ne 'bundle' and $o->{'INLINE'}{'ILSM_suffix'} ne 'sl' and ref $o eq 'Inline') |
|
286
|
0 |
0 |
if $@ |
|
303
|
0 |
0 |
/::/ ? : |
|
|
0 |
0 |
/^::/ ? : |
|
309
|
0 |
0 |
if $@ |
|
312
|
0 |
0 |
if $@ |
|
315
|
0 |
0 |
if defined $o->{'OVERRIDDEN'}{$ilsm . "::$override"} |
|
331
|
0 |
0 |
$] >= 5.006 ? : |
|
350
|
0 |
0 |
unless ($DATA_read{$pkg}++) |
|
357
|
0 |
0 |
unless (do {
$DATA{$pkg}
}->[0] || '') =~ /__\S+?__\n/ |
|
360
|
0 |
0 |
unless defined $marker |
|
363
|
0 |
0 |
unless $marker_tag eq $language_id |
|
375
|
22 |
0 |
if (defined $default_config->{$key}) { } |
|
376
|
2 |
20 |
if ($key =~ /^(WITH|USING)$/) |
|
377
|
0 |
2 |
if ref $value and ref $value ne 'ARRAY' |
|
379
|
0 |
2 |
unless ref $value |
|
383
|
14 |
6 |
unless $value |
|
384
|
1 |
5 |
if ($key eq 'DIRECTORY') { } |
|
|
0 |
5 |
elsif ($key eq 'NAME') { } |
|
|
0 |
5 |
elsif ($key eq 'VERSION') { } |
|
385
|
0 |
1 |
unless -d $value |
|
389
|
0 |
0 |
unless $value =~ /^[a-zA-Z_](\w|::)*$/ |
|
393
|
0 |
0 |
unless $value =~ /^\d\.\d\d*$/ |
|
435
|
1 |
0 |
$untaint ? : |
|
|
1 |
0 |
$o->{'CONFIG'}{'SAFEMODE'} == -1 ? : |
|
436
|
0 |
1 |
if (UNTAINT() and SAFEMODE() and not $o->{'CONFIG'}{'DIRECTORY'}) |
|
439
|
0 |
0 |
if $< == 0 or $> == 0 |
|
440
|
0 |
0 |
if $^W |
|
442
|
1 |
0 |
if ($o->{'CONFIG'}{'AUTONAME'} == -1) |
|
443
|
0 |
1 |
length $o->{'CONFIG'}{'NAME'} ? : |
|
455
|
0 |
1 |
if ($o->{'API'}{'code'} =~ /^[A-Fa-f0-9]{32}$/) { } |
|
462
|
0 |
1 |
if $o->{'CONFIG'}{'_INSTALL_'} |
|
463
|
1 |
0 |
unless $o->{'CONFIG'}{'VERSION'} |
|
465
|
0 |
0 |
unless $o->{'CONFIG'}{'NAME'} |
|
470
|
0 |
0 |
unless my $realpath = $INC{$realname_unix} |
|
475
|
0 |
0 |
unless $dirparts[-1] |
|
479
|
0 |
0 |
if $dirparts[-2] eq 'blib' and $dirparts[-1] eq 'lib' |
|
481
|
0 |
0 |
unless 'File::Spec'->catfile(@endparts) eq $realname |
|
496
|
0 |
0 |
unless -f $obj |
|
517
|
0 |
0 |
if ($o->{'CONFIG'}{'_INSTALL_'}) |
|
519
|
0 |
0 |
unless open INLINE, "> $inline" |
|
529
|
0 |
0 |
unless $o->{'INLINE'}{'ILSM_type'} eq 'compiled' |
|
534
|
0 |
0 |
$o->{'CONFIG'}{'GLOBAL_LOAD'} ? : |
|
548
|
0 |
0 |
if $@ |
|
558
|
0 |
2 |
if $key =~ /[\s\n]/ |
|
559
|
0 |
2 |
if $key =~ /^(ENABLE|DISABLE)$/ |
|
561
|
0 |
2 |
unless defined $default_config->{$key} |
|
562
|
0 |
2 |
if ($key eq 'ENABLE') { } |
|
|
0 |
2 |
elsif ($key eq 'DISABLE') { } |
|
581
|
0 |
0 |
if $key =~ /[\s\n]/ |
|
582
|
0 |
0 |
if ($key eq 'ENABLE') { } |
|
|
0 |
0 |
elsif ($key eq 'DISABLE') { } |
|
603
|
0 |
0 |
if ($OPTION eq 'SITE_INSTALL') { } |
|
|
0 |
0 |
elsif ($shortcuts{$OPTION}) { } |
|
621
|
0 |
0 |
unless @_ |
|
623
|
0 |
0 |
unless /^[\w:]+$/ |
|
625
|
0 |
0 |
if $@ |
|
635
|
0 |
1 |
if $o->{'CONFIG'}{'CLEAN_BUILD_AREA'} |