File Coverage

blib/lib/Dispatch/Fu.pm

Criterion	Covered	Total	%
statement	22	22	100.0
branch	1	2	50.0
condition	1	3	33.3
subroutine	7	7	100.0
pod	3	3	100.0
total	34	37	91.8

package Dispatch::Fu;

use strict;
use warnings;
use Exporter qw/import/;

our $VERSION       = q{0.97};
our @EXPORT        = qw(dispatch on cases);
our @EXPORT_OK     = qw(dispatch on cases);

my $DISPATCH_TABLE = {};

sub cases () {
    return keys %$DISPATCH_TABLE;
}

sub dispatch (&@) {
    my $code_ref  = shift;    # catch sub ref that was coerced from the 'dispatch' BLOCK
    my $match_ref = shift;    # catch the input reference passed after the 'dispatch' BLOCK

    # build up dispatch table for each k/v pair preceded by 'on'
    while ( my $key = shift @_ ) {
        my $HV = shift @_;
        $DISPATCH_TABLE->{$key} = _to_sub($HV);
    }

    # call $code_ref that needs to return a valid bucket name
    my $key = $code_ref->($match_ref);

    die qq{Computed static bucket not found\n} if not $DISPATCH_TABLE->{$key} or 'CODE' ne ref $DISPATCH_TABLE->{$key};

    # call subroutine ref defined as the v in the k/v $DISPATCH_TABLE->{$key} slot
    my $sub_to_call = $DISPATCH_TABLE->{$key};

    # reset table
    $DISPATCH_TABLE = {};

    $sub_to_call->();
}

# on accumulater, wants h => v pair, where h is a static bucket string and v is a sub ref
sub on (@) {
    return @_;
}

# utility sub to force a BLOCK into a sub reference
sub _to_sub (&) {
    shift;
}

1;

__END__