initial commit

Author: oodler577

README.md

@@ -0,0 +1,39 @@
+# p5-Dispatch-Fu
+
+This is currently the proof of concept of an idea I had to solve
+generally the given/when or so-called "smart match' problem by offering
+a syntax (thanks again to Perl's prototype coercions) that semantically
+allow one to deduce any set of values into a static key according to
+a custom reduction operation they create; then use that key to do an O(1)
+dispatch.
+
+The solution is tiny and uses the accumlator nature of prototypes. All
+complexity is offloaded to the custom implemention of the `fu` block.
+Assuming the `fu` block is fast, the entire dispatch will be fast.
+
+```
+use strict;
+use warnings;
+use Dispatch::Fu;    # exports 'fu' and 'on'
+
+my $bar = [qw/1 2 3 4 5/];
+
+fu {
+    # here, give a reference $bar of any kind,
+    # you compute a static string that is added
+    # via the 'on' keyword; result will be
+    # 'bucket' + some number in in 0-5
+
+    my $baz = shift;
+    return ( scalar @$baz > 5 )
+      ? q{bucket5}
+      : sprintf qq{bucket%d}, scalar @$baz;
+}
+$bar,
+  on bucket0 => sub { print qq{bucket 0\n} },
+  on bucket1 => sub { print qq{bucket 1\n} },
+  on bucket2 => sub { print qq{bucket 2\n} },
+  on bucket3 => sub { print qq{bucket 3\n} },
+  on bucket4 => sub { print qq{bucket 4\n} },
+  on bucket5 => sub { print qq{bucket 5\n} };
+```

dist.ini

@@ -0,0 +1,17 @@
+name    = Dispatch::Fu 
+author  = oodler577 <oodler@cpan.org>
+license = Perl_5
+copyright_holder = oodler577 
+copyright_year   = 2023
+[@Basic]
+[VersionFromModule]
+[MetaJSON]
+[GithubMeta]
+homesite = https://github.com/oodler577/p5-Dispatch-Fu.git
+[KwaliteeTests]
+[CheckChangeLog]
+[Prereqs / TestRequires]
+Test::More                           = 0
+[PruneCruft]
+[PruneFiles]
+filename = releases/

lib/Dispatch/Fu.pm

@@ -0,0 +1,24 @@
+use strict;
+use warnings;
+
+package Dispatch::Fu;
+
+our $VERSION = q{0.8};
+
+use Exporter qw/import/;
+our @EXPORT    = qw(fu on);
+our @EXPORT_OK = qw(fu on);
+
+sub fu (&@) {
+    my $code_ref  = shift;
+    my $match_ref = shift;
+    my %dispatch  = @_;
+    my $key       = $code_ref->($match_ref);
+    $dispatch{$key}->();
+}
+
+sub on (@) {
+    return @_;
+}
+
+1;

t/00-example.t

@@ -0,0 +1,24 @@
+use strict;
+use warnings;
+use Dispatch::Fu;    # exports 'fu' and 'on'
+
+my $bar = [qw/1 2 3 4 5/];
+
+fu {
+    # here, give a reference $H of any kind,
+    # you compute a static string that is added
+    # via the 'on' keyword; result will be
+    # 'bucket' + some number in in 0-5
+
+    my $baz = shift;
+    return ( scalar @$baz > 5 )
+      ? q{bucket5}
+      : sprintf qq{bucket%d}, scalar @$baz;
+}
+$bar,
+  on bucket0 => sub { print qq{bucket 0\n} },
+  on bucket1 => sub { print qq{bucket 1\n} },
+  on bucket2 => sub { print qq{bucket 2\n} },
+  on bucket3 => sub { print qq{bucket 3\n} },
+  on bucket4 => sub { print qq{bucket 4\n} },
+  on bucket5 => sub { print qq{bucket 5\n} };