in reply to Moose and YAML

When I run your script it outputs: 
##### Moose obj #####
--- !!perl/hash:Foo
bar: barValue
foo: fooValue
##### hashref #####
---
foo: fooValue

[download]
Did you expect anything else?

Update: Try it with any standard (non-moose) object: you will get the same result. An object is not a simple data-structure: Bless and keys only work their magic on non-object data-structures.

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^2: Moose and YAML
by llancet (Friar) on Apr 27, 2010 at 00:43 UTC
    So how should I work with objects?
[reply]
      YAML just "works" with objects too:
      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.
+';

      [download]
      As expected it returns:
      Dumper original object: $VAR1 = \bless( {
                   'bar' => 'barValue',
                   'foo' => 'fooValue'
                 }, 'Foo' );
Dumper new object:       $VAR1 = \bless( {
                   'bar' => 'barValue',
                   'foo' => 'fooValue'
                 }, 'Foo' );

I am a Foo!

      [download]

      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

[reply]
[d/l]
[select]
        Ok... I mean 'work with specific keys of a object'.
[reply]

In Section Seekers of Perl Wisdom