okay,.. I think this is ready for release
Stevan Little [Mon, 3 Dec 2007 17:39:42 +0000 (17:39 +0000)]
t/01.filecreate.t
t/02.stdout.t

index 6293204..01cc2b7 100644 (file)
@@ -14,7 +14,11 @@ use MooseX::Daemonize;
 
     has filename => ( isa => 'Str', is => 'ro' );
     
-    after start => sub { $_[0]->create_file( $_[0]->filename ) };
+    after start => sub { 
+        my $self = shift;
+        $self->create_file( $self->filename ) 
+            if $self->is_daemon;
+    };
 
     sub create_file {
         my ( $self, $file ) = @_;
index f76a392..4d596c1 100644 (file)
@@ -14,7 +14,8 @@ my $Test = Test::Builder->new;
 
     after start => sub {
         my ($self) = @_;
-        $self->output_ok();
+        $self->output_ok() 
+            if $self->is_daemon;
     };
 
     sub output_ok {