@nqounetです。

前回は、ハッシュを使って処理を振り分ける「ディスパッチテーブル」を学びました。

第2回-ハッシュで振り分けよう - Mooを使ってディスパッチャーを作ってみよう

if/elseの代わりにハッシュを使って処理を振り分ける「ディスパッチテーブル」を学びます。コードがすっきりする感覚を体験しましょう。

nqou.net

今回は、処理そのものを変数に入れるコードリファレンスを学びます。

コードリファレンスとは

前回のコードでは、ハッシュにメソッド名（文字列）を登録していました。

1
2
3

my %handlers = (
    list => 'show_list',  # メソッド名の文字列
);

コードリファレンスを使うと、メソッド名ではなく処理そのものを変数に入れることができます。

	flowchart LR
    subgraph 前回
        A1["'show_list'"] --> B1["文字列"]
    end
    subgraph 今回
        A2["sub { ... }"] --> B2["処理そのもの"]
    end

基本的な使い方

サブルーチン（関数）を変数に代入するには、sub { ... }という書き方を使います。これを「無名サブルーチン」と呼びます。

1
2
3
4
5
6

my $handler = sub {
    print "こんにちは！\n";
};

# 実行するには、->() をつける
$handler->();  # こんにちは！

$handlerにはサブルーチンへの参照（リファレンス）が入っています。実行するときは->()をつけます。これがコードリファレンスの基本です。

ハッシュに格納して呼び出す

では、前回のディスパッチテーブルをコードリファレンスで書き換えてみましょう。

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24

package BBS {
    use Moo;

    my %handlers = (
        list   => sub { print "投稿一覧を表示\n"; },
        form   => sub { print "投稿フォームを表示\n"; },
        thread => sub { print "スレッドを表示\n"; },
    );

    sub dispatch {
        my ($self, $action) = @_;

        if (exists $handlers{$action}) {
            $handlers{$action}->();
        }
        else {
            print "不明なアクションです\n";
        }
    }
};

my $bbs = BBS->new();
$bbs->dispatch('list');    # 投稿一覧を表示
$bbs->dispatch('form');    # 投稿フォームを表示

メソッド名の代わりにsub { ... }を直接登録しています。実行するときは$handlers{$action}->()で呼び出せます。

メソッドを別途定義する必要がなくなり、処理とアクション名の対応が一目でわかるようになりました。

まとめ

• コードリファレンスは、サブルーチンを変数に入れる仕組みである
• sub { ... }で無名サブルーチンを作り、変数に代入できる
• 実行するには->()をつける
• ハッシュに処理そのものを登録できるようになる
• 関数をデータとして扱う第一歩である

次回予告

次回は、処理をクラスに分ける方法を学びます。各機能を別々のクラスに切り出して、責任を分離していきましょう。