CWMP/Store/JSON.pm

package CWMP::Store::JSON;

use strict;
use warnings;

use CWMP::Store::HASH;
use base qw/CWMP::Store::HASH/;

use JSON::XS;
use File::Slurp;

=head1 NAME

CWMP::Store::YAML - use YAML as storage

=cut

my $full_path;

sub full_path {
        my ( $self, $path ) = @_;
        $full_path = "$path/json";
        warn "## full_path: $full_path" if $debug;
        return $full_path;
}

sub file {
        my ( $self, $uid ) = @_;
        my $file = "$full_path/$uid" . $self->extension;
        warn "## file -> $file" if $debug;
        return $file;
}

sub save_hash {
        my ( $self, $file, $hash ) = @_;
        write_file( $file, encode_json $hash );
}

sub load_hash {
        my ( $self, $file ) = @_;
        decode_json read_file( $file );
}

sub extension { '.js' };

1;
1	package CWMP::Store::JSON;
2
3	use strict;
4	use warnings;
5
6	use CWMP::Store::HASH;
7	use base qw/CWMP::Store::HASH/;
8
9	use JSON::XS;
10	use File::Slurp;
11
12	=head1 NAME
13
14	CWMP::Store::YAML - use YAML as storage
15
16	=cut
17
18	my $full_path;
19
20	sub full_path {
21	my ( $self, $path ) = @_;
22	$full_path = "$path/json";
23	warn "## full_path: $full_path" if $debug;
24	return $full_path;
25	}
26
27	sub file {
28	my ( $self, $uid ) = @_;
29	my $file = "$full_path/$uid" . $self->extension;
30	warn "## file -> $file" if $debug;
31	return $file;
32	}
33
34	sub save_hash {
35	my ( $self, $file, $hash ) = @_;
36	write_file( $file, encode_json $hash );
37	}
38
39	sub load_hash {
40	my ( $self, $file ) = @_;
41	decode_json read_file( $file );
42	}
43
44	sub extension { '.js' };
45
46	1;