X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMooseX%2FStorage%2FEngine%2FIO%2FFile.pm;h=7756ac3ff42837dede0cd82afa75f15c94f453bd;hb=topic%2Fload_options_at_runtime;hp=e080d4c6f3732aa98a04e2b7c94a6443833e926d;hpb=4f94761e9fd6f813b81a201c50aecd5bdac2a80f;p=gitmo%2FMooseX-Storage.git

diff --git a/lib/MooseX/Storage/Engine/IO/File.pm b/lib/MooseX/Storage/Engine/IO/File.pm
index e080d4c..7756ac3 100644
--- a/lib/MooseX/Storage/Engine/IO/File.pm
+++ b/lib/MooseX/Storage/Engine/IO/File.pm
@@ -1,8 +1,6 @@
 package MooseX::Storage::Engine::IO::File;
 use Moose;
 
-use IO::File;
-
 has 'file' => (
     is       => 'ro',
     isa      => 'Str',
@@ -11,6 +9,8 @@ has 'file' => (
 
 sub load {
     my ($self) = @_;
+
+    require IO::File;
     my $fh = IO::File->new($self->file, 'r')
         || confess "Unable to open file (" . $self->file . ") for loading : $!";
     return do { local $/; <$fh>; };
@@ -18,6 +18,8 @@ sub load {
 
 sub store {
     my ($self, $data) = @_;
+
+    require IO::File;
     my $fh = IO::File->new($self->file, 'w')
         || confess "Unable to open file (" . $self->file . ") for storing : $!";
     $fh->binmode(':utf8') if utf8::is_utf8($data);