+ my @base = ([ $var, $init, $code, $exp, $use ]);
+ if ($var =~ /\$/) {
+ my @nonref = @{$base[0]};
+ $nonref[0] =~ s/^\$/$sigil/;
+ for ($nonref[1], $nonref[2]) {
+ s/\Q$sigil$var\E/$nonref[0]/g;
+ s/\Q$var\E\->/$var/g;
+ }
+ my $simple = $nonref[2] !~ /->/;
+ my $plain_deref = $nonref[2] =~ /\Q$nonref[0]\E/;
+ my $empty = { '@' => '[ ]', '%' => '{ }' }->{$sigil};
+ if (($simple
+ and ( $nonref[3] =~ m!qr/\^Reference vivification forbidden.*?/!
+ or $nonref[3] =~ m!qr/\^Can't vivify reference.*?/!))
+ or ($plain_deref
+ and $nonref[3] =~ m!qr/\^Can't use an undefined value as a.*?/!)) {
+ $nonref[1] = '';
+ $nonref[2] = 1;
+ $nonref[3] = "'', 1, $empty";
+ }
+ $nonref[3] =~ s/,\s*undef\s*$/, $empty/;
+ push @base, \@nonref;
+ }
+ my @testcases = map {
+ my ($var, $init, $code, $exp, $use) = @$_;