Branch Coverage

blib/lib/Proc/InvokeEditor.pm
Criterion Covered Total %
branch 17 54 31.4


line true false branch
51 0 1 if @_ % 2
54 0 3 if ($args{$param})
65 1 3 if (defined $editors)
86 1 0 if (@$edit)
88 2 0 if (exists $ENV{$e} and defined $ENV{$e})
102 1 1 if defined $cleanup
109 0 0 if defined $keep_file
119 0 0 if (ref $arg eq 'ARRAY')
123 0 0 if (ref $self) { }
135 0 0 if (wantarray) { }
147 0 1 if (defined $er) { }
150 0 1 if (ref $self) { }
160 5 3 unless defined $editor
162 0 3 if ($^O =~ /mswin/i) { }
169 0 3 unless defined $editor_bits[0]
170 0 3 if ('File::Spec'->file_name_is_absolute($editor_bits[0]) and -x $editor_bits[0]) { }
177 0 27 if (-x $file)
185 1 0 unless defined $chosen_editor
206 0 0 if $suff
209 0 0 if (defined $filename and $keep_file) { }
210 0 0 unless open my $fh, '>', $filename
212 0 0 unless close $fh
218 0 0 unless close $fh
223 0 0 unless ($rc == 0)
232 0 0 unless sysopen FH, $filename, 0
235 0 0 unless close FH
237 0 0 if ($keep_file) { }