File Coverage

blib/lib/Sub/Recursive.pm

Criterion	Covered	Total	%
statement	35	35	100.0
branch			n/a
condition			n/a
subroutine	9	9	100.0
pod	2	2	100.0
total	46	46	100.0

package Sub::Recursive;
use 5.006;

$VERSION = 0.05;
@EXPORT = qw/ recursive $REC /;
@EXPORT_OK = (@EXPORT, qw/ mutually_recursive %REC /);
$EXPORT_TAGS{ALL} = \@EXPORT_OK;

$REC = '$REC is a special variable used by ' . __PACKAGE__;
%REC = ($REC, $REC);

use strict;
use base 'Exporter';

sub recursive (&) {
    my ($code) = @_;

    my $rec = do { no strict 'refs'; \*{caller() . '::REC'} };
    return sub {
        local *$rec = \$code;
        &$code;
    };
}

sub mutually_recursive {
    my @p = @_;
    my %p = @_;

    my $rec = do { no strict 'refs'; \*{caller() . '::REC'} };

    my $c = 0;
    my @codes;
    for my $code (grep { $c++ % 2 } @p) {
        push @codes => sub {
            local *$rec = \$code;
            local *$rec = \%p;
            &$code;
        };
    }
    return @codes;
}

1;

__END__