X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMooseX-Daemonize.git;a=blobdiff_plain;f=lib%2FMooseX%2FDaemonize%2FPid%2FFile.pm;h=2b3c88af2f4f99375d46d7fe74ebf365e184d395;hp=6df57334d3d8f95ddaae157db89857472bf22e9e;hb=8ac4733fe6918fb1449262f56b5c371315c6cfb8;hpb=d8985b7d3e86e39f0f78636e58019504b805adac

diff --git a/lib/MooseX/Daemonize/Pid/File.pm b/lib/MooseX/Daemonize/Pid/File.pm
index 6df5733..2b3c88a 100644
--- a/lib/MooseX/Daemonize/Pid/File.pm
+++ b/lib/MooseX/Daemonize/Pid/File.pm
@@ -1,8 +1,14 @@
 package MooseX::Daemonize::Pid::File;
 use strict;    # because Kwalitee is pedantic
 use Moose;
+use Moose::Util::TypeConstraints;
+use MooseX::Types::Path::Class;
 
-use MooseX::Daemonize::Types;
+coerce 'MooseX::Daemonize::Pid::File' 
+    => from 'Str' 
+        => via { MooseX::Daemonize::Pid::File->new( file => $_ ) }
+    => from 'Path::Class::File' 
+        => via { MooseX::Daemonize::Pid::File->new( file => $_ ) };
 
 our $VERSION = '0.01';
 
@@ -29,7 +35,9 @@ sub does_file_exist { -s (shift)->file }
 
 sub write {
     my $self = shift;
-    $self->file->openw->print($self->pid);
+    my $fh = $self->file->openw;
+    $fh->print($self->pid);
+    $fh->close;
 }
 
 override 'is_running' => sub {
@@ -55,8 +63,6 @@ MooseX::Daemonize::Pid::File - PID file management for MooseX::Daemonize
 
 =over
 
-=item pid Int
-
 =item file Path::Class::File | Str
 
 =back