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