Lines Matching refs:isa
317 # XXX BAD! $pope->isa('Catholic') eq 1
318 is( $pope->isa('Catholic'), 1, 'Is the Pope Catholic?' );
320 This does not check if C<$pope->isa('Catholic')> is true, it checks if
324 ok( $pope->isa('Catholic') ), 'Is the Pope Catholic?' );
491 Checks to see if the given $object->isa($class). Also checks to make
501 ok( defined $obj && $obj->isa('Some::Module') );
520 my $name = "$obj_name isa $class";
528 # We can't use UNIVERSAL::isa because we want to honor isa() overrides
530 my $rslt = eval { $object->isa($class) };
532 if( $@ =~ /^Can't call method "isa" on unblessed reference/ ) {
533 if( !UNIVERSAL::isa($object, $class) ) {
539 WHOA! I tried to call ->isa on your object and got some weird error.
1041 if( UNIVERSAL::isa($e1, 'ARRAY') and
1042 UNIVERSAL::isa($e2, 'ARRAY') )
1046 elsif( UNIVERSAL::isa($e1, 'HASH') and
1047 UNIVERSAL::isa($e2, 'HASH') )
1051 elsif( UNIVERSAL::isa($e1, 'REF') and
1052 UNIVERSAL::isa($e2, 'REF') )
1058 elsif( UNIVERSAL::isa($e1, 'SCALAR') and
1059 UNIVERSAL::isa($e2, 'SCALAR') )