Help for this page

Select Code to Download


  1. or download this
      use B::Deparse;
  $deparse = B::Deparse->new("-p", "-sC");
  $body = $deparse->coderef2text(\&func);
  2. or download this
      zen% perl -MB::Deparse -MCarp -wle 'print B::Deparse->new("-p","-sC"
+)->coderef2text(\&Carp::confess)'
  {
...
      die(longmess(@_));
  }
  zen%