Searched defs:PI (Results 1 - 1 of 1) sorted by relevance

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/
H A Dconstant.t40 use constant PI => 4 * atan2 1, 1; constant
42 test 2, substr(PI, 0, 7) eq '3.14159';
43 test 3, defined PI;
45 sub deg2rad { PI * $_[0] / 180 }
117 use constant PI => 3.141; constant
120 test 31, (PI > 3.1415 and PI < 3.1416);
121 test 32, Other::PI == 3.141;
132 undef &PI;
177 test 49, declared 'PI';
[all...]

Completed in 48 milliseconds