Lines Matching refs:class
77 foreach my $class (qw/Math::BigInt Math::BigFloat/)
79 ok ($class->accuracy(5),5); # set A
80 ok_undef ($class->precision()); # and now P must be cleared
81 ok ($class->precision(5),5); # set P
82 ok_undef ($class->accuracy()); # and now A must be cleared
85 foreach my $class (qw/Math::BigInt Math::BigFloat/)
87 $class->accuracy(42);
88 my $x = $class->new(123); # $x gets A of 42, too!
95 $class->accuracy(undef); # reset for further tests
96 $class->precision(undef);