t/001_basic.t

   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