第8回-形式名から自動でエクスポーターを選ぼう - Mooを使ってデータエクスポーターを作ってみよう

前回は、isaを追加して型チェックができるようになりました。

https://www.nqou.net/2026/01/09/004718/

今回は、“csv"や"json"といった形式名の文字列から、自動で適切なエクスポーターを選ぶ機能を追加します。

現在の問題点

現在のメイン処理では、形式に応じてif/elseでエクスポーターを選んでいます。

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
my $exporter_obj;
if ($format eq 'csv') {
    $exporter_obj = CsvExporter->new;
}
elsif ($format eq 'json') {
    $exporter_obj = JsonExporter->new;
}
else {
    die "未対応の形式です: $format\n";
}

これは第2回で見た問題と似ています。形式が増えるとif/elseが増えていきます。

	flowchart LR
    subgraph 問題のある方法
        F1["'csv'"] --> IF{if/else}
        F2["'json'"] --> IF
        F3["'yaml'"] --> IF
        IF --> C1[CsvExporter]
        IF --> C2[JsonExporter]
        IF --> C3[YamlExporter]
    end

せっかくエクスポーターをクラスに分離したのに、「どのエクスポーターを使うか選ぶ」部分にまだif/elseが残っています。

exporter_forメソッドを作る

DataExporterクラスに、形式名から適切なエクスポーターを返すメソッドを追加しましょう。

	flowchart LR
    subgraph Factoryパターン的アプローチ
        F["'csv'"] --> MAP["%exporter_map"]
        MAP --> |"csv => 'CsvExporter'"| C[CsvExporter->new]
    end
    
    subgraph マッピングテーブル
        direction TB
        T1["csv  => 'CsvExporter'"]
        T2["json => 'JsonExporter'"]
        T3["yaml => 'YamlExporter'"]
    end

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
package DataExporter {
    use Moo;
    use v5.36;

    has exporter => (
        is       => 'rw',
        required => 1,
        isa => sub { # 型チェック追加
            my $value = shift;
            die "exporter must does ExporterRole" unless $value->does('ExporterRole')
        },
    );

    # 形式名からエクスポーターを取得するためのマッピング
    my %exporter_map = (
        csv  => 'CsvExporter',
        json => 'JsonExporter',
    );

    # 形式名からエクスポーターを生成するクラスメソッド
    sub exporter_for ($class, $format) {
        my $exporter_class = $exporter_map{$format};
        die "未対応の形式です: $format\n" unless $exporter_class;
        return $exporter_class->new;
    }

    sub export_data ($self, $data) {
        return $self->exporter->export($data);
    }
}

ポイントは%exporter_mapというハッシュです。形式名とエクスポータークラス名の対応表を持つことで、if/elseを使わずにクラスを選べます。

使い方

exporter_forメソッドを使うと、形式名からエクスポーターを簡単に取得できます。

1
2
3
4
# 形式名からエクスポーターを生成
my $exporter = DataExporter->exporter_for('csv');
my $data_exporter = DataExporter->new(exporter => $exporter);
print $data_exporter->export_data(\@contacts);

さらに、新しい形式を追加するときは%exporter_mapにエントリを追加するだけでOKです。

完成したコード

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
#!/usr/bin/env perl
use v5.36;
use JSON::PP;

# ========================================
# ExporterRole - エクスポーターの約束
# ========================================
package ExporterRole {
    use Moo::Role;
    requires 'export';
}

# ========================================
# CsvExporterクラス
# ========================================
package CsvExporter {
    use Moo;
    use v5.36;
    with 'ExporterRole';

    sub export ($self, $data) {
        my $output = "name,email,phone\n";
        for my $contact (@$data) {
            $output .= "$contact->{name},$contact->{email},$contact->{phone}\n";
        }
        return $output;
    }
}

# ========================================
# JsonExporterクラス
# ========================================
package JsonExporter {
    use Moo;
    use v5.36;
    use JSON::PP;
    with 'ExporterRole';

    sub export ($self, $data) {
        return JSON::PP->new->pretty->encode($data);
    }
}

# ========================================
# DataExporterクラス（エクスポーター管理）
# ========================================
package DataExporter {
    use Moo;
    use v5.36;

    has exporter => (
        is       => 'rw',
        required => 1,
        isa => sub { # 型チェック追加
            my $value = shift;
            die "exporter must does ExporterRole" unless $value->does('ExporterRole')
        },
    );

    # 形式名からエクスポーターを取得するためのマッピング
    my %exporter_map = (
        csv  => 'CsvExporter',
        json => 'JsonExporter',
    );

    # 形式名からエクスポーターを生成するクラスメソッド
    sub exporter_for ($class, $format) {
        my $exporter_class = $exporter_map{$format};
        die "未対応の形式です: $format\n" unless $exporter_class;
        return $exporter_class->new;
    }

    sub export_data ($self, $data) {
        return $self->exporter->export($data);
    }
}

# ========================================
# メイン処理
# ========================================
package main;

# アドレス帳データ
my @contacts = (
    { name => '田中太郎', email => 'tanaka@example.com', phone => '090-1234-5678' },
    { name => '鈴木花子', email => 'suzuki@example.com', phone => '080-2345-6789' },
    { name => '佐藤次郎', email => 'sato@example.com',   phone => '070-3456-7890' },
);

# コマンドライン引数から形式を取得
my $format = $ARGV[0] // 'csv';

# 形式名からエクスポーターを生成し、DataExporterを作成
my $exporter = DataExporter->exporter_for($format);
my $data_exporter = DataExporter->new(exporter => $exporter);

# エクスポート実行
print $data_exporter->export_data(\@contacts);

メインのif/elseがなくなった！

メイン処理を見てください。

1
2
3
4
my $format = $ARGV[0] // 'csv';
my $exporter = DataExporter->exporter_for($format);
my $data_exporter = DataExporter->new(exporter => $exporter);
print $data_exporter->export_data(\@contacts);