Lines Matching refs:class
21 foreach my $class ($mbi)
24 ok ($class->can('config'));
25 ok ($class->config()->{trap_nan}, 0);
26 ok ($class->config()->{trap_inf}, 0);
29 $cfg = $class->config( trap_nan => 1 ); ok ($cfg->{trap_nan},1);
32 $cfg = $class->config( { trap_nan => 1 } ); ok ($cfg->{trap_nan},1);
35 eval ("\$x = \$class->new('42'); \$x->bnan();");
40 $cfg = $class->config( trap_nan => 0 ); ok ($cfg->{trap_nan},0);
43 $cfg = $class->config( trap_inf => 1 ); ok ($cfg->{trap_inf},1);
44 eval ("\$x = \$class->new('4711'); \$x->binf();");
49 eval ("\$x = \$class->new('4711'); \$x->bdiv(0);");
54 eval ("\$x = \$class->new('-0815'); \$x->bdiv(0);");
58 $cfg = $class->config( trap_nan => 1 );
60 eval ("\$x = \$class->new('0'); \$x->bdiv(0);");