sub can {
  my ($obj, $meth) = (@_);
  my $f = $obj->SUPER::can($meth);
  return $f if defined $f;
  # There is no "usual" way to get the function; try loadPari()
  $f = eval { loadPari($meth) };   # Math/Pari.pm line 1136
  return $f if defined $f;
  return;
}

##</code><code>##

   $f = eval { loadPari($meth) };
   return $f if defined $f;
+  if ($meth eq 'as_number') {
+    require Carp;
+    Carp::cluck("failed to find as_number");
+  }
   return;
 }