blessではまった

またしょーも無いことで結構時間を食ってしまった。

こんな風にblessした。

bless {
    opt1 => $args->{hoge} || die "missing hoge",
    opt2 => 'foo',
}, $class;

そしたらopt2取れないの。考えること30分あまり。
これで解決。

bless {
    opt1 => $args->{hoge} || die("missing hoge"),
    opt2 => 'foo',
}, $class;

dieに引数奪われてた。
そりゃそうだわな。バカだ。