DRIVER=serial8250
MODALIAS=platform:serial8250
File not found.
1
Index of /anon_sym/anon/proc/self/root/usr/include/gssapi
Index of /anon_sym/anon/proc/self/root/usr/include/gssapi
File not found.
h auto
0 lY> a,j
۸ţ
q_ ub
&=LV[( ? # DB_File.pm -- Perl 5 interface to Berkeley DB
#
# Written by Paul Marquess (pmqs@cpan.org)
#
# Copyright (c) 1995-2020 Paul Marquess. All rights reserved.
# This program is free software; you can redistribute it and/or
# modify it under the same terms as Perl itself.
package DB_File::HASHINFO ;
require 5.008003;
use warnings;
use strict;
use Carp;
require Tie::Hash;
@DB_File::HASHINFO::ISA = qw(Tie::Hash);
sub new
{
my $pkg = shift ;
my %x ;
tie %x, $pkg ;
bless \%x, $pkg ;
}
sub TIEHASH
{
my $pkg = shift ;
bless { VALID => {
bsize => 1,
ffactor => 1,
nelem => 1,
cachesize => 1,
hash => 2,
lorder => 1,
},
GOT => {}
}, $pkg ;
}
sub FETCH
{
my $self = shift ;
my $key = shift ;
return $self->{GOT}{$key} if exists $self->{VALID}{$key} ;
my $pkg = ref $self ;
croak "${pkg}::FETCH - Unknown element '$key'" ;
}
sub STORE
{
my $self = shift ;
my $key = shift ;
my $value = shift ;
my $type = $self->{VALID}{$key};
if ( $type )
{
croak "Key '$key' not associated with a code reference"
if $type == 2 && !ref $value && ref $value ne 'CODE';
$self->{GOT}{$key} = $value ;
return ;
}
my $pkg = ref $self ;
croak "${pkg}::STORE - Unknown element '$key'" ;
}
sub DELETE
{
my $self = shift ;
my $key = shift ;
if ( exists $self->{VALID}{$key} )
{
delete $self->{GOT}{$key} ;
return ;
}
my $pkg = ref $self ;
croak "DB_File::HASHINFO::DELETE - Unknown element '$key'" ;
}
sub EXISTS
{
my $self = shift ;
my $key = shift ;
exists $self->{VALID}{$key} ;
}
sub NotHere
{
my $self = shift ;
my $method = shift ;
croak ref($self) . " does not define the method ${method}" ;
}