# this works as a bash include
#
#PRIO 1.5
#COMM test MainLib::DefaultObjHash
#COMM - esp. method _LocalSwitch()
#
perl -I$dirtest -M${setstamp}_callsub -e '
  use lib shift();
  use strict;
  my $o=TestOO->new();
  $o->switches(-sw2=>q(B));
  ' $direxec 2>&1  \
| sort
