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
In reply to Re^3: Moose and YAML
by CountZero
in thread Moose and YAML
by llancet
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |