CWMP/Store/YAML.pm

# Dobrica Pavlinusic, <dpavlin@rot13.org> 10/26/07 21:37:12 CEST
package CWMP::Store::YAML;

use strict;
use warnings;

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

use YAML::Syck;

=head1 NAME

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

=cut

my $full_path;

sub full_path {
        my ( $self, $path ) = @_;
        $full_path = "$path/yaml";
        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 ) = @_;
        DumpFile( $file, $hash );
}

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

sub extension { '.yml' };

1;
1	dpavlin	152	# Dobrica Pavlinusic, <dpavlin@rot13.org> 10/26/07 21:37:12 CEST
2			package CWMP::Store::YAML;
3
4			use strict;
5			use warnings;
6
7	dpavlin	225	use CWMP::Store::HASH;
8			use base qw/CWMP::Store::HASH/;
9
10	dpavlin	223	use YAML::Syck;
11	dpavlin	152
12			=head1 NAME
13
14			CWMP::Store::YAML - use YAML as storage
15
16			=cut
17
18	dpavlin	225	my $full_path;
19	dpavlin	152
20	dpavlin	225	sub full_path {
21			my ( $self, $path ) = @_;
22			$full_path = "$path/yaml";
23	dpavlin	229	warn "## full_path: $full_path" if $debug;
24	dpavlin	225	return $full_path;
25			}
26	dpavlin	152
27	dpavlin	225	sub file {
28			my ( $self, $uid ) = @_;
29			my $file = "$full_path/$uid" . $self->extension;
30	dpavlin	229	warn "## file -> $file" if $debug;
31	dpavlin	225	return $file;
32	dpavlin	152	}
33
34	dpavlin	225	sub save_hash {
35			my ( $self, $file, $hash ) = @_;
36			DumpFile( $file, $hash );
37	dpavlin	152	}
38
39	dpavlin	225	sub load_hash {
40			my ( $self, $file ) = @_;
41			LoadFile( $file );
42	dpavlin	152	}
43
44	dpavlin	225	sub extension { '.yml' };
45	dpavlin	152
46			1;