Lines Matching refs:text
171 assignment) contains the text from C<$filename>, with each element
800 # issues, plus converted the printed text to use all spaces, since
849 # # The range of lines of the text
1949 # in eval'ed text, for instance.
3514 The C<eval>() text, if any (undefined for C<eval BLOCK>)
5554 # from the eval text, if any.
5560 # if the require flag is true, the eval text is from a require.
5564 # if it's false, the eval text is really from an eval.
5570 # know what the eval'ed text actually was.
6632 the help text.
6733 nicer than just plain text.
6736 and IE<gt>E<lt>), followed by a tab, and then the descriptive text, ending in a newline. The descriptive text can also be marked up in the same way. If you
6737 need to continue the descriptive text to another line, start that line with
6738 just tabs and then enter the marked-up text.
6740 If you are modifying the help text, I<be careful>. The help-string parser is
7119 Most of what C<print_help> does is just text formatting. It finds the
7144 my($leadwhite, $command, $midwhite, $text) = ($1, $2, $3, $4);
7152 . $text;
7801 will print the longest common substring following the text already entered.
7813 # $text is the text to be completed.
7815 # $start is the start of the text to be completed in the incoming line.
7816 my ($text, $line, $start) = @_;
7818 # Save the initial text.
7822 ($text, "^\Q${'package'}::\E([^:]+)\$");
7834 =item * C<grep> out the ones that match the text we have so far
7842 return sort grep /^\Q$text/, (keys %sub),
7850 select the ones that match the text so far.
7854 return sort grep /^\Q$text/, values %INC # files
7863 Get the top-level packages and grab everything that matches the text
7870 grep /^\Q$text/, map { /^(.*)::$/ ? ($1) : () } keys %:: # top-packages
7871 if (substr $line, 0, $start) =~ /^\|*[Vm]\s+$/ and $text =~ /^\w*$/;
7877 the subpackages against the text, and discarding all of them which
7883 grep !/^main::/, grep /^\Q$text/,
7886 and $text =~ /^(.*[^:])::?(\w*)$/
7908 # like '(eval 9)'), so we may need to clean up the completion text
7910 $prefix = length($1) - length($text);
7911 $text = $1;
7918 match the completion text so far.
7923 map { substr $_, 2 + $prefix } grep /^_<\Q$text/, (keys %main::),
7935 if ((substr $text, 0, 1) eq '&') { # subroutines
7936 $text = substr $text, 1;
7938 return sort map "$prefix$_", grep /^\Q$text/, (keys %sub),
7943 } ## end if ((substr $text, 0, ...
7951 if ($text =~ /^[\$@%](.*)::(.*)/) { # symbols in a package
7969 $prefix = (substr $text, 0, 1) . $1 . '::';
7970 $text = $2;
7978 my @out = map "$prefix$_", grep /^\Q$text/, grep /^_?[a-zA-Z]/,
7983 =item * If there's only one hit, and it's a package qualifier, and it's not equal to the initial text, re-complete it using the symbol we actually found.
7994 } ## end if ($text =~ /^[\$@%](.*)::(.*)/)
8005 if ($text =~ /^[\$@%]/) { # symbols (in $package + packages in main)
8019 =item * We set the prefix to the item's sigil, and trim off the sigil to get the text to be completed.
8023 $prefix = substr $text, 0, 1;
8024 $text = substr $text, 1;
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.
8032 my @out = map "$prefix$_", grep /^\Q$text/,
8036 =item * If there's only one hit, it's a package qualifier, and it's not equal to the initial text, recomplete using this symbol.
8048 } ## end if ($text =~ /^[\$@%]/)
8062 # We look for the text to be matched in the list of possible options,
8064 my @out = grep /^\Q$text/, @options;
8106 method with the completion text to get the possible completions.
8110 return $term->filename_list($text); # filenames