| line |
true |
false |
branch |
|
86
|
1 |
9 |
if $self->is_overwrite |
|
88
|
0 |
10 |
unless (() = $self->files) |
|
94
|
2 |
8 |
$errors ? : |
|
133
|
9 |
23 |
if (exists $args{'--'}) |
|
140
|
35 |
29 |
if (/-(.+)/) { } |
|
152
|
6 |
3 |
if (exists $args{'-f'} and exists $args{'-i'}) |
|
155
|
0 |
6 |
unless /\A-[fi]\z/ |
|
162
|
6 |
6 |
$last eq '-f' && $_ eq '-i' || $last ne '-f' && $_ eq '-f' ? : |
|
193
|
142 |
98 |
defined $_ ? : |
|
203
|
4 |
9 |
if (-d $filename) { } |
|
204
|
2 |
2 |
unless ($self->is_recursive) |
|
205
|
1 |
1 |
unless $self->is_force |
|
206
|
1 |
1 |
$self->is_force ? : |
|
216
|
2 |
9 |
$self->is_force ? : |
|
223
|
0 |
2 |
unless (opendir $dh, $dirname) |
|
224
|
0 |
0 |
unless $self->is_force |
|
225
|
0 |
0 |
$self->is_force ? : |
|
229
|
4 |
2 |
if $file eq "." or $file eq ".." |
|
232
|
0 |
2 |
-d $path ? : |
|
238
|
0 |
2 |
unless (rmdir $dirname) |
|
239
|
0 |
0 |
unless $self->is_force |
|
240
|
0 |
0 |
$self->is_force ? : |
|
243
|
0 |
2 |
if $self->is_verbose |
|
252
|
0 |
11 |
if (not -w $filename and $self->is_interactive) { } |
|
|
0 |
11 |
elsif ($self->is_interactive) { } |
|
254
|
0 |
0 |
if readline(STDIN) =~ /^[Nn]/ |
|
258
|
0 |
0 |
if readline(STDIN) =~ /^[Nn]/ |
|
261
|
2 |
9 |
if $self->is_force |
|
263
|
4 |
7 |
unless (unlink $filename) |
|
264
|
2 |
2 |
unless $self->is_force |
|
265
|
2 |
2 |
$self->is_force ? : |
|
268
|
0 |
7 |
if $self->is_verbose |
|
284
|
0 |
4 |
unless $self->error_fh |
|
290
|
0 |
0 |
unless $self->output_fh |