/opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Memoize/ |
H A D | Storable.pm | 1 package Memoize::Storable; 5 Memoize::Storable - store Memoized data in Storable database 13 use Storable (); 21 my $truehash = (-e $filename) ? Storable::retrieve($filename) : {}; 23 print STDERR "Memoize::Storable::TIEHASH($filename, @_)\n" if $Verbose; 36 print STDERR "Memoize::Storable::STORE(@_)\n" if $Verbose; 43 print STDERR "Memoize::Storable::FETCH(@_)\n" if $Verbose; 50 print STDERR "Memoize::Storable::EXISTS(@_)\n" if $Verbose; 57 print STDERR "Memoize::Storable [all...] |
H A D | AnyDBM_File.pm | 5 Memoize::AnyDBM_File - glue to provide EXISTS for AnyDBM_File for Storable use
|
H A D | NDBM_File.pm | 5 Memoize::NDBM_File - glue to provide EXISTS for NDBM_File for Storable use
|
H A D | SDBM_File.pm | 5 Memoize::SDBM_File - glue to provide EXISTS for SDBM_File for Storable use
|
/opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/Storable/t/ |
H A D | croak.t | 4 # There's some sort of not-croaking properly problem in Storable when built 15 print "1..0 # Skip: Storable was not built\n"; 23 die "Oi! No! Don't change this test so that Carp is used before Storable" 26 use Storable qw(freeze thaw); 32 if ($@ =~ /Storable binary image v127.255 more recent than I am \(v2\.\d+\)/)
|
H A D | retrieve.t | 12 @INC = ('.', '../lib', '../ext/Storable/t'); 18 print "1..0 # Skip: Storable was not built\n"; 25 use Storable qw(store retrieve nstore); 39 print "not " if Storable::last_op_in_netorder(); 43 print "not " unless Storable::last_op_in_netorder(); 45 print "not " unless Storable::last_op_in_netorder(); 51 print "not " if Storable::last_op_in_netorder(); 57 print "not " unless Storable::last_op_in_netorder();
|
H A D | lock.t | 12 @INC = ('.', '../lib', '../ext/Storable/t'); 18 print "1..0 # Skip: Storable was not built\n"; 27 use Storable qw(lock_store lock_retrieve); 29 unless (&Storable::CAN_FLOCK) {
|
H A D | code.t | 18 print "1..0 # Skip: Storable was not built\n"; 43 use Storable qw(retrieve store nstore freeze nfreeze thaw dclone); 46 #$Storable::DEBUGME = 1; 81 $Storable::Deparse = 1; 82 $Storable::Eval = 1; 155 # $Storable::Eval 156 # $Storable::Deparse 159 local $Storable::Eval = 0; 171 local $Storable::Deparse = 0; 180 local $Storable [all...] |
H A D | restrict.t | 12 @INC = ('.', '../lib', '../ext/Storable/t'); 15 print "1..0 # Skip: Storable was not built\n"; 38 use Storable qw(dclone freeze thaw); 104 for $Storable::canonical (0, 1) { 106 print "# \$Storable::canonical = $Storable::canonical\n";
|
H A D | just_plain_nasty.t | 17 print "1..0 # Skip: Storable was not built\n"; 41 use Storable qw(freeze thaw); 43 #$Storable::DEBUGME = 1; 75 $Storable::Deparse = $Storable::Deparse = 1; 76 $Storable::Eval = $Storable::Eval = 1; 142 # output with $Storable::DEBUGME = 1
|
H A D | interwork56.t | 24 print "1..0 # Skip: Storable was not built\n"; 33 use Storable qw(freeze thaw); 57 my $header = Storable::read_magic ($test); 75 # No test data for Storable 1.x for: 83 # If you have Storable 1.x built with perl 5.6.x on this platform, please 95 local $Storable::interwork_56_64bit = 1; 100 # However, as the file is written with Storable pre 2.01, it's a known 121 local $Storable::interwork_56_64bit = 1; 125 my $header_kludge = Storable::read_magic ($test_kludge); 141 local $Storable [all...] |
H A D | utf8.t | 16 @INC = ('.', '../lib', '../ext/Storable/t'); 22 print "1..0 # Skip: Storable was not built\n"; 31 use Storable qw(thaw freeze);
|
H A D | dclone.t | 12 @INC = ('.', '../lib', '../ext/Storable/t'); 18 print "1..0 # Skip: Storable was not built\n"; 25 use Storable qw(dclone); 49 package FOO; @ISA = qw(Storable); 80 # [ID 20020221.007] SEGV in Storable with empty string scalar object
|
H A D | forgive.t | 21 print "1..0 # Skip: Storable was not built\n"; 26 use Storable qw(store retrieve); 48 $Storable::forgive_me=1;
|
H A D | canonical.t | 18 print "1..0 # Skip: Storable was not built\n"; 24 use Storable qw(freeze thaw dclone); 108 $Storable::canonical = 1; 124 $Storable::canonical = 0;
|
H A D | compat06.t | 12 @INC = ('.', '../lib', '../ext/Storable/t'); 18 print "1..0 # Skip: Storable was not built\n"; 28 use Storable qw(freeze nfreeze thaw); 113 $Storable::canonical = 1; # Prevent "used once" warning 114 $Storable::canonical = 1; 133 # using Storable-0.6@11, output of: print pack("u", nfreeze(ROOT->make)); 144 # using Storable-0.6@11, output of: print '#' . pack("u", nfreeze(ROOT->make));
|
H A D | tied_items.t | 16 @INC = ('.', '../lib', '../ext/Storable/t'); 22 print "1..0 # Skip: Storable was not built\n"; 33 use Storable qw(dclone);
|
H A D | recurse.t | 12 @INC = ('.', '../lib', '../ext/Storable/t'); 18 print "1..0 # Skip: Storable was not built\n"; 26 use Storable qw(freeze thaw dclone); 32 use Storable qw(freeze thaw); 41 die "STORABLE_freeze" unless Storable::is_storing; 55 die "STORABLE_thaw #4" unless Storable::is_retrieving; 81 use Storable qw(dclone); 112 use Storable qw(freeze thaw); 183 ok 22, !Storable::is_storing; 184 ok 23, !Storable [all...] |
H A D | utf8hash.t | 22 print "1..0 # Skip: Storable was not built\n"; 30 use Storable qw(store nstore retrieve thaw freeze); 33 $Storable::DEBUGME = ($DEBUGME > 1); 41 $Storable::canonical = $Storable::canonical; # Shut up a used only once warning. 43 for $Storable::canonical (0, 1) { 129 # Set this to 1 to test the test by bypassing Storable.
|
H A D | freeze.t | 12 @INC = ('.', '../lib', '../ext/Storable/t'); 18 print "1..0 # Skip: Storable was not built\n"; 25 use Storable qw(freeze nfreeze thaw); 57 package FOO; @ISA = qw(Storable);
|
H A D | store.t | 12 @INC = ('.', '../lib', '../ext/Storable/t'); 18 print "1..0 # Skip: Storable was not built\n"; 24 use Storable qw(store retrieve store_fd nstore_fd fd_retrieve); 54 package FOO; @ISA = qw(Storable);
|
H A D | malice.t | 13 # error traps in Storable as possible 26 print "1..0 # Skip: Storable was not built\n"; 56 use Storable qw (store retrieve freeze thaw nstore nfreeze); 121 # local $Storable::DEBUGME = 1; 146 my $header = Storable::read_magic ($contents); 187 local $Storable::accept_future_minor = 0; 189 "/^Storable binary image v$header->{major}\.$minor4 more recent than I am \\(v$header->{major}\.$minor\\)/", 197 "/^Storable binary image v$major1\.$header->{minor} more recent than I am \\(v$header->{major}\.$minor\\)/", 204 "/^Storable binary image v$major1\.$minor1 more recent than I am \\(v$header->{major}\.$minor\\)/", 249 # local $Storable [all...] |
/opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/Storable/ |
H A D | Makefile.PL | 33 NAME => 'Storable', 34 DISTNAME => "Storable", 39 VERSION_FROM => 'Storable.pm', 51 Storable which this version of Storable refuses to load with a 56 in the Storable documentation for instructions on how to read your data. 58 (You can find the documentation at the end of Storable.pm in POD format)
|
H A D | Storable.pm | 10 package Storable; @ISA = qw(Exporter DynaLoader); package 52 Storable::init_perinterp(); 60 $Storable::downgrade_restricted = 1; 61 $Storable::accept_future_minor = 1; 62 bootstrap Storable; 94 # To recognize the data files of the Perl module Storable, 98 0 string perl-store perl Storable(v0.6) data 104 0 string pst0 perl Storable(v0.7) data 198 logcarp "Storable::lock_store: fcntl/flock emulation broken on $^O"; 322 logcarp "Storable [all...] |
/opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Memoize/t/ |
H A D | tie_storable.t | 6 # $Memoize::Storable::Verbose = 0; 8 eval {require Memoize::Storable}; 28 eval {require Storable}; 45 tryout('Memoize::Storable', $file, 1); # Test 1..4
|