File Coverage

blib/lib/MouseX/YAML.pm

Criterion	Covered	Total	%
statement	28	28	100.0
branch	2	2	100.0
condition			n/a
subroutine	9	9	100.0
pod	5	5	100.0
total	44	44	100.0

package MouseX::YAML;

use 5.008_001;
use Mouse::Util; # turns on strict and warnings
use Mouse::Exporter;

our $VERSION = '0.001';

Mouse::Exporter->setup_import_methods(
    as_is  => [qw(Load LoadFile)],
    groups => {
        default => [],
    },
);

sub _is_object_with_meta;
Mouse::Util::generate_can_predicate_for(['meta'], '_is_object_with_meta');

our @Modules;

if(!@Modules){
    @Modules = qw(
        YAML::XS
        YAML::Syck
        YAML
    );
}

my $YAML = Mouse::Util::load_first_existing_class(@Modules);
sub backend(){ $YAML }

{
    package # hide from PAUSE
        MouseX::YAML::Backend;

    $YAML->import(qw(Load LoadFile));
}

sub Load {
    __PACKAGE__->load(@_);
}
sub LoadFile {
    __PACKAGE__->load_file(@_);
}

sub load {
    my($class, $yaml) = @_;

    return $class->_fixup(MouseX::YAML::Backend::Load($yaml));
}

sub load_file {
    my($class, $file) = @_;
    return $class->_fixup(MouseX::YAML::Backend::LoadFile($file));
}

sub _fixup {
    my($class, $proto) = @_;

    my $args = { %{$proto} };

    %{$proto} = ();

    foreach my $value(values %{$args}){
        if(_is_object_with_meta($value)){
            $class->_fixup($value);
        }
    }

    $proto->meta->_initialize_object($proto, $args);
    $proto->BUILDALL($args);
    return $proto;
}

1;
__END__