Commit | Line | Data |
---|---|---|
f9916dde A |
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; |