Lines Matching refs:qualify
51 # Test qualify()
54 use Symbol qw(qualify); # must import into this package too
56 ::ok( qualify("x") eq "foo::x", 'qualify() with a simple identifier' );
57 ::ok( qualify("x", "FOO") eq "FOO::x", 'qualify() with a package' );
58 ::ok( qualify("BAR::x") eq "BAR::x",
59 'qualify() with a qualified identifier' );
60 ::ok( qualify("STDOUT") eq "main::STDOUT",
61 'qualify() with a reserved identifier' );
62 ::ok( qualify("ARGV", "FOO") eq "main::ARGV",
63 'qualify() with a reserved identifier and a package' );
64 ::ok( qualify("_foo") eq "foo::_foo",
65 'qualify() with an identifier starting with a _' );
66 ::ok( qualify("^FOO") eq "main::\cFOO",
67 'qualify() with an identifier starting with a ^' );