| inc/Test/Builder.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 19 | 95 | 20.0 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 22 | 0 | 19 | 0 | $] >= 5.008001 and $Test::Builder::Config{'useithreads'} |
| 19 | 0 | 0 | $] >= 5.008001 and $Test::Builder::Config{'useithreads'} and $INC{'threads.pm'} | |
| 278 | 0 | 0 | 0 | $error and not eval { do { $error->isa('Test::Builder::Exception') } } |
| 409 | 0 | 0 | 0 | $self->parent and $$ == $$self{'Original_Pid'} |
| 704 | 0 | 0 | 0 | $self->expected_tests and $num_tests != $self->expected_tests |
| 811 | 261 | 0 | 0 | $$self{'Child_Name'} and not $$self{'In_Destroy'} |
| 826 | 14 | 247 | 0 | defined $name and $name =~ /^[\d\s]+$/ |
| 963 | 0 | 0 | 0 | $numval != 0 && ($numval ne $val ? 1 : 0) |
| 990 | 1 | 146 | 0 | defined $got and defined $expect |
| 1006 | 0 | 0 | 0 | defined $got and defined $expect |
| 1083 | 0 | 0 | 0 | defined $got and defined $dont_expect |
| 1099 | 0 | 0 | 0 | defined $got and defined $dont_expect |
| 1234 | 0 | 0 | 0 | defined $file and defined $line |
| 1530 | 1092 | 0 | 0 | $error and $opts{'die_on_fail'} |
| 2342 | 0 | 0 | 0 | $$self{'Start_Todo'} and @{$$self{'Todo_Stack'};} |
| 2468 | 17 | 2 | 0 | not $$self{'Have_Plan'} and $$self{'Curr_Test'} |
| line | l | !l | condition |
|---|---|---|---|
| 448 | 0 | 19 | $$self{'Indent'} ||= '' |
| 1296 | 0 | 0 | $why ||= '' |
| 1338 | 0 | 0 | $why ||= '' |
| 2368 | 783 | 146 | $height ||= 0 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 122 | 297 | 19 | 0 | $Test ||= $class->create |
| 217 | 0 | 0 | 0 | $name || 'Child of ' . $self->name |
| 315 | 0 | 0 | 0 | $$self{'Have_Plan'} || $$self{'No_Plan'} || $$self{'Skip_All'} |
| 891 | 261 | 0 | 0 | $test or $self->in_todo |
| 992 | 0 | 0 | 1 | defined $got || defined $expect |
| 1008 | 0 | 0 | 0 | defined $got || defined $expect |
| 1022 | 0 | 0 | 0 | $type eq 'eq' or $type eq 'ne' |
| 1085 | 0 | 0 | 0 | defined $got || defined $dont_expect |
| 1101 | 0 | 0 | 0 | defined $got || defined $dont_expect |
| 1425 | 0 | 0 | 0 | ($re, $opts) = $regex =~ m[^ /(.*)/ (\w*) $ ]sx or (undef, $re, $opts) = $regex =~ /^ m([^\w\s]) (.+) \1 (\w*) $/sx |
| 1555 | 0 | 0 | 0 | eval { do { $maybe_fh->isa('IO::Handle') } } || eval { do { tied($maybe_fh)->can('TIEHANDLE') } } |
| 2244 | 783 | 0 | 0 | $pack || $self->caller(1) || $self->exported_to |
| 2265 | 0 | 0 | 522 | defined $$self{'Todo'} || $self->find_TODO |