X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F102_io_storable_file.t;h=9a9851c6b49d968d51021f837a6232db9c92c07a;hb=8725bb5d7fbdf359440b192c53f23f7b9b36b73e;hp=c44e43a9a59a1b792fa7325a95bf16af82439767;hpb=619ab942be0a8bd8f530c57ca5b0c8d833cdc89b;p=gitmo%2FMooseX-Storage.git diff --git a/t/102_io_storable_file.t b/t/102_io_storable_file.t index c44e43a..9a9851c 100644 --- a/t/102_io_storable_file.t +++ b/t/102_io_storable_file.t @@ -1,5 +1,3 @@ -#!/usr/bin/perl - use strict; use warnings; @@ -17,15 +15,15 @@ BEGIN { package Foo; use Moose; use MooseX::Storage; - + with Storage(io => 'StorableFile'); - + 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.storable'); @@ -37,7 +35,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');