File Coverage

blib/lib/Win32/Detached.pm

Criterion	Covered	Total	%
statement	8	10	80.0
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	12	14	85.7

use strict;
use warnings;

package Win32::Detached;
BEGIN {
  $Win32::Detached::VERSION = '1.103080';
}

# ABSTRACT: daemonize perl scripts under windows, without a console window


use Win32;
use Win32::Process;
use Cwd;
use English;

check_args();


sub skip_flag { '--no_detach' }


sub check_args {

    if ( grep { $_ eq skip_flag() } @ARGV ) {
        @ARGV = grep { $_ ne skip_flag() } @ARGV;
        return;
    }

    return if $COMPILING;
    return if $PROGRAM_NAME =~ m/release-pod-coverage/;

    return detach();
}


sub detach {

    my @cmd_parts = ( $EXECUTABLE_NAME, $PROGRAM_NAME, @ARGV, skip_flag() );
    @cmd_parts = map { tr/ // ? qq["$_"] : $_ } @cmd_parts; # check all components for spaces and wrap if necessary

    # build command string
    my $command = join " ", @cmd_parts;

    my $process;
    my @proc_params = (
        \$process,
        $EXECUTABLE_NAME,
        $command,
        0,
        DETACHED_PROCESS,
        cwd
    );

    Win32::Process::Create( @proc_params ) or die Win32::FormatMessage(Win32::GetLastError());

    exit;
}

1;

__END__