Source

perl-File-Find-Object-Rule / Stream-Extract / module / t / Find-FileLines.t

Diff from to

File Stream-Extract/module/t/Find-FileLines.t

             input => { code => sub { return shift(@lines); } },
             filter => sub {
                 my ($self, $args) = @_;
-                
+
                 my $record_obj = $args->{record};
 
                 return $record_obj->text_like(qr/foob.r/);