Lines Matching refs:thawed
44 our ($freezed, $thawed, @obj, @res, $blessed_code);
84 $thawed = thaw $freezed;
86 is($thawed->[0]->(), "JAPH");
87 is($thawed->[1]->(), 42);
88 is($thawed->[2]->(), "blessed");
89 is($thawed->[3]->(), "Another::Package");
90 is(prototype($thawed->[4]), prototype($obj[0]->[4]));
95 $thawed = thaw $freezed;
97 is($thawed->{"a"}->(), "srt");
98 is($thawed->{"b"}->(), "JAPH");
103 $thawed = thaw $freezed;
105 is($thawed->(), (ord "A") == 193 ? -118 : 42);
110 $thawed = thaw $freezed;
112 is($thawed->(), "JAPH");
130 $thawed = retrieve "store$$";
132 is($thawed->[0]->(), "JAPH");
133 is($thawed->[1]->(), 42);
134 is($thawed->[2]->(), "blessed");
135 is($thawed->[3]->(), "Another::Package");
136 is(prototype($thawed->[4]), prototype($obj[0]->[4]));
141 $thawed = retrieve "store$$";
144 is($thawed->[0]->(), "JAPH");
145 is($thawed->[1]->(), 42);
146 is($thawed->[2]->(), "blessed");
147 is($thawed->[3]->(), "Another::Package");
148 is(prototype($thawed->[4]), prototype($obj[0]->[4]));
161 eval { $thawed = thaw $freezed };
182 eval { $thawed = thaw $freezed };
184 like($$thawed, qr/^sub/);
212 eval { $thawed = thaw $freezed };
214 is($thawed->(), "JAPH");
217 eval { $thawed = thaw $freezed };
234 eval { $thawed = thaw $freezed };
247 eval { $thawed = thaw $freezed };
249 is($thawed->(), 42);
269 eval { $thawed = thaw $freezed };
275 is($thawed->[0]->(), "JAPH");
276 is($thawed->[1]->(), 42);
277 is($thawed->[2]->(), "blessed");
278 is($thawed->[3]->(), "Another::Package");
279 is(prototype($thawed->[4]), prototype($obj[0]->[4]));