lib/B/Deparse.t

250   `$^X $path "-MO=Deparse" -e "BEGIN{*CORE::GLOBAL::require=sub{1}}" 2>&1`;
252 is($a, <<'EOCODF', "CORE::GLOBAL::require override causing panick");
254     *CORE::GLOBAL::require = sub {
345 # CORE::format
347              .qq` my sub format; CORE::format =" -e. 2>&1`;
348 like($a, qr/CORE::format/, 'CORE::format when lex format sub is in scope');
394 # CORE::no
396              .qq`"use feature q|:all|; my sub no; CORE::no less" 2>&1`;
397 like($a, qr/my sub no;\n.*CORE::no less;/s,
398     'CORE::no after my sub no');
400 # CORE::use
402              .qq`"use feature q|:all|; my sub use; CORE::use less" 2>&1`;
403 like($a, qr/my sub use;\n.*CORE::use less;/s,
404     'CORE::use after my sub use');
406 # CORE::__DATA__
409              .qq`CORE::__DATA__" 2>&1`;
410 like($a, qr/my sub __DATA__;\n.*CORE::__DATA__/s,
411     'CORE::__DATA__ after my sub __DATA__');
1637 CORE::state $x;
1638 CORE::say $x;
1639 CORE::given ($x) {
1640     CORE::when (3) {
1643     CORE::default {
1644         CORE::break;
1647 CORE::evalbytes '';
1648 () = CORE::__SUB__;
1649 () = CORE::fc $x;
1655 CORE::say $_;
1656 CORE::state $x;
1657 CORE::given ($x) {
1658     CORE::when (3) {
1661     CORE::default {
1662         CORE::break;
1665 CORE::evalbytes '';
1666 () = CORE::__SUB__;
1668 CORE::say $_;
1669 CORE::state $x;
1670 CORE::given ($x) {
1671     CORE::when (3) {
1674     CORE::default {
1675         CORE::break;
1678 CORE::evalbytes '';
1679 () = CORE::__SUB__;
1686 CORE::say $_;
1687 CORE::state $x;
1688 CORE::given ($x) {
1689     CORE::when (3) {
1692     CORE::default {
1693         CORE::break;
1696 CORE::evalbytes '';
1697 () = CORE::__SUB__;
1701 CORE::say $_;
1702 CORE::state $x;
1703 CORE::given ($x) {
1704     CORE::when (3) {
1707     CORE::default {
1708         CORE::break;
1711 CORE::evalbytes '';
1712 () = CORE::__SUB__;
1740 CORE::default { die; }
1741 CORE::if ($1) { die; }
1742 CORE::if ($1) { die; }
1743 CORE::elsif ($1) { die; }
1744 CORE::else { die; }
1745 CORE::for (die; $1; die) { die; }
1746 CORE::foreach $_ (1 .. 10) { die; }
1747 die CORE::foreach (1);
1748 CORE::given ($1) { die; }
1749 CORE::m[/];
1750 CORE::m?/?;
1751 CORE::package foo;
1752 CORE::no strict;
1753 () = (CORE::q['], CORE::qq["$_], CORE::qr//, CORE::qx[`]);
1754 CORE::require 1;
1755 CORE::s///;
1756 () = CORE::sub { die; } ;
1757 CORE::tr///;
1758 CORE::unless ($1) { die; }
1759 CORE::until ($1) { die; }
1760 die CORE::until $1;
1761 CORE::use strict;
1762 CORE::when ($1 ~~ $2) { die; }
1763 CORE::while ($1) { die; }
1764 die CORE::while $1;
1851 CORE::do({});
1852 CORE::do +{};
1857 CORE::do({});
1858 CORE::do({});
1870 () = (CORE::dump 1) + 3;
1885 CORE::dump (foo());
1905 () = (CORE::dump a) | 'b';
3072 # multiconcat with CORE::sprintf
3075 my $x = CORE::sprintf('%s%s', $a, $b);
3091 # CORE::foo special case in bareword parsing
3092 print $CORE::foo, $CORE::foo::bar;
3093 print @CORE::foo, @CORE::foo::bar;
3094 print %CORE::foo, %CORE::foo::bar;
3095 print $CORE::foo{'a'}, $CORE::foo::bar{'a'};
3096 print &CORE::foo, &CORE::foo::bar;
3097 print &CORE::foo(), &CORE::foo::bar();
3098 print \&CORE::foo, \&CORE::foo::bar;
3099 print *CORE::foo, *CORE::foo::bar;
3100 print stat CORE::foo::, stat CORE::foo::bar;
3101 print CORE::foo:: 1;
3102 print CORE::foo::bar 2;
3119 # trailing colons mixed with CORE
3121 print $CORE, $CORE::, $CORE::::;
3122 print @CORE, @CORE::, @CORE::::;
3123 print %CORE, %CORE::, %CORE::::;
3124 print $CORE{'a'}, $CORE::{'a'}, $CORE::::{'a'};
3125 print &CORE, &CORE::, &CORE::::;
3126 print &CORE(), &CORE::(), &CORE::::();
3127 print \&CORE, \&CORE::, \&CORE::::;
3128 print *CORE, *CORE::, *CORE::::;
3129 print stat CORE, stat CORE::::;
3130 print CORE 1;
3131 print CORE:::: 2;
3132 print $CORE::foo, $CORE::foo::, $CORE::foo::::;
3133 print @CORE::foo, @CORE::foo::, @CORE::foo::::;
3134 print %CORE::foo, %CORE::foo::, %CORE::foo::::;
3135 print $CORE::foo{'a'}, $CORE::foo::{'a'}, $CORE::foo::::{'a'};
3136 print &CORE::foo, &CORE::foo::, &CORE::foo::::;
3137 print &CORE::foo(), &CORE::foo::(), &CORE::foo::::();
3138 print \&CORE::foo, \&CORE::foo::, \&CORE::foo::::;
3139 print *CORE::foo, *CORE::foo::, *CORE::foo::::;
3140 print stat CORE::foo::, stat CORE::foo::::;
3141 print CORE::foo:: 1;
3142 print CORE::foo:::: 2;
3186 CORE::keys %h1;
3187 CORE::keys(%h1) / 2;
3188 $res = CORE::keys %h1;
3189 $res = CORE::keys %h2;
3190 $res = CORE::keys %$r1;
3191 $res = CORE::keys %$r2;
3192 $res = CORE::keys(%h1) / 2 - 1;
3193 $res = CORE::keys(%h2) / 2 - 1;
3194 $res = CORE::keys(%$r1) / 2 - 1;
3195 $res = CORE::keys(%$r2) / 2 - 1;