| inc/Test/Builder.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 15 | 92 | 16.3 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 22 | 0 | 3 | 0 | $] >= 5.008001 and $Test::Builder::Config{'useithreads'} |
| 3 | 0 | 0 | $] >= 5.008001 and $Test::Builder::Config{'useithreads'} and $INC{'threads.pm'} | |
| 251 | 0 | 0 | 0 | $error and not eval { do { $error->isa('Test::Builder::Exception') } } |
| 376 | 0 | 0 | 0 | $self->parent and $$ == $$self{'Original_Pid'} |
| 658 | 0 | 0 | 0 | $self->expected_tests and $num_tests != $self->expected_tests |
| 765 | 1 | 0 | 0 | $$self{'Child_Name'} and not $$self{'In_Destroy'} |
| 780 | 0 | 1 | 0 | defined $name and $name =~ /^[\d\s]+$/ |
| 944 | 0 | 0 | 0 | defined $got and defined $expect |
| 960 | 0 | 0 | 0 | defined $got and defined $expect |
| 1037 | 0 | 0 | 0 | defined $got and defined $dont_expect |
| 1053 | 0 | 0 | 0 | defined $got and defined $dont_expect |
| 1180 | 0 | 0 | 0 | defined $file and defined $line |
| 1463 | 10 | 0 | 0 | $error and $opts{'die_on_fail'} |
| 2275 | 0 | 0 | 0 | $$self{'Start_Todo'} and @{$$self{'Todo_Stack'};} |
| 2401 | 1 | 2 | 0 | not $$self{'Have_Plan'} and $$self{'Curr_Test'} |
| line | l | !l | condition |
|---|---|---|---|
| 415 | 0 | 3 | $$self{'Indent'} ||= '' |
| 1235 | 0 | 0 | $why ||= '' |
| 1276 | 0 | 0 | $why ||= '' |
| 2301 | 11 | 1 | $height ||= 0 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 122 | 8 | 3 | 0 | $Test ||= $class->create |
| 198 | 0 | 0 | 0 | $name || 'Child of ' . $self->name |
| 284 | 0 | 0 | 0 | $$self{'Have_Plan'} || $$self{'No_Plan'} || $$self{'Skip_All'} |
| 845 | 0 | 0 | 1 | $test or $self->in_todo |
| 946 | 0 | 0 | 0 | defined $got || defined $expect |
| 962 | 0 | 0 | 0 | defined $got || defined $expect |
| 976 | 0 | 0 | 0 | $type eq 'eq' or $type eq 'ne' |
| 1039 | 0 | 0 | 0 | defined $got || defined $dont_expect |
| 1055 | 0 | 0 | 0 | defined $got || defined $dont_expect |
| 1363 | 0 | 0 | 0 | ($re, $opts) = $regex =~ m[^ /(.*)/ (\w*) $ ]sx or (undef, $re, $opts) = $regex =~ /^ m([^\w\s]) (.+) \1 (\w*) $/sx |
| 1488 | 0 | 0 | 0 | eval { do { $maybe_fh->isa('IO::Handle') } } || eval { do { tied($maybe_fh)->can('TIEHANDLE') } } |
| 2177 | 11 | 0 | 0 | $pack || $self->caller(1) || $self->exported_to |
| 2198 | 0 | 0 | 10 | defined $$self{'Todo'} || $self->find_TODO |