view release on metacpan or  search on metacpan

t/lexicals.t  view on Meta::CPAN

use strict;
use warnings;

use Data::Dump::Streamer;
use Test::More tests => 14;
require "./t/test_helper.pl";
diag "\nPadWalker ",
    eval "use PadWalker 0.99; 1" ? qq($PadWalker::VERSION is) : "isn't",
    " installed";

$::No_Redump= $::No_Redump= 1;
$::No_Dumper= $::No_Dumper= 1;

{
    my $v= 'foo';
    my @v= ('f', 'o', 'o');
    my $z= 1;
    no warnings;

    sub get_sub {
        my @v= (@v, 1);
        my @y= ('b', 'a', 'r');
        my $x= join " ", @_, @v, $v, $z;

        sub {
            my @y= ($x, "A" .. "G", @y);
            my @v= ("M" .. "R", @v);
            my $x= join ":", @y, @v, $z || 'undef';
            $x . "!!";
        }, sub { $x= shift; $z= shift if @_; }, do {
            my @y= split //, 'fuzz';
            sub { return join "+", $z, $x, @y; }
        },;

    }
}

{
    my $expect;
    if ($] >= 5.013_001) {
        $expect= <<'EXPECT';
my ($x,$z,@v,@y,@y_eclipse_1);
$x = 'f o o 1 foo 1';
$z = 1;
@v = (
       'f',
       ( 'o' ) x 2,
       1
     );
@y = (
       'b',
       'a',
       'r'
     );
@y_eclipse_1 = (
                 'f',
                 'u',
                 ( 'z' ) x 2
               );
$CODE1 = sub {
           my(@y) = ($x, ('A', 'B', 'C', 'D', 'E', 'F', 'G'), @y);
           my(@v) = (('M', 'N', 'O', 'P', 'Q', 'R'), @v);
           my $x = join(':', @y, @v, $z || 'undef');
           $x . '!!';
         };
$CODE2 = sub {
           $x = shift();
           $z = shift() if @_;