File Coverage

blib/lib/YAML/PP/LibYAML/Parser.pm

Criterion	Covered	Total	%
statement	39	40	97.5
branch	5	6	83.3
condition	1	3	33.3
subroutine	10	10	100.0
pod	0	4	0.0
total	55	63	87.3

# ABSTRACT: Parser for YAML::PP::LibYAML
package YAML::PP::LibYAML::Parser;
use strict;
use warnings;

our $VERSION = '0.005'; # VERSION

use YAML::LibYAML::API::XS;
use YAML::PP::Reader;
use Scalar::Util qw/ openhandle /;

use base 'YAML::PP::Parser';

sub new {
    my ($class, %args) = @_;
    my $reader = delete $args{reader} || YAML::PP::Reader->new;
    my $receiver = delete $args{receiver};

    my $self = bless {
        reader => $reader,
    }, $class;
    if ($receiver) {
        $self->set_receiver($receiver);
    }
    return $self;
}

sub reader { return $_[0]->{reader} }
sub set_reader {
    my ($self, $reader) = @_;
    $self->{reader} = $reader;
}

sub parse {
    my ($self) = @_;
    my $reader = $self->reader;
    my $events = [];
    if ($reader->can('open_handle')) {
        if (openhandle($reader->input)) {
            my $test = YAML::LibYAML::API::XS::parse_filehandle_events($reader->open_handle, $events);
        }
        else {
            my $test = YAML::LibYAML::API::XS::parse_file_events($reader->input, $events);
        }
    }
    else {
        my $yaml = $reader->read;
        my $test = YAML::LibYAML::API::XS::parse_string_events($yaml, $events);
    }
    for my $info (@$events) {
        my $name = $info->{name};
        $self->callback->( $self, $name => $info );
    }
}


1;

__END__