[p5sagit/Function-Parameters.git] / t / eating_strict_error.fail

#!perl
use strict;
use Function::Parameters;

fun get_record( $agent, $target_name ) {
	for my $record ( @$records ) {
	}
}

fun get_ip( $agent ) {
}

'ok'
Commit	Line	Data
6c34b444	1	#!perl
5bf140a1	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
6c34b444	13	'ok'