/[cwmp]/google/branches/store-pluggable/lib/CWMP/Store/DBMDeep.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /google/branches/store-pluggable/lib/CWMP/Store/DBMDeep.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 139 by dpavlin, Fri Oct 26 20:46:09 2007 UTC revision 140 by dpavlin, Sat Oct 27 10:13:01 2007 UTC
# Line 6  use warnings; Line 6  use warnings;
6    
7  use DBM::Deep;  use DBM::Deep;
8  use Data::Dump qw/dump/;  use Data::Dump qw/dump/;
9    use Carp qw/confess/;
10    
11  =head1 NAME  =head1 NAME
12    
# Line 24  my $debug = 1; Line 25  my $debug = 1;
25  sub open {  sub open {
26          my $self = shift;          my $self = shift;
27    
28          warn "open ",dump( @_ );          my $args = shift;
29    
30          my $path = 'state.db';          $debug = $args->{debug};
31            my $path = $args->{path} || confess "no path?";
32    
33            warn "open ",dump( $args ) if $debug;
34    
35            $path = "$path/state.db" if ( -d $args->{path} );
36    
37          $db = DBM::Deep->new(          $db = DBM::Deep->new(
38                  file => $path,                  file => $path,
39                  locking => 1,                  locking => 1,
40                  autoflush => 1,                  autoflush => 1,
41          );          ) || confess "can't open $path: $!";
42    
43  }  }
44    
Legend:
Removed from v.139  
changed lines
  Added in v.140
  ViewVC Help
Powered by ViewVC 1.1.26