Lines Matching refs:main
170 The array C<@{$main::{'_<'.$filename}}> (aliased locally to C<@dbline> via glob
253 call to C<&DB::postponed($main::{'_<'.$filename})> is done. C<$filename>
384 Local alias to the magical line array, C<@{$main::{'_<'.$filename}}> ,
600 # Remember: this localizes @DB::res, not @main::res.
1446 ((defined $main::ARGV[0]) and ($main::ARGV[0] eq '-emacs'));
1447 $rl = 0, shift (@main::ARGV) if $slave_editor;
1750 local (*dbline) = $main::{ '_<' . $filename };
1756 *dbline = $main::{ '_<' . $filename };
1892 $package = 'main';
2221 # If main::dumpvar isn't here, get it.
2222 do 'dumpvar.pl' unless defined &main::dumpvar;
2223 if (defined &main::dumpvar) {
2232 &main::dumpvar(
2246 } ## end if (defined &main::dumpvar)
2264 $onetimeDump = 'dump'; # main::dumpvar shows the output
2306 if (!defined $main::{ '_<' . $file }) {
2307 if (($try) = grep(m#^_<.*$file#, keys %main::)) {
2315 } ## end if (!defined $main::{ ...
2318 if (!defined $main::{ '_<' . $file }) {
2325 *dbline = $main::{ '_<' . $file };
2353 *dbline = $main::{ '_<' . $filename };
2418 do 'dumpvar.pl' unless defined &main::dumpvar;
2419 defined &main::dumpvar
2539 *dbline = $main::{ '_<' . $filename };
2709 *dbline = $main::{ '_<' . $file };
2733 *dbline = $main::{ '_<' . $_ };
3869 local *dbline = $main::{ '_<' . $file };
3932 # Add main if it starts with ::.
3933 $subname = "main" . $subname if substr($subname, 0, 2) eq "::";
4158 local *dbline = $main::{ '_<' . $f };
4233 local *dbline = $main::{ '_<' . $f };
4314 =item 4. If it starts with '::', put it in 'main::'.
4348 # Put it in package 'main' if it has a leading ::.
4349 $subname = "main" . $subname if substr($subname, 0, 2) eq "::";
4452 local *dbline = $main::{ '_<' . $file };
4651 # Put leading '::' names into 'main::'.
4652 $subname = "main" . $subname if substr($subname, 0, 2) eq "::";
4671 *dbline = $main::{ '_<' . $file };
4815 local *dbline = $main::{ '_<' . $file };
5170 local *dbline = $main::{ '_<' . $file };
5283 It then checks to see if the subroutine C<main::dumpValue> is now defined
5285 localizes the globals necessary for things to be sane when C<main::dumpValue()>
5316 unless (defined &main::dumpValue) {
5322 if (defined &main::dumpValue) {
5329 &main::dumpValue($v, $maxdepth);
5330 } ## end if (defined &main::dumpValue)
7878 start with 'main::'. Return this list.
7883 grep !/^main::/, grep /^\Q$text/,
7916 (C<eval>s are C<_E<lt>(eval NNN)>) keys in C<%main::>. We pull all of these
7917 out of C<%main::>, add the initial source file, and extract the ones that
7923 map { substr $_, 2 + $prefix } grep /^_<\Q$text/, (keys %main::),
7957 =item * Determine the package that the symbol is in. Put it in C<::> (effectively C<main::>) if no package is specified.
7961 $pack = ($1 eq 'main' ? '' : $1) . '::';
8000 =head3 Symbol completion: current package or package C<main>.
8005 if ($text =~ /^[\$@%]/) { # symbols (in $package + packages in main)
8011 =item * If it's C<main>, delete main to just get C<::> leading.
8015 $pack = ($package eq 'main' ? '' : $package) . '::';
8028 =item * If the package is C<::> (C<main>), create an empty list; if it's something else, create a list of all the packages known. Append whichever list to a list of all the possible symbols in the current package. C<grep> out the matches to the text entered so far, then C<map> the prefix back onto the symbols.
8281 # Add main if it starts with ::.
8282 $subname = "main" . $subname if substr($subname, 0, 2) eq "::";
8320 local *dbline = $main::{ '_<' . $file };