#!/usr/local/plan9/bin/rc
if (~ $#0 0){
  echo "usage:"
  echo "plumbperlmodule.rc module::submodule [function]"
  exit 1
}
module=$1
sub=$2
file=`{perldoc -mv $module > /dev/null |[2] grep '^Found as ' |sed 's,^Found as ,,g'}
if (! ~ $#sub 0 && ! ~ $#file 0){
  addr=`{9 grep -hn 'sub '^$sub $file |9 sed 's/(^[0-9]+):.*/\1/g'}
}
if (! ~ $#file 0 && test -e $file){
  if (! ~ $#addr 0){
    plumb $file^':'^$addr
  }
  if not {
    plumb $file
  }
}
if not {
  exit 1
}