samples/gen_lvalue_test

   1 #!perl
   2
   3 use strict;
   4 use warnings;
   5 use autodie;
   6
   7 open my $in,  '<', 't/10-base.t';
   8 open my $out, '>', 't/20-lvalue.t';
   9
  10 while (<$in>) {
  11  if (/use Variable::Temp/) {
  12   print $out "use Variable::Temp 'temp';\n";
  13  } elsif (/use +Test::More +(tests *=>.*); *$/) {
  14   print $out <<"  HEAD";
  15 use Test::More;
  16
  17 BEGIN {
  18  if ("\$]" < 5.014) {
  19   plan skip_all => 'perl 5.14 required to use lvalue temp()';
  20  } else {
  21   plan $1;
  22  }
  23 }
  24   HEAD
  25  } else {
  26   s/set_temp(.*?)=>/temp$1=/g;
  27   s/set_temp(.*?);/temp$1;/g;
  28   print $out $_;
  29  }
  30 }
  31
  32 close $out;
  33 close $in;