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 * Local Variables: 20 * tab-width: 4 21 * indent-tabs-mode: nil 22 * End: 23 * 24 * ex: set ts=8 sts=4 sw=4 et: 25 */ 26