Searched refs:Storable (Results 1 - 25 of 40) sorted by relevance

12

/opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Memoize/
H A DStorable.pm1 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 DAnyDBM_File.pm5 Memoize::AnyDBM_File - glue to provide EXISTS for AnyDBM_File for Storable use
H A DNDBM_File.pm5 Memoize::NDBM_File - glue to provide EXISTS for NDBM_File for Storable use
H A DSDBM_File.pm5 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 Dcroak.t4 # 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 Dretrieve.t12 @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 Dlock.t12 @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 Dcode.t18 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 Drestrict.t12 @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 Djust_plain_nasty.t17 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 Dinterwork56.t24 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 Dutf8.t16 @INC = ('.', '../lib', '../ext/Storable/t');
22 print "1..0 # Skip: Storable was not built\n";
31 use Storable qw(thaw freeze);
H A Ddclone.t12 @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 Dforgive.t21 print "1..0 # Skip: Storable was not built\n";
26 use Storable qw(store retrieve);
48 $Storable::forgive_me=1;
H A Dcanonical.t18 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 Dcompat06.t12 @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 Dtied_items.t16 @INC = ('.', '../lib', '../ext/Storable/t');
22 print "1..0 # Skip: Storable was not built\n";
33 use Storable qw(dclone);
H A Drecurse.t12 @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 Dutf8hash.t22 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 Dfreeze.t12 @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 Dstore.t12 @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 Dmalice.t13 # 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 DMakefile.PL33 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 DStorable.pm10 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 Dtie_storable.t6 # $Memoize::Storable::Verbose = 0;
8 eval {require Memoize::Storable};
28 eval {require Storable};
45 tryout('Memoize::Storable', $file, 1); # Test 1..4

Completed in 109 milliseconds

12