| line |
true |
false |
branch |
|
31
|
1 |
1 |
if ($$self{'use_git'}) |
|
33
|
0 |
1 |
unless (defined $$self{'git_bin'}) |
|
66
|
5 |
1 |
if ($dir1_part eq $dir2_part) { } |
|
81
|
6 |
2 |
if ($old_path ne $new_path) |
|
82
|
2 |
4 |
if ($$self{'use_git'} and not -d $old_path) { } |
|
106
|
1 |
27 |
if (-d $_ and $self->dir_empty($_)) |
|
110
|
1 |
27 |
if (-d $_ and exists $$self{'dir_exclude_hash'}{$_}) |
|
114
|
12 |
15 |
unless -f $_ |
|
115
|
4 |
11 |
if $File::Find::name =~ /$$self{'look_for'}/ or $_ eq $$self{'pmfile'} |
|
125
|
2 |
2 |
if ($file =~ /$$self{'look_for'}/) { } |
|
135
|
2 |
2 |
unless -d $dir |
|
145
|
2 |
64 |
if (/$dashed_look_for/) |
|
161
|
2 |
0 |
if ($$self{'wipe_empty_subdirs'}) |
|
165
|
1 |
29 |
if (exists $$self{'dir_exclude_hash'}{$_}) |
|
169
|
2 |
13 |
if (-d $_ and $self->dir_empty($_) and not exists $empty_subdirs{$File::Find::name}) |
|
187
|
0 |
28 |
unless opendir DIR, $dir |
|
188
|
100 |
28 |
if $_ ne '.' |
|
203
|
0 |
15 |
unless open FILE, "<$file" |