X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F009_do_not_serialize_lazy.t;h=924206504a41f36f5030a9786c33f764d0d7d0fb;hb=c2dae5d88280be6f80857e79194f092298f88b36;hp=3a6c9cc4f22f194aa92975e6c4b730ff6225a4f2;hpb=619ab942be0a8bd8f530c57ca5b0c8d833cdc89b;p=gitmo%2FMooseX-Storage.git diff --git a/t/009_do_not_serialize_lazy.t b/t/009_do_not_serialize_lazy.t index 3a6c9cc..9242065 100644 --- a/t/009_do_not_serialize_lazy.t +++ b/t/009_do_not_serialize_lazy.t @@ -1,5 +1,3 @@ -#!/usr/bin/perl - use strict; use warnings; @@ -20,8 +18,8 @@ BEGIN { has 'x' => (is => 'rw', lazy_build => 1 ); has 'y' => (is => 'rw', lazy_build => 1 ); has 'z' => (is => 'rw', builder => '_build_z' ); - - + + sub _build_x { 'x' } sub _build_y { 'y' } sub _build_z { 'z' } @@ -38,8 +36,8 @@ is( $href->{'x'}, $$, " x => $$" ); is( $href->{'z'}, 'z', " z => z" ); ok( not(exists($href->{'y'})), " y does not exist" ); -cmp_deeply( - $href, +cmp_deeply( + $href, { '__CLASS__' => 'Point', 'x' => $$, 'z' => 'z'