# this works as a bash include
#
#PRIO 1
#COMM test FileHandle::InBuffer
#COMM - construction and error management/messaging
#
perl -e '
  use lib shift();
  use FileHandle::InBuffer;
  &CallFHB::BadConstruct();
  package CallFHB;  # the reported code line refers to the package
  sub BadConstruct {
    $h=FileHandle::InBuffer->new(q(x),q(x));
    print scalar <$h>;
  }
  ' $dircode 2>&1  \
| perl -n -e 's/eval (\d+)/eval 3/; s/(line \d+)$/$1./; print;'
