add basedir attribute
Chris Prather [Sun, 8 Jul 2007 23:37:11 +0000 (23:37 +0000)]
lib/MooseX/Daemonize.pm

index 6bdcadc..c02346f 100644 (file)
@@ -22,6 +22,13 @@ has progname => (
     },
 );
 
+has basedir => (
+    isa     => 'Str',
+    is      => 'ro',
+    lazy    => 1,
+    default => sub { return '/' },
+);
+
 has pidbase => (
     isa => 'Str',
     is  => 'ro',
@@ -81,6 +88,9 @@ sub start {
     <NULL> if (0);
     ## use critic
     
+    # Change to basedir
+    chdir $self->basedir;
+    
     $self->save_pid;
     $self->setup_signals;
     return $$;