perl函数映射

在看《编程语言实现模式》的时候突然想到了函数的映射，想到Gitweb里面有实现这样的功能，于是看了看，分享一下：

#!/usr/bin/perl -w
use strict;
use warnings;

#字符串映射函数
our %actions = (
    "foo" => \&foo,
);

sub foo
{
    print "test" ; 
}

sub main
{
    my $action = "foo";
    $actions{$action}->();
}
main;