-package MooseX::Daemonize::PidFile;
+package MooseX::Daemonize::Pid;
use strict; # because Kwalitee is pedantic
use Moose;
-use MooseX::Daemonize::Types;
-
our $VERSION = '0.01';
has 'pid' => (
is => 'rw',
isa => 'Int',
lazy => 1,
- default => sub {
- my $self = shift;
- $self->does_file_exist
- ? $self->file->slurp(chomp => 1)
- : $$
- }
-);
-
-has 'file' => (
- is => 'ro',
- isa => 'Path::Class::File',
- coerce => 1,
- required => 1,
- handles => [ 'remove' ]
+ default => sub { $$ }
);
-sub does_file_exist { -s (shift)->file }
-
-sub write {
- my $self = shift;
- $self->file->openw->print($self->pid);
-}
-
-sub running {
- my $self = shift;
- $self->does_file_exist
- ? (kill(0, $self->pid) ? 1 : 0)
- : 0;
-}
+sub is_running { kill(0, (shift)->pid) ? 1 : 0 }
1;
=head1 NAME
-MooseX::Daemonize::PidFile - PID file management for MooseX::Daemonize
+MooseX::Daemonize::Pid - PID management for MooseX::Daemonize
=head1 SYNOPSIS
=item pid Int
-=item file Path::Class::File | Str
-
=back
=head1 METHODS
=over
-=item remove
-
-=item write
-
-=item does_file_exist
-
-=item running
+=item is_running
=item meta()