| line |
true |
false |
branch |
|
52
|
0 |
0 |
if (exists $params{'packages'}) |
|
58
|
0 |
0 |
if (exists $params{'set'}) |
|
70
|
0 |
0 |
if (defined $Astro::IRAF::CL::IRAF_START) { } |
|
90
|
0 |
0 |
if (-e "$_/login.cl" and -d "$_/uparm/") |
|
97
|
0 |
0 |
unless $found |
|
106
|
0 |
0 |
unless sysopen STARTDIR, "$$self{'iraf_start'}/Astro-IRAF-CL.LOCK", 193 |
|
115
|
0 |
0 |
unless close $$self{'STARTDIR_FH'} |
|
125
|
0 |
0 |
unless chdir $$self{'iraf_start'} |
|
130
|
0 |
0 |
if $t->error |
|
136
|
0 |
0 |
if ($$self{'display_startup'}) |
|
140
|
0 |
0 |
unless chdir $$self{'work_dir'} |
|
145
|
0 |
0 |
if $t->error |
|
156
|
0 |
0 |
unless $$self{'dead'} |
|
174
|
0 |
0 |
if (exists $$self{'start_params'}{'packages'}) |
|
182
|
0 |
0 |
if (exists $$self{'start_params'}{'set'}) |
|
189
|
0 |
0 |
unless $self->package_is_loaded($package) |
|
225
|
0 |
0 |
$defined eq 'yes' ? : |
|
234
|
0 |
0 |
unless ($self->package_exists($package)) |
|
243
|
0 |
0 |
$output ? : |
|
277
|
0 |
0 |
if $package ne $current_package |
|
297
|
0 |
0 |
$output ? : |
|
332
|
0 |
0 |
if ($$self{'debug'}) |
|
354
|
0 |
0 |
if (wantarray) { } |
|
|
0 |
0 |
elsif (defined wantarray) { } |
|
390
|
0 |
0 |
if (defined $handler) |
|
408
|
0 |
0 |
if (defined $handler) { } |
|
424
|
0 |
0 |
if (defined $handler) { } |
|
446
|
0 |
0 |
if (defined $handler) { } |
|
467
|
0 |
0 |
if ($self->exists($key)) { } |
|
486
|
0 |
0 |
if ($self->exists($key)) |
|
500
|
0 |
0 |
if ($output eq 'yes') { } |
|
523
|
0 |
0 |
if (/^([^.]+)\.$/) { } |
|
541
|
0 |
0 |
if (not $package) { } |
|
568
|
0 |
0 |
if (not $package) { } |
|
599
|
0 |
0 |
if $package eq $package_wanted |
|
613
|
0 |
0 |
if $command eq $command_wanted |
|
627
|
0 |
0 |
if (exists $params{'command'}) { } |
|
635
|
0 |
0 |
defined $params{'timeout'} ? : |
|
649
|
0 |
0 |
if (length $command > 2047) |
|
655
|
0 |
0 |
if ($command =~ /^help\s+(.+)/) |
|
661
|
0 |
0 |
if (length $command > 72) { } |
|
693
|
0 |
0 |
if ($command =~ /^\s*bye\s*$/) { } |
|
|
0 |
0 |
elsif ($command =~ /^\s*\w+\s*$/) { } |
|
697
|
0 |
0 |
if ($self->package_is_available($command)) |
|
722
|
0 |
0 |
if $q_timeout or $q_error or $q_eof or $not_available |
|
730
|
0 |
0 |
if $helpfile or $line =~ /(\d|\w)/ |
|
735
|
0 |
0 |
if (wantarray) { } |
|
|
0 |
0 |
elsif (defined wantarray) { } |
|
752
|
0 |
0 |
if ($task) { } |
|
758
|
0 |
0 |
unless -e $file |
|
769
|
0 |
0 |
unless $par_file |
|
773
|
0 |
0 |
if ($defined_task eq 'no') { } |
|
791
|
0 |
0 |
if (ref $piece eq 'HASH') { } |
|
796
|
0 |
0 |
if defined $value |
|
812
|
0 |
0 |
if $$self{'dead'} |
|
842
|
0 |
0 |
if ($Astro::IRAF::CL::AUTOLOAD =~ /.*::get_(\w+)/ and exists $$self{$1}) { } |
|
851
|
0 |
0 |
if (wantarray) { } |
|
|
0 |
0 |
elsif (defined wantarray) { } |
|
911
|
0 |
0 |
if ($token eq '=') |
|
916
|
0 |
0 |
if ($in_assign) { } |
|
918
|
0 |
0 |
if ($equals) { } |
|
927
|
0 |
0 |
if ($tokens[$posn + 1] =~ /^\"/) { } |
|
|
0 |
0 |
elsif ($tokens[$posn + 1] =~ /^\'/) { } |
|
942
|
0 |
0 |
if (not $in_squote || $in_dquote) { } |
|
|
0 |
0 |
elsif ($in_dquote and $token =~ /(\\*)\"$/) { } |
|
|
0 |
0 |
elsif ($in_squote and $token =~ /(\\*)\'$/) { } |
|
947
|
0 |
0 |
if (not $num or $num % 2 == 0) |
|
954
|
0 |
0 |
if (not $num or $num % 2 == 0) |
|
984
|
0 |
0 |
if (length($output[$i]) + length($line) + 1 <= $max_length) { } |
|
991
|
0 |
0 |
if ($length > $max_length) |