Searched refs:qualify (Results 1 - 10 of 10) sorted by relevance

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/
H A DSymbol.t51 # 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() wit
[all...]
H A DSymbol.pm21 print qualify("x"), "\n"; # "Test::x"
22 print qualify("x", "FOO"), "\n" # "FOO::x"
23 print qualify("BAR::x"), "\n"; # "BAR::x"
24 print qualify("BAR::x", "FOO"), "\n"; # "BAR::x"
25 print qualify("STDOUT", "FOO"), "\n"; # "main::STDOUT" (global)
26 print qualify(\*x), "\n"; # returns \*x
27 print qualify(\*x, "FOO"), "\n"; # returns \*x
51 C<Symbol::qualify> turns unqualified symbol names into qualified
53 second parameter, C<qualify> uses it as the default package;
62 C<Symbol::qualify_to_ref> is just like C<Symbol::qualify> excep
117 sub qualify ($;$) { subroutine
[all...]
H A DSelectSaver.pm45 select qualify($_[1], caller) if @_ > 1;
H A Dsigtrap.pm55 $handler = Symbol::qualify($handler, (caller)[0]);
H A Dperl5db.pl3327 evaluate. We'll always evaluate in the user's context, and fully qualify
4304 We take the incoming subroutine name and fully-qualify it as best we can.
4329 # If the subname isn't a code reference, qualify it so that
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Test/Simple/t/
H A Duse_ok.t21 ::use_ok("Symbol", qw(qualify));
23 ::ok( defined &qualify, ' right function exported' );
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/IO/lib/IO/
H A DHandle.pm350 my $n = qualify(*GLOB);
465 my $old = new SelectSaver qualify($_[0], caller);
497 () = tell qualify($_[0], caller) if ref($_[0]);
505 $old = new SelectSaver qualify($_[0], caller) if ref($_[0]);
513 $old = new SelectSaver qualify($_[0], caller) if ref($_[0]);
521 $old = new SelectSaver qualify($_[0], caller) if ref($_[0]);
529 $old = new SelectSaver qualify($_[0], caller) if ref($_[0]);
531 $~ = qualify($_[1], caller) if @_ > 1;
537 $old = new SelectSaver qualify($_[0], caller) if ref($_[0]);
539 $^ = qualify(
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/IPC/
H A DOpen3.pm10 use Symbol qw(gensym qualify);
186 $dad_wtr = qualify $dad_wtr, $package unless fh_is_fd($dad_wtr);
187 $dad_rdr = qualify $dad_rdr, $package unless fh_is_fd($dad_rdr);
188 $dad_err = qualify $dad_err, $package unless fh_is_fd($dad_err);
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/File/
H A Dstat.pm56 $fh = \*{ Symbol::qualify( $arg, caller() )};
/osnet-11/usr/src/lib/libast/common/misc/
H A Dmagic.c1127 goto qualify;
1286 goto qualify;
1292 goto qualify;
1299 goto qualify;
1306 goto qualify;
1312 goto qualify;
1318 goto qualify;
1370 goto qualify;
1380 goto qualify;
1387 goto qualify;
[all...]

Completed in 52 milliseconds