/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Tie/File/t/ |
H A D | 00_version.t | 6 use Tie::File; 8 if ($Tie::File::VERSION != $testversion) { 13 You seem to be running version $Tie::File::VERSION of the module
|
H A D | 03_longfetch.t | 12 $: = Tie::File::_default_recsep(); 18 use Tie::File; 27 my $o = tie @a, 'Tie::File', $file, autochomp => 0;
|
H A D | 24_cache_loop.t | 12 $: = Tie::File::_default_recsep(); 19 use Tie::File; 30 my $o = tie @a, 'Tie::File', $file, memory => $MAX, autodefer => 1;
|
H A D | 06_fixrec.t | 5 $: = Tie::File::_default_recsep(); 10 use Tie::File; 13 my $o = tie @a, 'Tie::File', $file, autodefer => 0;
|
H A D | 02_fetchsize.t | 4 $: = Tie::File::_default_recsep(); 10 use Tie::File; 19 my $o = tie @a, 'Tie::File', $file, autochomp => 0;
|
H A D | 12_longfetch_rs.t | 15 use Tie::File; 24 my $o = tie @a, 'Tie::File', $file, autochomp => 0, recsep => 'blah';
|
H A D | 14_lock.t | 28 use Tie::File; 34 $o = tie @a, 'Tie::File', $file, recsep => 'blah';
|
H A D | 18_rs_fixrec.t | 10 use Tie::File; 13 my $o = tie @a, 'Tie::File', $file, autodefer => 0;
|
H A D | 08_ro.t | 7 $: = Tie::File::_default_recsep(); 12 use Tie::File; 19 my $o = tie @a, 'Tie::File', $file, mode => O_RDONLY, autochomp => 0; 48 my $o = tie @a, 'Tie::File', $file, mode => O_RDONLY, autochomp => 0
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Tie/Array/ |
H A D | std.t | 9 use Tie::Array; 10 tie @foo,Tie::StdArray; 11 tie @ary,Tie::StdArray; 12 tie @bar,Tie::StdArray;
|
H A D | splice.t | 12 use Tie::Array; 13 tie @a,Tie::StdArray; 14 undef *Tie::StdArray::SPLICE;
|
H A D | stdpush.t | 9 use Tie::Array; 10 tie @x,Tie::StdArray;
|
H A D | push.t | 11 use Tie::Array; 12 @ISA = qw(Tie::Array);
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Tie/ |
H A D | SubstrHash.t | 14 require Tie::SubstrHash; 18 tie %a, 'Tie::SubstrHash', 3, 3, 3; 67 tie %test, "Tie::SubstrHash", 13, 86, $hashsize; 85 print "not " unless Tie::SubstrHash::findgteprime(1) == 2; 88 print "not " unless Tie::SubstrHash::findgteprime(2) == 2; 91 print "not " unless Tie::SubstrHash::findgteprime(5.5) == 7; 94 print "not " unless Tie::SubstrHash::findgteprime(13) == 13; 97 print "not " unless Tie::SubstrHash::findgteprime(13.000001) == 17; 100 print "not " unless Tie::SubstrHash::findgteprime(114) == 127; 103 print "not " unless Tie [all...] |
H A D | Scalar.t | 11 use Tie::Scalar; 13 @ISA = qw( Tie::Scalar ); 22 use_ok( 'Tie::Scalar' ); 26 eval { Tie::Scalar->$method() }; 31 my $scalar = Tie::StdScalar->TIESCALAR(); 34 # Tie::StdScalar redirects to TIESCALAR 35 $scalar = Tie::StdScalar->new(); 39 tie $scalar, 'Tie::StdScalar'; 49 tie $scalar, 'Tie::StdScalar', DestroyAction->new(); 54 # $scalar out of scope, Tie [all...] |
H A D | Scalar.pm | 1 package Tie::Scalar; 7 Tie::Scalar, Tie::StdScalar - base class definitions for tied scalars 12 require Tie::Scalar; 14 @ISA = (Tie::Scalar); 21 require Tie::Scalar; 23 @ISA = (Tie::StdScalar); 38 package. The basic B<Tie::Scalar> package provides a C<new> method, as well 39 as methods C<TIESCALAR>, C<FETCH> and C<STORE>. The B<Tie::StdScalar> 41 B<Tie [all...] |
H A D | Hash.pm | 1 package Tie::Hash; 7 Tie::Hash, Tie::StdHash, Tie::ExtraHash - base class definitions for tied hashes 12 require Tie::Hash; 14 @ISA = (Tie::Hash); 21 require Tie::Hash; 23 @ISA = (Tie::StdHash); 31 require Tie::Hash; 33 @ISA = (Tie [all...] |
H A D | RefHash.pm | 1 package Tie::RefHash; 7 Tie::RefHash - use references as hash keys 12 use Tie::RefHash; 13 tie HASHVARIABLE, 'Tie::RefHash', LIST; 14 tie HASHVARIABLE, 'Tie::RefHash::Nestable', LIST; 23 references as keys in hashes-of-hashes, use Tie::RefHash::Nestable, 24 included as part of Tie::RefHash. 36 use Tie::RefHash; 37 tie %h, 'Tie::RefHash'; 50 tie %h, 'Tie [all...] |
H A D | Handle.pm | 1 package Tie::Handle; 8 Tie::Handle, Tie::StdHandle - base class definitions for tied handles 13 require Tie::Handle; 15 @ISA = qw(Tie::Handle); 29 The basic B<Tie::Handle> package provides a C<new> method, as well as methods 110 This version of Tie::Handle is neither related to nor compatible with 111 the Tie::Handle (3.0) module available on CPAN. It was due to an 127 # "Grandfather" the new, a la Tie::Hash 197 package Tie [all...] |
H A D | Array.pm | 1 package Tie::Array; 85 package Tie::StdArray; 87 @ISA = 'Tie::Array'; 118 Tie::Array - base class for tied arrays 122 package Tie::NewArray; 123 use Tie::Array; 124 @ISA = ('Tie::Array'); 146 package Tie::NewStdArray; 147 use Tie::Array; 149 @ISA = ('Tie [all...] |
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Attribute/Handlers/demo/ |
H A D | demo_range.pl | 3 use Tie::RangeHash; 7 tie %$referent, 'Tie::RangeHash';
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/op/ |
H A D | tie.t | 40 use Tie::Hash ; 41 tie %h, Tie::StdHash; 47 use Tie::Hash ; 48 {package Tie::HashUntie; 49 use base 'Tie::StdHash'; 55 tie %h, Tie::HashUntie; 62 use Tie::Hash ; 63 $a = tie %h, Tie::StdHash; 69 use Tie::Hash ; 70 tie %h, Tie [all...] |
H A D | avhv.t | 14 require Tie::Array; 16 package Tie::BasicArray; 17 @Tie::BasicArray::ISA = 'Tie::Array'; 60 tie @fake, 'Tie::StdArray'; 68 tie @fake, 'Tie::BasicArray'; 76 require Tie::Hash; 77 tie %fake, 'Tie::StdHash';
|
H A D | undef.t | 68 require Tie::Hash; 69 tie my %foo, 'Tie::StdHash'; 76 require Tie::Array; 77 tie my @foo, 'Tie::StdArray';
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Tie/Handle/ |
H A D | stdhandle.t | 8 use Tie::Handle; 9 tie *tst,Tie::StdHandle;
|