From: Chris Prather <chris@prather.org>
Date: Tue, 22 May 2007 21:46:32 +0000 (+0000)
Subject: Adding Cogwheel, a Moose wrapped Sprocket
X-Git-Tag: 0.01~6
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMooseX-Daemonize.git;a=commitdiff_plain;h=a392fa535f5dff96ae83c33b17ba272db0f34b2b

Adding Cogwheel, a Moose wrapped Sprocket
Update MooseX::Daemonize to better choose a default pidfile name (came out in Cogwheel testing)
---

diff --git a/lib/MooseX/Daemonize.pm b/lib/MooseX/Daemonize.pm
index 62e7034..bd9c203 100644
--- a/lib/MooseX/Daemonize.pm
+++ b/lib/MooseX/Daemonize.pm
@@ -1,19 +1,25 @@
 package MooseX::Daemonize;
-use strict; # because Kwalitee is pedantic
+use strict;    # because Kwalitee is pedantic
 use Moose::Role;
 
 our $VERSION = 0.01;
 use Carp;
 use Proc::Daemon;
+
 use File::Flock;
 use File::Slurp;
 
 with qw(MooseX::Getopt);
 
 has progname => (
-    isa     => 'Str',
-    is      => 'ro',
-    default => sub { lc $_[0]->meta->name },
+    isa      => 'Str',
+    is       => 'ro',
+    lazy     => 1,
+    required => 1,
+    default  => sub {
+        ( my $name = lc $_[0]->meta->name ) =~ s/::/_/g;
+        return $name;
+    },
 );
 
 has pidbase => (
@@ -29,7 +35,7 @@ has pidfile => (
     is       => 'ro',
     lazy     => 1,
     required => 1,
-    default  => sub { $_[0]->pidbase .'/'. $_[0]->progname . '.pid' },
+    default  => sub { $_[0]->pidbase . '/' . $_[0]->progname . '.pid' },
 );
 
 has foreground => (
@@ -46,17 +52,20 @@ sub check {
     if ( -e $pidfile ) {
         my $prog = $self->progname;
         chomp( my $pid = read_file($pidfile) );
-        unless ( kill 0 => $pid or $!{EPERM} ) {
-            carp "$prog already running ($pid).";
-        }
-        else {
-            carp "$prog not running but $pidfile exists. Perhaps it is stale?";
+        if ( kill 0 => $pid ) {
+            croak "$prog already running ($pid).";
         }
+        carp "$prog not running but $pidfile exists. Perhaps it is stale?";
         return 1;
     }
     return 0;
 }
 
+sub daemonize {
+    my ($self) = @_;
+    Proc::Daemon::Init;
+}
+
 sub start {
     my ($self) = @_;
     return if $self->check;
@@ -67,7 +76,7 @@ sub start {
     lock( $pidfile, undef, 'nonblocking' )
       or croak "Could not lock PID file $pidfile: $!";
     write_file( $pidfile, "$$\n" );
-
+    unlock($pidfile);
     $self->setup_signals;
     return;
 }
@@ -76,13 +85,15 @@ sub stop {
     my ($self) = @_;
     my $pidfile = $self->pidfile;
     unless ( -e $pidfile ) {
-        croak $self->progname . 'is not currently running.';
+        carp $self->progname . ' is not currently running.';
+        return;
     }
+    chomp( my $pid = read_file($pidfile) );
+    $self->kill($pid) unless $self->foreground();
     lock( $pidfile, undef, 'nonblocking' )
       or croak "Could not lock PID file $pidfile: $!";
-    chomp( my $pid = read_file($pidfile) );
-    $self->kill($pid);
     unlink($pidfile);
+    unlock($pidfile);
     return;
 }
 
@@ -92,11 +103,6 @@ sub restart {
     $self->start();
 }
 
-sub daemonize {
-    my ($self) = @_;
-    Proc::Daemon::Init;
-}
-
 sub setup_signals {
     my $self = @_;
     $SIG{INT} = sub { $_[0]->handle_sigint; };
@@ -108,8 +114,8 @@ sub handle_sighup { return; }
 
 sub kill {
     my ( $self, $pid ) = @_;
-    unless ( kill 0 => $pid or $!{EPERM} ) {
-        carp "$pid appears dead.";
+    unless ( kill 0 => $pid ) {
+        carp "$pid already appears dead.";
         return;
     }