| line |
true |
false |
branch |
|
87
|
0 |
0 |
unless UNIVERSAL::isa($self, 'App::File::Grepper') |
|
93
|
0 |
0 |
if ($opts->{'edit-with-emacs'}) { } |
|
|
0 |
0 |
elsif ($opts->{'edit-with-vi'}) { } |
|
|
0 |
0 |
elsif ($opts->{'view'}) { } |
|
106
|
0 |
0 |
defined $opts->{'ignorecase'} ? : |
|
110
|
0 |
0 |
$ignorecase ? : |
|
|
0 |
0 |
$pat =~ m[^/(.*)] ? : |
|
115
|
0 |
0 |
!$edit && -t STDOUT ? : |
|
118
|
0 |
0 |
if (defined $opts->{'filter'}) |
|
123
|
0 |
0 |
if (defined $opts->{'exclude'}) { } |
|
136
|
0 |
0 |
if (-d $_ and $_ =~ /^(RCS|CVS|\.svn|\.git|\.hg)$/) |
|
142
|
0 |
0 |
unless -f $_ |
|
145
|
0 |
0 |
if ($exclude and $_ =~ /$exclude/) |
|
146
|
0 |
0 |
if $opts->{'debug'} |
|
149
|
0 |
0 |
if ($filter and not $_ =~ /$filter/) |
|
150
|
0 |
0 |
if $opts->{'debug'} |
|
157
|
0 |
0 |
unless open my $fh, '<', $file |
|
160
|
0 |
0 |
unless (-T $fh) |
|
161
|
0 |
0 |
if $opts->{'verbose'} |
|
171
|
0 |
0 |
unless eval {
do {
$_ = &decode('UTF-8', $_, 1)
}
} |
|
176
|
0 |
0 |
unless s/^(.*?)($pat)/"$1" . hilite($2);/eg |
|
178
|
0 |
0 |
if ($edit eq 'vi') { } |
|
|
0 |
0 |
elsif ($edit eq 'emacs') { } |
|
|
0 |
0 |
elsif ($edit eq 'view') { } |
|
179
|
0 |
0 |
$ignorecase ? : |
|
190
|
0 |
0 |
$ignorecase ? : |
|
195
|
0 |
0 |
if $edit |