sub source {
my ($var, $init, $code, $exp, $use, $global) = @_;
my $decl = $global ? "our $var; local $var;" : "my $var;";
my $test = $var =~ /^[@%]/ ? "\\$var" : $var;
return <<TESTCASE;
sub source {
my ($var, $init, $code, $exp, $use, $global) = @_;
my $decl = $global ? "our $var; local $var;" : "my $var;";
my $test = $var =~ /^[@%]/ ? "\\$var" : $var;
return <<TESTCASE;