package GO::Parsers::obj_yaml_parser;
use strict;
use base qw(GO::Parsers::obj_emitter GO::Parsers::base_parser);
use GO::Model::Graph;
use YAML;

sub parse_fh {
    my ($self, $fh) = @_;
    my $str = join('',<$fh>);
    $fh->close;
    my $g = Load($str);
    $self->emit_graph($g);
    return $g;
}


1;