lib/Frey/Storage.pm

package Frey::Storage;
use Moose::Role;

use YAML::Syck;

=head2 store

  $o->store( 'filename.yml', $data );

=cut

has 'storage_timestamp' => (
        is => 'rw',
        isa => 'HashRef[Int]',
        default => sub { {} },
);

sub store {
        my $self = shift;
        my ( $filename, $data ) = @_;
        $filename .= '.yml';
        DumpFile( $filename, $data );
}

=head2 load

  $data = $o->load( 'filename.yml' );

=cut

sub load {
        my ( $self, $filename ) = @_;
        $filename .= '.yml';
        $self->storage_timestamp->{ $filename } = _path_time( $filename );
        LoadFile( $filename );
}

=head2 reload

Reload file if on-disk copy have changed

  $o->reload( 'filename.yml', \$data );

=cut

sub _path_time {
        (stat( $_[0] ))[9]; # mtime
}

sub reload {
        my ( $self, $filename, $data ) = @_;
        my $path = $filename . '.yml';
        return if ( $self->storage_timestamp->{ $path } == _path_time( $path ) );
        warn "# reload $filename" if $self->debug;
        $$data = $self->load( $filename );
        $data;
}
1;
1	package Frey::Storage;
2	use Moose::Role;
3
4	use YAML::Syck;
5
6	=head2 store
7
8	$o->store( 'filename.yml', $data );
9
10	=cut
11
12	has 'storage_timestamp' => (
13	is => 'rw',
14	isa => 'HashRef[Int]',
15	default => sub { {} },
16	);
17
18	sub store {
19	my $self = shift;
20	my ( $filename, $data ) = @_;
21	$filename .= '.yml';
22	DumpFile( $filename, $data );
23	}
24
25	=head2 load
26
27	$data = $o->load( 'filename.yml' );
28
29	=cut
30
31	sub load {
32	my ( $self, $filename ) = @_;
33	$filename .= '.yml';
34	$self->storage_timestamp->{ $filename } = _path_time( $filename );
35	LoadFile( $filename );
36	}
37
38	=head2 reload
39
40	Reload file if on-disk copy have changed
41
42	$o->reload( 'filename.yml', \$data );
43
44	=cut
45
46	sub _path_time {
47	(stat( $_[0] ))[9]; # mtime
48	}
49
50	sub reload {
51	my ( $self, $filename, $data ) = @_;
52	my $path = $filename . '.yml';
53	return if ( $self->storage_timestamp->{ $path } == _path_time( $path ) );
54	warn "# reload $filename" if $self->debug;
55	$$data = $self->load( $filename );
56	$data;
57	}
58	1;