File Coverage

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

Criterion	Covered	Total	%
statement	72	80	90.0
branch	2	6	33.3
condition	4	4	100.0
subroutine	19	20	95.0
pod	12	14	85.7
total	109	124	87.9

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

our $VERSION = '0.005'; # VERSION

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

use base 'YAML::PP::Emitter';

sub new {
    my ($class, %args) = @_;
    my $indent = delete $args{indent} || 2;
    my $width = delete $args{width} || 80;
    my $self = bless {
        indent => $indent,
        width => $width,
    }, $class;
    if (keys %args) {
        die "Unexpected arguments: " . join ', ', sort keys %args;
    }
    $self->{events} = [];
    return $self;
}
sub events { return $_[0]->{events} }
sub indent { return $_[0]->{indent} }
sub width { return $_[0]->{width} }


sub mapping_start_event {
    my ($self, $info) = @_;
    $info->{name} = 'mapping_start_event';
    push @{ $self->events }, $info;
}

sub mapping_end_event {
    my ($self, $info) = @_;
    $info->{name} = 'mapping_end_event';
    push @{ $self->events }, $info;
}

sub sequence_start_event {
    my ($self, $info) = @_;
    $info->{name} = 'sequence_start_event';
    push @{ $self->events }, $info;
}

sub sequence_end_event {
    my ($self, $info) = @_;
    $info->{name} = 'sequence_end_event';
    push @{ $self->events }, $info;
}

sub scalar_event {
    my ($self, $info) = @_;
    $info->{name} = 'scalar_event';
    push @{ $self->events }, $info;
}

sub alias_event {
    my ($self, $info) = @_;
    $info->{name} = 'alias_event';
    push @{ $self->events }, $info;
}

sub document_start_event {
    my ($self, $info) = @_;
    $info->{name} = 'document_start_event';
    push @{ $self->events }, $info;
}

sub document_end_event {
    my ($self, $info) = @_;
    $info->{name} = 'document_end_event';
    push @{ $self->events }, $info;
}

sub stream_start_event {
    my ($self, $info) = @_;
    $info->{name} = 'stream_start_event';
    push @{ $self->events }, $info;
}

sub stream_end_event {
    my ($self, $info) = @_;
    $info->{name} = 'stream_end_event';
    push @{ $self->events }, $info;
    my $events = $self->events;
    my $writer = $self->writer;
    $writer->init();
    my $options = {
        indent => $self->indent,
        width => $self->width,
    };

    if ($writer->can('open_handle')) {
        if (openhandle($writer->output)) {
            YAML::LibYAML::API::XS::emit_filehandle_events(
                $writer->open_handle, $events, $options
            );
        }
        else {
            YAML::LibYAML::API::XS::emit_file_events(
                $writer->output, $events, $options
            );
        }
    }
    else {
        my $out = YAML::LibYAML::API::XS::emit_string_events($events, $options);
        $self->writer->write($out);
    }

    @$events = ();
}

1;

__END__