/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/op/ |
H A D | assignwarn.t | 22 sub tiex { tie $_[0], 'main' } 31 for my $tie ("", ", tied") { 33 { my $x; tiex $x if $tie; $x ++; ok ! uninitialized, "postinc$tie"; } 34 { my $x; tiex $x if $tie; $x --; ok ! uninitialized, "postdec$tie"; } 35 { my $x; tiex $x if $tie; ++ $x; ok ! uninitialized, "preinc$tie"; } 36 { my $x; tiex $x if $tie; -- $x; ok ! uninitialized, "predec$tie"; } [all...] |
H A D | tie.t | 41 tie %h, Tie::StdHash; 55 tie %h, Tie::HashUntie; 63 $a = tie %h, Tie::StdHash; 70 tie %h, Tie::StdHash; 78 $a = tie %h, Tie::StdHash; 86 tie %h, Tie::StdHash; 96 tie %h, Tie::StdHash; 104 $a = tie %h, Tie::StdHash; 113 tie %h, Tie::StdHash; 123 $a = tie [all...] |
H A D | avhv.t | 60 tie @fake, 'Tie::StdArray'; 68 tie @fake, 'Tie::BasicArray'; 77 tie %fake, 'Tie::StdHash';
|
H A D | undef.t | 69 tie my %foo, 'Tie::StdHash'; 77 tie my @foo, 'Tie::StdArray';
|
H A D | runlevel.t | 81 tie $bar, TEST; 102 tie $bar, TEST; 125 tie *FH, TEST; 230 tie $bar, TEST; 251 tie $bar, TEST; 280 tie $bar, TEST; 291 tie $bar, TEST; 344 tie my @bar, 'TEST'; 352 tie %h, TH; 381 tie *STDER [all...] |
H A D | or.t | 55 tie $a, 'Countdown', $val;
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Tie/Array/ |
H A D | std.t | 10 tie @foo,Tie::StdArray; 11 tie @ary,Tie::StdArray; 12 tie @bar,Tie::StdArray;
|
H A D | push.t | 21 tie @x,Basic; 22 tie @get,Basic; 23 tie @got,Basic; 24 tie @tests,Basic;
|
H A D | splice.t | 13 tie @a,Tie::StdArray;
|
H A D | stdpush.t | 10 tie @x,Tie::StdArray;
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Test/Simple/t/ |
H A D | filehandles.t | 12 tie *STDOUT, "Dev::Null" or die $!;
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/comp/ |
H A D | our.t | 13 # tie, track, and report what calls are made 30 tie $x, 'TieAll'; 31 tie @x, 'TieAll'; 32 tie %x, 'TieAll';
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Storable/t/ |
H A D | tied_items.t | 40 tie %h, "H"; 55 tie @a, "A";
|
H A D | tied.t | 130 $c = tie %hash, TIED_HASH; 131 $d = tie @array, TIED_ARRAY; 132 tie $scalar, TIED_SCALAR; 199 tie $h->{'x'}, 'FAULT', $h, 'x'; 217 tie $a, P; my $r = thaw freeze \$a; $b = $$r;
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Test/Harness/t/ |
H A D | inc_taint.t | 19 tie *NULL, 'Dev::Null' or die $!;
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Tie/File/t/ |
H A D | 09_gen_rs.t | 12 my $o = tie @a, 'Tie::File', $file, 79 $o = tie @a, 'Tie::File', $file, 98 $o = tie @a, 'Tie::File', $file, 100 or die "Couldn't tie file: $!"; 110 $o = tie @a, 'Tie::File', $file, 112 or die "Couldn't tie file: $!"; 118 $o = tie @a, 'Tie::File', $file, 120 or die "Couldn't tie file: $!"; 134 $o = tie @a, 'Tie::File', $file, 136 or die "Couldn't tie fil [all...] |
H A D | 03_longfetch.t | 27 my $o = tie @a, 'Tie::File', $file, autochomp => 0;
|
H A D | 12_longfetch_rs.t | 24 my $o = tie @a, 'Tie::File', $file, autochomp => 0, recsep => 'blah';
|
H A D | 13_size_rs.t | 22 $o = tie @a, 'Tie::File', $file, recsep => 'blah'; 37 $o = tie @a, 'Tie::File', $file, recsep => 'blah';
|
H A D | 14_lock.t | 34 $o = tie @a, 'Tie::File', $file, recsep => 'blah';
|
H A D | 24_cache_loop.t | 30 my $o = tie @a, 'Tie::File', $file, memory => $MAX, autodefer => 1;
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/ExtUtils/t/ |
H A D | VERSION_FROM.t | 33 my $stdout = tie *STDOUT, 'TieOut' or die;
|
H A D | prompt.t | 31 my $stdout = tie *STDOUT, 'TieOut' or die; 50 my $stdin = tie *STDIN, 'TieIn' or die;
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Tie/Handle/ |
H A D | stdhandle.t | 9 tie *tst,Tie::StdHandle;
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/List/Util/t/ |
H A D | refaddr.t | 22 tie *F, 'MyTie';
|