closureとは

closureは無名関数
subと{の間に関数名がないもの
$cl = sub {
   my $yourname = shift;
   print "Hello, $yourname.\n";
}

関数をハッシュに入れたいときに便利
 %dispatch = (
   bark => sub { $obj->bark(@_) },
   walk => sub { $obj->walk(@_) },
   eat  => sub { $obj->eat(@_)  },
 );
 $dispatch{$action}->(@args);