summaryrefslogtreecommitdiffstats
path: root/chromium/third_party/cygwin/lib/perl5/5.10/Memoize/Storable.pm
diff options
context:
space:
mode:
Diffstat (limited to 'chromium/third_party/cygwin/lib/perl5/5.10/Memoize/Storable.pm')
-rw-r--r--chromium/third_party/cygwin/lib/perl5/5.10/Memoize/Storable.pm72
1 files changed, 0 insertions, 72 deletions
diff --git a/chromium/third_party/cygwin/lib/perl5/5.10/Memoize/Storable.pm b/chromium/third_party/cygwin/lib/perl5/5.10/Memoize/Storable.pm
deleted file mode 100644
index 4c29dd7eb8f..00000000000
--- a/chromium/third_party/cygwin/lib/perl5/5.10/Memoize/Storable.pm
+++ /dev/null
@@ -1,72 +0,0 @@
-package Memoize::Storable;
-
-=head1 NAME
-
-Memoize::Storable - store Memoized data in Storable database
-
-=head1 DESCRIPTION
-
-See L<Memoize>.
-
-=cut
-
-use Storable ();
-$VERSION = 0.65;
-$Verbose = 0;
-
-sub TIEHASH {
- require Carp if $Verbose;
- my $package = shift;
- my $filename = shift;
- my $truehash = (-e $filename) ? Storable::retrieve($filename) : {};
- my %options;
- print STDERR "Memoize::Storable::TIEHASH($filename, @_)\n" if $Verbose;
- @options{@_} = ();
- my $self =
- {FILENAME => $filename,
- H => $truehash,
- OPTIONS => \%options
- };
- bless $self => $package;
-}
-
-sub STORE {
- require Carp if $Verbose;
- my $self = shift;
- print STDERR "Memoize::Storable::STORE(@_)\n" if $Verbose;
- $self->{H}{$_[0]} = $_[1];
-}
-
-sub FETCH {
- require Carp if $Verbose;
- my $self = shift;
- print STDERR "Memoize::Storable::FETCH(@_)\n" if $Verbose;
- $self->{H}{$_[0]};
-}
-
-sub EXISTS {
- require Carp if $Verbose;
- my $self = shift;
- print STDERR "Memoize::Storable::EXISTS(@_)\n" if $Verbose;
- exists $self->{H}{$_[0]};
-}
-
-sub DESTROY {
- require Carp if $Verbose;
- my $self= shift;
- print STDERR "Memoize::Storable::DESTROY(@_)\n" if $Verbose;
- if ($self->{OPTIONS}{'nstore'}) {
- Storable::nstore($self->{H}, $self->{FILENAME});
- } else {
- Storable::store($self->{H}, $self->{FILENAME});
- }
-}
-
-sub FIRSTKEY {
- 'Fake hash from Memoize::Storable';
-}
-
-sub NEXTKEY {
- undef;
-}
-1;