File Coverage

blib/lib/Algorithm/LatticePoints.pm

Criterion	Covered	Total	%
statement	9	21	42.8
branch			n/a
condition			n/a
subroutine	3	5	60.0
pod	2	2	100.0
total	14	28	50.0

package Algorithm::LatticePoints;

use 5.008001;
use strict;
use warnings;

require Exporter;

our $VERSION = sprintf "%d.%02d", q$Revision: 0.1 $ =~ /(\d+)/g;

sub new($&){
    my $class = shift;
    my $coderef = shift;
    bless $coderef, $class;
}

sub visit{
    my $self = shift;
    my ( $start, $end ) = @_;
    my $loop = 'LOOP';
    $loop =~ s{LOOP}{
        "for my \$i$_ (\$start->[$_]..\$end->[$_]){LOOP}"
    }ex for ( 0 .. @$start - 1 );
    my $args = join ",", map { '$i' . $_ } reverse( 0 .. @$start - 1 );
    $loop =~ s{LOOP}{\$self->($args)};
    eval $loop;
}

if ( $0 eq __FILE__ ) {
    my $al = Algorithm::LatticePoints->new(
        sub {
            printf "[%s]\n", join( ", ", @_ );
        }
    );
    $al->visit( [ 0, 0, 0 ], [ 9, 9, 9 ] );
}

1;
__END__