| line |
true |
false |
branch |
|
190
|
0 |
0 |
if ($@)
|
|
198
|
4 |
4 |
$@ ? :
|
|
212
|
0 |
0 |
unless $line =~ s/^
(?:
# double quoted string
(") # $quote
((?>[^\\"]*(?:\\.[^\\"]*)*))" # $quoted
| # --OR--
# singe quoted string
(') # $quote
((?>[^\\']*(?:\\.[^\\']*)*))' # $quoted
| # --OR--
# unquoted string
( # $unquoted
(?:\\.|[^\\"'])*?
)
# followed by
( # $delim
\Z(?!\n) # EOL
| # --OR--
(?-x:$delimiter) # delimiter
| # --OR--
(?!^)(?=["']) # a quote
)
)//sx
|
|
235
|
0 |
0 |
$1 ? :
|
|
237
|
0 |
0 |
unless defined $quote or length $unquoted or length $delim
|
|
239
|
0 |
0 |
if ($keep) { }
|
|
244
|
0 |
0 |
if (defined $quote)
|
|
245
|
0 |
0 |
if $quote eq '"'
|
|
249
|
0 |
0 |
defined $quote ? :
|
|
251
|
0 |
0 |
if (length $delim)
|
|
253
|
0 |
0 |
if $keep eq 'delimiters'
|
|
256
|
0 |
0 |
unless (length $line)
|
|
269
|
8 |
17 |
ref $args{'lib'} ? :
|
|
|
25 |
6 |
if $args{'lib'}
|
|
271
|
0 |
11 |
ref $args{'libpath'} ? :
|
|
|
11 |
20 |
if $args{'libpath'}
|
|
273
|
0 |
14 |
ref $args{'header'} ? :
|
|
|
14 |
17 |
if $args{'header'}
|
|
275
|
1 |
11 |
ref $args{'incpath'} ? :
|
|
|
12 |
19 |
if $args{'incpath'}
|
|
286
|
0 |
0 |
if (my($mm_attr_value) = $arg =~ /\A $mm_attr_key = (.*)/x)
|
|
296
|
1 |
30 |
if (defined $args{'LIBS'})
|
|
298
|
0 |
3 |
unless $arg =~ /^-[lLR]/
|
|
299
|
2 |
1 |
$arg =~ /^-l/ ? :
|
|
302
|
2 |
29 |
if (defined $args{'INC'})
|
|
304
|
1 |
2 |
unless $arg =~ /^-I/
|
|
329
|
0 |
13 |
if ($Devel::CheckLib::Config{'cc'} eq 'cl') { }
|
|
|
0 |
13 |
elsif ($Devel::CheckLib::Config{'cc'} =~ /bcc32(\.exe)?/) { }
|
|
357
|
0 |
13 |
if $args{'debug'}
|
|
358
|
0 |
13 |
$args{'debug'} ? :
|
|
359
|
1 |
12 |
if $rv != 0 or not -f $exefile
|
|
376
|
0 |
35 |
if ($Devel::CheckLib::Config{'cc'} eq 'cl') { }
|
|
|
0 |
35 |
elsif ($Devel::CheckLib::Config{'cc'} eq 'CC/DECC') { }
|
|
|
0 |
35 |
elsif ($Devel::CheckLib::Config{'cc'} =~ /bcc32(\.exe)?/) { }
|
|
415
|
0 |
35 |
if $args{'debug'}
|
|
416
|
35 |
0 |
unless $^O eq 'MSWin32'
|
|
417
|
0 |
35 |
if $^O eq 'MSWin32'
|
|
418
|
0 |
35 |
$args{'debug'} ? :
|
|
419
|
11 |
24 |
if ($rv != 0 or not -f $exefile) { }
|
|
425
|
0 |
24 |
if $absexefile =~ /\s/
|
|
426
|
2 |
22 |
if (not $not_execute and system($absexefile) != 0) { }
|
|
430
|
2 |
20 |
if ($analyze_binary)
|
|
431
|
1 |
1 |
unless &$analyze_binary($lib, $exefile)
|
|
440
|
10 |
20 |
if @missing
|
|
442
|
2 |
18 |
if @wrongresult
|
|
444
|
1 |
17 |
if @wronganalysis
|
|
454
|
0 |
48 |
if ($Devel::CheckLib::Config{'cc'} eq 'cl')
|
|
463
|
36 |
108 |
if (-f $_)
|
|
464
|
0 |
36 |
unless unlink $_
|
|
479
|
41 |
0 |
if $config_val =~ /\S/
|
|
482
|
82 |
41 |
if length $_
|
|
485
|
1 |
40 |
if (check_compiler($cc[0], $debug))
|
|
490
|
0 |
40 |
if ($^O eq 'cygwin')
|
|
496
|
39 |
204 |
if (check_compiler($compiler, $debug))
|
|
499
|
204 |
0 |
unless $exe
|
|
502
|
0 |
0 |
if (check_compiler($compiler, $debug))
|
|
512
|
40 |
244 |
if (-f $compiler and -x $compiler)
|
|
513
|
0 |
40 |
if ($debug)
|
|
529
|
0 |
66 |
unless open STDOUT_SAVE, '>&STDOUT'
|
|
530
|
0 |
66 |
unless open STDERR_SAVE, '>&STDERR'
|
|
534
|
0 |
66 |
unless open DEV_NULL, '>' . 'File::Spec'->devnull
|
|
536
|
0 |
66 |
unless open STDOUT, '>&' . fileno(DEV_NULL)
|
|
538
|
0 |
66 |
unless open STDERR, '>&' . fileno(DEV_NULL)
|
|
545
|
0 |
66 |
unless open STDOUT, '>&' . fileno(STDOUT_SAVE)
|
|
547
|
0 |
66 |
unless open STDERR, '>&' . fileno(STDERR_SAVE)
|