| line |
true |
false |
branch |
|
49
|
0 |
0 |
if ($filename eq '-') { } |
|
55
|
0 |
0 |
unless open my $in, '<', $filename |
|
72
|
0 |
0 |
if $self->_quiet |
|
81
|
0 |
0 |
unless defined $prev_state |
|
84
|
0 |
0 |
$col_idx == @{$self->_board_cards;} ? : |
|
104
|
0 |
0 |
unless ($verdict) |
|
109
|
0 |
0 |
if (defined $self->_output_fn) |
|
127
|
0 |
0 |
if (my($card) = $found_line =~ /\AFoundations: ($card_re)\z/) { } |
|
181
|
0 |
0 |
if ($i != $j) |
|
220
|
0 |
0 |
unless ($val =~ /\A$TASK_ALLOC_RE(?:,$TASK_ALLOC_RE)*\z/) |
|
229
|
0 |
0 |
unless ($val =~ /\A$TASK_NAME_RE\z/) |
|
244
|
0 |
0 |
unless &GetOptions('o|output=s', \$output_fn, 'quiet!', \$quiet, 'next-task', sub {
&$push_task();
return;
}
, 'prelude=s', sub {
my(undef, $val) = @_;
unless ($val =~ /\A$TASK_ALLOC_RE(?:,$TASK_ALLOC_RE)*\z/) {
die "Invalid prelude string '${val}' !";
} ;
$self->_prelude_string($val);
return;
}
, 'task-name=s', sub {
my(undef, $val) = @_;
unless ($val =~ /\A$TASK_NAME_RE\z/) {
die "Invalid task name '${val}' - must be alphanumeric!";
} ;
$tasks[-1]{'name'} = $val;
return;
}
, 'seed=i', sub {
my(undef, $val) = @_;
$tasks[-1]{'seed'} = $val;
return;
}
, 'help|h|?', \$help, 'man', \$man, 'version', \$version, %{$$args{'extra_flags'};}) |
|
246
|
0 |
0 |
if (@tasks == 1) |
|
250
|
0 |
0 |
if (&any(sub {
not defined $_->{'name'};
}
, @tasks)) |
|
256
|
0 |
0 |
if $help |
|
257
|
0 |
0 |
if $man |
|
259
|
0 |
0 |
if ($version) |
|
269
|
0 |
0 |
if (defined $output_fn) { } |
|
271
|
0 |
0 |
unless open $output_handle, '>', $output_fn |
|
308
|
0 |
0 |
if (exists $tasks_by_names{$name}) |
|
320
|
0 |
0 |
if (my($quota, $name) = $s =~ /\A([0-9]+)\@($TASK_NAME_RE)\z/) { } |
|
322
|
0 |
0 |
unless (exists $self->_tasks_by_names->{$name}) |
|
342
|
0 |
0 |
if (my $_prelude_string = $self->_prelude_string) |
|
352
|
0 |
0 |
if (@{$self->_prelude;}) |
|
362
|
0 |
0 |
if ($self->_prelude_iter < @{$self->_prelude;}) |
|
366
|
0 |
0 |
unless (@{$task->_queue;}) |
|
375
|
0 |
0 |
unless @$tasks |
|
376
|
0 |
0 |
unless (@{$$tasks[$self->_task_idx]->_queue;}) |
|
406
|
0 |
0 |
if $rec->[2] |
|
418
|
0 |
0 |
if (@$_pending) { } |
|
420
|
0 |
0 |
if $task->_seed |
|
435
|
0 |
0 |
unless defined $parent |
|
439
|
0 |
0 |
unless (--$task->{'_remaining_iters'}) |
|
457
|
0 |
0 |
if ($pos) |
|
462
|
0 |
0 |
if (exists $$_is_good_diff{$card - $fnd}) |
|
469
|
0 |
0 |
if (not $exists) { } |
|
|
0 |
0 |
elsif ($positions->{$next_s}[2]) { } |
|
478
|
0 |
0 |
if ($to_add) |