blib/lib/Test/Debugger.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 73 | 104 | 70.1 |
line | l | !l | condition |
---|---|---|---|
131 | 0 | 3 | 'Test::Debugger'->new(@_) && (return) |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
20 | 0 | 0 | 6 | not $@ and 'Test::Harness'->VERSION >= 1.21 |
134 | 5 | 0 | 1 | exists $opts{'todo'} and ref $opts{'todo'} eq 'ARRAY' |
137 | 6 | 0 | 0 | exists $opts{'onfail'} and ref $opts{'onfail'} eq 'CODE' |
214 | 4 | 18 | 2 | ref $first eq 'Test::Debugger' and $num_opts == 2 |
239 | 0 | 2 | 3 | ref $first eq 'Test::Debugger' and $num_opts == 2 |
286 | 2 | 0 | 21 | defined $expect and defined $actual |
349 | 42 | 0 | 0 | not $Test::Debugger::separate_todo and $todo |
353 | 1 | 34 | 7 | $$self{'log_file'} and not $true |
365 | 0 | 37 | 5 | $$self{'final'} and $$self{'current'} >= $$self{'final'} |
385 | 2 | 0 | 35 | defined $expect and defined $actual |
line | l | !l | condition |
---|---|---|---|
114 | 44 | 6 | $Test::Debugger::object_handle ||= bless({}, $class) |
122 | 0 | 5 | $$self{'current'} ||= 0 |
124 | 5 | 0 | $$self{'final'} ||= 0 |
149 | 6 | 0 | $opts{'tests'} || 0 |
150 | 1 | 5 | $opts{'skip'} || 0 |
151 | 2 | 4 | $opts{'skip_message'} || '' |
157 | 0 | 0 | $opts{'param_order'} || {} |
159 | 0 | 0 | $$p_order{$key} || (next) |
178 | 46 | 0 | shift() || 'ok' |
309 | 14 | 28 | $opts{'operator'} ||= '' |
317 | 5 | 37 | shift() || 0 |
318 | 37 | 5 | shift() || 'eq' |
319 | 6 | 36 | shift() || 0 |
320 | 2 | 40 | shift() || 0 |
321 | 37 | 5 | shift() || '' |
322 | 23 | 19 | shift() || '' |
375 | 2 | 3 | shift() || 0 |
403 | 6 | 0 | shift() || 0 |
404 | 1 | 5 | shift() || 0 |
405 | 2 | 4 | shift() || '' |
416 | 6 | 36 | shift() || 0 |
417 | 4 | 38 | shift() || 0 |
418 | 37 | 5 | shift() || '' |
432 | 5 | 2 | shift() || 0 |
433 | 2 | 5 | shift() || 0 |
434 | 4 | 3 | shift() || '' |
435 | 0 | 7 | shift() || '' |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
148 | 6 | 0 | 0 | exists $opts{'tests'} or exists $opts{'skip'} |
214 | 0 | 0 | 24 | $num_opts == 1 or ref $first eq 'Test::Debugger' and $num_opts == 2 |
239 | 0 | 0 | 5 | $num_opts == 1 or ref $first eq 'Test::Debugger' and $num_opts == 2 |
282 | 5 | 14 | 23 | $$opts{'single'} or $$opts{'operator'} |
287 | 0 | 0 | 12 | $expect =~ /\D/ || $actual =~ /\D/ || $expect eq '' || $actual eq '' |
308 | 35 | 7 | 0 | $opts{'self'} ||= $self |