| line |
true |
false |
branch |
|
60
|
0 |
0 |
if (&blessed($file)) { }
|
|
61
|
0 |
0 |
if ($file->isa('IO::Handle')) { }
|
|
|
0 |
0 |
elsif ($file->isa('Path::Class::File')) { }
|
|
65
|
0 |
0 |
unless $tmp = $file->open('w')
|
|
72
|
0 |
0 |
unless defined $file
|
|
73
|
0 |
0 |
if (ref $file) { }
|
|
|
0 |
0 |
elsif (length $file) { }
|
|
77
|
0 |
0 |
unless $tmp = 'IO::File'->new($file, 'w')
|
|
86
|
0 |
0 |
unless $tmp->seek(0, 0)
|
|
87
|
0 |
0 |
unless $tmp->truncate(0)
|
|
90
|
0 |
0 |
if ($Test_edit) { }
|
|
105
|
0 |
0 |
unless defined $input
|
|
106
|
0 |
0 |
if (do {
$input eq 'c'
}) { }
|
|
|
0 |
0 |
elsif ($input eq 'a') { }
|
|
|
0 |
0 |
elsif ($input eq 's') { }
|
|
115
|
0 |
0 |
unless ($save = 'File::Temp'->new('dir', '.', 'template', 'PintoEditor.XXXXXX', 'unlink', 0))
|
|
116
|
0 |
0 |
if warn "Unable to create temporary file: $!"
|
|
120
|
0 |
0 |
unless ($tmpr = 'IO::File'->new($tmp_filename, 'r'))
|
|
121
|
0 |
0 |
if warn "Unable to open ($tmp_filename): $!"
|
|
138
|
0 |
0 |
unless my $tmpr = 'IO::File'->new($filename, 'r')
|
|
149
|
0 |
0 |
if (my $process = $self->process)
|
|
155
|
0 |
0 |
unless $_ eq $RETRY
|
|
159
|
0 |
0 |
if $retry
|
|
161
|
0 |
0 |
if defined $result[0]
|
|
186
|
0 |
0 |
unless defined $part
|
|
190
|
0 |
0 |
if @preamble
|
|
206
|
0 |
0 |
unless my $separator = $self->separator
|
|
208
|
0 |
0 |
if ref $separator
|
|
210
|
0 |
0 |
if (my $mark = 'Text::Clip'->new('data', $document)->find(qr/^\s*$separator\s*$/m))
|
|
224
|
0 |
0 |
unless defined $preamble
|
|
228
|
0 |
0 |
unless (defined $separator)
|
|
229
|
0 |
0 |
unless length $preamble
|
|
232
|
0 |
0 |
unless length $preamble
|