B::Hooks::OP::PPAddr - Hook into opcode execution
#include "hook_op_check.h" #include "hook_op_ppaddr.h" STATIC OP * execute_entereval (pTHX_ OP *op, void *user_data) { ... } STATIC OP * check_entereval (pTHX_ OP *op, void *user_data) { hook_op_ppaddr (op, execute_entereval, NULL); } hook_op_check (OP_ENTEREVAL, check_entereval, NULL);
This module provides a c api for XS modules to hook into the execution of perl opcodes.
ExtUtils::Depends is used to export all functions for other XS modules to use. Include the following in your Makefile.PL:
my $pkg = ExtUtils::Depends->new('Your::XSModule', 'B::Hooks::OP::PPAddr'); WriteMakefile( ... # your normal makefile flags $pkg->get_makefile_vars, );
Your XS module can now include hook_op_check.h.
hook_op_check.h
Type that callbacks need to implement.
Replace the function to execute op with the callback cb. user_data will be passed to the callback as the last argument.
op
cb
user_data
Register the callbacks before and after to be called before and after the execution of op. user_data will be passed to the callback as the last argument.
before
after
Florian Ragwitz <rafl@debian.org>
Copyright (c) 2008 Florian Ragwitz
This module is free software.
You may distribute this code under the same terms as Perl itself.
To install B::Hooks::OP::PPAddr, copy and paste the appropriate command in to your terminal.
cpanm
cpanm B::Hooks::OP::PPAddr
CPAN shell
perl -MCPAN -e shell install B::Hooks::OP::PPAddr
For more information on module installation, please visit the detailed CPAN module installation guide.