Cross Reference: /osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/overload.t

Lines Matching refs:Oscalar
8 package Oscalar;
11 '+'	=>	sub {new Oscalar $ {$_[0]}+$_[1]},
12 '-'	=>	sub {new Oscalar
14 '<=>'	=>	sub {new Oscalar
16 'cmp'	=>	sub {new Oscalar
18 '*'	=>	sub {new Oscalar ${$_[0]}*$_[1]},
19 '/'	=>	sub {new Oscalar 
22 '%'	=>	sub {new Oscalar
24 '**'	=>	sub {new Oscalar
72 $a = new Oscalar "087";
81 test (ref $a eq "Oscalar");	# 4
87 test (ref $c eq "Oscalar");	# 7
93 test (ref $a eq "Oscalar");	# 10
97 test (ref $b eq "Oscalar");	# 11
100 test (ref $a eq "Oscalar");	# 14
105 test (ref $c eq "Oscalar");	# 15
108 test (ref $a eq "Oscalar");	# 18
113 test (ref $b eq "Oscalar");	# 19
116 test (ref $a eq "Oscalar");	# 22
118 eval q[ package Oscalar; use overload ('++' => sub { $ {$_[0]}++;$_[0] } ) ];
122 test (ref $a eq "Oscalar");	# 23
126 test (ref $b eq "Oscalar");	# 24
129 test (ref $a eq "Oscalar");	# 27
131 package Oscalar;
138 test (ref $b eq "Oscalar");	# 28
141 test (ref $a eq "Oscalar");	# 31
145 eval q[package Oscalar; use overload ('++' => sub { $ {$_[0]} += 2; $_[0] } ) ];
149 test (ref $a eq "Oscalar");	# 32
153 test (ref $b eq "Oscalar");	# 33
156 test (ref $a eq "Oscalar");	# 36
158 package Oscalar;
164 test (ref $b eq "Oscalar");	# 37
167 test (ref $a eq "Oscalar");	# 40
172 test (ref $b eq "Oscalar");	# 41
175 test (ref $a eq "Oscalar");	# 44
180 eval q[ package Oscalar; use overload ('=' => sub {$main::copies++; 
181 						   package Oscalar;
185 $b=new Oscalar "$a";
187 test (ref $b eq "Oscalar");	# 46
190 test (ref $a eq "Oscalar");	# 49
194 test (ref $b eq "Oscalar");	# 50
197 test (ref $a eq "Oscalar");	# 53
202 test (ref $b eq "Oscalar");	# 55
205 test (ref $a eq "Oscalar");	# 58
211 test (ref $b eq "Oscalar");	# 60
214 test (ref $a eq "Oscalar");	# 63
220 test (ref $b eq "Oscalar") || print ref $b,"=ref(b)\n";	# 65
223 test (ref $a eq "Oscalar");	# 68
226 eval q[package Oscalar; use overload ('+=' => sub {$ {$_[0]} += 3*$_[1];
228 $c=new Oscalar;			# Cause rehash
233 test (ref $b eq "Oscalar");	# 70
236 test (ref $a eq "Oscalar");	# 73
241 test (ref $b eq "Oscalar");	# 75
246 test (ref $b eq "Oscalar");	# 78
252 test (ref $b eq "Oscalar");	# 81
258 test (ref $b eq "Oscalar");	# 84
262 eval q[package Oscalar; 
263        use overload ('x' => sub {new Oscalar ( $_[2] ? "_.$_[1]._" x $ {$_[0]}
266 $a=new Oscalar "yy";
270 eval q[package Oscalar; 
271        use overload ('.' => sub {new Oscalar ( $_[2] ? 
275 $a=new Oscalar "xx";
282   @ISA = 'Oscalar';
293 eval "package Oscalar; no overload '.'";
297 bless \$x, Oscalar;
299 new Oscalar 1;
309 *Oscalar::AUTOLOAD = 
310   sub { *{"Oscalar::$AUTOLOAD"} = sub {"_!_" . shift() . "_!_"} ;
311 	goto &{"Oscalar::$AUTOLOAD"}};
313 eval "package Oscalar; sub comple; use overload '~' => 'comple'";
318 bless \$x, Oscalar;
338 eval "package Oscalar; sub rshft; use overload '>>' => 'rshft'";
354 test (overload::Method($a, '0+') eq \&Oscalar::numify); # 106
355 test (overload::Method($aI,'0+') eq \&Oscalar::numify); # 107
369   sub Oscalar::lshft {"_<<_" . shift() . "_<<_"}