Lines Matching defs:PI
40 use constant PI => 4 * atan2 1, 1;
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;
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';
178 test 50, $constant::declared{'main::PI'};
188 ::test 55, ::declared 'main::PI';
189 ::test 56, $constant::declared{'main::PI'};