view release on metacpan or  search on metacpan

t/TestHttpd.pm  view on Meta::CPAN

    if (my $env = $_{environ}) {
	my ($fh, $name) = tempfile();
	while (my ($k,$v) = each %$env) {
	    $v =~ s/(["\\])/\\$1/g;
	    print $fh "$k=\"$v\"\n";
	    print $fh "export $k\n";
	}
	close $fh;
	$_{environ} = $name;
    }
    $class->SUPER::new(server => "$^X ".$INC{'MockHttpd.pm'}, %_);
}

1;