# this works as a bash include
#
#PRIO 1.1
#COMM test MainLib::StrRegexp::LineBreak
#COMM - include test of switch -rm
#
perl -e '
  use lib shift();  # give include precedence to code directory, perl -I would not work!
  use strict;
  use MainLib::StrRegexp;
  my $t1 = "hello";
  printf "%s\n", &LineBreak($t1);
  print  "-----\n";
  my $t2 = <<TXT_END;
There are unsaved changes to the database. However, this is the EMERGENCY
save option. There is no possibility to stop closure of the application.
Moreover, it may happen that the emergency save fails or even destroys the
database.

Do you want to save the changes?
TXT_END
  printf "%s\n", &LineBreak($t2);
  print  "-----\n";
  printf "%s\n", &LineBreak($t2,-rm=>1);
  ' -- "$dircode"
