lib/CWMP/Store.pm

# Dobrica Pavlinusic, <dpavlin@rot13.org> 06/22/07 14:35:38 CEST
package CWMP::Store;

use strict;
use warnings;


use base qw/Class::Accessor/;
__PACKAGE__->mk_accessors( qw/
debug
path

_db
/ );

#use Carp qw/confess/;
use Data::Dump qw/dump/;
use DBM::Deep;

=head1 NAME

CWMP::Store - parsist CPE state on disk

=head1 METHODS

=head2 new

  my $store = CWMP::Store->new({
        path => '/path/to/state.db',
        debug => 1,
  });

=cut

sub new {
        my $class = shift;
        my $self = $class->SUPER::new( @_ );

        warn "created ", __PACKAGE__, "(", dump( @_ ), ") object\n" if $self->debug;

        $self->_db(
                DBM::Deep->new(
                        file => $self->path,
                        locking => 1,
                        autoflush => 1,
                )
        );

        return $self;
}


1;
1	dpavlin	77	# Dobrica Pavlinusic, <dpavlin@rot13.org> 06/22/07 14:35:38 CEST
2			package CWMP::Store;
3
4			use strict;
5			use warnings;
6
7
8			use base qw/Class::Accessor/;
9			__PACKAGE__->mk_accessors( qw/
10			debug
11			path
12
13			_db
14			/ );
15
16			#use Carp qw/confess/;
17			use Data::Dump qw/dump/;
18			use DBM::Deep;
19
20			=head1 NAME
21
22			CWMP::Store - parsist CPE state on disk
23
24			=head1 METHODS
25
26			=head2 new
27
28			my $store = CWMP::Store->new({
29			path => '/path/to/state.db',
30			debug => 1,
31			});
32
33			=cut
34
35			sub new {
36			my $class = shift;
37			my $self = $class->SUPER::new( @_ );
38
39			warn "created ", __PACKAGE__, "(", dump( @_ ), ") object\n" if $self->debug;
40
41			$self->_db(
42			DBM::Deep->new(
43			file => $self->path,
44			locking => 1,
45			autoflush => 1,
46			)
47			);
48
49			return $self;
50			}
51
52
53			1;