summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorfukachan <fukachan>2001-02-20 08:07:38 +0000
committerfukachan <fukachan>2001-02-20 08:07:38 +0000
commitaeef9fb9368030a4e60eadd14dfefbf49dddf296 (patch)
treecb1e51023341a070ff958610402a4cc59279ae44
parent734ff29ad0a4f7374dbe72295fea9ab4dff88d14 (diff)
downloadfml8-aeef9fb9368030a4e60eadd14dfefbf49dddf296.tar.gz
fml8-aeef9fb9368030a4e60eadd14dfefbf49dddf296.tar.bz2
fml8-aeef9fb9368030a4e60eadd14dfefbf49dddf296.zip
rename LogFileDB to JournaledFile
-rw-r--r--fml/lib/Tie/JournaledFile.pm (renamed from fml/lib/Tie/LogFileDB.pm)22
1 files changed, 11 insertions, 11 deletions
diff --git a/fml/lib/Tie/LogFileDB.pm b/fml/lib/Tie/JournaledFile.pm
index 0dcb4ade..b4707aac 100644
--- a/fml/lib/Tie/LogFileDB.pm
+++ b/fml/lib/Tie/JournaledFile.pm
@@ -8,7 +8,7 @@
# $FML$
#
-package Tie::LogFileDB;
+package Tie::JournaledFile;
use strict;
use vars qw(@ISA @EXPORT @EXPORT_OK $AUTOLOAD);
@@ -16,20 +16,20 @@ use Carp;
=head1 NAME
-Tie::LogFileDB - hash emulation for a log structered file
+Tie::JournaledFile - hash emulation for a log structered file
=head1 SYNOPSIS
- use Tie::LogFileDB;
- $db = new Tie::LogFileDB { file => 'cache.txt' };
+ use Tie::JournaledFile;
+ $db = new Tie::JournaledFile { file => 'cache.txt' };
# all entries with the key = 'rudo'
@values = $db->grep( rudo );
or
- use Tie::LogFileDB;
- tie %db, 'Tie::LogFileDB', { file => 'cache.txt' };
+ use Tie::JournaledFile;
+ tie %db, 'Tie::JournaledFile', { file => 'cache.txt' };
print $db{ rudo }, "\n";
where cache file "cache.txt" format is "key value" for each line.
@@ -41,15 +41,15 @@ For example
By default, FETCH() returns the first value with the key.
- use Tie::LogFileDB;
- tie %db, 'Tie::LogFileDB', { first_match => 1, file => 'cache.txt' };
+ use Tie::JournaledFile;
+ tie %db, 'Tie::JournaledFile', { first_match => 1, file => 'cache.txt' };
print $db{ rudo }, "\n";
if you find the latest value (so at the later line somewhere in the
file) for the $key
- use Tie::LogFileDB;
- tie %db, 'Tie::LogFileDB', { last_match => 1, file => 'cache.txt' };
+ use Tie::JournaledFile;
+ tie %db, 'Tie::JournaledFile', { last_match => 1, file => 'cache.txt' };
print $db{ rudo }, "\n";
=cut
@@ -194,7 +194,7 @@ redistribute it and/or modify it under the same terms as Perl itself.
=head1 HISTORY
-Tie::LogFileDB appeared in fml5 mailing list driver package.
+Tie::JournaledFile appeared in fml5 mailing list driver package.
See C<http://www.fml.org/> for more details.
=cut