Commit | Line | Data |
f9916dde |
1 | # -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*- |
2 | # vim: ts=4 sts=4 sw=4: |
3 | package CPAN::Prompt; |
4 | use overload '""' => "as_string"; |
5 | use vars qw($prompt); |
6 | use vars qw( |
7 | $VERSION |
8 | ); |
9 | $VERSION = "5.5"; |
10 | |
11 | |
12 | $prompt = "cpan> "; |
13 | $CPAN::CurrentCommandId ||= 0; |
14 | sub new { |
15 | bless {}, shift; |
16 | } |
17 | sub as_string { |
18 | my $word = "cpan"; |
19 | unless ($CPAN::META->{LOCK}) { |
20 | $word = "nolock_cpan"; |
21 | } |
22 | if ($CPAN::Config->{commandnumber_in_prompt}) { |
23 | sprintf "$word\[%d]> ", $CPAN::CurrentCommandId; |
24 | } else { |
25 | "$word> "; |
26 | } |
27 | } |
28 | |
29 | 1; |