Lines Matching refs:refaddr

6 use builtin qw(refaddr);
34     is( 0 + $x, refaddr($x), "no numification" );
35     is( cos($x), cos(refaddr($x)), "no cosinusfication" );
41 	is( 0 + $x, refaddr($x), "no numification" );
42 	is( cos($x), cos(refaddr($x)), "no cosinusfication" );
68 	is( 0 + $x, refaddr($x), "no numification" );
69 	is( cos($x), cos(refaddr($x)), "no cosinusfication" );
82     is( 0 + $x, refaddr($x), "no numification" );
89 	is( 0 + $x, refaddr($x), "no numification" );
103     is( 0 + $x, refaddr($x), "no numification" );
109     is( 0 + $x, refaddr($x), "no numification" );
110     is( cos($x), cos(refaddr($x)), "no cosinusfication" );