| inc/Test/Builder.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 18 | 95 | 18.9 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 22 | 0 | 8 | 0 | $] >= 5.008001 and $Test::Builder::Config{'useithreads'} |
| 8 | 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 | 42 | 0 | 0 | $self->{'Child_Name'} and not $self->{'In_Destroy'} |
| 826 | 0 | 42 | 0 | defined $name and $name =~ /^[\d\s]+$/ |
| 963 | 0 | 0 | 0 | $numval != 0 && ($numval ne $val ? 1 : 0) |
| 990 | 0 | 0 | 5 | 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 | 7 | defined $file and defined $line |
| 1530 | 249 | 130 | 0 | $error and $opts{'die_on_fail'} |
| 2342 | 0 | 0 | 0 | $self->{'Start_Todo'} and @{$self->{'Todo_Stack'};} |
| 2468 | 6 | 2 | 0 | not $self->{'Have_Plan'} and $self->{'Curr_Test'} |
| line | l | !l | condition |
|---|---|---|---|
| 448 | 0 | 8 | $self->{'Indent'} ||= '' |
| 1296 | 0 | 0 | $why ||= '' |
| 1338 | 0 | 0 | $why ||= '' |
| 2368 | 133 | 5 | $height ||= 0 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 122 | 97 | 8 | 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 | 42 | 0 | 0 | $test or $self->in_todo |
| 992 | 0 | 0 | 0 | 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 | 126 | 0 | 0 | $pack || $self->caller(1) || $self->exported_to |
| 2265 | 0 | 0 | 84 | defined $self->{'Todo'} || $self->find_TODO |