オブジェクト指向勉強してみる 一ファイルに複数のパッケージを持つ方法

• xxx.pm をいちいち分割してつくりはじめるのも面倒なので一ファイルに書く方法
  • 404 Blog Not Found:perl - 複数パッケージを含むファイル

package Foo;

use strict;
use warnings;

sub bar
{
        my ($class, $msg) = @_;
        print "$class $msg\n";
        return;
}

package main;

use strict;
use warnings;

Foo->bar("hogehoge");

• 参考
  • DBI モジュール
    • sub connect のところ。コンストラクタ
  • LWP::UserAgent
    • sub new コンストラクタ
  • 参考書籍　すぐわかるオブジェクト指向 Perl