Scalar::Util::blessedでblessされちゃった判定するよ！ - Articles Advent Calendar 2012 Casual

カジュアルと言えば、Hokkaido.pm Casual#8が開催されたばっかりなので、どんな感じのことをやってるか少しだけ紹介しますね！ #8で扱ったのは「モジュール定義入門」ということで、Perlでクラス定義とかオブジェクトの生成とかどうやるの？って内容で開催しました。 package Foo; use strict; use warnings; sub new { my $class = shift; return bless {}, $class; } package Bar; use strict; use warnings; sub new { my $class = shift; return bless {}, 'NotBar'; } package main; use strict; use warnings; use feature 'say'; my $foo = F

[michael-unltd]

“use Scalar::Util 'blessed';”