# this works as a bash include
#
#COMM Math::Range, &DataPrint
#
function homogaddr {
  perl -n -e 's/(ARRAY|HASH)\(0x\w{5,8}\)/$1(0x123ABC)/; print' "$@"
}
perl -e '
  use strict;
  use lib shift();  # give include precedence to code directory, perl -I would not work!
  use MainLib::Data qw(&DataPrint);
  use Math::Range;
  my $r1=Math::Range->new(1,2);
  print "\@\n";
  &DataPrint($r1,-NoAddr=>1);
  print "\@\n";
  &DataPrint([$r1],-NoAddr=>1);
  print "\@\n";
  &DataPrint($r1);
  print "\@\n";
  &DataPrint([$r1]);
  ' -- $dircode  \
| homogaddr
