File Coverage

blib/lib/Util/Task/Simple.pm

Criterion	Covered	Total	%
statement	9	15	60.0
branch			n/a
condition			n/a
subroutine	3	5	60.0
pod	1	2	50.0
total	13	22	59.0

=head1 NAME

Util::Task::Simple - A completely uncoalescable, stupid implementation of Util::Task that just runs a closure.

=head1 SYNOPSIS

    my $task = Util::Task::Simple->new(\&some_sub);

=head1 DESCRIPTION

This Task implementation is about as stupid as they get, just running a given bit of code with no special magic.
Consequently it can't coalesce, and runs all of its tasks sequentially. It also can't be remoted.

It should only be used for quick prototyping, and any uses of it should be replaced with a more sensible
L subclass before long.

=cut

package Util::Task::Simple;

use strict;
use warnings;
use base qw(Util::Task);

sub new {
    my ($class, $code) = @_;

    return bless $code, $class;
}

sub execute_multi {
    my ($class, $batching_key, $tasks, $results) = @_;

    foreach my $k (keys %$tasks) {
        my $task = $tasks->{$k};
        $results->{$k} = $task->();
    }
}

1;