# this works as a bash include
#
#COMM test MainLib::Data, SeqLab::MotifLib, SeqLab::MotifIUPAC,
#COMM   - paralleling to SeqMotif.pl
#COMM   - esp. &SeqLab::MotifLib::_LibMtfFLocate
#COMM   - esp. SeqLab::MotifIUPAC->ini()
#
perl -e '
  use lib shift();  # give include precedence to code directory, perl -I would not work!
  use SeqLab::MotifLib qw();
  my $m = SeqLab::MotifLib->new($ARGV[0]);
  unless($m){ die "unable to build motif object from file $ARGV[0]\n" }
  printf "retrieved %d motif%s\n", $m->Size(), ($m->Size()==1)?q():q(s);
  ' -- "$dircode" $dirtest/${setstamp}_mtf.dat
