t/foreign/Method-Signatures/lib/Bad.pm

   1 package Bad;
   2
   3 use strict;
   4 use warnings;
   5 use Function::Parameters qw(:strict);
   6
   7 ## $info->{} should be $info{}
   8 method meth1 ($foo) {
   9   my %info;
  10   $info->{xpto} = 1;
  11 }
  12
  13 method meth2 ($bar) {}
  14
  15 'ok'