#
# Intended to be the caller
#
my $originals = $self->get_originals();
my $changes   = $self->get_changes();

#
# Intended to be the 'offending' package
#
 ... 
sub get_originals {
  return $_[0]->{'original'};
}

sub get_changes {
  return $_[0]->{'changes'}
}