perl函数映射

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

 1 #!/usr/bin/perl -w
 2 use strict;
 3 use warnings;
 4 
 5 #字符串映射函数
 6 our %actions = (
 7     "foo" => \&foo,
 8 );
 9 
10 sub foo
11 {
12     print "test" ; 
13 }
14 
15 sub main
16 {
17     my $action = "foo";
18     $actions{$action}->();
19 }
20 main;