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	dpavlin	151	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;