File Coverage

blib/lib/Data/Hash/Diff/Smart/Renderer/Text.pm

Criterion	Covered	Total	%
statement	17	18	94.4
branch	7	8	87.5
condition			n/a
subroutine	3	3	100.0
pod	0	1	0.0
total	27	30	90.0

package Data::Hash::Diff::Smart::Renderer::Text;

use strict;
use warnings;

sub render {
    my ($changes) = @_;

    return '' unless @$changes;

    my @out;

    for my $c (@$changes) {
        my $op   = $c->{op};
        my $path = $c->{path};

        if ($op eq 'change') {
            push @out,
                "~ $path",
                "- $c->{from}",
                "+ $c->{to}",
                "";
        }
        elsif ($op eq 'add') {
            push @out,
                "+ $path",
                "+ $c->{value}",
                "";
        }
        elsif ($op eq 'remove') {
            push @out,
                "- $path",
                "- $c->{from}",
                "";
        }
        else {
            push @out, "# unknown op: $op";
        }
    }

    return join("\n", @out) . "\n";
}

1;