t/eating_strict_error.fail

   1 #!perl
   2 use strict;
   3 use Function::Parameters;
   4
   5 fun get_record( $agent, $target_name ) {
   6         for my $record ( @$records ) {
   7         }
   8 }
   9
  10 fun get_ip( $agent ) {
  11 }
  12
  13 'ok'