Lines Matching refs:line
51 my($text, $line, $start, $end) = @_;
52 my(@perlret) = cpl($text, $line, $start);
73 my($word,$line,$pos) = @_;
75 $line ||= "";
77 CPAN->debug("word [$word] line[$line] pos[$pos]") if $CPAN::DEBUG;
78 $line =~ s/^\s*//;
79 if ($line =~ s/^((?:notest|f?force)\s*)//) {
83 if ($pos == 0 || $line =~ /^(?:h(?:elp)?|\?)\s/) {
85 } elsif ( $line !~ /^[\!abcdghimorutl]/ ) {
87 } elsif ($line =~ /^a\s/) {
89 } elsif ($line =~ /^ls\s/) {
95 } elsif ($line =~ /^b\s/) {
98 } elsif ($line =~ /^d\s/) {
100 } elsif ($line =~ m/^(
107 } elsif ($line =~ /^i\s/) {
109 } elsif ($line =~ /^reload\s/) {
110 @return = cpl_reload($word,$line,$pos);
111 } elsif ($line =~ /^o\s/) {
112 @return = cpl_option($word,$line,$pos);
113 } elsif ($line =~ m/^\S+\s/ ) {
146 my($word,$line,$pos) = @_;
148 my(@words) = split " ", $line;
149 CPAN->debug("word[$word] line[$line] pos[$pos]") if $CPAN::DEBUG;
157 my($word,$line,$pos) = @_;
159 my(@words) = split " ", $line;
160 CPAN->debug("word[$word] line[$line] pos[$pos]") if $CPAN::DEBUG;