1use strict; use warnings; 2package TestInlineSetup; 3 4our $DIAG = eval { 5 require diagnostics; 6 diagnostics->import(); 7 1; 8}; 9 10use File::Path; 11use File::Spec; 12 13sub import { 14 my ($package, $option) = @_; 15 $option ||= ''; 16} 17 18our $DIR; 19BEGIN { 20 ($_, $DIR) = caller(2); 21 $DIR =~ s/.*?(\w+)\.t$/$1/ or die; 22 $DIR = "_Inline_$DIR.$$"; 23 rmtree($DIR) if -d $DIR; 24 mkdir($DIR) or die "$DIR: $!\n"; 25} 26my $absdir = File::Spec->rel2abs($DIR); 27($absdir) = $absdir =~ /(.*)/; # untaint 28 29my $startpid = $$; 30END { 31 if($$ == $startpid) { # only when original process exits 32 rmtree($absdir); 33 } 34} 35 361; 37