| line |
true |
false |
branch |
|
33
|
0 |
44 |
if ($^O eq 'MSWin32') |
|
43
|
0 |
0 |
if (eval {
do {
require Win32API::File
}
}) { } |
|
77
|
0 |
108 |
unless ($opts{'event'}) |
|
81
|
22 |
86 |
unless $opts{'idle'} |
|
82
|
23 |
85 |
unless $opts{'timeout'} |
|
83
|
106 |
2 |
unless $opts{'timer'} |
|
84
|
108 |
0 |
unless $opts{'reaper'} |
|
85
|
4 |
104 |
unless $opts{'type'} |
|
87
|
0 |
108 |
unless grep {$_ eq $opts{'command'};} @cmds |
|
88
|
0 |
108 |
unless $opts{'perl'} |
|
89
|
107 |
1 |
unless $opts{'no_log'} |
|
90
|
24 |
84 |
unless exists $opts{'check_warnings'} |
|
92
|
108 |
0 |
if ($opts{'check_warnings'}) |
|
96
|
0 |
108 |
if ($opts{'command'} eq 'smoke' and not $opts{'module'}) |
|
103
|
1 |
107 |
unless ($type) |
|
108
|
0 |
107 |
if ($@) |
|
113
|
0 |
107 |
unless ($self->{'backend'} or $self->{'backend'}->can($self->{'command'})) |
|
117
|
107 |
0 |
if ($self->{'backend'}->can('digest')) |
|
122
|
0 |
107 |
unless ($self->{'program'} or ref $self->{'program'} eq 'ARRAY') |
|
127
|
37 |
70 |
if $cmd eq 'smoke' |
|
128
|
7 |
100 |
ref $options eq 'HASH' ? : |
|
145
|
0 |
0 |
unless $self->{'_wheel_log'} |
|
158
|
0 |
107 |
if ($kernel == $sender and not $self->{'session'}) |
|
162
|
0 |
107 |
if ($self->{'session'}) { } |
|
163
|
0 |
0 |
if (my $ref = $kernel->alias_resolve($self->{'session'})) { } |
|
175
|
107 |
0 |
if $kernel != $sender |
|
179
|
74 |
33 |
if (not $self->{'_reset_digest'}) { } |
|
195
|
0 |
0 |
if (not $self->{'_reset_digest'}) { } |
|
214
|
0 |
74 |
unless tie %{$$self{'_digests'};}, 'SDBM_File', $file, 66, 420 |
|
220
|
74 |
0 |
if ($self->{'_digests'}) |
|
224
|
0 |
74 |
if -d $self->{'_tmpdirname'} |
|
233
|
6 |
101 |
if ($self->{'do_callback'}) |
|
235
|
1 |
5 |
unless ($self->{'do_callback'}->('BEFORE', $self)) |
|
236
|
0 |
1 |
if $self->{'debug'} or $ENV{'PERL5_SMOKEBOX_DEBUG'} |
|
256
|
0 |
106 |
if $^O eq 'MSWin32' |
|
259
|
106 |
0 |
$GOT_PTY ? : |
|
272
|
101 |
5 |
unless $self->{'command'} eq 'index' |
|
278
|
105 |
1 |
unless $self->{'no_log'} |
|
279
|
0 |
106 |
if $self->{'debug'} or $ENV{'PERL5_SMOKEBOX_DEBUG'} |
|
286
|
5 |
101 |
if ($self->{'do_callback'}) |
|
292
|
1 |
105 |
if $self->{'wheel'} |
|
301
|
74 |
33 |
if (not $self->{'_reset_digest'}) { } |
|
315
|
0 |
107 |
if $self->{'debug'} or $ENV{'PERL5_SMOKEBOX_DEBUG'} |
|
316
|
37 |
70 |
if $self->{'command'} eq 'smoke' |
|
324
|
0 |
0 |
if $self->{'debug'} or $ENV{'PERL5_SMOKEBOX_DEBUG'} |
|
331
|
106 |
106 |
if $operation eq 'read' and not $errnum |
|
332
|
0 |
212 |
if $self->{'debug'} or $ENV{'PERL5_SMOKEBOX_DEBUG'} |
|
340
|
0 |
106 |
if $self->{'debug'} or $ENV{'PERL5_SMOKEBOX_DEBUG'} |
|
347
|
693 |
398 |
if $self->{'_killed'} |
|
349
|
397 |
1 |
unless $self->{'no_log'} |
|
350
|
0 |
398 |
if $self->{'debug'} or $ENV{'PERL5_SMOKEBOX_DEBUG'} |
|
351
|
1 |
397 |
if ($self->_detect_loop($input, 'stdout')) |
|
360
|
0 |
42 |
if $self->{'_killed'} |
|
362
|
42 |
0 |
unless $self->{'no_log'} |
|
363
|
0 |
42 |
if ($self->{'debug'} or $ENV{'PERL5_SMOKEBOX_DEBUG'}) |
|
364
|
0 |
0 |
if (length $input > 5000) { } |
|
371
|
0 |
42 |
if ($self->_detect_loop($input, 'stderr')) |
|
382
|
90 |
350 |
if $self->{'_loop_detect'} |
|
383
|
33 |
317 |
if (my $reset = $self->{'_reset_digest'}) |
|
384
|
0 |
33 |
if (eval {
do {
$input =~ /$reset/
}
}) |
|
385
|
0 |
0 |
if $self->{'debug'} or $ENV{'PERL5_SMOKEBOX_DEBUG'} |
|
389
|
0 |
350 |
if $input =~ /^\[(MSG|ERROR)\]/ |
|
393
|
350 |
0 |
if ($self->{'check_warnings'} and length $input <= 5000) { } |
|
394
|
0 |
350 |
$handle eq 'stderr' && String::Perl::Warnings::is_warning($input) ? : |
|
396
|
0 |
0 |
$handle eq 'stderr' ? : |
|
399
|
277 |
73 |
if (exists $self->{'_digests'}{$digest}) { } |
|
405
|
349 |
1 |
unless ++$self->{'_digests'}{$digest} > 3000 |
|
412
|
1 |
1 |
if ($now - $self->{'_wheel_time'} >= $self->{'idle'}) |
|
417
|
1 |
0 |
if ($now - $self->{'start_time'} >= $self->{'timeout'}) |
|
428
|
0 |
3 |
if $self->{'_killed'} |
|
430
|
3 |
0 |
unless $self->{'no_log'} |
|
431
|
0 |
3 |
if $self->{'debug'} or $ENV{'PERL5_SMOKEBOX_DEBUG'} |
|
432
|
0 |
3 |
if ($^O eq 'MSWin32' and $self->{'wheel'}) { } |
|
436
|
0 |
3 |
if (not $self->{'no_grp_kill'}) { } |
|
437
|
0 |
0 |
if ($^O eq 'solaris') { } |
|
438
|
0 |
0 |
if $self->{'wheel'} |
|
441
|
0 |
0 |
if $self->{'wheel'} |
|
448
|
3 |
0 |
if $self->{'wheel'} |