Source

perl-File-Find-Object-Rule / File-FindLines / module / t / Find-FileLines.t

Diff from to

File-FindLines/module/t/Find-FileLines.t

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