blib/lib/Astro/IRAF/CL.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 0 | 80 | 0.0 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
90 | 0 | 0 | 0 | -e "$_/login.cl" and -d "$_/uparm/" |
842 | 0 | 0 | 0 | $Astro::IRAF::CL::AUTOLOAD =~ /.*::get_(\w+)/ and exists $$self{$1} |
942 | 0 | 0 | 0 | $in_dquote and $token =~ /(\\*)\"$/ |
0 | 0 | 0 | $in_squote and $token =~ /(\\*)\'$/ |
line | l | !l | condition |
---|---|---|---|
36 | 0 | 0 | $params{'debug'} || 0 |
39 | 0 | 0 | $params{'display_startup'} || 0 |
281 | 0 | 0 | $self->get_current_package || 'cl' |
636 | 0 | 0 | $params{'error_handler'} || undef |
637 | 0 | 0 | $params{'warning_handler'} || undef |
638 | 0 | 0 | $params{'death_handler'} || undef |
639 | 0 | 0 | $params{'timeout_handler'} || undef |
749 | 0 | 0 | $params{'task'} || '' |
750 | 0 | 0 | $params{'par_file'} || 0 |
899 | 0 | 0 | $params{'max_length'} || 75 |
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 |