equal
deleted
inserted
replaced
3 use strict; |
3 use strict; |
4 use warnings; |
4 use warnings; |
5 use base 'Exporter'; |
5 use base 'Exporter'; |
6 use Carp; |
6 use Carp; |
7 |
7 |
8 our @EXPORT_OK = qw(unseen getDBDir connectDB getDefault); |
8 our @EXPORT_OK = qw(unseen getDBDir connectDB getDefault); |
9 our %EXPORT_TAGS = ( |
9 our %EXPORT_TAGS = (all => \@EXPORT_OK,); |
10 all => \@EXPORT_OK, |
10 our $VERSION = '2.0'; |
11 ); |
|
12 our $VERSION = '2.0'; |
|
13 |
11 |
14 # You may choose, but DB_File's footprint is smaller. |
12 # You may choose, but DB_File's footprint is smaller. |
15 # perl -MDB_File -e 'tie %h, ...': real 0m0.063s |
13 # perl -MDB_File -e 'tie %h, ...': real 0m0.063s |
16 # perl -MBerkeleyDB -e 'tie %h, ...': real 0m0.112s |
14 # perl -MBerkeleyDB -e 'tie %h, ...': real 0m0.112s |
17 # And DB_File is part of the Perl core distribution (?) |
15 # And DB_File is part of the Perl core distribution (?) |