X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F003_basic_w_embedded_objects.t;h=7c69094025a6f000e8cc3997c08756ea736106e6;hb=ba5bba75ba0c4f8af075e95ce3b00e5376bedf5c;hp=ecb0b76f50b47b79d72254377763b264d382b4ec;hpb=95f31c36141c0108605fadf16d9abd9ec8bd63f3;p=gitmo%2FMooseX-Storage.git diff --git a/t/003_basic_w_embedded_objects.t b/t/003_basic_w_embedded_objects.t index ecb0b76..7c69094 100644 --- a/t/003_basic_w_embedded_objects.t +++ b/t/003_basic_w_embedded_objects.t @@ -58,11 +58,11 @@ ArrayRef and HashRef type handlers. is_deeply( $foo->pack, { - __class__ => 'Foo', + __CLASS__ => 'Foo', bars => [ map { { - __class__ => 'Bar', + __CLASS__ => 'Bar', number => $_, } } (1 .. 10) @@ -75,11 +75,11 @@ ArrayRef and HashRef type handlers. { my $foo = Foo->unpack( { - __class__ => 'Foo', + __CLASS__ => 'Foo', bars => [ map { { - __class__ => 'Bar', + __CLASS__ => 'Bar', number => $_, } } (1 .. 10) @@ -104,11 +104,11 @@ ArrayRef and HashRef type handlers. is_deeply( $baz->pack, { - __class__ => 'Baz', + __CLASS__ => 'Baz', bars => { map { ($_ => { - __class__ => 'Bar', + __CLASS__ => 'Bar', number => $_, }) } (1 .. 10) @@ -121,11 +121,11 @@ ArrayRef and HashRef type handlers. { my $baz = Baz->unpack( { - __class__ => 'Baz', + __CLASS__ => 'Baz', bars => { map { ($_ => { - __class__ => 'Bar', + __CLASS__ => 'Bar', number => $_, }) } (1 .. 10)