view release on metacpan or  search on metacpan

t/02.rewrite.t  view on Meta::CPAN

#!perl
use utf8; use Acme::ǝmɔA;

if(!@ARGV) {
  eval q{ 
    use Test::More tests => 2;
    ok 1;
    ok run_again() =~ /alright!/;
  };
} else {
  print "alright!";
}

sub run_again {
  my $file = __FILE__;
  `$^X $file again`;
}