NAME

B::Tap - Inject tapping node to optree

SYNOPSIS

use B;
use B::Tap;
use B::Tools;

sub foo { 63 }

my $code = sub { foo() + 5900 };
my $cv = B::svref_2object($code);

my ($entersub) = op_grep { $_->name eq 'entersub' } $cv->ROOT;
tap($$entersub, ${$cv->ROOT}, \my @buf);

$code->();

DESCRIPTION

B::Tap is tapping library for B tree. tap function injects custom ops for fetching result of the node.

The implementation works, but it's not beautiful code. I'm newbie about the B world, Patches welcome.

WARNINGS: This module is in a alpha state. Any API will change without notice.

FUNCTIONS

tap($op, $root_op, \@buf)

Tapping the result value of $op. You need pass the $root_op for rewriting tree structure. Tapped result value was stored to \@buf. \@buf must be arrayref.

B::Tap push the current stack to \@buf. First element for each value is GIMME_V. Second element is the value of stacks.

G_SCALAR

G_ARRAY

G_VOID

These functions are not exportable by default. If you want to use these functions, specify the import arguments like:

use B::Tap ':all';

Or

use B::Tap qw(G_SCALAR G_ARRAY G_VOID);

FAQ

Why this module required 5.14+?

Under 5.14, Perl5's custom op support is incomplete. B::Deparse can't deparse the code using custom ops.

I seem this library without deparsing is useless.

But if you want to use this with 5.8, it may works.

LICENSE

Copyright (C) tokuhirom.

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

AUTHOR

tokuhirom <tokuhirom@gmail.com>