13 local $SIG{__WARN__} = sub { $w .= shift };
14 eval '+sub : const {}';
15 like $w, qr/^:const is experimental at /, 'experimental warning';
18 no warnings 'experimental::const_attr';
20 push @subs, sub :const{$_} for 1..10;
21 is join(" ", map &$_, @subs), "1 2 3 4 5 6 7 8 9 10",
22 ':const capturing global $_';
25 my $sub = sub : const { $x };
27 is &$sub, 3, ':const capturing lexical';
30 $sub = sub : const { $x+5 };
32 is &$sub, 8, ':const capturing expression';
34 is &{sub () : const { 42 }}, 42, ':const with truly constant sub';
38 use warnings 'redefine';
40 local $SIG{__WARN__} = sub { $w .= shift };
42 like $w, qr/^Constant subroutine main::foo redefined at /,
43 ':const subs are constant';
46 eval 'sub bar : const';
47 like $@, qr/^:const is not permitted on named subroutines at /,
48 ':const on named stub';
49 eval 'sub baz : const { }';
50 like $@, qr/^:const is not permitted on named subroutines at /,
51 ':const on named sub';