[gitmo/MooseX-Storage.git] / t / 001_basic.t

#!/usr/bin/perl

use strict;
use warnings;

use Test::More no_plan => 1;

{
    package Foo;
    use Moose;
    use MooseX::Storage;
    
    with Storage('JSON');
    
    has 'number' => (is => 'ro', isa => 'Int');
    has 'string' => (is => 'ro', isa => 'Str');
    has 'float' => (is => 'ro', isa => 'Num');        
    has 'array' => (is => 'ro', isa => 'ArrayRef');
	has 'object' => (is => 'ro', isa => 'Object');    
}

my $foo = Foo->new(
    number => 10,
    string => 'foo',
    float  => 10.5,
    array => [ 1 .. 10 ],
	object => Foo->new( number => 2 ),
);

diag $foo->freeze;
Commit	Line	Data
e59193fb	1	#!/usr/bin/perl
	2
	3	use strict;
	4	use warnings;
	5
	6	use Test::More no_plan => 1;
	7
	8	{
	9	package Foo;
	10	use Moose;
	11	use MooseX::Storage;
	12
	13	with Storage('JSON');
	14
	15	has 'number' => (is => 'ro', isa => 'Int');
	16	has 'string' => (is => 'ro', isa => 'Str');
	17	has 'float' => (is => 'ro', isa => 'Num');
	18	has 'array' => (is => 'ro', isa => 'ArrayRef');
	19	has 'object' => (is => 'ro', isa => 'Object');
	20	}
	21
	22	my $foo = Foo->new(
	23	number => 10,
	24	string => 'foo',
	25	float => 10.5,
	26	array => [ 1 .. 10 ],
	27	object => Foo->new( number => 2 ),
	28	);
	29
	30	diag $foo->freeze;
	31