Untitled

#!/usr/bin/perl -w
use strict;
package Foo;
use Moose;

has foo => (
    is => 'ro',
);

1;

package main;
use MooseX::YAML qw(Load LoadFile -xs);

#my $x = LoadFile('foo.yml');
#warn $x;
my $y = Load(<<'YAML');
--- !Foo
foo: moose
YAML

warn $y;