view release on metacpan or  search on metacpan

lib/DynGig/CLI/Service.pm  view on Meta::CPAN

    my $handle = File::Temp->new();
    my $temp = $handle->filename();

    printf $handle "#!/bin/sh\n";
    printf $handle @_;

    $path = File::Spec->join( $path, 'run' );
    $handle->unlink_on_destroy( 0 );

    croak "failed to mv $temp $path" if system 'mv', $temp, $path;
    croak "chmod $path: $!" unless chmod 0544, $path;
}

=head1 NOTE

See DynGig::CLI

=cut

1;