my ($pkg,$sym) = unpack
  "A" . rindex($qualified_name, "::") . " x2 A*",
  $qualified_name;