[p5sagit/Function-Parameters.git] / t / foreign / Method-Signatures / lib / Bad.pm

package Bad;

use strict;
use warnings;
use Function::Parameters qw(:strict);

## $info->{} should be $info{}
method meth1 ($foo) {
  my %info;
  $info->{xpto} = 1;
}

method meth2 ($bar) {}

'ok'
Commit	Line	Data
700071de	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'