| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/t/op/ |
| bless.t | 25 $a1 = bless {}, "A";
27 $b1 = bless [], "B";
29 $c1 = bless \(map "$_", "test"), "C";
31 our $test = "foo"; $d1 = bless \*test, "D";
33 $e1 = bless sub { 1 }, "E";
35 $f1 = bless \[], "F";
37 $g1 = bless \substr("test", 1, 2), "G";
42 print expected(bless(\$a1, "F"), "F", "REF"), "ok 8\n";
47 bless $a1, "A2";
52 local $a1 = bless $a1, "A3"; # should rebless outer $a
[all...] |
| die.t | 30 die bless [ 7 ], "Error";
43 bless [$_[0]->[0]], "Out";
|
| ref.t | 127 # Test bless operator.
131 $object = bless $main'anonhash2;
135 $object2 = bless {};
171 $main'object = bless {FOO => foo, BAR => bar};
229 my $moe = bless \$joe, 'moe';
230 my $curly = bless \@curly, 'curly';
231 my $larry = bless \%larry, 'larry';
253 sub new { bless {}, shift }
256 sub new { bless {}, shift }
257 DESTROY { print "# destroying '_B'\nok 51\n"; bless shift, 'A'
[all...] |
| runlevel.t | 72 return bless \$foo;
94 return bless \$foo;
114 return bless \$foo;
156 $bar = bless {}, TEST;
164 $a <=> $b unless eval('$a == 0 ? bless undef : ($a <=> $b)');
219 return bless \$foo;
242 return bless \$foo;
271 return bless \$foo;
287 return bless \$foo;
332 return bless [qw(foo fee fie foe)], $_[0]
[all...] |
| tie.t | 165 sub Self::TIEHASH { bless $_[1], $_[0] }
176 sub Self::TIESCALAR { bless $_[1], $_[0] }
189 sub Self2::TIEHANDLE { bless $_[1], $_[0] }
205 sub Self3::TIEHANDLE { bless $_[1], $_[0] }
221 sub Self3::TIEHANDLE { bless $_[1], $_[0] }
292 sub TIESCALAR { bless [] }
302 sub F1::TIEARRAY { bless [], 'F1' }
307 sub F2::TIEARRAY { bless [2], 'F2' }
314 sub F3::TIEHASH { bless [], 'F3' }
319 sub F4::TIEHASH { bless [3], 'F4'
[all...] |
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/Storable/t/ |
| HAS_OVERLOAD.pm | 9 bless \$value, $package;
|
| st-dump.pl | 70 # Then extract the bless, ref and address parts of that string.
73 my ($bless, $ref, $addr) = $what =~ /^(\w+)=(\w+)\((0x.*)\)$/;
74 ($ref, $addr) = $what =~ /^(\w+)\((0x.*)\)$/ unless $bless;
96 # If the referenced was blessed, we bless it once the object is dumped.
102 &bless($bless) if $bless; # Mark it as blessed, if necessary
108 sub bless { subroutine
110 $dumped .= "BLESS $class\n";
|
| tied_items.t | 37 sub H::TIEHASH { bless \(my $x), "H" }
52 sub A::TIEARRAY { bless \(my $x), "A" }
|
| dclone.t | 31 $c = bless {}, CLASS;
52 my $self = bless {};
84 return bless(\$string, $type);
|
| overload.t | 37 $a = bless [77], OVERLOADED;
56 my $self = bless {}, shift;
73 my $self = bless {}, shift;
|
| recurse.t | 36 sub make { bless [], shift }
62 sub make { bless {}, shift }
84 my $self = bless {}, shift;
118 sub make { bless [], shift }
196 return bless {dat => $dat}, $class;
202 return bless {
241 my $self = bless {}, shift;
248 my $self = bless {}, shift;
252 $self->{c3} = bless CLASS_1->make(), "CLASS_3";
275 my $self = bless {}, shift
[all...] |
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Test/Simple/t/ |
| filehandles.t | 20 sub TIEHANDLE { bless {} }
|
| ok_obj.t | 17 sub new { bless {}, shift }
|
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/t/lib/Dev/ |
| Null.pm | 11 return bless $fh, $class;
|
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/t/lib/ |
| TieIn.pm | 4 bless( \(my $scalar), $_[0]);
|
| TieOut.pm | 4 bless( \(my $scalar), $_[0]);
|
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/Encode/t/ |
| Mod_EUCJP.pm | 8 my $self = bless {
|
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Attribute/Handlers/demo/ |
| demo_cycle.pl | 6 bless [ @_[1..$#_] ], $_[0];
|
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/List/Util/t/ |
| refaddr.t | 36 my $obj = bless $r, 'FooBar';
48 sub TIEHANDLE { bless {} }
|
| reftype.t | 48 bless $what, $pack if $type && defined $pack;
55 sub TIEHANDLE { bless {} }
|
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/Data/Dumper/t/ |
| overload.t | 23 sub new { bless { foo => "bar" }, shift }
|
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Tie/Array/ |
| push.t | 14 sub TIEARRAY { return bless [], shift }
|
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/IO/t/ |
| io_dup.t | 34 $stdout = \*STDOUT; bless $stdout, "IO::File"; # "IO::Handle";
35 $stderr = \*STDERR; bless $stderr, "IO::Handle";
|
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Term/ |
| ReadLine.t | 15 sub new { bless {} }
|
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/t/lib/Test/Simple/ |
| Catch.pm | 25 return bless \$self, $class;
|
