X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F061_basic_deferred_w_io.t;h=95539ae51678354241b3362ecf2fb8e17cf998ff;hb=8b2ba857269b040d3a0f11f3d95e2c5b9af44415;hp=b0a24ac1490f34996234ae24a01d1ca96d334a04;hpb=619ab942be0a8bd8f530c57ca5b0c8d833cdc89b;p=gitmo%2FMooseX-Storage.git diff --git a/t/061_basic_deferred_w_io.t b/t/061_basic_deferred_w_io.t index b0a24ac..95539ae 100644 --- a/t/061_basic_deferred_w_io.t +++ b/t/061_basic_deferred_w_io.t @@ -1,5 +1,3 @@ -#!/usr/bin/perl - use strict; use warnings; @@ -24,15 +22,15 @@ BEGIN { package Foo; use Moose; use MooseX::Storage; - + with 'MooseX::Storage::Deferred'; - + has 'number' => (is => 'ro', isa => 'Int'); has 'string' => (is => 'ro', isa => 'Str'); - has 'float' => (is => 'ro', isa => 'Num'); + has 'float' => (is => 'ro', isa => 'Num'); has 'array' => (is => 'ro', isa => 'ArrayRef'); - has 'hash' => (is => 'ro', isa => 'HashRef'); - has 'object' => (is => 'ro', isa => 'Object'); + has 'hash' => (is => 'ro', isa => 'HashRef'); + has 'object' => (is => 'ro', isa => 'Object'); } my $file = catfile($dir, 'temp.json'); @@ -44,7 +42,7 @@ my $file = catfile($dir, 'temp.json'); 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'); @@ -75,7 +73,7 @@ ok(!(-e $file), '... the file has been deleted'); 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');