File Coverage

blib/lib/Data/Difference.pm

Criterion	Covered	Total	%
statement	34	42	80.9
branch	29	44	65.9
condition			n/a
subroutine	6	6	100.0
pod	0	1	0.0
total	69	93	74.1

package Data::Difference;
{
  $Data::Difference::VERSION = '0.112850';
}

use strict;
use warnings;
use base 'Exporter';

our @EXPORT_OK = qw(data_diff);

sub data_diff {
  my ($a, $b) = @_;

  if (ref($a)) {
    if (my $sub = __PACKAGE__->can("_diff_" . ref($a))) {
      return $sub->($a, $b);
    }
    else {
      return {path => [], a => $a, b => $b};
    }
  }
  elsif (defined $a ? defined $b ? $a ne $b : 1 : 0) {
    return {path => [], a => $a, b => $b};
  }

  return;
}

sub _diff_HASH {
  my ($a, $b, @path) = @_;

  return {path => \@path, a => $a, b => $b} unless ref($a) eq ref($b);

  my @diff;
  my %k;
  @k{keys %$a, keys %$b} = ();
  foreach my $k (sort keys %k) {
    if (!exists $a->{$k}) {
      push @diff, {path => [@path, $k], b => $b->{$k}};
    }
    elsif (!exists $b->{$k}) {
      push @diff, {path => [@path, $k], a => $a->{$k}};
    }
    elsif (ref($a->{$k})) {
      if (my $sub = __PACKAGE__->can("_diff_" . ref($a->{$k}))) {
        push @diff, $sub->($a->{$k}, $b->{$k}, @path, $k);
      }
      else {
        push @diff, {path => [@path, $k], a => $a->{$k}, b => $b->{$k}};
      }
    }
    elsif (defined $a->{$k} ? defined $b->{$k} ? $b->{$k} ne $a->{$k} : 1 : 0) {
      push @diff, {path => [@path, $k], a => $a->{$k}, b => $b->{$k}};
    }
  }

  return @diff;
}

sub _diff_ARRAY {
  my ($a, $b, @path) = @_;
  return {path => \@path, a => $a, b => $b} unless ref($a) eq ref($b);

  my @diff;
  my $n = $#$a > $#$b ? $#$a : $#$b;

  foreach my $i (0 .. $n) {
    if ($i > $#$a) {
      push @diff, {path => [@path, $i], b => $b->[$i]};
    }
    elsif ($i > $#$b) {
      push @diff, {path => [@path, $i], a => $a->[$i]};
    }
    elsif (ref($a->[$i])) {
      if (my $sub = __PACKAGE__->can("_diff_" . ref($a->[$i]))) {
        push @diff, $sub->($a->[$i], $b->[$i], @path, $i);
      }
      else {
        push @diff, {path => [@path, $i], a => $a->[$i], b => $b->[$i]};
      }
    }
    elsif (defined $a->[$i] ? defined $b->[$i] ? $b->[$i] ne $a->[$i] : 1 : 0) {
      push @diff, {path => [@path, $i], a => $a->[$i], b => $b->[$i]};
    }
  }

  return @diff;
}

1;

__END__