Почему не был должен я использовать UNIVERSAL:: isa?

См. документы для UNIVERSAL:: isa и UNIVERSAL:: может для того, почему Вы не должны делать этого.

Короче говоря существуют важные модули с подлинной потребностью переопределить 'isa' (такой как Тест:: MockObject), и если Вы называете его как функцию, Вы повреждаете это.

Я должен сказать, my $self = shift if UNIVERSAL::isa($_[0], __PACKAGE__) не выглядит ужасно чистым мне - защитники анти-Perl жаловались бы на шум в линии.:)

Для прямого ответа на вопрос ответ внизу страницы, Вы связались с, а именно, что, если пакет определит isa метод, то вызов UNIVERSAL::isa непосредственно не назовет пакет isa метод. Это - очень неинтуитивное поведение с точки зрения объектной ориентации.

Остальная часть этого сообщения является просто большим количеством вопросов о том, почему Вы делаете это во-первых.

В коде как вышеупомянутое, в какой случаи, что конкретный isa протестировал бы сбой? т.е. если бы это - метод, в этом случае разве первым аргументом не был бы класс пакета или экземпляр этого?

я спрашиваю это, потому что интересно, существует ли законная причина, почему Вы хотели бы протестировать, является ли первым аргументом объект во-первых. т.е. Вы просто пытаетесь поймать людей, говорящих FooBar::method вместо FooBar->method или $foobar->method? Я предполагаю, что Perl не разработан для такого потворства, и если люди по ошибке будут использовать FooBar::method, то они узнают достаточно скоро.

Ваш пробег может варьироваться.

Все остальные сказали Вам , почему Вы не хотите использовать UNIVERSAL::isa, потому что это повреждается когда вещи перегрузка isa. Если они перешли ко всей привычке к перегрузке, что совершенно особый метод, Вы, конечно, хотите уважать ее. Несомненно, Вы могли делать это путем записи:

if (eval { $foo->isa("thing") }) {
     # Do thingish things
}

, потому что eval гарантии для возвращения false, если это выдает исключение и последнее значение иначе. Но это выглядит ужасным , и Вы не должны должны быть писать свой код забавными способами, потому что язык хочет Вас к. То, что мы действительно хотим, должно записать просто:

if ( $foo->isa("thing") ) {
     # Do thingish things
}

, Чтобы сделать это, мы должны были бы удостовериться, что $foo всегда объект. Но $foo могла быть строка, число, ссылка, неопределенное значение или все виды странного материала. Какая жалость Perl не может сделать все объект первого класса.

, О, ожидайте, это может...

use autobox;   # Everything is now a first class object.
use CGI;       # Because I know you have it installed.

my $x = 5;
my $y = CGI->new;

print "\$x is a CGI object\n" if $x->isa('CGI');   # This isn't printed.
print "\$y is a CGI object\n" if $y->isa('CGI');   # This is!

можно захватить автополе от CPAN. Можно также использовать его с лексическим контекстом, таким образом, все может быть объектом первого класса только для файлов или блоков, где Вы хотите использовать ->isa() без всех дополнительных головных болей. Это также делает партия [еще 1114], чем, что я покрыл в этом простом примере.