lib/Frey/Storage.pm

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

with 'Frey::Path';

#use YAML::Syck; # XXX doesn't play nice with Continuity
use YAML qw//;
use File::Slurp qw//;
use Storable qw//;
use Carp qw/croak carp/;

=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 ) = @_;
        $self->mkbasepath( $filename );
        if ( $filename =~ m{\.ya?ml$}i ) {
                YAML::DumpFile( $filename, $data );
        } elsif ( $filename =~ m{\.sto?r?a?b?l?e?$} ) {
                Storable::store $data => $filename;
        } else {
                croak "without extension we can save only scalar data" if ref($data);
                File::Slurp::write_file( $filename, $data );
        }
        carp "created $filename ", -s $filename;
}

=head2 load

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

=cut

sub load {
        my ( $self, $filename ) = @_;
        return if ! -e $filename;
        my $data;
        if ( $filename =~ m{\.ya?ml}i ) {
                $data = YAML::LoadFile( $filename );
        } elsif ( $filename =~ m{\.stor?a?b?l?e?$} ) {
                $data = Storable::retrieve $filename;
        } else {
                $data = File::Slurp::read_file( $filename );
        }
        $self->storage_timestamp->{ $filename } = _path_time( $filename );
        return $data;
}

=head2 reload

Reload file if on-disk copy have changed

  my $new_data = $o->reload( 'filename.yml' );

=cut

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

sub reload {
        my ( $self, $filename ) = @_;
        return if defined $self->storage_timestamp->{ $filename } && $self->storage_timestamp->{ $filename } == _path_time( $filename );
        warn "# reload $filename" if $self->debug;
        $self->load( $filename );
}

no Moose::Role;

1;
1	package Frey::Storage;
2	use Moose::Role;
3
4	with 'Frey::Path';
5
6	#use YAML::Syck; # XXX doesn't play nice with Continuity
7	use YAML qw//;
8	use File::Slurp qw//;
9	use Storable qw//;
10	use Carp qw/croak carp/;
11
12	=head2 store
13
14	$o->store( 'filename.yml', $data );
15
16	=cut
17
18	has 'storage_timestamp' => (
19	is => 'rw',
20	isa => 'HashRef[Int]',
21	default => sub { {} },
22	);
23
24	sub store {
25	my $self = shift;
26	my ( $filename, $data ) = @_;
27	$self->mkbasepath( $filename );
28	if ( $filename =~ m{\.ya?ml$}i ) {
29	YAML::DumpFile( $filename, $data );
30	} elsif ( $filename =~ m{\.sto?r?a?b?l?e?$} ) {
31	Storable::store $data => $filename;
32	} else {
33	croak "without extension we can save only scalar data" if ref($data);
34	File::Slurp::write_file( $filename, $data );
35	}
36	carp "created $filename ", -s $filename;
37	}
38
39	=head2 load
40
41	$data = $o->load( 'filename.yml' );
42
43	=cut
44
45	sub load {
46	my ( $self, $filename ) = @_;
47	return if ! -e $filename;
48	my $data;
49	if ( $filename =~ m{\.ya?ml}i ) {
50	$data = YAML::LoadFile( $filename );
51	} elsif ( $filename =~ m{\.stor?a?b?l?e?$} ) {
52	$data = Storable::retrieve $filename;
53	} else {
54	$data = File::Slurp::read_file( $filename );
55	}
56	$self->storage_timestamp->{ $filename } = _path_time( $filename );
57	return $data;
58	}
59
60	=head2 reload
61
62	Reload file if on-disk copy have changed
63
64	my $new_data = $o->reload( 'filename.yml' );
65
66	=cut
67
68	sub _path_time {
69	(stat( $_[0] ))[9]; # mtime
70	}
71
72	sub reload {
73	my ( $self, $filename ) = @_;
74	return if defined $self->storage_timestamp->{ $filename } && $self->storage_timestamp->{ $filename } == _path_time( $filename );
75	warn "# reload $filename" if $self->debug;
76	$self->load( $filename );
77	}
78
79	no Moose::Role;
80
81	1;