| inc/Test/Builder.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 18 | 92 | 19.5 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 22 | 0 | 10 | 0 | $] >= 5.008001 and $Test::Builder::Config{'useithreads'} |
| 10 | 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') } } |
| 374 | 0 | 0 | 0 | $self->parent and $$ == $$self{'Original_Pid'} |
| 656 | 0 | 0 | 0 | $self->expected_tests and $num_tests != $self->expected_tests |
| 763 | 46 | 0 | 0 | $$self{'Child_Name'} and not $$self{'In_Destroy'} |
| 778 | 44 | 2 | 0 | defined $name and $name =~ /^[\d\s]+$/ |
| 938 | 0 | 44 | 0 | defined $got and defined $expect |
| 954 | 0 | 0 | 0 | defined $got and defined $expect |
| 1031 | 0 | 0 | 0 | defined $got and defined $dont_expect |
| 1047 | 0 | 0 | 0 | defined $got and defined $dont_expect |
| 1174 | 0 | 0 | 0 | defined $file and defined $line |
| 1457 | 207 | 0 | 0 | $error and $opts{'die_on_fail'} |
| 2269 | 0 | 0 | 0 | $$self{'Start_Todo'} and @{$$self{'Todo_Stack'};} |
| 2395 | 10 | 0 | 0 | not $$self{'Have_Plan'} and $$self{'Curr_Test'} |
| line | l | !l | condition |
|---|---|---|---|
| 413 | 0 | 10 | $$self{'Indent'} ||= '' |
| 1229 | 0 | 0 | $why ||= '' |
| 1270 | 0 | 0 | $why ||= '' |
| 2295 | 151 | 46 | $height ||= 0 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 122 | 65 | 10 | 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'} |
| 843 | 44 | 0 | 2 | $test or $self->in_todo |
| 940 | 0 | 0 | 0 | defined $got || defined $expect |
| 956 | 0 | 0 | 0 | defined $got || defined $expect |
| 970 | 2 | 0 | 0 | $type eq 'eq' or $type eq 'ne' |
| 1033 | 0 | 0 | 0 | defined $got || defined $dont_expect |
| 1049 | 0 | 0 | 0 | defined $got || defined $dont_expect |
| 1357 | 0 | 0 | 0 | ($re, $opts) = $regex =~ m[^ /(.*)/ (\w*) $ ]sx or (undef, $re, $opts) = $regex =~ /^ m([^\w\s]) (.+) \1 (\w*) $/sx |
| 1482 | 0 | 0 | 0 | eval { do { $maybe_fh->isa('IO::Handle') } } || eval { do { tied($maybe_fh)->can('TIEHANDLE') } } |
| 2171 | 151 | 0 | 0 | $pack || $self->caller(1) || $self->exported_to |
| 2192 | 0 | 0 | 105 | defined $$self{'Todo'} || $self->find_TODO |