Lines Matching refs:class
22 foreach my $class ($mbi, $mbf)
25 ok ($class->can('config'));
26 ok ($class->config()->{trap_nan}, 0);
27 ok ($class->config()->{trap_inf}, 0);
30 $cfg = $class->config( trap_nan => 1 ); ok ($cfg->{trap_nan},1);
33 eval ("\$x = \$class->new('42'); \$x->bnan();");
38 $cfg = $class->config( trap_nan => 0 ); ok ($cfg->{trap_nan},0);
41 $cfg = $class->config( trap_inf => 1 ); ok ($cfg->{trap_inf},1);
42 eval ("\$x = \$class->new('4711'); \$x->binf();");
47 eval ("\$x = \$class->new('4711'); \$x->bdiv(0);");
52 eval ("\$x = \$class->new('-0815'); \$x->bdiv(0);");
56 $cfg = $class->config( trap_nan => 1 );
58 eval ("\$x = \$class->new('0'); \$x->bdiv(0);");