8 |
use English; |
use English; |
9 |
|
|
10 |
has pattern => ( |
has pattern => ( |
11 |
documentation => 'grep for pattern', |
documentation => 'grep pattern', |
12 |
is => 'rw', |
is => 'rw', |
13 |
isa => 'Str', |
isa => 'Str', |
14 |
required => 1, |
required => 1, |
42 |
open(my $fh, '-|', $cmd) || die "can't open pipe to $cmd $!"; |
open(my $fh, '-|', $cmd) || die "can't open pipe to $cmd $!"; |
43 |
while(<$fh>) { |
while(<$fh>) { |
44 |
my ( $path, $line, $text ) = split(/:/,$_,3); |
my ( $path, $line, $text ) = split(/:/,$_,3); |
45 |
|
$text = $self->html_escape( $text ); |
46 |
if ( $path ne $last_path ) { |
if ( $path ne $last_path ) { |
47 |
$html .= qq|<dt>$path</dt>|; |
$html .= qq|<dt>$path</dt>|; |
48 |
} |
} |