| line |
true |
false |
branch |
|
7
|
1 |
0 |
if $INC[-1] eq "." |
|
18
|
0 |
1 |
unless (&GetOptions(\%opt, "basename|b", "ignore-case|i", "list-only|l", "verbose|v", "help|?")) |
|
29
|
0 |
1 |
if $opt{'help'} |
|
31
|
0 |
1 |
unless @ARGV |
|
36
|
0 |
1 |
unless @ARGV |
|
48
|
0 |
1 |
if ($opt{'ignore-case'}) { } |
|
63
|
0 |
1 |
unless $f->is_file |
|
64
|
1 |
0 |
if $f->size > 0 |
|
73
|
1 |
0 |
if (defined $prefix) |
|
80
|
0 |
1 |
unless ($body =~ /$pattern/) |
|
85
|
1 |
0 |
if ($opt{'list-only'}) |
|
100
|
0 |
0 |
if ($dir and not $opt{'basename'}) { } |
|
103
|
0 |
0 |
unless -d $dir |
|
104
|
0 |
0 |
unless open $fh, ">", "$dir/$file" |
|
108
|
0 |
0 |
unless open $fh, ">", $file |
|
116
|
2 |
0 |
unless $opt{'verbose'} |