package MooseX::Daemonize;
use strict; # because Kwalitee is pedantic
use Moose::Role;
-use MooseX::Types::Path::Class;
-use Moose::Util::TypeConstraints;
-our $VERSION = 0.05;
+use MooseX::Daemonize::Types;
-use Carp 'carp';
-use Proc::Daemon;
-use MooseX::Daemonize::PidFile;
+our $VERSION = 0.05;
with qw[
MooseX::Daemonize::Core
- MooseX::Daemonize::SignalHandling
+ MooseX::Daemonize::WithSignalHandling
+ MooseX::Daemonize::WithPidFile
MooseX::Getopt
];
},
);
-has basedir => (
+has pidbase => (
isa => 'Path::Class::Dir',
is => 'ro',
coerce => 1,
- required => 1,
+ required => 1,
lazy => 1,
- default => sub { Path::Class::Dir->new('/') },
+ default => sub { Path::Class::Dir->new('var', 'run') },
);
-has pidbase => (
+has basedir => (
isa => 'Path::Class::Dir',
is => 'ro',
coerce => 1,
- required => 1,
+ required => 1,
lazy => 1,
- default => sub { Path::Class::Dir->new('var', 'run') },
-);
-
-coerce 'MooseX::Daemonize::PidFile'
- => from 'Str'
- => via { MooseX::Daemonize::PidFile->new( file => $_ ) };
-
-has pidfile => (
- isa => 'MooseX::Daemonize::PidFile',
- is => 'rw',
- lazy => 1,
- required => 1,
- coerce => 1,
- predicate => 'has_pidfile',
- default => sub {
- my $file = $_[0]->pidbase . '/' . $_[0]->progname . '.pid';
- confess "Cannot write to $file" unless (-e $file ? -w $file : -w $_[0]->pidbase);
- MooseX::Daemonize::PidFile->new( file => $file );
- },
+ default => sub { Path::Class::Dir->new('/') },
);
has foreground => (
default => sub { 0 },
);
-
has stop_timeout => (
isa => 'Int',
is => 'rw',
default => sub { 2 }
);
+sub init_pidfile {
+ my $self = shift;
+ my $file = $self->pidbase . '/' . $self->progname . '.pid';
+ confess "Cannot write to $file" unless (-e $file ? -w $file : -w $self->pidbase);
+ MooseX::Daemonize::Pid::File->new( file => $file );
+}
+
sub start {
my ($self) = @_;
- confess "instance already running" if $self->pidfile->running;
+ confess "instance already running" if $self->pidfile->is_running;
$self->daemonize unless $self->foreground;
$self->pidfile->pid($$);
- # Avoid 'stdin reopened for output' warning with newer perls
- ## no critic
- open( NULL, '/dev/null' );
- <NULL> if (0);
- ## use critic
-
# Change to basedir
chdir $self->basedir;
return unless ( CORE::kill 0 => $pid or $!{EPERM} );
# IF it is still running
- carp "$pid doesn't seem to want to die."; # AHH EVIL DEAD!
+ Carp::carp "$pid doesn't seem to want to die."; # AHH EVIL DEAD!
};
1;
The base for our bid, defaults to /var/run/$progname
-=item pidfile MooseX::Daemonize::PidFile | Str
+=item pidfile MooseX::Daemonize::Pid::File | Str
The file we store our PID in, defaults to /var/run/$progname