1 package MooseX::Daemonize::PidFile;
2 use strict; # because Kwalitee is pedantic
4 use MooseX::Types::Path::Class;
14 $self->does_file_exist
15 ? $self->file->slurp(chomp => 1)
22 isa => 'Path::Class::File',
25 handles => [ 'remove' ]
28 sub does_file_exist { -s (shift)->file }
32 $self->file->openw->print($self->pid);
37 $self->does_file_exist
38 ? (kill(0, $self->pid) ? 1 : 0)
50 MooseX::Daemonize::PidFile - PID file management for MooseX::Daemonize
62 =item file Path::Class::File | Str
80 The C<meta()> method from L<Class::MOP::Class>
88 =head1 INCOMPATIBILITIES
92 =head1 BUGS AND LIMITATIONS
94 No bugs have been reported.
96 Please report any bugs or feature requests to
97 C<bug-acme-dahut-call@rt.cpan.org>, or through the web interface at
98 L<http://rt.cpan.org>.
102 Stevan Little C<< <stevan@cpan.org> >>
104 =head1 LICENCE AND COPYRIGHT
106 Copyright (c) 2007, Chris Prather C<< <perigrin@cpan.org> >>. All rights
109 This module is free software; you can redistribute it and/or
110 modify it under the same terms as Perl itself. See L<perlartistic>.
113 =head1 DISCLAIMER OF WARRANTY
115 BECAUSE THIS SOFTWARE IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY
116 FOR THE SOFTWARE, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN
117 OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES
118 PROVIDE THE SOFTWARE "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER
119 EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
120 WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE
121 ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE SOFTWARE IS WITH
122 YOU. SHOULD THE SOFTWARE PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL
123 NECESSARY SERVICING, REPAIR, OR CORRECTION.
125 IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING
126 WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR
127 REDISTRIBUTE THE SOFTWARE AS PERMITTED BY THE ABOVE LICENCE, BE
128 LIABLE TO YOU FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL,
129 OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE
130 THE SOFTWARE (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA BEING
131 RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD PARTIES OR A
132 FAILURE OF THE SOFTWARE TO OPERATE WITH ANY OTHER SOFTWARE), EVEN IF
133 SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF