| line |
true |
false |
branch |
|
93
|
0 |
0 |
unless -f 'Makefile.PL' or -f 'Build.PL' |
|
105
|
0 |
0 |
if $srcfile eq $dstfile |
|
110
|
0 |
0 |
unless -d $dstdir |
|
112
|
0 |
0 |
unless File::Copy::cp($srcfile, $dstfile) |
|
131
|
1 |
14 |
if ref $class |
|
152
|
2 |
44 |
unless $isa->isa('Test::Unit::TestCase') |
|
153
|
44 |
0 |
unless $seen_isa{$isa} |
|
163
|
0 |
33 |
wantarray ? : |
|
168
|
0 |
89 |
unless defined $default_message |
|
169
|
55 |
34 |
unless defined $custom_message |
|
190
|
1 |
1 |
unless defined $msg |
|
197
|
9 |
22 |
if (ref $arg1 eq 'Regexp') { } |
|
200
|
2 |
7 |
unless $arg2 =~ /$arg1/ |
|
204
|
5 |
17 |
unless $arg1 |
|
210
|
2 |
1 |
unless not defined $arg |
|
215
|
3 |
5 |
unless defined $arg |
|
220
|
1 |
1 |
unless (defined $arg1 or defined $arg2) |
|
223
|
1 |
4 |
unless defined $arg1 |
|
224
|
0 |
4 |
unless defined $arg2 |
|
225
|
2 |
2 |
if ($arg1 =~ /^[+-]?(\d+\.\d+|\d+\.|\.\d+|\d+)([eE][+-]?\d+)?$/ and $arg2 =~ /^[+-]?(\d+\.\d+|\d+\.|\.\d+|\d+)([eE][+-]?\d+)?$/) { } |
|
228
|
0 |
2 |
unless $arg1 == $arg2 |
|
231
|
1 |
1 |
unless $arg1 eq $arg2 |
|
237
|
2 |
2 |
unless (defined $arg1 or defined $arg2) |
|
240
|
4 |
31 |
if (not defined $arg1 xor not defined $arg2) { } |
|
|
21 |
10 |
elsif ($arg1 =~ /^[+-]?(\d+\.\d+|\d+\.|\.\d+|\d+)([eE][+-]?\d+)?$/ and $arg2 =~ /^[+-]?(\d+\.\d+|\d+\.|\.\d+|\d+)([eE][+-]?\d+)?$/) { } |
|
246
|
16 |
5 |
unless $arg1 != $arg2 |
|
249
|
2 |
8 |
unless $arg1 ne $arg2 |
|
255
|
0 |
8 |
unless defined $arg1 |
|
256
|
0 |
8 |
unless defined $arg2 |
|
258
|
0 |
8 |
unless $arg1 == $arg2 |
|
263
|
0 |
0 |
unless defined $arg1 |
|
264
|
0 |
0 |
unless defined $arg2 |
|
266
|
0 |
0 |
unless $arg1 != $arg2 |
|
271
|
4 |
20 |
unless defined $arg1 |
|
272
|
3 |
17 |
unless defined $arg2 |
|
273
|
6 |
11 |
unless "$arg1" eq "$arg2" |
|
278
|
0 |
0 |
unless defined $arg1 |
|
279
|
0 |
0 |
unless defined $arg2 |
|
280
|
0 |
0 |
unless "$arg1" ne "$arg2" |
|
285
|
1 |
2 |
unless ref $arg1 eq 'Regexp' |
|
286
|
0 |
2 |
unless defined $arg2 |
|
287
|
0 |
2 |
unless $arg2 =~ /$arg1/ |
|
292
|
1 |
1 |
unless ref $arg1 eq 'Regexp' |
|
293
|
0 |
1 |
unless defined $arg2 |
|
294
|
0 |
1 |
unless not $arg2 =~ /$arg1/ |
|
299
|
10 |
38 |
unless ref $arg1 and ref $arg2 |
|
302
|
28 |
10 |
unless $self->_deep_check($arg1, $arg2) |
|
308
|
0 |
0 |
unless ref $arg1 and ref $arg2 |
|
312
|
0 |
0 |
if $self->_deep_check($arg1, $arg2) |
|
318
|
9 |
151 |
unless (defined $e1 and defined $e2) |
|
319
|
1 |
2 |
unless defined $e1 or defined $e2 |
|
324
|
55 |
96 |
if $e1 eq $e2 |
|
325
|
84 |
12 |
if (ref $e1 and ref $e2) |
|
327
|
6 |
78 |
if defined $Seen_Refs{$e1} and $Seen_Refs{$e1} eq $e2_ref |
|
331
|
35 |
55 |
if (ref $e1 eq 'ARRAY' and ref $e2 eq 'ARRAY') { } |
|
|
29 |
26 |
elsif (ref $e1 eq 'HASH' and ref $e2 eq 'HASH') { } |
|
|
0 |
26 |
elsif (ref $e1 eq 'REF' and ref $e2 eq 'REF') { } |
|
|
6 |
20 |
elsif (ref $e1 eq 'SCALAR' and ref $e2 eq 'SCALAR') { } |
|
340
|
0 |
0 |
if $ok |
|
355
|
0 |
35 |
if $a1 eq $a2 |
|
358
|
4 |
31 |
$#$a1 > $#$a2 ? : |
|
360
|
2 |
63 |
$_ > $#$a1 ? : |
|
361
|
4 |
61 |
$_ > $#$a2 ? : |
|
365
|
47 |
18 |
if $ok |
|
367
|
18 |
47 |
unless $ok |
|
374
|
0 |
29 |
if $a1 eq $a2 |
|
377
|
4 |
25 |
keys %$a1 > keys %$a2 ? : |
|
379
|
51 |
0 |
exists $$a1{$k} ? : |
|
380
|
49 |
2 |
exists $$a2{$k} ? : |
|
384
|
33 |
18 |
if $ok |
|
386
|
18 |
33 |
unless $ok |
|
400
|
18 |
52 |
if ($type eq 'HASH') { } |
|
|
20 |
32 |
elsif ($type eq 'ARRAY') { } |
|
|
4 |
28 |
elsif ($type eq 'REF') { } |
|
401
|
12 |
6 |
unless $did_arrow++ |
|
405
|
12 |
8 |
unless $did_arrow++ |
|
422
|
8 |
40 |
$val eq $DNE ? : |
|
|
8 |
48 |
!defined($val) ? : |
|
477
|
2 |
0 |
if defined $runner |
|
485
|
1 |
0 |
if defined $runner |
|
493
|
39 |
0 |
if defined $runner |
|
505
|
2 |
4 |
defined $name ? : |
|
521
|
2 |
1 |
if (defined $test and not ref $test) { } |
|
|
1 |
0 |
elsif (not defined $test) { } |
|
526
|
0 |
2 |
if $@ |
|
532
|
1 |
2 |
if (defined $test and $test->isa('Test::Unit::TestSuite')) { } |
|
|
2 |
0 |
elsif (defined $test and $test->isa('Test::Unit::TestCase')) { } |
|
533
|
0 |
1 |
ref $test ? : |
|
534
|
0 |
1 |
if ref $test |
|
535
|
0 |
1 |
if ref $test |
|
538
|
0 |
2 |
ref $test ? : |
|
560
|
16 |
2 |
unless (ref $unit) |
|
565
|
0 |
16 |
if $@ |
|
566
|
1 |
15 |
unless $unit->isa('Test::Unit::TestCase') |
|
569
|
2 |
15 |
ref $unit ? : |
|
586
|
0 |
4 |
unless defined $result |
|
590
|
42 |
0 |
ref $unit ? : |
|
596
|
2 |
40 |
if ($@) { } |
|
604
|
1 |
39 |
if ($@) { } |
|
615
|
1 |
41 |
if ($@) |
|
634
|
1 |
5 |
unless defined $fh_out |
|
635
|
1 |
5 |
unless defined $fh_err |
|
694
|
2 |
1 |
if ($result->errors) |
|
697
|
1 |
2 |
if ($result->failures) |
|
701
|
2 |
1 |
if ($result->errors) |
|
704
|
2 |
0 |
if ($$message{'type'} eq 'ERROR') |
|
713
|
1 |
2 |
if ($result->failures) |
|
716
|
1 |
0 |
if ($$message{'type'} eq 'FAILURE') |
|
736
|
0 |
6 |
if $@ |
|
738
|
1 |
5 |
if ($test->isa('Test::Unit::TestSuite')) { } |
|
|
3 |
2 |
elsif ($test->isa('Test::Unit::TestCase')) { } |
|
814
|
0 |
1 |
${^TAINT} ? : |
|
823
|
18 |
13 |
unless $path =~ s/(Test)\.pm$/$1/ |
|
826
|
0 |
13 |
unless scalar @path > 0 |
|
828
|
0 |
13 |
unless $class |
|
829
|
0 |
13 |
if $class =~ /^Test::Unit::/ |
|
830
|
0 |
13 |
if @ARGV and not $class =~ /$ARGV[0]/ |