Lines Matching refs:ref
18 '-' => sub { my @a = ref($_[0])->_swap(@_);
27 my $c = ref ($_[0] ) || 'Math::Foo';
197 ok (ref($ans),$expected_class) if $expected_class ne $class;
200 is_valid($ans1,$f) if ref $ans1;
376 ok ($args[1],4); ok (ref($args[1]),$args[0]);
377 ok ($args[2],5); ok (ref($args[2]),$args[0]);
378 ok ($args[3],6); ok (ref($args[3]),'');
379 ok ($args[4],7); ok (ref($args[4]),'');
384 ok ($args[1],4); ok (ref($args[1]),$args[0]);
385 ok ($args[2],5); ok (ref($args[2]),$args[0]);
386 ok ($args[3],6); ok (ref($args[3]),'');
387 ok ($args[4],7); ok (ref($args[4]),'');
494 ok (ref($x),'Math::Foo');
499 ok (ref($x),'Math::Foo');
655 $e = 'Not a reference to Math::BigInt' if ref($x) !~ /^Math::BigInt/;
657 if (ref($x) ne 'Math::BigInt::Lite')