6 use Function::Parameters;
16 local $SIG{__WARN__} = sub { $warning = $_[0] };
18 like($warning, qr/Use of uninitialized value \$x in addition \(\+\)/);
21 fun bar ($baz, $quux = foo(1) * 2, $blorg = sub { return "ran sub, got " . $_[0] }) {
22 $blorg->($baz + $quux);
25 is(bar(3, 4, sub { $_[0] }), 7);
26 is(bar(5, 6), "ran sub, got 11");
27 is(bar(7), "ran sub, got 19");
30 local $SIG{__WARN__} = sub { $warning = $_[0] };
31 is(bar, "ran sub, got 12");
32 like($warning, qr/Use of uninitialized value \$baz in addition \(\+\)/);
35 fun baz ($a, $b = our $FOO) {
40 no warnings 'misc'; # 'not imported' warning because we use $FOO later
42 like($@, qr/Global symbol "\$FOO" requires explicit package name/, "doesn't leak scope");
46 is(baz("123"), "123 abc");
48 fun goorch ($x, $y = []) {
52 my $goorch_y_1 = goorch( 10 );
53 my $goorch_y_2 = goorch( 10 );
55 isnt($goorch_y_1, $goorch_y_2, '... not the same reference');