第5回-生成処理をオーバーライドしよう - PerlとMooでレポートジェネレーターを作ってみよう

@nqounetです。

前回の振り返り

前回は、継承を使ってジェネレーターを種別ごとに分けました。

ReportGeneratorを基底クラスとして整理した
MonthlyReportGeneratorとWeeklyReportGeneratorを作成した
if/elseが不要になった

https://www.nqou.net/2026/01/12/225241/

デザインパターンの名前は嘘をつく

今回の目標

今回は、create_reportメソッドのオーバーライドについて詳しく解説します。

具体的には、以下のことを行います。

オーバーライドの仕組みを理解する
新しくDailyReportGeneratorを追加する
拡張が既存コードに影響しないことを確認する

ストーリー設定

上司から「日次レポートも欲しい」と依頼されました。

前回の設計がうまくいっていれば、既存のコードを修正せずに新しいジェネレーターを追加できるはずです。

試してみましょう。

実装

コード例1: オーバーライドの仕組み

まず、オーバーライドがどのように動作するかを確認します。

  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
 99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
#!/usr/bin/env perl
use v5.36;

# ========================================
# ReportRole ロール
# ========================================
package ReportRole {
    use Moo::Role;

    requires 'generate';
    requires 'get_period';
}

# ========================================
# MonthlyReport クラス
# ========================================
package MonthlyReport {
    use Moo;
    with 'ReportRole';

    has title => (
        is       => 'ro',
        required => 1,
    );

    sub generate ($self) {
        say "=== " . $self->title . " ===";
        say "期間: " . $self->get_period();
        say "月次レポートを生成しました。";
    }

    sub get_period ($self) {
        return '月次';
    }
}

# ========================================
# WeeklyReport クラス
# ========================================
package WeeklyReport {
    use Moo;
    with 'ReportRole';

    has title => (
        is       => 'ro',
        required => 1,
    );

    sub generate ($self) {
        say "=== " . $self->title . " ===";
        say "期間: " . $self->get_period();
        say "週次レポートを生成しました。";
    }

    sub get_period ($self) {
        return '週次';
    }
}

# ========================================
# DailyReport クラス（新規追加）
# ========================================
package DailyReport {
    use Moo;
    with 'ReportRole';

    has title => (
        is       => 'ro',
        required => 1,
    );

    sub generate ($self) {
        say "=== " . $self->title . " ===";
        say "期間: " . $self->get_period();
        say "日次レポートを生成しました。";
    }

    sub get_period ($self) {
        return '日次';
    }
}

# ========================================
# ReportGenerator 基底クラス
# ========================================
package ReportGenerator {
    use Moo;

    # サブクラスでオーバーライドするメソッド
    sub create_report ($self, $title) {
        die "create_report() must be implemented by subclass";
    }

    # 共通の処理
    sub generate_and_print ($self, $title) {
        my $report = $self->create_report($title);
        $report->generate();
        return $report;
    }
}

# ========================================
# MonthlyReportGenerator クラス
# ========================================
package MonthlyReportGenerator {
    use Moo;
    extends 'ReportGenerator';

    # create_report をオーバーライド
    sub create_report ($self, $title) {
        return MonthlyReport->new(title => $title);
    }
}

# ========================================
# WeeklyReportGenerator クラス
# ========================================
package WeeklyReportGenerator {
    use Moo;
    extends 'ReportGenerator';

    # create_report をオーバーライド
    sub create_report ($self, $title) {
        return WeeklyReport->new(title => $title);
    }
}

# ========================================
# DailyReportGenerator クラス（新規追加）
# ========================================
package DailyReportGenerator {
    use Moo;
    extends 'ReportGenerator';

    # create_report をオーバーライド
    sub create_report ($self, $title) {
        return DailyReport->new(title => $title);
    }
}

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

say "--- 月次レポート ---";
my $monthly = MonthlyReportGenerator->new();
$monthly->generate_and_print("2026年1月 売上レポート");

say "";

say "--- 週次レポート ---";
my $weekly = WeeklyReportGenerator->new();
$weekly->generate_and_print("2026年1月第1週 売上レポート");

say "";

say "--- 日次レポート ---";
my $daily = DailyReportGenerator->new();
$daily->generate_and_print("2026年1月9日 売上レポート");

オーバーライドについて詳しくは、前提知識のシリーズなどをご覧ください。

https://www.nqou.net/2021/10/31/191008/

デザインパターンの名前は嘘をつく

コード例2: 実行結果の確認

実行結果は以下のようになります。

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
--- 月次レポート ---
=== 2026年1月 売上レポート ===
期間: 月次
月次レポートを生成しました。

--- 週次レポート ---
=== 2026年1月第1週 売上レポート ===
期間: 週次
週次レポートを生成しました。

--- 日次レポート ---
=== 2026年1月9日 売上レポート ===
期間: 日次
日次レポートを生成しました。

日次レポートが追加されました！

オーバーライドのポイント

この設計のポイントは以下の通りです。

	sequenceDiagram
    participant Main as メイン処理
    participant Generator as MonthlyReportGenerator
    participant Base as ReportGenerator
    participant Report as MonthlyReport

    Main->>Generator: new()
    Main->>Generator: generate_and_print(title)
    Generator->>Base: generate_and_print(title)
    Note over Base: 基底クラスの処理
    Base->>Generator: create_report(title)
    Note over Generator: オーバーライドされた<br/>メソッドが呼ばれる
    Generator->>Report: new(title)
    Report-->>Generator: MonthlyReport
    Generator-->>Base: report
    Base->>Report: generate()
    Report-->>Base: レポート内容
    Base-->>Main: report

この図は、generate_and_printを呼び出したときの処理の流れを示しています。基底クラスのgenerate_and_print内でcreate_reportが呼ばれると、オーバーライドされたサブクラスのメソッドが実行されます。

基底クラス（ReportGenerator）