File Coverage

blib/lib/YAML/PP/Schema/Failsafe.pm

Criterion	Covered	Total	%
statement	13	18	72.2
branch			n/a
condition			n/a
subroutine	4	6	66.6
pod	1	1	100.0
total	18	25	72.0

use strict;
use warnings;
package YAML::PP::Schema::Failsafe;

our $VERSION = 'v0.40.0'; # VERSION

sub register {
    my ($self, %args) = @_;
    my $schema = $args{schema};

    $schema->add_resolver(
        tag => 'tag:yaml.org,2002:str',
        match => [ all => sub { $_[1]->{value} } ],
    );
    $schema->add_sequence_resolver(
        tag => 'tag:yaml.org,2002:seq',
        on_data => sub {
            my ($constructor, $ref, $list) = @_;
            push @$$ref, @$list;
        },
    );
    $schema->add_mapping_resolver(
        tag => 'tag:yaml.org,2002:map',
        on_data => sub {
            my ($constructor, $ref, $list) = @_;
            for (my $i = 0; $i < @$list; $i += 2) {
                $$ref->{ $list->[ $i ] } = $list->[ $i + 1 ];
            }
        },
    );

    return;
}

1;

__END__