bless

blessは、指定されたリファレンスと指定されたクラスを紐付ける組み込み関数。

bless関数 - オブジェクトの生成 - Perlプログラミング入門ゼミ - Perlでテキスト処理・Linuxサーバー管理・Webシステム開発

2つ目のクラス名を省略した場合は、そこのパッケージと紐付く。
この性質を使って、オブジェクト生成メソッドattachをつくる。

blessの戻り値は、完成したオブジェクトのリファレンスを指す$this自身であり、最後の行なので、このまま関数attachの戻り値になる。

$obj->method1()で呼べれば、$objがオブジェクトになってる証明。

[bg1@dti-vps-srv93 bless]$ vi CustomClass.pm
[bg1@dti-vps-srv93 bless]$ vi bless.pl
[bg1@dti-vps-srv93 bless]$ perl bless.pl
method1
[bg1@dti-vps-srv93 bless]$

呼べた。

Sample/perl/bless/bless/src/bless at master · bg1bgst333/Sample · GitHub