in reply to Re^2: Moose and YAML
in thread Moose and YAML
As expected it returns:use strict; use warnings; use 5.010; use YAML qw/Dump Bless Load/; use Data::Dumper; { package Foo; use Moose; has foo => ( is => 'rw', isa => 'Any' ); has bar => ( is => 'rw', isa => 'Any' ); } my $foo = Foo->new( foo => 'fooValue', bar => 'barValue' ); print 'Dumper original object: ', Dumper(\$foo); my $yaml_foo = Dump $foo; # Serialize object to YAML my $other_foo = Load ($yaml_foo); # Deserialize to Foo say 'Dumper new object: ',Dumper(\$other_foo); say $other_foo->isa('Foo') ? 'I am a Foo!' : 'I do not know what I am. +';
Dumper original object: $VAR1 = \bless( { 'bar' => 'barValue', 'foo' => 'fooValue' }, 'Foo' ); Dumper new object: $VAR1 = \bless( { 'bar' => 'barValue', 'foo' => 'fooValue' }, 'Foo' ); I am a Foo!
CountZero
A program should be light and agile, its subroutines connected like a string of pearls. The spirit and intent of the program should be retained throughout. There should be neither too little or too much, neither needless loops nor useless variables, neither lack of structure nor overwhelming rigidity." - The Tao of Programming, 4.1 - Geoffrey James
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^4: Moose and YAML
by llancet (Friar) on Apr 28, 2010 at 05:43 UTC | |
by Anonymous Monk on Apr 28, 2010 at 06:30 UTC | |
by llancet (Friar) on Apr 28, 2010 at 11:12 UTC | |
by CountZero (Bishop) on May 01, 2010 at 06:43 UTC | |
by Anonymous Monk on May 01, 2010 at 06:58 UTC |