File Coverage

blib/lib/List/MapBruteBatch.pm

Criterion	Covered	Total	%
statement	18	20	90.0
branch	6	8	75.0
condition			n/a
subroutine	5	5	100.0
pod	0	1	0.0
total	29	34	85.2

package List::MapBruteBatch;
BEGIN { $List::MapBruteBatch::VERSION = '0.01'; }
use strict;
use warnings;
use Exporter 'import';

our @EXPORT_OK = 'map_brute_batch';

sub map_brute_batch {
    my ($cb, $items, $cb_success, $cb_failure) = @_;

    if ($cb->($items)) {
        return $cb_success->($items) if $cb_success;
        return;
    } elsif (@$items > 1) {
        my $i = @$items;
        my @a = @$items[0 .. ($i / 2)-1];
        my @b = @$items[$i / 2 .. ($i - 1)];

        return (
            map_brute_batch($cb, \@a, $cb_success, $cb_failure),
            map_brute_batch($cb, \@b, $cb_success, $cb_failure),
        );
    } else {
        return $cb_failure->($items) if $cb_failure;
        return;
    }

}

1;

__END__