diff options
| author | fukachan <fukachan> | 2001-04-14 11:20:56 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-04-14 11:20:56 +0000 |
| commit | 51641fb539ad0b4a2533c80e47807eb68479cd72 (patch) | |
| tree | 3acfaf521c99dadf6bd5ca97e93d94c8271f2746 /fml/lib/File | |
| parent | e166c55a8994c725d1a26004e6d7c9d4b228d743 (diff) | |
| download | fml8-51641fb539ad0b4a2533c80e47807eb68479cd72.tar.gz fml8-51641fb539ad0b4a2533c80e47807eb68479cd72.tar.bz2 fml8-51641fb539ad0b4a2533c80e47807eb68479cd72.zip | |
find() is an alias of get()
Diffstat (limited to 'fml/lib/File')
| -rw-r--r-- | fml/lib/File/CacheDir.pm | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/fml/lib/File/CacheDir.pm b/fml/lib/File/CacheDir.pm index cf461e84..c1a34d0d 100644 --- a/fml/lib/File/CacheDir.pm +++ b/fml/lib/File/CacheDir.pm @@ -5,7 +5,7 @@ # redistribute it and/or modify it under the same terms as Perl itself. # # $Id$ -# $FML: CacheDir.pm,v 1.2 2001/04/04 12:21:19 fukachan Exp $ +# $FML: CacheDir.pm,v 1.3 2001/04/04 14:47:55 fukachan Exp $ # package File::CacheDir; @@ -201,6 +201,8 @@ sub close +=head2 C<find(key)> + =head2 C<get(key)> =head2 C<set(key, value)> @@ -270,6 +272,13 @@ sub _search } +sub find +{ + my ($self, $key) = @_; + $self->get($key); +} + + sub set { my ($self, $key, $value) = @_; |