https://blogs.perl.org/users/rurban/2013/04/28/obj_new_callgraph1.jpg