5 local $SIG{__WARN__} = sub { fail("Got unexpected warning"); diag($_[0]) };
8 is (eval <<'END', 1, 'state compiles') or diag $@;
9 use experimental 'state';
11 is($foo, 1, '$foo is 1');
16 fail("No experimental features available on perl $]");
20 is (eval <<'END', 1, 'switch compiles') or diag $@;
21 use experimental 'switch';
25 pass("bar matches 1");
27 fail("bar matches 1");
34 is (eval <<'END', 1, 'smartmatch compiles') or diag $@;
35 use experimental 'smartmatch';
36 { package Bar; use overload "~~" => sub { 1 }; }
37 is(1 ~~ bless({}, "Bar"), 1, "is 1");
43 is (eval <<'END', 1, 'lexical subs compiles') or diag $@;
44 use experimental 'lexical_subs';
46 is(foo(), 1, "foo is 1");
52 is (eval <<'END', 1, 'ref aliasing compiles') or diag $@;
53 use experimental 'refaliasing';
55 is(\@a, \@b, '@a and @b are the same after \@a=\@b');