X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F002_basic_io.t;h=3fe1289aaa2ae1e5ac4f7384a1041cace148004c;hb=master;hp=7aacd305f5a1d2f665ebcd1d9b12af445b918850;hpb=619ab942be0a8bd8f530c57ca5b0c8d833cdc89b;p=gitmo%2FMooseX-Storage.git diff --git a/t/002_basic_io.t b/t/002_basic_io.t index 7aacd30..3fe1289 100644 --- a/t/002_basic_io.t +++ b/t/002_basic_io.t @@ -1,5 +1,3 @@ -#!/usr/bin/perl - use strict; use warnings; @@ -24,18 +22,18 @@ BEGIN { package Foo; use Moose; use MooseX::Storage; - + with Storage( format => 'JSON', io => 'File', ); - + 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'); @@ -47,7 +45,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');