| 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) |
|
125
|
0 |
0 |
if (my($card) = $found_line =~ /\AFoundations: ($card_re)\z/) { } |
|
179
|
0 |
0 |
if ($i != $j) |
|
218
|
0 |
0 |
unless ($val =~ /\A$TASK_ALLOC_RE(?:,$TASK_ALLOC_RE)*\z/) |
|
227
|
0 |
0 |
unless ($val =~ /\A$TASK_NAME_RE\z/) |
|
242
|
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'};}) |
|
244
|
0 |
0 |
if (@tasks == 1) |
|
248
|
0 |
0 |
if (&any(sub {
not defined $_->{'name'};
}
, @tasks)) |
|
254
|
0 |
0 |
if $help |
|
255
|
0 |
0 |
if $man |
|
257
|
0 |
0 |
if ($version) |
|
267
|
0 |
0 |
if (defined $output_fn) { } |
|
269
|
0 |
0 |
unless open $output_handle, '>', $output_fn |
|
306
|
0 |
0 |
if (exists $tasks_by_names{$name}) |
|
318
|
0 |
0 |
if (my($quota, $name) = $s =~ /\A([0-9]+)\@($TASK_NAME_RE)\z/) { } |
|
320
|
0 |
0 |
unless (exists $self->_tasks_by_names->{$name}) |
|
340
|
0 |
0 |
if (my $_prelude_string = $self->_prelude_string) |
|
350
|
0 |
0 |
if (@{$self->_prelude;}) |
|
360
|
0 |
0 |
if ($self->_prelude_iter < @{$self->_prelude;}) |
|
364
|
0 |
0 |
unless (@{$task->_queue;}) |
|
373
|
0 |
0 |
unless @$tasks |
|
374
|
0 |
0 |
unless (@{$$tasks[$self->_task_idx]->_queue;}) |
|
404
|
0 |
0 |
if $rec->[2] |
|
416
|
0 |
0 |
if (@$_pending) { } |
|
418
|
0 |
0 |
if $task->_seed |
|
433
|
0 |
0 |
unless defined $parent |
|
437
|
0 |
0 |
unless (--$task->{'_remaining_iters'}) |
|
455
|
0 |
0 |
if ($pos) |
|
460
|
0 |
0 |
if (exists $$_is_good_diff{$card - $fnd}) |
|
467
|
0 |
0 |
if (not $exists) { } |
|
|
0 |
0 |
elsif ($positions->{$next_s}[2]) { } |
|
476
|
0 |
0 |
if ($to_add) |