Source

perl-File-Find-Object-Rule / File-FindLines / module / lib / File / FindLines.pm

Diff from to

File File-FindLines/module/lib/File/FindLines.pm

         {
             input => { code => sub { return scalar <$fh>; }, },
             filter => sub {
-                my ($self, $record_obj) = @_;
+                my ($self, $args) = @_;
+
+                my $record_obj = $args->{record};
+
                 return $record_obj->text_like($re);
             }, 
         }