# this works as a bash include
#
#COMM Math::Range, read/write boundaries
#
perl -e '
   use strict;
   use lib shift();  # give include precedence to code directory, perl -I would not work!
   use Math::Range;
   my $r;
   $r=Math::Range->new([1.5,10]);
   range_out($r);
   $r->lower();
   $r->upper();
   range_out($r);
   $r->lower($r->lower()+5);
   range_out($r);
   $r->lower(undef);
   range_out($r);
   sub range_out {
     my $r=shift;
     printf "range %s\n", $r->string();
     printf " range is sharply defined: %d\n", $r->is_sharp();
   }
 ' -- $dircode
