File Coverage

blib/lib/YAML/Perl/Writer.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod	0	2	0.0
total	24	26	92.3

package YAML::Perl::Writer;
use strict;
use warnings;

use YAML::Perl::Stream;

package YAML::Perl::Writer;
use YAML::Perl::Processor -base;

field next_layer => '';

field 'stream' => -init => 'YAML::Perl::Stream::Output->new()';
field 'encoding';

sub open {
    my $self = shift;
    $self->stream->open(@_);
    $self->SUPER::open(@_);
    return $self;
}

sub write {
    my $self = shift;
    $self->stream->write(@_);
}

1;