mr-mixas / struct-diff.pm Goto Github PK

my $diff = diff({ port => "1434" }, { port => "1434" }, noU => 1);

print Dumper($diff);

{
  D => {
    port => {
      N => "1434",
      O => "1434",
    }
  }
}

print "CHECKING $k\n";
print "\tx: '" . $x->{$k} . "' " . $opts{freezer}($x->{$k}) . "\n";
print "\ty: '" . $y->{$k} . "' " . $opts{freezer}($y->{$k}) . "\n";

CHECKING port
	x: '1434' 
                 12345678
1434
	y: '1434' 
                 123451434