Lines Matching refs:try
69 my ($func,@args,$ans,$rc,$class,$try);
85 $try = "'$args[0]'"; # quote it
86 $try = $args[0] if $args[0] =~ /'/; # already quoted
87 $try = '' if $args[0] eq ''; # undef, no argument
88 $try = "$class\->$func($try);";
89 $rc = eval $try;
90 print "# Tried: '$try'\n" if !ok ($rc, $ans);
100 #$try = "use $class ($version.'1');";
101 #$try .= ' $x = $class->new(123); $x = "$x";';
102 #eval $try;
106 $try = "use $class ($version,'lib','foo, bar , ');";
107 $try .= "$class\->config()->{lib};";
108 $ans = eval $try;
113 $try = "use Math::BigInt ($version,'bgcd',':constant');";
114 $try .= ' $x = 2**150; bgcd($x); $x = "$x";';
115 $ans = eval $try;
119 $try = "use $class ($version,'lib','Scalar');";
120 $try .= ' $x = 2**10; $x = "$x";';
121 $ans = eval $try; ok ( $ans, "1024");
122 $try = "use $class ($version,'LiB','$class\::Scalar');";
123 $try .= ' $x = 2**10; $x = "$x";';
124 $ans = eval $try; ok ( $ans, "1024");