#!/usr/bin/perl
use strict;

use YAML qw/Dump Bless/;
use YAML::Node;

{

	package Foo;
	use Moose;
	has foo => (
		is  => 'rw',
		isa => 'Any'
	);
	has bar => (
		is  => 'rw',
		isa => 'Any'
	);
}

my $foo = Foo->new(
	foo => 'fooValue',
	bar => 'barValue'
);
Bless($foo)->keys(['foo']);
print "##### Moose obj #####\n";
print Dump $foo;

my $bar = {
	foo => 'fooValue',
	bar => 'barValue'
};
Bless($bar)->keys(['foo']);
print "##### hashref #####\n";
print Dump $bar;