perldtrace.d

   1 /*
   2  * Written by Alan Burlinson -- taken from his blog post
   3  * at <http://bleaklow.com/2005/09/09/dtrace_and_perl.html>.
   4  */
   5
   6 provider perl {
   7     probe sub__entry(const char *, const char *, int, const char *);
   8     probe sub__return(const char *, const char *, int, const char *);
   9
  10     probe phase__change(const char *, const char *);
  11 };
  12
  13 /*
  14  * Local Variables:
  15  * tab-width: 4
  16  * indent-tabs-mode: nil
  17  * End:
  18  *
  19  * ex: set ts=8 sts=4 sw=4 noet:
  20  */