# Launch PhantomJs $options{ launch_exe } ||= 'phantomjs'; (my $ghostdir_default= __FILE__) =~ s!\.pm$!!; $ghostdir_default= File::Spec->catfile( $ghostdir_default, 'ghostdriver', 'main.js' ); $options{ launch_ghostdir } ||= $ghostdir_default; $options{ launch_arg } ||= []; push @{ $options{ launch_arg }}, "--PhantomJS=$options{ port }"; push @{ $options{ launch_arg }}, "--logLevel=\U$options{ log }"; my $cmd= "| $options{ launch_exe } $options{ launch_ghostdir } @{ $options{ launch_arg } }"; #warn $cmd; $options{ pid } ||= open my $fh, $cmd or die "Couldn't launch [$cmd]: $! / $?";