| line |
true |
false |
branch |
|
159
|
0 |
0 |
if (defined $pname and $pname =~ /^(.*)$/) |
|
163
|
0 |
0 |
if ($self->{'program_name'} =~ /^-$/) |
|
168
|
0 |
0 |
if (defined $pcommand) { } |
|
210
|
0 |
0 |
if (not defined $self->{'host_name'}) { } |
|
224
|
0 |
0 |
if (not defined $self->{'user_name'}) { } |
|
230
|
0 |
0 |
if (not defined $self->{'home_dir'}) { } |
|
267
|
0 |
0 |
if (defined $field_type) |
|
268
|
0 |
0 |
if ($field_type =~ /^name$/) |
|
271
|
0 |
0 |
if ($field_type =~ /^invocation$/) |
|
274
|
0 |
0 |
if ($field_type =~ /^env_path$/) |
|
276
|
0 |
0 |
if (defined $ENV{'PWD'} and abs_path($ENV{'PWD'}) eq abs_path('.') and $ENV{'PWD'} =~ /^(.*)$/) { } |
|
287
|
0 |
0 |
if (defined $tmp_val and $tmp_val =~ /^(.*)$/) |
|
295
|
0 |
0 |
if ($field_type =~ /^abs_path$/) |
|
298
|
0 |
0 |
if (defined $tmp_val and $tmp_val =~ /^(.*)$/) |
|
331
|
0 |
0 |
unless (defined $command_str) |
|
336
|
0 |
0 |
if (defined $ENV{'PATH'}) |
|
353
|
0 |
0 |
if ($return_str == -1) { } |
|
|
0 |
0 |
elsif ($dumped_core != 0) { } |
|
|
0 |
0 |
elsif ($signal_num != 0) { } |
|
426
|
0 |
0 |
if ($num_elts == 0) |
|
460
|
0 |
0 |
if (defined $self->{'version_handler'}) { } |
|
|
0 |
0 |
elsif (defined $self->getVersionInfo) { } |
|
503
|
0 |
0 |
if (defined $v_info and $v_info =~ /\S/) { } |
|
527
|
0 |
0 |
if (defined $v_handler and ref $v_handler eq 'CODE') { } |
|
|
0 |
0 |
elsif (not defined $v_handler) { } |
|
553
|
0 |
0 |
if (defined $self->{'help_info'}) { } |
|
589
|
0 |
0 |
if (defined $help_string and $help_string =~ /\S/) { } |
|
613
|
0 |
0 |
if (defined $self->{'usage_info'}) { } |
|
|
0 |
0 |
elsif (defined $self->{'help_info'}) { } |
|
652
|
0 |
0 |
if (defined $usage_string and $usage_string =~ /\S/) { } |
|
677
|
0 |
0 |
unless (defined $file) |
|
681
|
0 |
0 |
if (defined $file and -f $file || -l $file and -r $file) { } |
|
706
|
0 |
0 |
unless (defined $file) |
|
710
|
0 |
0 |
if (defined $file and -f $file || -l $file and -x $file) { } |
|
735
|
0 |
0 |
unless (defined $file) |
|
739
|
0 |
0 |
if (defined $file and -f $file || -l $file and -w $file) { } |
|
767
|
0 |
0 |
unless (defined $file) |
|
771
|
0 |
0 |
if (defined $file and not -e $file and not $file =~ m[/$]) { } |
|
801
|
0 |
0 |
unless (defined $file) |
|
805
|
0 |
0 |
if (defined $file and -d $file and -r $file and -x $file) { } |
|
831
|
0 |
0 |
unless (defined $file) |
|
835
|
0 |
0 |
if (defined $file and -d $file and -w $file and -x $file) { } |
|
863
|
0 |
0 |
unless (defined $dir) |
|
868
|
0 |
0 |
if (defined $dir) |
|
899
|
0 |
0 |
unless (defined $pathname) |
|
904
|
0 |
0 |
if (defined $pathname) |
|
909
|
0 |
0 |
if (not -e $pathname and $dirname ne $pathname and $filename ne '..') { } |
|
914
|
0 |
0 |
if (-e $dirname) { } |
|
943
|
0 |
0 |
if (defined ref $_[0] and ref $_[0] eq 'TIGR::Foundation') |
|
948
|
0 |
0 |
if (scalar @time_val == 0) |
|
971
|
0 |
0 |
if (defined ref $_[0] and ref $_[0] eq 'TIGR::Foundation') |
|
976
|
0 |
0 |
if (scalar @time_val == 0) |
|
999
|
0 |
0 |
if (defined ref $_[0] and ref $_[0] eq 'TIGR::Foundation') |
|
1004
|
0 |
0 |
if (scalar @time_val == 0) |
|
1008
|
0 |
0 |
if (defined $time_str) |
|
1029
|
0 |
0 |
if (defined ref $_[0] and ref $_[0] eq 'TIGR::Foundation') |
|
1034
|
0 |
0 |
if (scalar @time_val == 0) |
|
1058
|
0 |
0 |
if (defined ref $_[0] and ref $_[0] eq 'TIGR::Foundation') |
|
1064
|
0 |
0 |
if (scalar @time_val == 0) |
|
1070
|
0 |
0 |
unless (defined $time_str) |
|
1098
|
0 |
0 |
if (defined $getopts_new_level and $getopts_new_level =~ /^-?\d+$/) { } |
|
|
0 |
0 |
elsif (not defined $new_level && $new_level =~ /^-?\d+$/) { } |
|
1113
|
0 |
0 |
if ($new_level < 0) |
|
1119
|
0 |
0 |
unless (defined $level) |
|
1134
|
0 |
0 |
if ($self->{'debug_level'} == -1) { } |
|
1164
|
0 |
0 |
defined $self->{'static_log_file'} ? : |
|
1166
|
0 |
0 |
if (scalar @_ == 1) |
|
1171
|
0 |
0 |
if (defined $self->{'static_log_file'} and not $self->{'static_log_file'} =~ /^\s*$/) |
|
1177
|
0 |
0 |
if ($self->{'log_files'}[$idx] eq $old_log_file) |
|
1220
|
0 |
0 |
if (defined $return_val) |
|
1251
|
0 |
0 |
if (defined $self->getErrorFile and &isWritableFile(scalar $self->getErrorFile)) |
|
1255
|
0 |
0 |
unless unlink $self->getErrorFile |
|
1267
|
0 |
0 |
if (defined $self->getLogFile and &isWritableFile(scalar $self->getLogFile)) |
|
1271
|
0 |
0 |
unless unlink $self->getLogFile |
|
1283
|
0 |
0 |
if (defined $self->getLogFile) |
|
1298
|
0 |
0 |
if ($self->{'log_append_setting'} == 0) |
|
1299
|
0 |
0 |
if ($self->{'msg_file_used'} == 0) |
|
1302
|
0 |
0 |
if ($self->{'error_file_used'} == 0) |
|
1315
|
0 |
0 |
if (not close ERRLOG and defined $self->getErrorFile) { } |
|
1333
|
0 |
0 |
if (not close MSGLOG and defined $self->getLogFile) { } |
|
1352
|
0 |
0 |
if (defined $self->getErrorFile and $self->{'error_file_open_flag'} == 0) |
|
1356
|
0 |
0 |
if ($self->{'error_append_flag'} == 0) { } |
|
1363
|
0 |
0 |
if (open ERRLOG, $fileop . $self->getErrorFile) { } |
|
1385
|
0 |
0 |
if (defined $self->getLogFile and $self->{'msg_file_open_flag'} == 0) |
|
1389
|
0 |
0 |
if ($self->{'msg_append_flag'} == 0) { } |
|
1397
|
0 |
0 |
if (open MSGLOG, $fileop . $self->getLogFile) { } |
|
1428
|
0 |
0 |
if (defined $_[0]) |
|
1431
|
0 |
0 |
if (defined $log_append_flag and $log_append_flag eq '0' || $log_append_flag eq '1') |
|
1460
|
0 |
0 |
if (not defined $log_level or $log_level =~ /\D/) |
|
1464
|
0 |
0 |
if (defined $log_message) { } |
|
1468
|
0 |
0 |
if ($self->{'debug_level'} >= 0) |
|
1472
|
0 |
0 |
if ($log_level <= $self->{'debug_level'} and $self->openLogMSG and print MSGLOG "$log_message\n" and $self->closeLogMSG and $self->{'msg_file_used'} = 1 or $log_level > $self->{'debug_level'}) { } |
|
1528
|
0 |
0 |
if (defined $log_message) { } |
|
1533
|
0 |
0 |
if (defined $flag and $flag ne '0') |
|
1544
|
0 |
0 |
if ($self->openLogERROR and print ERRLOG "$log_message\n" and $self->closeLogERROR and $self->{'error_file_used'} = 1) { } |
|
1591
|
0 |
0 |
unless (defined $exit_code and $exit_code =~ /^\d+$/) |
|
1594
|
0 |
0 |
if (defined $log_message) |
|
1676
|
0 |
0 |
if (defined $help_var and $help_var =~ /^(.*)$/) |
|
1680
|
0 |
0 |
if (defined $version_var and $version_var =~ /^(.*)$/) |
|
1684
|
0 |
0 |
if (defined $depend_var and $depend_var =~ /^(.*)$/) |
|
1688
|
0 |
0 |
if (defined $appendlog_var and $appendlog_var =~ /^(.*)$/) |
|
1693
|
0 |
0 |
if (defined $logfile_var and $logfile_var =~ /^(.*)$/) |
|
1698
|
0 |
0 |
if (defined $debug_var and $debug_var =~ /^(.*)$/) |