withpidfile should write its pidfile :)

[gitmo/MooseX-Daemonize.git] / lib / MooseX / Daemonize / WithPidFile.pm

package MooseX::Daemonize::WithPidFile;
use strict;
use Moose::Role;

use MooseX::Daemonize::Pid::File;

our $VERSION = 0.01;

with 'MooseX::Daemonize::Core';

requires 'init_pidfile';

has pidfile => (
    isa       => 'MooseX::Daemonize::Pid::File',
    is        => 'rw',
    lazy      => 1,
    required  => 1,
    coerce    => 1,
    predicate => 'has_pidfile',
    builder   => 'init_pidfile',
);

after 'daemonize' => sub {
    my $self = shift;
    # NOTE:
    # make sure that we do not have 
    # any bad PID values stashed around
    # - SL
    $self->pidfile->clear_pid;
    $self->pidfile->write if $self->is_daemon;
};

1;

__END__

=pod

=cut