| line |
true |
false |
branch |
|
475
|
0 |
20 |
if (scalar @bad_task_param_names)
|
|
480
|
15 |
5 |
if (scalar keys %{$self->data;})
|
|
507
|
4 |
42 |
if ($new_data)
|
|
508
|
0 |
4 |
if $self->logger
|
|
512
|
0 |
4 |
if $self->logger
|
|
523
|
0 |
207 |
if $self->logger
|
|
525
|
175 |
32 |
if grep $_->has_id, @{$self->tasks;}
|
|
528
|
20 |
187 |
if ($break_on_busy)
|
|
529
|
0 |
20 |
if $self->logger
|
|
534
|
106 |
81 |
if scalar @{$self->queue_keys;}
|
|
536
|
2 |
79 |
if ($break_on_run)
|
|
537
|
0 |
2 |
if $self->logger
|
|
542
|
55 |
24 |
if grep $_->has_id, @{$self->tasks;}
|
|
544
|
0 |
24 |
if $self->logger
|
|
548
|
0 |
46 |
if $self->logger
|
|
571
|
39 |
7 |
$is_list ? :
|
|
577
|
150 |
85 |
unless $is_full or $has_result
|
|
581
|
546 |
45 |
$is_list ? :
|
|
583
|
60 |
531 |
if ($self->flush_data and $has_result)
|
|
588
|
14 |
32 |
if $self->flush_data
|
|
612
|
0 |
185 |
if $self->logger
|
|
629
|
0 |
175 |
unless my(@busy_tasks) = grep($_->has_id, @{$self->tasks;})
|
|
631
|
0 |
175 |
if $self->logger
|
|
639
|
1412 |
283 |
unless ($task->has_answer)
|
|
640
|
0 |
1412 |
if $self->logger
|
|
644
|
0 |
283 |
if $self->logger
|
|
662
|
140 |
67 |
unless my(@free_tasks) = grep((!$_->has_id), @{$self->tasks;})
|
|
664
|
0 |
67 |
if $self->logger
|
|
672
|
35 |
303 |
unless defined $pointer
|
|
674
|
0 |
303 |
if $self->logger
|
|
700
|
15 |
4 |
if (ref $data eq 'ARRAY') { }
|
|
|
4 |
0 |
elsif (ref $data eq 'HASH') { }
|
|
730
|
0 |
0 |
unless (defined $text)
|
|
739
|
0 |
0 |
if (ref $text)
|
|
758
|
75 |
0 |
unless my $logger = $self->logger
|
|
762
|
0 |
0 |
if (ref $logger eq 'CODE') { }
|
|
|
0 |
0 |
elsif (ref $logger eq 'GLOB') { }
|
|
|
0 |
0 |
elsif ($logger =~ /^stdout$/ai) { }
|
|
|
0 |
0 |
elsif ($logger =~ /^stderr$/ai) { }
|
|
766
|
0 |
0 |
unless -f $logger
|
|
767
|
0 |
0 |
unless -w $logger
|
|
777
|
0 |
0 |
unless open my $f, '>>', $logger
|