Condition Coverage

blib/lib/ClearCase/ClearPrompt.pm
Criterion Covered Total %
condition 10 175 5.7


and 3 conditions

line !l l&&!r l&&r condition
70 0 0 0 $cmd and -x $cmd
142 0 0 0 $TriggerSeries and $ENV{'CLEARCASE_SERIES_ID'}
0 0 0 $TriggerSeries and $ENV{'CLEARCASE_SERIES_ID'} and not $ENV{'CLEARCASE_SERIES_ID'} =~ /^[0:.]+$/
146 0 0 0 not $ENV{'CLEARCASE_BEGIN_SERIES'} and -f $StashFile
148 0 0 0 $ENV{'CLEARCASE_END_SERIES'} and not $ENV{'CLEARCASE_CLEARPROMPT_KEEP_CAPTURE'}
200 0 0 0 $? and $? <= 128
211 0 0 0 $? && $? <= 128
237 0 0 0 $ENV{'CLEARCASE_BEGIN_SERIES'} and not $ENV{'CLEARCASE_END_SERIES'}
281 0 0 0 MSWIN() and $dir =~ m[^[A-Z]:[\\/]?$]i
297 0 0 0 MSWIN() and $resp =~ m[^[A-Z]:[\\/]?$]i
319 0 0 0 $stream ne 'STDOUT' and $stream ne 'STDERR'
378 0 0 0 $smtp->mail($name) and $smtp->to(@$r_to, {'SkipBad', 1})
0 0 0 $smtp->mail($name) and $smtp->to(@$r_to, {'SkipBad', 1}) and $smtp->data
0 0 0 $smtp->mail($name) and $smtp->to(@$r_to, {'SkipBad', 1}) and $smtp->data and $smtp->datasend("To: @$r_to\n")
0 0 0 $smtp->mail($name) and $smtp->to(@$r_to, {'SkipBad', 1}) and $smtp->data and $smtp->datasend("To: @$r_to\n") and $smtp->datasend("Subject: $subj\n")
0 0 0 $smtp->mail($name) and $smtp->to(@$r_to, {'SkipBad', 1}) and $smtp->data and $smtp->datasend("To: @$r_to\n") and $smtp->datasend("Subject: $subj\n") and $smtp->datasend(join(' ', 'X-Mailer:', 'ClearCase::ClearPrompt', $VERSION))
0 0 0 $smtp->mail($name) and $smtp->to(@$r_to, {'SkipBad', 1}) and $smtp->data and $smtp->datasend("To: @$r_to\n") and $smtp->datasend("Subject: $subj\n") and $smtp->datasend(join(' ', 'X-Mailer:', 'ClearCase::ClearPrompt', $VERSION)) and $smtp->datasend("\n")
0 0 0 $smtp->mail($name) and $smtp->to(@$r_to, {'SkipBad', 1}) and $smtp->data and $smtp->datasend("To: @$r_to\n") and $smtp->datasend("Subject: $subj\n") and $smtp->datasend(join(' ', 'X-Mailer:', 'ClearCase::ClearPrompt', $VERSION)) and $smtp->datasend("\n") and $smtp->datasend(@body)
0 0 0 $smtp->mail($name) and $smtp->to(@$r_to, {'SkipBad', 1}) and $smtp->data and $smtp->datasend("To: @$r_to\n") and $smtp->datasend("Subject: $subj\n") and $smtp->datasend(join(' ', 'X-Mailer:', 'ClearCase::ClearPrompt', $VERSION)) and $smtp->datasend("\n") and $smtp->datasend(@body) and $smtp->dataend
0 0 0 $smtp->mail($name) and $smtp->to(@$r_to, {'SkipBad', 1}) and $smtp->data and $smtp->datasend("To: @$r_to\n") and $smtp->datasend("Subject: $subj\n") and $smtp->datasend(join(' ', 'X-Mailer:', 'ClearCase::ClearPrompt', $VERSION)) and $smtp->datasend("\n") and $smtp->datasend(@body) and $smtp->dataend and $smtp->quit
408 0 0 0 exists $MailTo{$type} and $MailTo{$type}
459 1 0 0 MSWIN() and exists $cmds{'ENV'}
565 0 0 0 exists $caps{'STDOUT'} and $ENV{'ATRIA_FORCE_GUI'} || $caps{'STDOUT'}
569 0 0 0 exists $caps{'STDERR'} and $ENV{'ATRIA_FORCE_GUI'} || $caps{'STDERR'}
592 0 0 0 defined $tmpout and -e $tmpout
616 0 0 0 defined $tmperr and -e $tmperr
654 0 0 0 $ENV{'ATRIA_FORCE_GUI'} and $Dialogs{'WARN'}
672 0 0 0 $ENV{'ATRIA_FORCE_GUI'} and $Dialogs{'DIE'}

or 2 conditions

line l !l condition
97 0 1 $ENV{'ATRIAHOME'} || '/usr/atria'
110 0 0 $ENV{'TMPDIR'} || '/tmp'

or 3 conditions

line l !l&&r !l&&!r condition
21 2 0 0 $^O || $ENV{'OS'}
110 0 0 0 $ENV{'TEMP'} || $ENV{'TMP'} || (-d "$ENV{'SYSTEMDRIVE'}/temp" ? "$ENV{'SYSTEMDRIVE'}/temp" : $ENV{'SYSTEMDRIVE'})
240 0 0 0 $@ or $] < 5.004
296 0 0 0 not $resp or $resp eq '.'
373 0 0 0 $ENV{'CLEARCASE_USER'} || $ENV{'USERNAME'} || $ENV{'LOGNAME'}
448 0 1 0 exists $cmds{'TRIGGERSERIES'} or exists $caps{'TRIGGERSERIES'}
449 0 0 1 $cmds{'TRIGGERSERIES'} ||= $caps{'TRIGGERSERIES'}
498 0 0 1 exists $caps{'DIE'} or exists $caps{'CAPTURE'}
0 0 1 exists $caps{'DIE'} or exists $caps{'CAPTURE'} or exists $caps{'ERRORS'}
502 0 0 1 exists $caps{'WARN'} or exists $caps{'CAPTURE'}
0 0 1 exists $caps{'WARN'} or exists $caps{'CAPTURE'} or exists $caps{'ERRORS'}
528 0 0 0 $Dialogs{'WARN'} ||= $Dialogs{'CAPTURE'}
529 0 0 0 $Dialogs{'DIE'} ||= $Dialogs{'CAPTURE'}
530 0 0 0 $Dialogs{'STDERR'} ||= $Dialogs{'CAPTURE'}
531 0 0 0 $Dialogs{'STDOUT'} ||= $Dialogs{'CAPTURE'}
534 0 0 0 $Dialogs{'WARN'} ||= $Dialogs{'ERRORS'}
535 0 0 0 $Dialogs{'DIE'} ||= $Dialogs{'ERRORS'}
536 0 0 0 $Dialogs{'STDERR'} ||= $Dialogs{'ERRORS'}
540 0 0 0 $Mailings{'WARN'} ||= $Mailings{'CAPTURE'}
541 0 0 0 $Mailings{'DIE'} ||= $Mailings{'CAPTURE'}
542 0 0 0 $Mailings{'STDERR'} ||= $Mailings{'CAPTURE'}
543 0 0 0 $Mailings{'STDOUT'} ||= $Mailings{'CAPTURE'}
546 0 0 0 $Mailings{'WARN'} ||= $Mailings{'ERRORS'}
547 0 0 0 $Mailings{'DIE'} ||= $Mailings{'ERRORS'}
548 0 0 0 $Mailings{'STDERR'} ||= $Mailings{'ERRORS'}
560 0 0 1 exists $caps{'STDOUT'} or exists $caps{'STDERR'}
565 0 0 0 $ENV{'ATRIA_FORCE_GUI'} || $caps{'STDOUT'}
569 0 0 0 $ENV{'ATRIA_FORCE_GUI'} || $caps{'STDERR'}
674 0 0 0 exit $! or $? >> 8