| 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 |
$ignorecase ? : |
|
|
0 |
0 |
$pat =~ m[^/(.*)] ? : |
|
113
|
0 |
0 |
if $opts->{'debug'} |
|
117
|
0 |
0 |
!$edit && -t STDOUT ? : |
|
120
|
0 |
0 |
if (defined $opts->{'filter'}) |
|
125
|
0 |
0 |
if (defined $opts->{'exclude'}) { } |
|
138
|
0 |
0 |
if (-d $_ and $_ =~ /^(RCS|CVS|\.svn|\.git|\.hg)$/) |
|
144
|
0 |
0 |
unless -f $_ |
|
147
|
0 |
0 |
if ($exclude and $_ =~ /$exclude/) |
|
148
|
0 |
0 |
if $opts->{'debug'} |
|
151
|
0 |
0 |
if ($filter and not $_ =~ /$filter/) |
|
152
|
0 |
0 |
if $opts->{'debug'} |
|
155
|
0 |
0 |
if $opts->{'debug'} |
|
160
|
0 |
0 |
unless open my $fh, "<", $file |
|
163
|
0 |
0 |
unless (-T $fh) |
|
164
|
0 |
0 |
if $opts->{'verbose'} |
|
174
|
0 |
0 |
unless eval {
do {
$_ = &decode("UTF-8", $_, 1)
}
} |
|
179
|
0 |
0 |
unless s/^(.*?)($pat)/"$1" . hilite($2);/eg |
|
181
|
0 |
0 |
if ($edit eq 'vi') { } |
|
|
0 |
0 |
elsif ($edit eq 'emacs') { } |
|
|
0 |
0 |
elsif ($edit eq 'view') { } |
|
182
|
0 |
0 |
$ignorecase ? : |
|
193
|
0 |
0 |
$ignorecase ? : |
|
198
|
0 |
0 |
if $edit |