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

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

fun get_ip( $agent ) {
}

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

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