#!/usr/bin/perl
use strict;
use warnings FATAL => qw( all );

use Data::Compare;
use Data::Dumper;

# You can take out all instances of the subroutine 'line' to print what you want in those places.

sub deep_data_compare {
  my ($tab, $old_data, $new_data, $data) = @_;

  my $old = $old_data;
  my $new = $new_data;

  my $compare = new Data::Compare($old, $new);

  if ($compare->Cmp == 0) {
    line($tab,$data) if $data;
    
    if (ref($old) eq 'HASH' && ref($new) eq 'HASH') {
      line($tab+1,'old to new');
      for (keys %$old) {
        deep_data_compare($tab+2,$_,$$old{$_},$$new{$_});
      }
    }

# I have not figured out this part yet.
#    elsif (ref($old) eq 'ARRAY' && ref($new) eq 'ARRAY') {
#    }

    else {
      print Dumper($new);
      print Dumper($old);
    }
  }
}

sub rline {
  my ($tab,$line) = @_;
  return qq(\t) x $tab.qq($line\n);
}

sub line {
  print rline(@_);
}


deep_data_compare(0, \%old_hash, \%new_hash, 'widgets');