File Coverage

blib/lib/B/Tools.pm

Criterion	Covered	Total	%
statement	28	28	100.0
branch	2	2	100.0
condition			n/a
subroutine	10	10	100.0
pod	3	3	100.0
total	43	43	100.0

package B::Tools;
use 5.008005;
use strict;
use warnings;

our $VERSION = "0.01";

use parent qw(Exporter);

our @EXPORT = qw(op_grep op_walk op_descendants);

sub op_walk(&$) {
    my ($code, $op) = @_;
    local *B::OP::walkoptree_simple = sub {
        local $_ = $_[0];
        $code->();
    };
    B::walkoptree($op, 'walkoptree_simple');
}

sub op_grep(&$) {
    my ($code, $op) = @_;

    my @ret;
    op_walk {
        if ($code->()) {
            push @ret, $_;
        }
    } $op;
    return @ret;
}

sub op_descendants($) {
    my $op = shift;
    my @result;
    op_walk {
        push @result, $_;
    } $op;
    return @result;
}

1;
__END__