X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMooseX%2FStorage%2FEngine%2FIO%2FFile.pm;h=defa4c8777a549551822b892fb91b87e42f6e537;hb=06a66732eb48842ce6bea1259cf4570cc34d99ff;hp=b5ba99d145d0f040b05de0dd2edc25b644503c04;hpb=f6e1331f9a610298585caaffe32ef3eb69768722;p=gitmo%2FMooseX-Storage.git

diff --git a/lib/MooseX/Storage/Engine/IO/File.pm b/lib/MooseX/Storage/Engine/IO/File.pm
index b5ba99d..defa4c8 100644
--- a/lib/MooseX/Storage/Engine/IO/File.pm
+++ b/lib/MooseX/Storage/Engine/IO/File.pm
@@ -14,13 +14,15 @@ has 'file' => (
 
 sub load { 
 	my ($self) = @_;
-	my $fh = IO::File->new($self->file, 'r');
+	my $fh = IO::File->new($self->file, 'r')
+	    || confess "Unable to open file (" . $self->file . ") for loading : $!";
 	return do { local $/; <$fh>; };
 }
 
 sub store {
 	my ($self, $data) = @_;
-	my $fh = IO::File->new($self->file, 'w');
+	my $fh = IO::File->new($self->file, 'w')
+		|| confess "Unable to open file (" . $self->file . ") for storing : $!";
 	print $fh $data;
 }