#! ./perl BEGIN { require "./test.pl" } plan tests => 4; my ($foo, $bar); is ref::address('foo'), undef; ok ref::address(\$foo); is ref::address(\$foo), ref::address(\$foo); isnt ref::address(\$foo), ref::address(\$bar);