--- trunk/lib/Frey/Storage.pm 2008/07/16 23:17:59 152 +++ trunk/lib/Frey/Storage.pm 2008/07/16 23:21:19 153 @@ -1,7 +1,8 @@ package Frey::Storage; use Moose::Role; -use YAML::Syck; +#use YAML::Syck; # XXX doesn't play nice with Continuity +use YAML qw/LoadFile DumpFile/; =head2 store @@ -31,6 +32,7 @@ sub load { my ( $self, $filename ) = @_; $filename .= '.yml'; + return if ! -e $filename; $self->storage_timestamp->{ $filename } = _path_time( $filename ); LoadFile( $filename ); } @@ -39,7 +41,7 @@ Reload file if on-disk copy have changed - $o->reload( 'filename.yml', \$data ); + my $new_data = $o->reload( 'filename.yml' ); =cut @@ -48,11 +50,11 @@ } sub reload { - my ( $self, $filename, $data ) = @_; + my ( $self, $filename ) = @_; my $path = $filename . '.yml'; return if ( $self->storage_timestamp->{ $path } == _path_time( $path ) ); warn "# reload $filename" if $self->debug; - $$data = $self->load( $filename ); - $data; + $self->load( $filename ); } + 1;