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 probe op__entry(const char *); 13 14 probe loading__file(const char *); 15 probe loaded__file(const char *); 16 }; 17 18 /* 19 * ex: set ts=8 sts=4 sw=4 et: 20 */ 21