X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F103_io_storable_file_custom.t;h=ed991d4f0c2a9d830e84bab0cbc19db5417acb84;hb=19d8a777247d4816be278da681de598526eaf1f2;hp=88093b81cb9eaf87af3cb3152a8861b29bdddbcc;hpb=c2dae5d88280be6f80857e79194f092298f88b36;p=gitmo%2FMooseX-Storage.git diff --git a/t/103_io_storable_file_custom.t b/t/103_io_storable_file_custom.t index 88093b8..ed991d4 100644 --- a/t/103_io_storable_file_custom.t +++ b/t/103_io_storable_file_custom.t @@ -24,10 +24,10 @@ BEGIN { has 'float' => (is => 'ro', isa => 'Num'); has 'array' => (is => 'ro', isa => 'ArrayRef'); has 'hash' => (is => 'ro', isa => 'HashRef'); - has 'object' => (is => 'ro', isa => 'Object'); - - ## add some custom freeze/thaw hooks here ... - + has 'object' => (is => 'ro', isa => 'Object'); + + ## add some custom freeze/thaw hooks here ... + sub thaw { my ( $class, $data ) = @_; my $self = $class->unpack( $data ); @@ -53,7 +53,7 @@ my $file = catfile($dir,'temp.storable'); float => 10.5, array => [ 1 .. 10 ], hash => { map { $_ => undef } (1 .. 10) }, - object => Foo->new( number => 2 ), + object => Foo->new( number => 2 ), ); isa_ok($foo, 'Foo');