File Coverage

blib/lib/Test/Deep/YAML.pm

Criterion	Covered	Total	%
statement	35	35	100.0
branch	2	2	100.0
condition	4	6	66.6
subroutine	14	14	100.0
pod	1	4	25.0
total	56	61	91.8

use strict;
use warnings;
package Test::Deep::YAML;
BEGIN {
  $Test::Deep::YAML::AUTHORITY = 'cpan:ETHER';
}
# git description: v0.001-13-gc7b3f74
$Test::Deep::YAML::VERSION = '0.002';
# ABSTRACT: A Test::Deep plugin for comparing YAML-encoded data
# vim: set ts=8 sw=4 tw=78 et :

use parent 'Test::Deep::Cmp';
use Exporter 'import';
use Test::Deep;
use Try::Tiny;
use YAML 'Load';

our @EXPORT = qw(yaml);

sub yaml
{
    my ($expected) = @_;
    return __PACKAGE__->new($expected);
}

sub init
{
    my ($self, $expected) = @_;
    $self->{val} = $expected;
}

sub descend
{
    my ($self, $got) = @_;

    my $data = try
    {
         Load($got);
    }
    catch
    {
        chomp($self->{error_message} = $_);
        undef;
    };

    return 0 if not $data or $self->{error_message};

    return Test::Deep::wrap($self->{val})->descend($data);
}

sub diagnostics
{
    my ($self, $where, $last) = @_;
    return $self->{error_message}
        || $self->{val}->diagnostics($where, $last);
}

1;

__END__