object => Foo->new( number => 2 ),
);
isa_ok( $foo, 'Foo' );
-
+
is_deeply(
$foo->pack,
{
float => 10.5,
array => [ 1 .. 10 ],
hash => { map { $_ => undef } ( 1 .. 10 ) },
- object => {
- __CLASS__ => 'Foo',
- number => 2
- },
+ object => {
+ __CLASS__ => 'Foo',
+ number => 2
+ },
},
'... got the right frozen class'
);
float => 10.5,
array => [ 1 .. 10 ],
hash => { map { $_ => undef } ( 1 .. 10 ) },
- object => {
- __CLASS__ => 'Foo',
- number => 2
- },
- }
+ object => {
+ __CLASS__ => 'Foo',
+ number => 2
+ },
+ }
);
isa_ok( $foo, 'Foo' );