Lines Matching refs:thawed

109 	my $thawed = eval {
112 	isa_ok( $thawed, 'My::GoodThaw' );
113 	is( $thawed->{foo}, 'bar', 'My::GoodThaw thawed correctly as expected' );
148 	my $thawed = undef;
150 		$thawed = Storable::thaw( $frozen );
187 	my $thawed = eval {
190 	isa_ok( $thawed, 'My::GoodAttach' );
191 	is( ref($thawed), 'My::GoodAttach::Subclass',
225 	my $thawed = eval {
229 	isa_ok( $thawed->[0], 'My::GoodAttach::MultipleReferences' );
230 	isa_ok( $thawed->[1], 'My::GoodAttach::MultipleReferences' );
232 	is($thawed->[0], $thawed->[1], 'References to the same object are attached properly');
233 	is($thawed->[1]{id}, $obj->{id}, 'Object with multiple references attached properly');
274 		my $thawed = undef;
276 			$thawed = Storable::thaw( $frozen );
281 		is( $thawed, undef, 'Double checking $thawed was not set' );