use strict; # because Kwalitee is pedantic
use Moose::Role;
use MooseX::Types::Path::Class;
+use File::Path qw(make_path);
-our $VERSION = '0.13';
+our $VERSION = '0.15';
with 'MooseX::Daemonize::WithPidFile',
'MooseX::Getopt';
sub init_pidfile {
my $self = shift;
my $file = $self->pidbase . '/' . $self->progname . '.pid';
+
+ if ( !-d $self->pidbase ) {
+ make_path( $self->pidbase, { error => \my $err } );
+ if (@$err) {
+ confess sprintf( "Cannot create pidbase directory '%s': %s",
+ $self->pidbase, @$err );
+ }
+ }
+
confess "Cannot write to $file" unless (-e $file ? -w $file : -w $self->pidbase);
MooseX::Daemonize::Pid::File->new( file => $file );
}
=head1 VERSION
-This document describes MooseX::Daemonize version 0.05
+This document describes MooseX::Daemonize version 0.15
+
+=head1 WARNING
+
+The maintainers of this module now recommend using L<Daemon::Control> instead.
=head1 SYNOPSIS
=head1 SEE ALSO
-L<Proc::Daemon>, L<Daemon::Generic>
+L<Daemon::Control>, L<Proc::Daemon>, L<Daemon::Generic>
=head1 AUTHORS