| line |
l |
!l&&r |
!l&&!r |
condition |
|
34
|
0 |
0 |
0 |
$params{'iraf_start'} || $self->_get_iraf_start |
|
37
|
0 |
0 |
0 |
$params{'work_dir'} || cwd() |
|
38
|
0 |
0 |
0 |
$params{'log'} || *STDERR |
|
86
|
0 |
0 |
0 |
getlogin || getpwuid $< || $Astro::IRAF::CL::USER || `whoami` |
|
127
|
0 |
0 |
0 |
'Expect'->spawn('cl') || croak("Cannot spawn CL: $!") |
|
275
|
0 |
0 |
0 |
$package ||= $current_package |
|
722
|
0 |
0 |
0 |
$q_timeout or $q_error |
|
|
0 |
0 |
0 |
$q_timeout or $q_error or $q_eof |
|
|
0 |
0 |
0 |
$q_timeout or $q_error or $q_eof or $not_available |
|
730
|
0 |
0 |
0 |
$helpfile or $line =~ /(\d|\w)/ |
|
747
|
0 |
0 |
0 |
$params{'name'} || croak('Need a name for the task') |
|
748
|
0 |
0 |
0 |
$params{'file'} || croak("Need a filename for the task $name") |
|
898
|
0 |
0 |
0 |
$params{'string'} || croak('Need an input string') |
|
942
|
0 |
0 |
0 |
$in_squote || $in_dquote |
|
947
|
0 |
0 |
0 |
not $num or $num % 2 == 0 |
|
954
|
0 |
0 |
0 |
not $num or $num % 2 == 0 |